Buka notepad dan copas kode berikut…
Code:
Dim msg, jasakom
msg=InputBox("Masukkan Kalimat","Ngomong Dong")
Set jasakom=CreateObject("sapi
.spvoice")
jasakom.Speak msg
Nah simpan dengan nama Terserah.vbs dan jalankan…
Setelah itu masukkan atau ketik kata2 yang diinginkan…
Nyalakan speaker sekeras mungkin dan “ENTER”…
Semoga berguna sobat…...
Code:
Dim msg, jasakom
msg=InputBox("Masukkan Kalimat","Ngomong Dong")
Set jasakom=CreateObject("sapi
jasakom.Speak msg
Nah simpan dengan nama Terserah.vbs dan jalankan…
Setelah itu masukkan atau ketik kata2 yang diinginkan…
Nyalakan speaker sekeras mungkin dan “ENTER”…
Semoga berguna sobat…...
Label: aneh
Subscribe to:
Posting Komentar (Atom)

0 komentar:
Posting Komentar
hay...bagi pengunjung blog kami.please create your coment...