က်ေတာ္တို႔ရိုက္ထည့္သမွ်စာသားေတြကိုသူကအသံထြက္ျပမွာပါ
အရင္ဆံုးnotepad ကိုဖြင့္ပါျပီးရင္က်ေတာ္ေပးထားတဲ့စာသား
ေတြကိုေကာ္ပီကူးထည့္ audio.vbs ဆိုျပီး save လိုက္ပါဖြင့္လိုက္
မိမိသိလိုေသာစာလံုးကိုရိုက္ထည့္ျပီးေတာ့အသံထြက္ကိုၾကည့္ႏိုင္ပါတယ္
မရွင္းရင္ပံုေတြကိုအရင္ၾကည့္လို္က္ပါ
အရင္ဆံုးnotepad ကိုဖြင့္ပါျပီးရင္က်ေတာ္ေပးထားတဲ့စာသား
ေတြကိုေကာ္ပီကူးထည့္ audio.vbs ဆိုျပီး save လိုက္ပါဖြင့္လိုက္
မိမိသိလိုေသာစာလံုးကိုရိုက္ထည့္ျပီးေတာ့အသံထြက္ကိုၾကည့္ႏိုင္ပါတယ္
မရွင္းရင္ပံုေတြကိုအရင္ၾကည့္လို္က္ပါ
စာသားကဒီမွာပါ
Dim msg, sapi
msg=InputBox("Enter your text for conversion–www.tips4mm.tk","Tips And Tricks For All")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
0 comments:
Post a Comment