Cara Bikin Computer Berbicara

 

 

-Pertama, buka Notepad.

 

-Copy-Paste script berikut 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).

-Cari file tadi dan klik 2 kali, lalu ketikkan kata-kata yang ingin diucapkan komputer.

Atau kalau ingin komputer langsung bicara begitu diklik, copy dan paste script ini ke Notepad:

Dim msg, sapi

msg = "Hi, how are you doing?"

Set sapi = CreateObject ( "sapi.spvoice")

sapi.Speak msg

Ganti tulisan merah dengan kata-kata Anda sendiri, lalu Save as, dan beri nama "mypc.vbs".

 

 

 

Sumber : http://shevenone.blogspot.com/2011/01/cara-membuat-komputer-berbicara.html