Tips Membuat Komputer Kita Berbicara
Nah lo...??? yg bener aja???? emang kompi bisa bicara getooo????? gak lucu dech.... ;P
cekidot aja dch.....
1. Pertama, buka notepad.
2. Copy-Paste script berikut :
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
3. Save as, kemudian pilih all files lalu kasih nama mypc.vbs
4. Selesai.
Coba sekarang anda klik 2x.. Gimana?? (Berhasil gak???)
Atau dengan cara seperti ini: (langkah2 sama dgn di atas, hanya scriptnya yg beda)
Atau kalau yang nggak mau menggunakan InputBox (Jadi pas di klik 2x langsung berbicara tanpa perlu memasukan kata-kata). Scriptnya seperti ini :
Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Tidak ada komentar:
Posting Komentar