tips membuat komputer berbicara

1.buka notepad
2.copas kode dibawah ini

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

3.pilih file,save as...
4.klik desktop,lalu ganti save type dengan all documents
5.simpan dengan nama apapun tetapi dengan ekstensi .vbs
6.buka file tersebut...

selamat mencoba...!