Membuat Komputer Bisa Berbicara


Bicara dalam hal ini adalah mengeluarkan suara, bukan bicara karena kemauan komputer kita sendiri. Emangnya komputer bisa kerasukan sampai-sampai bisa bicara sendiri. Maksudnya kita memerintahkan komputer untuk seolah-olah berbicara dengan cara kita memasukkan kata-kata sesuai dengan keinginan kita, kemudian komputer akan "membaca" kata-kata tersebut dengan output suara.

Makin penasaran kan ? Oke, begini caranya :
1. pertama buka Notepad
2. copy-paste sript 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


3. Save as, pada save as type pilih All files dan beri nama dengan suara.vbs




4. selesai.



Nah, sekarang buka script tersebut dan masukkan kata atau kalimat di kolom yang kosong dan klik OK.

Atau jika kamu ingin script langsung berbicara saat kamu klik tanpa memasukkan kata ke kolom, copy script yang ini :

Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg



Source : Remo-XP