Membuat Komputer Bicara

Bagaimana membuat komputer bisa bicara, ikuti saja langkahnya dibawah ini

Cara 1 :

• Buka notepad.
• Copy Paste script dibawah ini

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

• Save as - all files lalu beri nama mypc.vbs
• Selesai

Coba klik 2x file mypc.vbs yang telah disimpan tadi dan masukkan kata apa sajalah....lihat apa yang terjadi hasilnya

Cara 2 :
Cara ini akan membuat jika file mypc.vbs di klik 2x langsung berbicara tanpa perlu memasukan kata kata lagi.

• Buka notepad.
• Copy Paste script dibawah ini

Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

• Save as - all files lalu beri nama mypc.vbs
• Selesai

Selamat Mencoba