1. Buka notepat sobat.
2. Copy script berikut.
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
3. Save as, kemudian pilih "All Files", lalu beri nama "mypc.vbs" (tanpa tanda kutip)
4. open file tersebut lalu ketikkan kata yang akan di baca
5. done!!
Atau mau komputer berbicara saat membuka file ganti script di atas dengan script di bawah ini.
Dim msg, sapi
msg = "Hi, how are you doing?"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Ganti Hi, how are you doing? dengan kata yang sobat inginkan.
sumber Baca selengkapnya »