က်ေနာ့္ဘေလာ့ကို မ်က္စိလည္ လမ္းမွားၿပီး ေရာက္လာၾကေသာ ဧည့္သည္ေတာ္မ်ား စိတ္၏ ခ်မ္းသာျခင္း၊ ကိုယ္၏ က်မ္းမာျခင္းျဖင့္ ျပည့္စံုၾကပါေစ-

အဂၤလာစာ ေလ့လာကတ္မယ္

ကၽြန္ေတာ္က Window Xp ကို သံုးေရအတြက္နန္႕ XP မွာ ကၽြန္ေတာ္ အဂၤလာစာကို ေအနည္းနန္႕ေလ့လာပါေရ။ ကၽြန္ေတာ္ပိုင္ အဂၤလာ စာမေကာင္းေရ ကၽြန္ေတာ္ညီးအစ္ကိုတိအတြက္ ကၽြန္ေတာ္ သီသန္႕စေပရွယ္တင္ပီလို္က္ပါယင့္။ စမ္းၾကည့္ကတ္ပါ တခါတလီက်ေက ကို္ယ္မသိေရ အသံထြက္တိကိုလည္းစမ္းၾကည့္လို႕ရပါေရ။
ကဲ ပထမဆံု Notepad ကိုဖြင့္ ၿပီးေက ေအာက္ကေစာ္ကို Copy ကူးထည့္လိုက္ပါ။

Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

ယၿပီးေက ယင္းခ်င့္ကို ႀကိဳက္ေတနာမည္နန္႕သိမ္းလိုက္ပါ။ သိမ္းေရနာမည္ေနာက္မွာ (.vbs) ဆိုၿပီးေက ေပါင္းထည့္ထားလိုက္ပါ။ (ဥပမာ - waihunaung.vbs) ယင္းပံုစံမ်ိဳးပေယ။ ယၿပီးေက ယင္းဖိုင္ကို ျပန္ဖြင့္ပါ။ ေအာက္ကပံုအတိုင္းေပၚလာဘာလိမ္မယ္။
ယင္းပံုေပၚလာေက ႀကိဳက္ေစာ္ကို ရိုက္ထည့္ၾကည့္ပါ။ Speaker ကိုပဲ ျဖိဳက္ၿဖိဳက္ နားက်ပ္ကိုၿဖိဳက္ၿဖိဳက္တပ္ၿပီးစမ္းၾကည့္လိုက္ပါ။ ဇာအသံ ေပၚလာဖို႕လညး္ဆိုေစာ္ကိုစမ္းၾကည့္လိုက္ပါ။ မိုက္မွ မိုက္။
ေပ်ာ္စရာေခ်တိကို တြိ႕ရပါလိမ္မယ္။
ရခိုင္သားတိအားလံုးကြန္ျပဴတာကို တတ္ေျမာက္ႏိုင္ကတ္ပါစီ
Written by; ေ၀ဟင္ေအာင္



No comments:

Post a Comment