Komputer bisa bicara
Judulnya aneh...tapi memang bener komputer sekarang ini bisa bicara sendiri...,
tak perlu lagi panjang lebar langsung aja kita mulai mengerjakan proyek kita ikuti petunjuk dibawah ini:
1. Buka Notepad kemudian copy dan paste script aneh dibawah ini
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
2. Simpan dengan tipe file *.vbs ingat pakai tipe .VBS misal "bicara.vbs" tanpa tanda petik dan jangan lupa ganti save as typenya dengan all files.
3. setelah di simpan buka program tadi dengan cara mengklik 2x dan ketikan apa saja pada kotak dialognya pasti komputer akan berbicara. selamat mencoba
1. Buka Notepad kemudian copy dan paste script aneh dibawah ini
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
2. Simpan dengan tipe file *.vbs ingat pakai tipe .VBS misal "bicara.vbs" tanpa tanda petik dan jangan lupa ganti save as typenya dengan all files.
No comments:
Post a Comment