.png "English"){kind=small}
Hmm, Aneh kok komputer bisa ngomong,
sebenarnya sih gampang kalau ingin membuat komputer kita bisa ngomong/berbicara dengan kita, cukup dengan sedikit kopi, save as, enter, jadi deh!!!
Okeh tidak usah basa-basi lagi yach, begini nih caranya!!!!
1. buka notepad dari komputer kamu.
2. Copy dan paste Script berikut ke notepad
Dim msg, sapi
msg = InputBox ( "Hmm, saya harus berbicara apa?", "Input kata (www.mintcofee.blogspot.com)")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
3. save as, lalu beri nama yang ingin di berikan tapi belakangannya .vbs
Contoh : Komputerku ngomong.vbs
4. Selesai
Ada satu lagi, yaitu cara pengimputan secara otomatis akan diputar ketika diklik
(cara 1 sama)
Copy script berikut
Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
(cara ke 3 sama)
selesai
Coba praktekkan!!!!
4 komentar:
Pengin,pengin!!
Ko nggak bisa :(
Habis disave diapain?
Disave tapi ekstensi (yang dibelakang namanya kan biasanya ada yang .exe .cfg .bat .txt.) kita ganti dengan dengan .vbs Contoh
Dim msg, sapi
msg = InputBox ( "Hmm, saya harus berbicara apa?", "Input kata (www.mintcofee.blogspot.com)")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Save As... lidah kompi.vbs
jadi deh....
pokoknya beri nama dengan memberi nama belakang.vbs
tetep kaga bisa Gan
Posting Komentar