ကၽြန္ေတာ္ဒီေကာင္ေလးကို ဘယ္ကေနရလာတယ္ဆိုတာကိုမမွတ္မိေတာ႔တဲ႔အတြက္ Credit မေပးႏုိင္
တာကို ခြင္႔လႊတ္ေပးပါဗ်ာ။မသိေသးတဲ႔သူေတြလည္း သိသြားေအာင္ ျပန္ေဝမွ်ေပးလိုက္တာျဖစ္ပါတယ္။
သိၿပီးသာသူေတြကေတာ႔သည္းခံေပးပါဗ်ာ။ ကၽြန္ေတာ္တို႔ အခု Notepad ေလးကို အဂၤလိပ္စာအသံထြက္
ေတြေျပာခုိင္းၾကည္႔မယ္ဗ်ာ။ Notepad ေလးကိုဖြင္႔ၿပီး ေအာက္ကေပးထားတဲ႔စာေလးေတြကိုကူးထည္႔ေပး
Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
ကူးထည္႔ၿပီးသြားရင္ .vbs ဆိုတဲ႔ ဖိုင္ Type ေလးနဲ႔ Save ေပးလုိက္ပါ။ Rename ကိုေတာ႔ မိမိတို႔ႏွစ္သက္
ရာေပးလို႔ရပါတယ္။
ၿပီးရင္ေတာ႔ ဒီေကာင္ေလးကိုဖြင္႔လိုက္ၿပီး မိမိတို႔လိုခ်င္တဲ႔ အဂၤလိပ္စကားလံုးမ်ားရိုက္ထည္႔ေပးၿပီး OK
ေပးလိုက္ရင္ရပါၿပီ။ Sentences ေတြလည္းေရးထည္႔ေပးလို႔ရပါတယ္။စမ္းၾကည္႔လိုက္ပါဗ်ာ။
ကိုေနမင္း က်ေနာ့ ကြန္ပ်ဴတာကnotepadရဲ႕ save as type ကအကိုေျပာတဲ့ vbs မပါဘူး text documents တစ္ခုပဲပါတယ္အကို အဲဒါဘယ္လိုလုပ္ရမလဲအကို ေက်းဇူးျပဳျပီးကူညီေပးပါအကို ေက်းဇူးအမ်ားၾကီးတင္ပါတယ္
ReplyDeleteအစ္ကိုေရ ဆရာဝင္လုပ္တာေတာ႔မဟုတ္ပါဘူးဗ်ာ။ ကိုေနမင္း
ReplyDeleteလည္းမအားဘူးထင္လို႔ပါ။
Fine name ဆိုတဲ႔ေနရာမွာ မိမိကိုယ္တိုင္ရိုက္ထည္႔ေပးရတာပါ
အစ္ကို။ .vbs ဆိုတဲ႔ ေကာင္ေလးကိုကိုယ္ေပးလိုတဲ႔နာမည္
ေလးေနာက္မွာ ထည္႔ေရးေပးလိုက္ပါအစ္ကို။
ခုလိုေျပာေပးတာကိုေက်းဇူးအမ်ားၾကီးတင္ပါတယ္ဗ်ာ
ReplyDeleteThank you so much!
ReplyDeleteကူးယူျပီး---
ReplyDeleteတခါတည္း စမ္းၾကည္႔လိုက္ပါတယ္---
အဆင္ေျပတယ္ဗ်ာ---
ေက်းဇူးအမ်ားၾကီးတင္ပါတယ္ခင္ဗ်ာ--
အ၇မ္းၾကိုက္ပါတယ္ ခင္ဗ်ာ ေက်းဇူးပါ
ReplyDeleteလြယ္လြယ္ေလးနဲ႕ အသံုး၀င္ပါတယ္။ ေက်းဇူးပါ။
ReplyDeletethanks a million ~~
ReplyDelete