Rabu, 10 Oktober 2012

Memaksa komputer kita untuk berbicara

Setelah kemarin iseng-iseng di komputer teman, sekarang kita coba untuk iseng di komputer sendiri. Karena iseng ini dilakukan di komputer sendiri, maka saya memilihkan materi yang aman dan tidak merusak sistem komputer kita.

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.

Treeeng.....teng......eee.....

Komputer anda akan berbicara sesuai dengan yang anda tuliskan, walaupun sedikit belepotan!!

Tidak ada komentar:

Posting Komentar