បង្កើតកម្មវិធី អានអក្សរឲ្យស្ដាប់ ដោយប្រើ Notepad

វាជាគន្លឹះដ៏ពិសេសមួយក្នុងការប្រើកម្មវិធី Notepad ដែលមាន​ស្រាប់​​ក្នុង Window ដើម្បីបម្លែង រាល់ការសរសេររបស់​អ្នកទៅ​ជា​សម្លេង។វាសាមញ្ញហើយដំណើរការបានគ្រប់ Window ទាំងអស់ របស់ Microsoft ។ ជាដំបូងសូមបើកម្មវិធី Notepad រួចសរសេរ​កូដ​ទាំងអស់នេះទៅដាក់ក្នុង Notepad របស់អ្នក។

Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message  

បន្ទាប់មកនៅត្រង់ Save as type សូមយក All file ចំណែកឈ្មោះសូមដាក់ Speak.vbs ឬអ្វី ក៏បានឱ្យតែ​មានកន្ទុយជា .vbs។

ឥឡូវសូមបើក Speak.vbs រួចសរសេរអ្វីដែលអ្នកចង់ឱ្យវាអានរួចចុច Ok

សាកល្បងទើបដឹង