Caranya cukup mudah sob,
Pertama,buka aplikasi notepadnya dengan cara klik start-all programs-accesories-lalu pilih notepad.
lalu yang kedua,masukkan kata2 dibawah ini kedalam aplikasi notepadnyaDim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
sobat bisa mengganti tulisan yang berwarna orange dengan yang sobat mau,contohnya: Apa yang Anda ingin saya katakan? dan yang berwarna hijau contohnya ganti dengan ini : Masukan kata-kata. Maka akan jadi seperti ini jika aplikasinya sudah jadi...

Ketiga,Simpan file dengan nama bebas terserah anda dengan extension .vbs ,, contoh: Bicara.vbs buka Bicara.txt..
Untuk menjalankan dobel klik file yang telah dibuat, ketikkan tulisan yang ingin dikonversikan ke voice
• Klik OK untuk mendengarkan.
• Klik OK untuk mendengarkan.
semoga bermanfaat..
No comments:
Post a Comment