ꨟူမ္ꨅူမ္းꨟပ္ꨵတြꨓ္ꨳꨀူꨳေꨀꨣꨵꨁꨣꨳေꨡꨣꨳ ꨟꨮ္ꨳယူꨲလီꨀတ္းယꨱꨓ္ ꨟꨮ္ꨳလြတ္ꨳေꨕးꨁꨱꨓ္ꨀူꨳꨅိူဝ္ꨵꨀူꨳယိူင္ꨳေသꨀမ္းꨁꨣꨳ။ တီꨳꨀပ္းသိုပ္ꨲ- ven.pandicca2012@gmail.com...
Never give up!

Friday, August 2, 2013

လꨯꨤးꨟꨱတ္းꨟꨮ္ꨳꨁြမ္းလꨤတ္ꨳꨀꨮꨤမ္း


 မ္ꨮꨲသုင္ꨁꨣꨳ ꨀမ္းꨓꨯꨵꨁꨣꨳေတလတ္ꨳꨬꨓꨯꨤꨟꨱတ္းꨟꨮ္ꨳꨁြမ္းလတ္ꨳꨀꨮꨤမ္းꨁꨣꨳꨡꨣꨳ။ လꨯꨤးမ္းꨵ 1.ꨓꨱꨀ္း Window+RေပRun box ꨡꨀ္ိုင္ ေပးသ္ꨮꨲꨣꨳ notepad ꨓꨯ ꨀꨣꨳတီꨳꨓ္Run box ꨓꨓ္ꨵꨁꨣꨳꨬေပးယဝ္ꨵꨓꨱꨀ္းထင္ꨳ OK.


2.copyဝ္
Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
ꨓꨯꨵေသ paste သ္ꨮꨲတီꨳꨓ္Notepadꨁꨣꨳꨬ
 
3ꨵပုꨓ္ꨣꨲသိမ္းမ္းꨵꨁဝ္တီFile>Save (Ctrl+S)
 
4.တီFile name:ꨓꨓ္ꨓ္ိုဝ္ꨣꨳSpeak.vbs ꨓꨯꨬꨳ ꨀꨣꨳတီSave as type: ꨓꨓ္လူိꨀ္ All files ꨓꨯꨁꨣꨳꨬပုꨓ္ꨣꨲေတꨟꨣꨟꨓ္ို္းငꨯꨤꨳꨯꨤꨳေတလိူꨀ္သိမ္းတီꨳ Desktop ꨀꨣꨳလီယူꨲꨁꨣꨳ ေပးသိုပ္ꨲꨓꨱꨀ္းထင္Saveိုင္ယဝ္တူဝ္ယဝ္ꨵꨁꨣꨳ ꨁိုꨓ္ꨳꨀꨮꨣꨲꨟꨣတူ္းိူဝ္ Desktop ꨁꨣꨳꨬ
 
ေပးသိမ္းယဝ္ꨵꨅိုင္ ေတလꨯꨳꨟꨓꨟꨤင္ꨳꨟိင္ꨳ(Icon)္းမိူꨓ္င္ꨣꨳတ္ꨮꨳꨓꨯꨵ ꨁꨣꨳယဝ္။ သင္ိူင္ꨣꨳꨁ္ꨮꨳꨟꨮ္္းလတ္ꨳꨀꨮꨤမ္းိုင္ ꨓꨱꨀ္းꨓူꨕꨯꨤꨲꨯꨵသြင္မ္း(Double click) ꨁꨣꨳꨬ
ꨁꨣꨳꨀꨮꨤမ္းင္းိတ္းꨡꨓ္ဝ္ꨳꨀဝ္ꨲꨁ္ꨮꨳꨟူꨵင္ꨀ္္းꨓꨓ္ေပꨣꨵသ္ꨮꨲꨓ္းလြ္းမ္းေပꨣꨵသ္ꨮꨲတူꨓ္ဝ္ꨀꨮꨤမ္းင္းိတ္းသိပ္းထဝ္ သဝ္းထဝ္ေꨀꨣꨳꨯꨳယူေပꨁ္ꨮꨳငိ္းသင္ꨀ္္းိုင္ ꨓꨱꨀ္း OKꨬꨟꨮ္ꨳꨁꨰမ္ပ္ေသမ္း။ သင္ိူင္ꨣꨳꨟꨱတ္းတူ္းေသမ္ꨲꨁꨰမ္ပ္ꨳꨅိုင္ မ္းသိုပ္မ္မးတီꨳ ven.pandicca2012@gmail.com ꨓꨯꨵꨁꨣꨳꨬ


No comments:

Post a Comment