Komputer berbicara

mungkin anda pernah mendengar bagai mana sih komputer bisa bicara..heheh di sini saya akan memberikan script bagai mana komputer anda bisa bicara ,
dari pada sobat blogger bingung dengan ocehan saya mending langsung aja ke TKP...!!!


pertama copas script di bawah ini


Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Tidak pernah bohong")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg


 nah setelah di copas (copy paste) save allfile trus kasih nama, dengan nama apa jah deh yg penting .vbs
klo pusing nieh contohnya : ngomong.vbs


dan klo sudah di save kemudian buka file.vbs tersebut
,maka akan muncul kotak dialog seperti di bawah ini

di kotak kosong isikan apa yg mau di katakan komputer anda...!!
gmna hasilnya mantap kan ,hehheehhe


Catatan:
tulisan di script yg berwarna merah bisa di ganti sesuai kemauan


apabila anda ingin biar komputer anda berbicara tanpa harus di ketik dulu,ato jadi anda tinggal klik jah file.vbs nya saja maka komputer anda akan berbicara secara otomatis,
copas jah script di bawah ini


Dim msg, sapi
msg = "Saya Ganteng"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Catatan:
bacaan yg warna pu6tih di atas bisa di ubah sesui keinginan anda..!!


dan gmna hasilnya 100% berjalan dengan lancar kan..hehehehhehe
selamat berkreasi sobat blogger


budidayakan lah baca trus comment ..hehehhehehe