Zaman modern ini sudah tidak aneh jika komputer bisa mengeluarkan suara, membacakan suatu kata pada dokumen yang ada. Namun, tidak ada salahnya jika kita mencoba script sederhana untuk mengubah text menjadi suara dengan menggunakan notepad.
- Buka Notepad
- Copy dan paste kode dibawah ini
Dim Message, SpeakMessage=InputBox("Masukan Text","Speak")Set Speak=CreateObject("sapi.spvoice")Speak.Speak Message
- Klik File > Save As, pilih All Files pada bagian Save as type, dan simpan dengan akhiran .vbs (NamaBebas.vbs)
Tidak ada komentar:
Posting Komentar