دروستكردنی بەرنامەیەكی زۆر بچووك بۆ....

دروستكردنی بەرنامەیەكی زۆر بچووك بۆ
گۆڕینی نووسین بۆ دەنگ
بە ئاسانترین ڕێگا

(كوردی لاتینیش دەگۆڕێت)

هــــێمن مەلا كەریم بەرزنجی


1- بەرنامەی نۆت پاد Note Pad  بكەرەوە و، ئەم كۆدەی خوارەوە (لەبەری بگرەوە – Copy ) و، پاشان (دایبنێرەوە (بیلكێنە) Paste ):

Dim msg, sapi
msg=InputBox("Enter Text To Convert For Sound","Hemn Barznji Text-To-Sound Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

2- كۆدەكە پاشاكەوت (Save) بكە، بەناوێك و پاشگری ڤی بی ئێس vbs Extention ، بۆنمونە: hemnconverter.vbs  :

3- ئێستا ئەو بەرنامە بچوكە، بكەرەوە Open  كە دروستمان كرد و، ئەونووسینە بنووسە كە دەتەوێ‌ بۆت بگۆڕێت بۆ دەنگ و، كلیك لەسەر دووگمەی Ok  بكە و، گوێ لە دەنگەكە (قسەكە) ڕابگرە: