News Update :

Monday, June 27, 2011

Membuat Komputer Agar Bisa Berbicara dengan Notepad

Share this article :

08:59 |

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

Note :- Kindly g+1 this post if you found it useful
Euro Live Streaming
You Might Also Like :


Post a Comment