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”…

Semoga berguna…

Share on Google Plus

About Rheu Kenz Zhau

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.