Buat Komputermu Berbicara

Dari pada nggak ada yang di posting kali ini saya ingin posting sesuatu yang emang udah dari dulu tapi rada antik. yaitu bikin komputer kita ngomong sesuai dengan apa yang kita input pada kolom teks.

---

Silahkan copas script berikut ke notepad :
 

Dim msg, ngomong
msg=InputBox("Tulis kalimat dikolom, lalu klik OK","Dedicated For IF Members")
Set ngomong=CreateObject("sapi.spvoice")
ngomong.Speak msg

lalu save as dalam bentuk .VBS

untuk mengetesnya, pertama2x nyalakan speaker , double klik file yangk kita  buat dengan notepad tadi lalu ketik kalimat apa aja dikolom, lalu klik OK. Maka sesaat kemudian akan terdengar suara,  seperti apa yg kita tulis kolom. kalau kita mengetikkan teks dengan bahasa inggris dan kita nggak salah nginputnya dijamin pas kalau dengan bahasa lain pembacaanya sesuai ejaan inggris, tapi nggak apa apa yang penting bisa ngisi bosen kita...lumayan kan????

selamat mencoba...