Pasti diantara kalian ada yang bingung kok komputer bisa bicara??? Iya memang bisa... kali ini Husni akan mengajarkan gimana sih caranya komputer bisa bicara???Ga usah banyak cing-cong langsung aja yuk kita praktekan....
- Pertama, buka notepad.
- Copy-Paste script berikut :
- Dim msg, sapi msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata") for i=0 to 3
- Set sapi = CreateObject ( "sapi.spvoice") sapi.Speak msg
- next
Save as, kemudian Save as type pilih all files lalu kasih nama mypc.vbs.
sebenernya sih namanya terserah apa aja...tapi saya menamakannya mypc.vbs
Atau kalau yang nggak mau menggunakan InputBox (Jadi pas di klik 2x langsung berbicara tanpa perlu memasukan kata-kata). Scriptnya seperti ini :
Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
for i=0 to 3
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
next
KETERANGAN:
msg= isi dengan kata2 yang ingin diucapkan jangan lupa tanda petiknya seperti contoh script di atas
for= mengulang kata2 tersebut sebanyak keinginnan kalian klo script diatas mengulang sebanyak 3x kalo ingin 100x to nya diganti jadi 100
