Ternyata komputer kita juga bisa ngomong , ??? bagaimana bisa ???
Inilah cara nya, mari saya tunjukan ... ^_^
1. Pertama, buka Notepad.
2. Copy - Paste script berikut :
Dim msg, sapimsg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")Set sapi = CreateObject ( "sapi.spvoice")sapi.Speak msg
4. Selesai, tinggal lihat hasil.
klik 2X file tadi, kemudian akan muncul windows seperti d bawah.
Masukan kata-katanya, dan klik OK maka komputer anda akan berbicara.
Kalo ga' mau pake inputbox / langsung bicara tanpa memasukan kata-kata lagi, scriptnya kaya gini :
Dim msg, sapimsg = "Masukan Kata-Katanya disini"Set sapi = CreateObject ( "sapi.spvoice")sapi.Speak msg
semoga bermanfaat, dan selamat mencoba ....
jangan lupa commentnya ... ^_^
Tidak ada komentar:
Posting Komentar