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
Ok.,.,.Selamat Mencoba ^_^
Sumber