Cara Membuat Komputer Bicara Dengan Notepad

.

 langsung aja ke tutorialnya hehehe :

• buka notepad-mu !
• kopikan script dibawah ini ke notepad

Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

• Save as, kemudian pilih "All Files", lalu beri nama "mypc.vbs" (tanpa tanda kutip)
• open file tersebut lalu ketikkan kata yang akan di baca
• selesai

atau mau komputer langsung bicara saat file di buka silahkan ganti script di atas dengan script berikut

Dim msg, sapi
msg = "Hi, how are you doing?"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

ganti tulisan Hi, how are you doing? dengan kata-kata yang sobat inginkan

Share on: Facebook Twitter Google+ Linkedin Technorati Digg LintasMe

Related Articles :