Membuat Komputer berbicara

 vampire 77

Penasaran nggak sob dengan judul "Membuat Komputer  Berbicara" pasti penasaran kan?? Emang komputer bisa berbicara?? Dibilang nggak ya nggak dibilang bisa ya bisa, aduhhh, gimana sih?? jadi bingung ni. Oke, kalau bingung mendingan kita coba praktikan aja, biar lebih paham. Talk Less Do More,,, Hehehe

1. Buka notepad

2. Copas scrip di bawah ini

Dim msg, sapi

msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")

Set sapi = CreateObject ( "sapi.spvoice")sapi.Speak msg

3. Save as, kemudian pilih all files lalu kasih nama mypc.vbs

4. SELESAI DEH. . .  

Atau kalau yang nggak mau menggunakan InputBox (Jadi pas di klik 2x langsung berbicara tanpa perlu memasukan kata-kata). Scriptnya seperti ini :

Dim msg, sapi

            msg = "Ganti dengan kata-kata anda"

            Set sapi = CreateObject ( "sapi.spvoice")

            sapi.Speak msg

SELAMAT MENCOBA