Latest News

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


SELAMAT MENCOBA (0_0)