دروستكردنی بەرنامەیەكی زۆر بچووك بۆ
گۆڕینی نووسین بۆ دەنگ
بە ئاسانترین ڕێگا
گۆڕینی نووسین بۆ دەنگ
بە ئاسانترین ڕێگا
(كوردی لاتینیش دەگۆڕێت)
هــــێمن مەلا كەریم بەرزنجی
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
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 بكە و، گوێ لە دەنگەكە (قسەكە) ڕابگرە:
هیچ نظری موجود نیست:
ارسال یک نظر