Tips Membuat Komputer Berbicara

Pasti anda penasaran dengan judul Tips Membuat Komputer Berbicara !!! Lalu dalam hati anda akan mulai bertanya-tanya apakah benar komputer dapat berbicara ?? Baiklah tanpa perlu basa-basi dari pada anda semakin penasaran mari kita coba praktekan saja langsung…

Buka notepad  kemudian copas kode di bawah ini ke notepad tersebut

Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "http://freebiexp.wordpress.com")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

Lalu Save as dengan nama "mypc.vbs" tanpa tanda kutip, kemudian rubah Save as type-nya menjadi All Files.

Berikut hasilnya:

Jika anda ingin komputer anda dapat langsung berbicara tanpa perlu memasukan kata-kata di InputBox ketika file mypc.vbs tersebut di klik 2x, maka anda dapat menggunakan kode di bawah ini

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