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
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
Itu kalo mau suaranya bahasa inggris tapi kalo mau suaranya bahasa Indonesia bagaimana ya???