Jumat, 11 Juni 2010
Ketika komputer bisa bicara
15:47 | 
Diposkan oleh
alex bastari
Pernahkan terpikir oleh kita bahwa computer yang kita punyai bisa mengeluarkan kata-kata seperti apa yang kita ketikan? Bagi yang dah pernah lakukan ini pasti tidak penasaran lagi tapi yang belum pernah langsung aja ok.
- 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?? Hehe
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 = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Tips ini sudah saya coba dan hasilnya : 100% sukses….!!
Atau yang mau langsung pake download aja disini
Selamat Mencoba
Langganan:
Poskan Komentar (Atom)
Search
Bagikan
Tuker Link
Catatan Q
Chat With Me
Feedjit
Post
0 komentar:
Poskan Komentar