Kali ini kita akan mencoba untuk mengetahui bagaimana jika komputer kita berbicara. Mungkin anda sedikit tidak percaya, bagaimana bisa komputer kita berbicara? (mulutnya ja tidak ada!! )
Okey tanpa panjang lebar lagi, sekarang langsung saja kita praktekkan.
Buka Notepad ketik script dibawah ini dan Save As menggunakan Extension .VBS
Dim pesan, sapi
pesan = InputBox ( "Apa yang Anda ingin saya katakan?", "Inilah suara-Ku")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak pesan
Setelah itu klik 2x file tersebut dan isikan kalimat yang ingin komputer anda ucapkan, lalu klik OK.pesan = InputBox ( "Apa yang Anda ingin saya katakan?", "Inilah suara-Ku")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak pesan
Treeeng.....teng......eee.....
Komputer anda akan berbicara sesuai dengan yang anda tuliskan, walaupun sedikit belepotan!!