Skip to content Skip to sidebar Skip to footer

Membuat Komputer Agar Bisa Berbicara dengan Notepad

Langsung saja
1. Buka Notepad
2. Silakan copy paste script dibawah ini pada notepad

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, lalu beri nama mypc.vbs, lalu klik tombol close.
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

Post a Comment for "Membuat Komputer Agar Bisa Berbicara dengan Notepad"

Template Blogger Terbaik Rekomendasi