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 beri nama mypc.vbs
Selesai
Cara Membuat Computer Berbicara
Coba sekarang anda dobel klik file tersebut apa katanya …ngakak
[Image: ruus8z.jpg]
Atau kalau yang nggak mau menggunakan InputBox (Jadi pas di klik dua kali 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
Selamat mencoba kalo bermanfaat
Ditulis Oleh : Unknown ~ Tips dan Trik Blogspot
Sobat sedang membaca artikel tentang Cara Buat Computer Anda Berbicara Versi Basi. Oleh Admin, Sobat diperbolehkan mengcopy paste atau menyebar-luaskan artikel ini, namun jangan lupa untuk meletakkan link dibawah ini sebagai sumbernya
No Responses to "Cara Buat Computer Anda Berbicara Versi Basi"
Posting Komentar