Komputer BerBicara

Apaan tu ya.....Kok judulnya bikin penasaran !!!!

Nah.. ini ada satu yang unik, saya dapat pas ndak sengaja lagi asyik browisng...
Fungsi dari listing ini yaitu...Apa yang kita ketikkan bisa keluar suaranya...
Yang pengen coba-coba....Ikuti langkah-langkah berikut ini :

1. Silahkan copy listing berikut ini.

<br />Dim msg, sapi<br />msg=InputBox("Masukkan Teks Anda","Komputer Berbicara")<br />Set sapi=CreateObject("sapi.spvoice")<br />sapi.Speak msg

2. Setelah Anda Copy, buka notepad kemudian paste kan listing tadi
3. Simpan dengan nama bebas, dengan extension VBS, tapi beri tanda " ya. Misal : "suara.vbs"
4. Double klik file yang tadi Anda simpan. Kemudian Masukkan teks seperti gambar di atas, klik OK.

SELAMAT MENCOBA....