Tips Membuat Komputer Kita Berbicara

Emang komputer bisa berbicara?? bisa gak ya? pasti bisa donk? kalo gitu mendingan kita coba praktikan aja, biar lebih mudeng. Talk Less Do More,,, Hehehe

1. Pertama, buka notepad.
2. 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

 

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

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

semoga bermanfaat ^^