ကြန္ပ်ဴတာကို စကားေျပာခိုင္းၾကည့္မယ္

 

ကြန္ပ်ဴတာ ေပၚမွာ ရိုက္သမွ်စာေတြကို စကားေျပာခိုင္းၾကည့္ရေအာင္ ျမန္မာစာေတာ့မရဘူးေနာ္ စမ္းၾကည့္ခ်င္တယ္ဆိုရင္ PC မွာ notepad ကိုဖြင့္ ေအာင္က code ေလးေတြကို notepad ထဲမွာ copy ကူး save လုပ္မယ့္ေနရာမွာ Talk.vbs လို႔ရိုက္လိုက္ ျပီးရင္ save မရွင္းရင္ ေအာက္ကပံုေလးကိုၾကည့္ျပီး လုပ္ၾကည့္ပါ။

 

Dim Message, Speak
Message=InputBox("Enter Text to Talk o","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message

 

 

 

Posted in: window ဆုိင္ရာနည္းပညာမ်ား