Vb Script Source Codes

[grimm]

درود

در این تاپیک سورس کد های زبان اسکریپتی vbscript قرار خواهد گرفت.
موفق باشید.

[grimm]

دریافت نام و نمایش پیام خوش امد گویی

کد:

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

[grimm]

اعداد زوج بین 2 تا 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

[grimm]

text speaker

کد:

text=inputbox("Enter A Text:")
CreateObject("SAPI.SpVoice").Speak text

[grimm]

تولید اعداد تصادفی integer

کد:

randomize
m=inputbox("Enter A Number:")
msgbox int(m*rnd +1)

با حذف int میتوان اعداد تصادفی اعشاری نیز تولید نمود.
ایجاد وقفه

کد:

d=inputbox("Enter Delay Time(ms):")
WScript.sleep d
msgbox("Hello")

[grimm]

درود
با این کد میتوانید یک 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 استفاده کنید.
نکته:در صورتی که نوشتار پارسی استفاده نمایید متن شما خوانده نمیشود.
پیروز باشید.