Membuat komputer bisa bicara

niat baik, cuma mau sharing doang ..
sorry kalo :

1. Buka Notepad

2. Silakan copy paste script dibawah ini pada notepad


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, lalu beri nama mypc.vbs, lalu klik tombol close.

4. Selesai..... Dan coba klik 2 kali file tersebut.


Apabila kita ingin membuatnya bicara secara otomatis ketika kita mengeklik 2 kali, tanpa mengisi form kodenya adalah sebagai berikut.


Dim msg, sapi

msg = "Ganti dengan kata-kata anda"

Set sapi = CreateObject ( "sapi.spvoice")

sapi.Speak msg


Kemudian simpan. Namanya terserah, yang penting berekstensi .vbs


Own by Botbenu With Dhepp