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
Treeeng.....teng......eee.....
Komputer anda akan berbicara sesuai dengan yang anda tuliskan, walaupun sedikit belepotan!!
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!!
Tidak ada komentar:
Posting Komentar