kucingsiam
28th May 2012, 06:35 AM
WELCOME TO MY THREAD
Tolong bantu :rate5:rate5
Kalo berkenan ane minta :melonndan::melonndan:
Jangan kasih ane :cabendan: :cabendan:
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
1) Pertama, buka notepad.
[/spoiler] for langkah pertama:
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
Nih contoh ss nya :
for contoh:
http://i1248.photobucket.com/albums/hh481/Raganugraha/dsada.jpg
2)Save as, kemudian pilih all files lalu kasih nama mypc.vbs
Selesai
for contoh:
http://i1248.photobucket.com/albums/hh481/Raganugraha/02_1440x900.jpg
Coba sekarang anda klik 2x.. Gimana?? keren kan?? hehe
for contoh:
http://i1248.photobucket.com/albums/hh481/Raganugraha/saa.jpg
Atau kalau yang nggak mau menggunakan InputBox (Jadi pas di klik 2x langsung berbicara tanpa perlu memasukan kata-kata). Scriptnya seperti ini :
[spoiler=open this] for skrip:
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..!!
Ane sudah coba dan ini berhasil gan , silahkan mencoba ya !
SUMBER (http://remo-xp.com)
</div>
Tolong bantu :rate5:rate5
Kalo berkenan ane minta :melonndan::melonndan:
Jangan kasih ane :cabendan: :cabendan:
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
1) Pertama, buka notepad.
[/spoiler] for langkah pertama:
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
Nih contoh ss nya :
for contoh:
http://i1248.photobucket.com/albums/hh481/Raganugraha/dsada.jpg
2)Save as, kemudian pilih all files lalu kasih nama mypc.vbs
Selesai
for contoh:
http://i1248.photobucket.com/albums/hh481/Raganugraha/02_1440x900.jpg
Coba sekarang anda klik 2x.. Gimana?? keren kan?? hehe
for contoh:
http://i1248.photobucket.com/albums/hh481/Raganugraha/saa.jpg
Atau kalau yang nggak mau menggunakan InputBox (Jadi pas di klik 2x langsung berbicara tanpa perlu memasukan kata-kata). Scriptnya seperti ini :
[spoiler=open this] for skrip:
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..!!
Ane sudah coba dan ini berhasil gan , silahkan mencoba ya !
SUMBER (http://remo-xp.com)
</div>