![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjCQ18RE1aXe1M83qWUCWZAjfCHONfkDRzMd_SC1NuURp10Bfq-xUebs3K4nMMYSZdyI6POBEpO7ralJjq5nxATkAzrW-Lg6l6o4czt6Q4LoNW6nDwgn0HXFe3Pl_N-umPZRBHoNiE2c22f/s320/laptop-toy.jpg)
1. Buka Notepad
2. Silakan copy paste script dibawah ini pada notepad
Dim msg, sapi3. Save As, lalu beri nama mypc.vbs, lalu klik tombol close.
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
4. Selesai..... Dan coba klik 2 kali file tersebut.
Apabila kita ingin membuatnya bicara secara otomatis ketika kita mengeklik 2 kali, tanpa mengisi form kodenya adalah sebagai berikut.
Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Kemudian simpan. Namanya terserah, yang penting berekstensi .vbs.
Oke, Selamat mencoba
Tidak ada komentar:
Posting Komentar
Berikan Komentar Anda Dibawah Sini Jika Belum Punya Akun Google/Blogger Anda Bisa Pilih Anonymous