membuat komputer berbicara

Penasaran dengan judul TipsMembuat Komputer Kita Berbicara??memangnya computer bisa berbicara???
saya mengatakan bisa ,,komputer akan berbicara tetapi dengan menggunakan vokal bahasa inggris,, apakah ada yang menggunakan vokal bahasa daerah,,?? mau lah komputer pake bahasa daerah, ahaha,,,


nah, ini dia cara untuk membuat scriptnya, perhatikan langkah-langkah di bawah ini,,

    Pertama, 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, kemudian pilih all files lalu kasih nama mypc.vbs

Atau kalau mau yang pas di klik 2x langsung berbicara tanpa  memasukan kata-kata apapun. Scriptnya seperti ini :

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

gimana hasilnya ??  menarik bukan ??

haha, semoga bermanfaat ^_^