သူငယ္ခ်င္းတို႕ရဲ႕ ကြန္ျပဴတာကို စကားေျပာလာေအာင္လုပ္ၾကရေအာင္

အခုတင္ေပးမွာကေတာ့ ကြန္ျပဴတာကို စကားေျပာလာေအာင္ပါ........

စိတ္၀င္စားမယ္လုိ႕ထင္ပါတယ္.....ကၽႊန္ေတာ္လည္း ရွာေဖြျပီးတင္ေပးလုိက္ပါတယ္......

ကဲ................  ၾကည္႕လိုက္ရေအာင္ေနာ္......စျပီးေနာ္

၁။ Notepad ကိုဖြင္႔ပါ။
၂။ ေအာက္ က Code ကို Copy လုိက္ပါ။
၃။ Save As ဆိုျပီး ၾကိဳက္တဲ႔ နာမည္ေပးပါ။
၄။ Save ရင္ All files ဆိုျပီး .vbs extension နဲ႔ save ပါ။

Numero uno! Says what you put in the box!
Code:

Dim message, sapi
message=InputBox("Enter the text you want spoken","Speak This")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

Number two! This one will say what ever you put in the first parenthesis, no user interaction! Good for pranks!
ိိိ္ိ္ဒီ ဟာကေတာ႔ ခင္ဗ်ားထည္႔ထားတဲ႔ အရာအတိုင္းေျပာျခင္း။

Code:

StrText=("REPLACE THIS WITH WHAT YOU WANT IT TO SAY")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText

You can also try playing around with "ObjVoice.Rate=###" to make Sam talk very quickly or very slowly.

ObjVoice.Speak မတုိင္ခင္ထည္႔တာ က Rate ကိုထည္႔လုိ႔ရတယ္။

Code:

StrText=("REPLACE THIS WITH WHAT YOU WANT IT TO SAY")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Rate=100
ObjVoice.Speak StrText

ဒီ code ေတြကို loop ျဖစ္ခ်င္ရင္ ထိပ္ဆံုးမွာထည္႔ရမည္႔

Code:

Do

္ေအာက္ဆံုးမွာက

Code:

Loop

ဒါဆိုရင္ အားလံုးထည္႔ျပီးသား Code ကဒီလုိျဖစ္မွာေပါ႔။

Code:

Do
StrText=("REPLACE THIS WITH WHAT YOU WANT IT TO SAY")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
Loop

ကဲ...... အားလံုးပဲ အိုေကတယ္ေနာ္.............

မွားတာရွိရင္လည္းေ၀ဖန္ၾကေပါ့ေနာ္...... 

                                                                           ေကာင္းကင္မင္းသားေလး