Kepingin komputer kalian bisa ngomong? Gampang aja caranya kok. Begini :
-Buka Notepad
-Copy Code dibawah ini dan paste-kan ke notepad
---------------------------------------------------------------------------------------------------------------
Dim pesan, sapi
pesan = InputBox ( "Apa yang Anda ingin saya katakan?", "Berbicaralah kepada-Ku")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak pesan
==========================================================================
-Simpan dengan nama apapun dengan akhiran .vbs
-INGAT UNTUK SAVE THE FILE AS .VBS
-Double klik file tersebut
-Tulis apapun yg kalian inginkan didalam textbox dan klik OK
-KOMPUTER KALIAN AKAN MENGATAKAN APAPUN YANG TELAH TERTULIS DALAM TEXTBOX TERSEBUT!!
Selamat mencoba...
Selasa, 15 Juni 2010
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar