Notepad ကုိ အသုံးျပဳျပီး စာ က ေန အသံ ထြက္ ေျပာင္းေပးတဲ text to audio
Coverter ေလးတခု ကုိယ္တုိင္ ဖန္တီးလုိ ့ရ တယ္ နည္းေလးတခု ေ၀မွ် ေပးလုိက္ပါ
တယ္။ လုပ္နည္းက လြယ္လြယ္ေလး
ပါဘဲ။ စိတ္၀င္စားရင္ေအာက္မွာ ၾကည့္ သြားပါအုံး။
ပထမဆုံး notepad ကုိ ဖြင့္လုိက္
ျပီးရင္ ေအာက္က အနီစာေၾကာင္းေလးကုိ copy ကူးျပီး notepad မွာpaste နဲ ့ ထည့္လုိက္ပါ
Dim msg, sapi
msg=InputBox("Enter your text for conversion , by Aung Hy "," Text-To-Audio Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
ျပိးရင္ notepad ကုိ save တဲ့အခါမွာ ၾကိဳက္တဲ့ နာမည္ေပးျပီး ေနာက္က .bvs ဆုိျပီး save ပါ
(ဥပမာ။ ။ text to audio.bvs) ဒါဆုိ ရျပီ။ အဂၤလိပ္စာလုံး ၾကိဳက္တာကုိရုိက္ အသံထြက္ေပးပါလိမ့္မယ္။ တကယ္လုိ desktop က မူရင္း icom ေလး ကုိ မၾကိဳက္ရင္right click ႏွိပ္လုိက္ပါ create shoutcat ဆုိျပိး shoutcat file လုပ္ပါ shoutcat file ကုိ တခါထပ္ျပီး right click ထပ္ ႏွိပ္ properties >>>..customize >>..choose icon မွာ ၾကိဳက္တဲ့ icon ေရြးလုိက္ ပါ။အခုဆုိရင္ ကုိယ္ပုိင္ taxt to audio coverter ေလးတခု ဖန္တီး နည္း ေလး သိ သြားျပီေပါ့ခင္ဗ်ာ။
enjoy'
ပါဘဲ။ စိတ္၀င္စားရင္ေအာက္မွာ ၾကည့္ သြားပါအုံး။
ပထမဆုံး notepad ကုိ ဖြင့္လုိက္
ျပီးရင္ ေအာက္က အနီစာေၾကာင္းေလးကုိ copy ကူးျပီး notepad မွာpaste နဲ ့ ထည့္လုိက္ပါ
Dim msg, sapi
msg=InputBox("Enter your text for conversion , by Aung Hy "," Text-To-Audio Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
("Enter
your text for conversion , by Aung Hy ","
Text-To-Audio Converter") ဆုိတဲ့ ေနရာမွာ ကုိယ့္ၾကိဳက္တဲ့ အမည္ေပးလုိ
့ရပါတယ္ အဲဒီမွာရုိက္လုိက္တဲ့စာ က inputbox မွာေပၚေနမွာပါ။
ျပိးရင္ notepad ကုိ save တဲ့အခါမွာ ၾကိဳက္တဲ့ နာမည္ေပးျပီး ေနာက္က .bvs ဆုိျပီး save ပါ
(ဥပမာ။ ။ text to audio.bvs) ဒါဆုိ ရျပီ။ အဂၤလိပ္စာလုံး ၾကိဳက္တာကုိရုိက္ အသံထြက္ေပးပါလိမ့္မယ္။ တကယ္လုိ desktop က မူရင္း icom ေလး ကုိ မၾကိဳက္ရင္right click ႏွိပ္လုိက္ပါ create shoutcat ဆုိျပိး shoutcat file လုပ္ပါ shoutcat file ကုိ တခါထပ္ျပီး right click ထပ္ ႏွိပ္ properties >>>..customize >>..choose icon မွာ ၾကိဳက္တဲ့ icon ေရြးလုိက္ ပါ။အခုဆုိရင္ ကုိယ္ပုိင္ taxt to audio coverter ေလးတခု ဖန္တီး နည္း ေလး သိ သြားျပီေပါ့ခင္ဗ်ာ။
enjoy'
