Selasa, 13 September 2011

Script untuk membuat komputer berbicara sesuai dengan kata yang kita tulis

Saat sekarang sudah tidak aneh lagi komputer mengeluarkan voice / suara, membacakan untuk kita sederetan kata atau kalimat yang ada pada suatu dokumen (text).
Tetapi tidak ada salahnya kita mencoba sendiri script sederhana untuk mengkonversi / mengubah tulisan menjadi voice, yaitu dengan menggunakan notepad.


• Buka Notepad
• Copy dan Pastekan pada notepad script berikut ini

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

Read more

Tidak ada komentar:

Posting Komentar