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

ရွာေတြ႔ထားတဲ႔ ကြန္ပ်ဴတာကို စကားေျပာခုိင္းတဲ႔ နည္းေလးပါ ။ လြယ္လြယ္ေလးပါ ။
သိျပီးသားဆုိရင္လည္း ေတာင္းပါန္ပါတယ္ ။
မသိေသးတဲ႔ သူေတြအတြက္ ပါ ။

ကဲ ပထမဆုံး Notepad ကို ဖြင္႔ပါ ။

Run>>>>notepad လုိ႔ရုိက္လုိက္ပါ ။

ကဲ ...အဲဒီထဲမွာ ဒီစာသားေလးေတြကို ကူးထည္႔လုိက္ပါ ။

  Dim Message, Speak
          Message=InputBox("Enter text","Speak")
          Set Speak=CreateObject("sapi.spvoice")
          Speak.Speak Message
ျပီးရင္ေတာ႔ Speak.vbs နာမည္နဲ႔ သိမ္းလုိက္ပါ ။

ျပီးရင္ေတာ႔ သိမ္းထားတဲ႔ ေနရာေလးမွာ အဲဒီ File ကို ျပန္ဖြင္႔ပါ ။
ျပီးရင္ သင္ေျပာလုိတဲ႔ စကားလုံးကို ရုိက္ထည္႔ျပီးေတာ႔ အုိေခ လုိက္ပါ ။
အဆင္ေျပၾကပါေစ.....