VBS Text to Audio Converter


Setelah sebelumnya membuat file VBS untuk mengucapkan suatu kalimat yang cenderung bersifat fix, kali ini akan dibahas trik menggunakan aplikasi Notepad untuk membuat file VBS yang akan membuat komputer mengucapkan input kalimat yang diberikan, text to audio converter. Kalimat yang ingin diucapkan dituliskan dalam dialog box.
Berikut ini langkahnya.
  • Buka Notepad dan ketik.
Dim msg, SAPI
msg=InputBox("Tulis kalimat yang ingin diucapkan oleh komputer lang8088.blogspot.com","lang8088 text to audio converter")
Set SAPI=CreateObject ("SAPI.SpVoice")
SAPI.Speak msg


 <img src="text2audio.jpg" alt="text2audio">


  • Kemudian simpan file tersebut dengan nama lang8088.vbs atau nama apa saja yang diinginkan, yang penting adalah file tersebut disimpan dalam .vbs.
  • Pada waktu menyimpan Save as type pilih All files.
  • Maka file tersebut akan menjadi file Visual Basic Script, setelah itu buka file tersebut, ketik kata yang ingin diucapkan, dan dapat didengarkan suaranya.