Cara Membuat Komputer Berbicara

1. Pertama anda buka notepad
2. Kemudian Anda Copy paste code berikut


Dim msg, sapi msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata") Set sapi = CreateObject ( "sapi.spvoice") sapi.Speak msg

3. Kemudian Save as dengan nama Pcden.vbs

4. Selesai ....
5. Coba anda klik 2x maka akan keluar tampilan dibawah ini, dan masukkanlah kata-kata yang ingin dikatakan mis : I Love You

By : Riswan Mulyadi