Sabtu, 30 Oktober 2010

Cara bikin komputer kita bisa bicara

Posting pertama ku kayaknya bingung tapi niat aku sih cuma bagi-bagi ilmu doank hehe.....
langsung ke pokok permasalahan di postingku yang pertama ini aku mau bahas tentang cara bikin komputer kita bisa bicara yuk langsung...

1.Siapkan Nodpad nya
2.copi paste kode di bawah ini

Dim msg, sapi
msg = "your face eror"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

3.Ganti tulisan "your face eror"  dengan kata-kata yang kamu suka terserah
4.save file nya dengan format "vbs" contoh "namanya.vbs" gak pake tanda kutip

catatan kalo mau gak langsung ngomong contoh: jadi kayk gini



ganti code nya jadi=

Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg 


saya sudah coba 100% berhasil selamat mencoba

1 komentar:

Itu kalo mau suaranya bahasa inggris tapi kalo mau suaranya bahasa Indonesia bagaimana ya???

Posting Komentar