بابهت: بــهرنامـهیهکـی بچوک نوسینهکانت دهگــۆڕێـت بـۆ قــسه.!
[size=16]زۆر له ئێمه ویستویهتی بهرنامهیهک بدۆزێتهوه که نوسینهکانی بگۆڕێت بۆ قسه.
بێگومان ئهویش له وێب دا ههیه. بهڵام ئهوهی ئێمه باسی دهکهین بهرنامهیهکی
بچوکه بهڵام توانایهکی گهورهی ههیه .
ئهویش خۆت دروستی دهکهیت. له ناوی کۆمپوتهرهکهماندا..
به كهلك وهرگرتن له بهرنامهكانى جۆراوجۆر یان له رێگهى بهشى Speech ى ویندۆز نووسینهكانى خۆتان گۆریوه بۆ دهنگ به واتایهكى تر واتان له نووسینهكانتان كردووه كه بخوێندرێنهوه به شێوهیهك كه نووسینهكان تایپ دهكهن و كۆمپیوتهریش بۆتان دهخوێنێتهوه رهنگ بێت بۆ ئێوه سهرنج راكێش بێت كه بتوانن خۆتان زۆر به ئاسانى بهرنامهیهكى وا دروست بكهن!!! به شێوهیهك كه فایلى دهركردهى بهرنامهى تۆ فایلێكى بچووك دهبێت و تۆ لهناو بۆشاییهكه نووسینى خۆت تایپ دهكهى و دواتر OK لێدهدهى و كۆمپیوتهریش بۆتى دهخوێنێتهوه. بۆ دروستكردنى ئهم بهرنامهیهش دهبێت ئهم ههنگاوانهى خواروه به جىَ بێنن:
له منۆى Start برۆ بۆ All Program و دواتر بۆ Accessories و دواتر لهسهر Notepad كلیك بكه ئهم كۆدانهى خوارهوه له ناوى دا بنووسه
Dim msg, sapi
msg=InputBox("Tekaya nousi khot dakhil beka! E.S.Troth","Wota bej")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
دواتر دهچینه سهر منۆى File و دهچینه سهر بهشى Save وفایلهكه به پاشگرى VBS خهزن دهكهین.بۆ نمونه ناوى فایلهكهتان به شێوهیه دهنووسن RABAR.VBS
ئێستا لهسهر دوگمهى Save كلیك بكه تاكوو فایلهكه له شوێنى دهستنیشان كراو خهزن بێت. دواتر بۆ شوێنى خهزنكراو و به دوو جاركلیك فایلهكه تهنفیز دهبیت و تۆش نووسینهكهت لهناو تیكست بۆكسهكه بكهو دواتر دوگمهى OK دابگرهو دهبینى نووسینهكهت دهخوێندرێتهوه. دهبێت بڵێین كه ئهم تایبهتمهندیه تهنیا بۆ نووسینهكانى ئینگلیزیه[/size]