Cara Buat Komputermu Bicara

gak sengaja lagi cari-cari beritra di vivanews.com, dan saya masuk ke forum vivanews.com tersebut, eh malah ketemu ma judul tread yang bikin gue penasaran, dan saya coba membaca dan langsung mempraktekkannya dan ternya berhasil. nah klo agan-agan pengen bikin komputernya bisa bicara, sebaiknya simak adja caranya di bawah ini.....

Cara membuat komputer bicara:

* Pertama, buka Notepad.

* Copy-Paste script berikut ke Notepad:

Dim msg, sapi
msg = InputBox ( “Apa yang Anda ingin saya katakan?”, “Masukan kata-kata”)
Set sapi = CreateObject ( “sapi.spvoice”)
sapi.Speak msg

* Save as, kemudian pilih “All Files”, lalu beri nama “mypc.vbs” (tanpa tanda kutip).











* Cari file tadi (di tempatnya disimpan) dan klik 2 kali, lalu ketikkan kata-kata yang ingin diucapkan komputer.

Atau kalau ingin komputer langsung bicara begitu diklik, copy dan paste script ini ke Notepad:

Dim msg, sapi
msg = “Hi, how are you doing?“
Set sapi = CreateObject ( “sapi.spvoice”)
sapi.Speak msg

Ganti tulisan merah dengan kata-kata Anda sendiri, lalu Save as, dan beri nama “mypc.vbs”.

Sudah. Mudah, kan? Selamat mencoba

Sumber