MEMBUAT KOMPUTER BERBICARA #3

Berikut ada lagi tips simple untuk membuat komputer kita dapat berbicara, tetap dengan menggunakan aplikasi word bawaan windows, yakni Notepad.
Caranya ....
Buka aplikasi notepad, Start -> All Programs -> Accessories -> Notepad atau bisa langsung dengan klik Start, lalu ketikkan pada Search all files, ketikkan notepad, lalu pilih notepad.
Lalu paste-kan scrip berikut :

Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

Simpan file dengan nama bebas, terserah anda, namun tetap dengan menggunakan .vbs .
Setelah disimpan, lalu doubel klik pada file yang telah kita buat tadi (yang .vbs ).
Lalu klik OK dan stay and just listen ! :)

Sekian, semoga bermanfaat.






Sumber :
http://www.tipstriks.com/