SELAMAT DATANG DI ZSC-STATION | SAMPAIKAN KRITIK DAN SARAN ANDA DEMI KEMAJUAN BLOG INI

Rabu, 09 Februari 2011

Tips Membuat Komputer berbicara (Speech Engine)

Pada kesempatan kali ini saya akan share tips unik untuk membuat komputer kita berbicara. Pasti para sobat blogger bertanya-tanya, emangnya komputer bisa berbicara. Sebenarnya sich bisa gak bisa?? Berbicara disini maksudnya adalah kita akan membuat engine sederhana, yang dapat membuat komputer kita bisa berbicara sesuai dengan perintah kita. Ok, biar pada gak penasaran langsung aja kita ke TKP, hehehehe......

  • Pertama, Buka Notepad.
  • Selanjutnya, Copy Paste Script di bawah ini,
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg


Klik pada gambar untuk memperbesar
  • Save as, kemudian pilih all files lalu save dengan nama speechengine.vbs

Atau kalau yang nggak mau menggunakan InputBox (Jadi pas di klik 2x 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


Tips ini sudah saya praktekan langsung dan berhasil dengan sempurna.

Selamat Mencoba!!


Tidak ada komentar:

Posting Komentar

Sampaikan saran dan kritik anda, demi kemajuan blog ini. Trims.