Senin, 09 Agustus 2010

Bikin Komputer Ngomong

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

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

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

Tidak ada komentar:

Posting Komentar