Sunday, December 16, 2012

MAKE A PC TALKIT USING NOTEPAD......................


ඔන්න අද මම කියන්න යන්නේ නෝට් පෑඩ් වලින් pc talkit එකක් හදාගන්න හෑටි.... මම ඉතින් පෝස්ට් එකක් දැම්මට එකම එක කමෙන්ට් එකක් වත් හමබවෙන්නේ නෑනේ.... ඒක නිසා මට පෝස්ට් එකක් දාන්නත් හිතෙන්නේ නෑ....... කොහොම වුනත් අර කියපු එක නෝට් පෑඩ් වලින් හදමුකෝ................


මුලින්ම නෝට් පෑඩ් ඕපන් කරගන්න.....

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



ඊටපස්සේ ඔයපල්ලේහා තියෙන කෝඩ් එක එතනට පේස්ට් කරගන්න.............
දැන් file > save as වලට ගිහිල්ලා කැමති නමක් දීලා .vbs විදිහට සේව් කරගන්න...  දැන් ඒක ඕපන් කරලා  ඔය පල්ලෙහා රූපේ මම රතුපාටින් හෛලෛට් කරලා තියෙන තැනට මොකක හරි ගහලා okකරන්න.................


 (speaker එකෙන් ගහපු වචනේ ඇහෙය්............)

3 Comments: