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