Kali ini gw akan memberitahu kalian semua bagaimana membuat komputer berbicara
caranya sbb :
1) BUKA notePad.
2) COPY CODE DI BAWAH INI Pada Notepad
Dim pesan, sapi
pesan = InputBox ( "Apa yang Anda ingin saya katakan?", "Berbicaralah kepada-Ku")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak pesan
3) Simpan dengan nama apapun dengan akhiran .vbs
4) INGAT UNTUK
SAVE THE FILE AS. VBS
5) Double klik file tersebut.
6) SEKARANG tulis apapun textbox dan tekan ok
7)
KOMPUTER ANDA AKAN BERBICARA APA YANG ANDA TELAH TERTULIS DALAM TEKS BOX ANDA !!!!!!!!
Kalau belum punya Notepad ++ Silahkan download Ke link di bawah
http://notepad-plus.sourceforge.net/uk/site.htm
caranya sbb :
1) BUKA notePad.
2) COPY CODE DI BAWAH INI Pada Notepad
Dim pesan, sapi
pesan = InputBox ( "Apa yang Anda ingin saya katakan?", "Berbicaralah kepada-Ku")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak pesan
3) Simpan dengan nama apapun dengan akhiran .vbs
4) INGAT UNTUK
SAVE THE FILE AS. VBS5) Double klik file tersebut.
6) SEKARANG tulis apapun textbox dan tekan ok
7)
KOMPUTER ANDA AKAN BERBICARA APA YANG ANDA TELAH TERTULIS DALAM TEKS BOX ANDA !!!!!!!!Kalau belum punya Notepad ++ Silahkan download Ke link di bawah
http://notepad-plus.sourceforge.net/uk/site.htm
