Keyblade

Membuat Komputer Berbicara

| Saturday, December 10, 2011
Waduh.. capek bangat..
ujian.... tapi tetap harus berjuang..

pernahkan teman-teman berpikir untuk membuat komputer teman -teman
berbicara sesuai dengan perintah teman-teman?
sekarang impian teman-teman bisa di capai.
caranya gampang.. ikuti langkah-langkahnya seperti biasa ya..


1. buka notepad (start-all programs-accessories-notepad)









2. copy kode berikut and paste ke dalam notepad yang telah dibuka

Dim msg, sapi
msg = InputBox ( "Apa yang harus saya katakan?")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

3. kalau uda, pilih (file-save as)









4.  save dengan cara berikut

- save di desktop atau dimana aja.
- save as type ubah ke all files
- save dengan nama eaglemypc.vbs
- klik save






5. selesai dech. kalau uda pergi ke tempat dimana file tadi disave.
6. kalau uda ketemu klik 2 kali file tersebut
7. muncul windows baru kan? masukin kata-kata apa aja yang teman-teman inginkan. kalau uda enter di keyboard atau klik ok. komputer akan mengatakan kata-kata yang telah teman-teman masukan.

gampang bukan? silahkan dicoba ya. post berikutnya saya akan post gimana caranya komputer berbicara waktu startup dan shutdown
sabar dan di tunggu ya.
bagi yang like silahkan like lewat facebook like di bawah blog saya. dan juga jangan lupa komentarnya ya. kalau ada kesalahan bisa dikasih tau lewat facebook comment box. ^_^

0 comments:

Post a Comment

Next Prev