Minggu, 29 Mei 2011

MEMBUAT KOMPUTER BICARA

Pasti sobat penasaran
dengan judulnya,
membuat komputer
bisa berbicara. Kalo
robot atau boneka bisa
berbicara sih biasa, tapi
kali ini komputer bisa
berbicara. Yup,
komputer yang sedang
sobat pakai.... yang lebih
menakjubkan lagi, ia
akan berbicara sesuai
dengan apa yang kita
perintahkan. Nah....low,
pa enggak aneh bin
ajaib itu. Dari pada
semakin penasaran,
mending kita langsung
praktek cara membuat
komputer bisa
berbicara:
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 msg3. 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.
Oke, Selamat
mencoba.... hehehe

Tidak ada komentar:

Posting Komentar