Buat Komputer Kamu Berbicara

Oke, langsung aja...
Buka notepad dan copas kode berikut...

Dim msg, kodok
msg=InputBox("Masukkan Kalimat","Ngomong Dong")
Set kodok=CreateObject("sapi.spvoice")
kodok.Speak msg

Nah simpan dengan nama Terserah.vbs dan jalankan...
Setelah itu masukkan atau ketik kata2 yang diinginkan...
Nyalakan speaker sekeras mungkin dan "ENTER"...

 

ref