Penasaran nggak sob dengan judul Tips Membuat Komputer Kita Berbicara?? pasti penasaran kan?? Emang komputer bisa berbicara?? Dibilang nggak ya nggak dibilang bisa ya bisa, aduhhh, gimana sih?? jadi bingung ni. Oke, kalau binGung mendingan kita coba praktikan aja, biar lebih mudeng. Talk Less Do More,,, Hehehe
- Pertama, buka notepad.
- 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
- Save as, kemudian pilih all files lalu kasih nama mypc.vbs
- Selesai
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
Tips ini sudah saya coba dan hasilnya : 100% Tested n Worked..!!
Selamat Mencoba
___________________________________________________________________________________
English version
Intrigued not entitled Tips to Make Computer We Talk? would not you curious? Emang computer can talk? Practically do not ya can ya can not say, aduhhh, how about?? so confused ni. Okay, then we'd better try praktikan confused wrote, though more mudeng. Talk Less Do More,,, hee hee hee
First, open notepad.
Copy-Paste the following script:
Dim msg, cow
msg = InputBox ("What do you want me to say?", "Enter the words")
Set ox = CreateObject ("sapi.spvoice")
sapi.Speak msg
Save as, then select all files then you name mypc.vbs
Completed
Try now you click 2x .. What? cool right? hehe
Or if that did not want to use the InputBox (So right at the click of 2x speak directly without the need to insert the words). Script like this:
Dim msg, cow
msg = "Replace with your words"
Set ox = CreateObject ("sapi.spvoice")
sapi.Speak msg
These tips I have tried and the results: 100% Tested n worked ..!
Good luck