Cara agar komputer bisa bicara
Waduh komputer gw bisa ngomong!!Mau tau carannya????100% bener bisakok..
anda penasaran nggak sob dengan judul Tips Membuat Komputer Kita Berbicara?? pasti penasaran kan? Emang benar komputer bisa berbicara?lumayan lah buat nambah ilmu kita........
Oke, kalau bingung mendingan kita coba praktekan aja, biar lebih mudeng.
Talk Less Do More,heee..
=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..
=Coba sekarang anda klik 2x.. Gimana? keren kan?he..
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 = "disini Ganti dengan kata-kata anda yang lailnya jangan ada yang di ubah"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Tips ini sudah saya coba dan hasilnya : 100% Tested n Worked berhasil-berhasil..!!
Kalo msh bingung lg ga ribeeet langsung aja copy-paste script dibawah ini :hehe
Dim msg, sapi
msg = "hallo teman nama kucing saya lagi sakit how are you today"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Setelah itu terus save as dengan nama "mypc.vbs" tanpa tanda petik!! klik klik aja hasilnya..
Selamat iseng bereksperimen...
anda penasaran nggak sob dengan judul Tips Membuat Komputer Kita Berbicara?? pasti penasaran kan? Emang benar komputer bisa berbicara?lumayan lah buat nambah ilmu kita........
Oke, kalau bingung mendingan kita coba praktekan aja, biar lebih mudeng.
Talk Less Do More,heee..
=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..
=Coba sekarang anda klik 2x.. Gimana? keren kan?he..
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 = "disini Ganti dengan kata-kata anda yang lailnya jangan ada yang di ubah"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Tips ini sudah saya coba dan hasilnya : 100% Tested n Worked berhasil-berhasil..!!
Kalo msh bingung lg ga ribeeet langsung aja copy-paste script dibawah ini :hehe
Dim msg, sapi
msg = "hallo teman nama kucing saya lagi sakit how are you today"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Setelah itu terus save as dengan nama "mypc.vbs" tanpa tanda petik!! klik klik aja hasilnya..
Selamat iseng bereksperimen...