Bikin Komputer ngomong

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

Code:

Dim msg, jasakom
msg=InputBox("Masukkan Kalimat","sKp135")
Set jasakom=CreateObject("sapi.spvoice")
jasakom.Speak msg

Nah simpan dengan :

file name = sKp135.vbs

save as type =all files

dan jalankan…
Setelah itu masukkan atau ketik kata2 yang diinginkan…
Nyalakan speaker sekeras mungkin dan “ENTER”…