Membuat komputer bisa bicara

Penasaran nggak sob dengan judul Tips Membuat Komputer Kita Berbicara?? pasti penasaran kan?? Emang komputer bisa berbicara??Dibilang nggak ya nggak dibilang bisa ya bisa, aduhhh, gimana sih?? jadi bingung ni. Oke, kalau binGung mendingan kita coba praktikan aja, biar lebih mudeng. Talk Less Do More,,, Hehehe

Pertama, buka notepad

Copy-Paste script berikut :

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 kasih nama speech.vbs

Selesai

Coba sekarang anda klik 2x.. Gimana?? keren kan?? hehe

Atau kalau yang nggak mau menggunakan InputBox (Jadi pas di klik 2x langsung berbicara tanpa perlu memasukan kata-kata). Scriptnya seperti ini :

Dim msg, sapi

msg = "Ganti dengan kata-kata anda"

Set sapi = CreateObject ( "sapi.spvoice")

sapi.Speak msg

ini sudah saya coba dan hasilnya : 100% Tested n Worked..!!

Selamat Mencoba