notepadေလးေရးျပီးcomputerကိုစကားေျပာခိုင္းၾကည့္...

သူငယ္ခ်င္းတို႕ ကၽြန္ေတာ္ ဒီရက္ပိုင္း notepad ေလးနဲ႕ ပတ္သတ္တဲ့ ဟာေလးေတြေရးဖို႕

စဥ္းစားထားတယ္ notepad အသံုး၀င္ပံုေလးေတြေပါ့

ကၽြန္ေတာ္ ဟိုေန႕က ဆိုဒ္တစ္ခုမွာ ေတြ႕လိုက္ရတယ္

သူတို႕လည္း ဒီနည္းေလးေတြကို တင္ထားၾကပါတယ္

ဒါေပ့မယ့္ တင္ထားတဲ့ေရးနည္းက မွားေနေတာ့ ဘယ္လိုမွ အလုပ္လုပ္မွာမဟုတ္ဘူး

ဒါေၾကာင့္ ကၽြန္ေတာ့ သိသေလာက္ေလးကို ျပန္ျပင္ေရးျပီး တင္ေပးလိုက္ပါတယ္..

ဒါေလးက ကိုယ္ ဘာဘဲ ရိုက္ရိုက္ ကိုယ့္ကို စကားလို ျပန္ေျပာလိမ့္မယ္ English လိုဘဲရမယ္ေနာ္ .....

အရင္ဆံုး Notpad တစ္ခုကို ဖြင့္...

ျပီးရင္ ေအာက္မွာေရးေပးထားတဲ့ ကုဒ္ေလးေတြအကုန္ notepad ထဲ ကူးထည့္လုိက္..<!--more--->



Dim msg, sapi

msg=InputBox("What do you want me to say?","LUCKYMYOTAW")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak msg



ျပီးရင္  save file မွာ lucky.vbs နဲ့ Save လုပ္လိုက္ပါ...

ျပီးရင္ Run ၾကည့္လိုက္ေပါ့ဗ်ာ...ျပီးရင္ေတာ့ သူငယ္ခ်င္းတို႕ ေရးခ်င္သလိုသာေရးျပီး

အျပင္းေျပေလး ကြန္ပ်ဴတာနဲ႕ စာရိုက္လိုက္ ျပန္ေျပာခုိင္းလိုက္လုပ္ေပါ့ဗ်ာ ေပ်ာ္စရာေလးဗ်

စမ္းၾကည့္လိုက္ေနာ္...ကၽြန္ေတာ္ ျပီးရင္ ျပီးရင္ၾကီးပဲ ေျပာေနလို႕ ကိုလပ္ကီး ေနာက္ထပ္ျပီးရင္ေရာလို႕ မေမးနဲ႕

ေတာ့ေပါ့ေနာ္ ေနာက္ထပ္ျပီးရင္ေရာလို႕ေမးရင္ေတာ့ ကုိလပ္ကီးမိန္းမေခ်ာေခ်ာေလးရပါေစပဲ ဆုေတာင္းေပးေပါ့လို႕ပဲ

ေျပာမွာပဲ.....ဟီးဟီး...:P..အားလံံုး အဆင္ေျပၾကပါေစေနာ္.....