Sebenarnya nie gak ada susahnya agar komputer dapat berbicara.. Baiklah tanpa berbelit-belit kita akan langsung praktek aja yahh ....
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
- Save as, kemudian pilih all files lalu kasih nama mypc.vbs
Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Tips ini sudah saya coba dan hasilnya : 100% Bisa..!!
Selamat Mencoba
Bila perlu apa-apa silahkan beri pesan saja
Tidak ada komentar:
Posting Komentar