anda ingin punya komputer yang dapat bicara sendiri. saya kasih tau rahasianya cara bikin komputer kalian ngomong...
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 !!!!!!!!
Tidak ada komentar:
Posting Komentar