Saat sekarang sudah tidak aneh lagi komputer mengeluarkan voice / suara, membacakan untuk kita sederetan kata atau kalimat yang ada pada suatu dokumen (text). Kali ini kita akan membuat software sederhana yang berfungsi untuk mengkonversi / mengubah teks yang kita ketik menjadi suara, yaitu dengan menggunakan aplikasi bawaan windows, notepad.
Caranya mudah sekali,
• 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
• Simpan file dengan nama bebas terserah teman-teman dengan ekstensi .vbs
(nama.vbs) ingat, bukan berekstensi .txt
• Untuk menjalankan software double klik file yang telah dibuat, ketikkan tulisan yang ingin dikonversikan menjadi suara
• Klik OK untuk mendengarkan.
Taraa, secara “ajaib” komputer akan mengatakan apa yang teman-teman ketik. XD
Comments
Post a Comment