۰۵-آبان-۱۳۹۳, ۲۱:۵۹:۴۲
۰۵-آبان-۱۳۹۳, ۲۲:۲۲:۱۲
دریافت نام و نمایش پیام خوش امد گویی
ماشین حساب ساده
کد:
dim name
name=inputbox("Enter Your Name:","Your Name")
msgbox("Welcome " & name)ماشین حساب ساده
کد:
dim a,b,r,o
a=inputbox("Enter number One:")
b=inputbox("Enter number Two:")
o=inputbox("Enter Operation:")
if o="+" then
r= cint(a) + cint(b)
msgbox("result is:" &r)
end if
if o="-" then
r=cint(a) - cint(b)
msgbox("result is:"&r)
end if
if o="*" then
r=cint(a) * cint(b)
msgbox("result is:"&r)
end if
if o="/" then
r=cint(a) / cint(b)
msgbox("result is:"&r)
end if۰۵-آبان-۱۳۹۳, ۲۲:۵۰:۵۳
اعداد زوج بین 2 تا 200
اعداد فرد بین 1 تا 200
کد:
dim i
for i=2 to 200 step 2
wscript.echo i
nextاعداد فرد بین 1 تا 200
کد:
dim i
for i=1 to 200 step 2
wscript.echo i
next۰۵-آذر-۱۳۹۳, ۲۱:۴۲:۵۰
text speaker
کد:
text=inputbox("Enter A Text:")
CreateObject("SAPI.SpVoice").Speak text۰۶-آذر-۱۳۹۳, ۲۳:۵۰:۴۴
تولید اعداد تصادفی integer
با حذف int میتوان اعداد تصادفی اعشاری نیز تولید نمود.
ایجاد وقفه
کد:
randomize
m=inputbox("Enter A Number:")
msgbox int(m*rnd +1)ایجاد وقفه
کد:
d=inputbox("Enter Delay Time(ms):")
WScript.sleep d
msgbox("Hello")۰۷-آذر-۱۳۹۳, ۰۰:۳۴:۵۸
درود
با این کد میتوانید یک alarmer شخصی داشته باشید!
نکته:زمان باید بر اساس ثانیه باشد نه میلی ثانیه! کدی که نوشتم خودش ثانیه شما را به میلی ثانیه تبدیل می نماید.
اگر میخواهید زمانی که میدهید بر اساس دقیقه باشد
به جای t=t * 1000 از t=t * 60000 استفاده کنید.
نکته:در صورتی که نوشتار پارسی استفاده نمایید متن شما خوانده نمیشود.
پیروز باشید.
با این کد میتوانید یک alarmer شخصی داشته باشید!
کد:
t=inputbox("Enter The Alarm Time:","Alarm Time")
t=t * 1000
msg=inputbox("Enter The Meassge:","Message Text")
Wscript.sleep t
CreateObject("SAPI.SpVoice").Speak msg
msgbox msg,vbOKOnly,"Alarm"اگر میخواهید زمانی که میدهید بر اساس دقیقه باشد
به جای t=t * 1000 از t=t * 60000 استفاده کنید.
نکته:در صورتی که نوشتار پارسی استفاده نمایید متن شما خوانده نمیشود.
پیروز باشید.