tes
On Minggu, 30 September 2012
Cara membuatnya gampang, pertama buka Notepad
Kemudian 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
Coba sekarang anda dobel klik file tersebut apa katanya? รข€¦
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
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
Coba sekarang anda dobel klik file tersebut apa katanya? รข€¦
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
2 Responses so far.
Leave a Reply
Hargailah Penulis Blog Ini Dengan Cara :
- Berkomentar Dengan Sopan
- Tidak Berbaru Porno
- Menggunakan Bahasa Yang Sopan
- Dilarang Spam/Flood
saya kesini gak sia sia, karena disini artikelnya bagus.. ^_^
#Salam hangat dari Yousake NKRI
Bermanfaat banget gaan salam 69 dari saya ramonboyzz
kunjungan balik ya http://ramonboyzz.blogspot.com/