Cara membuat Komputer berbicara

1:46 AM Farrid Kuntoro 0 Comments

Membuatnya gampang, pertama buka Notepad
copy paste script berikut :

    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


Selesai
Cara Membuat Computer Berbicara

Coba sekarang anda dobel klik file tersebut apa katanya …ngakak

[Image: ruus8z.jpg]


Atau kalau yang nggak mau menggunakan InputBox (Jadi pas di klik dua kali 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 kalo bermanfaat