Membuat Reader Teks Menggunakan VB

Nama'a juga reader teks, berarti pada kali ini Aq akan membuat aplikasi sederhana untuk membaca teks yang diketikan. Aplikasi ini sama dengan Narator buatan windows, karena menggunakan fungsinya narrator pada Windows. Pada apliksi ini secara umum membutuhkan cuma 7 baris source code, tetapi jika kita ingin memodifikasi tentunya akan lebih dari tersebut. Baiklah untuk membuatnya ikuti langkah berikut ini :
1. Buka MS Visual Basic 6.0, kemudian pilih [Standart EXE] >> [Open].
2. Pada Form buat 2 object baru yakni Command Button dan Text Box.
3. Tuliskan Code berikut

'------------- Start Here -------------
Public Sub Baca(ByVal TextString As String)
Set SuaraTeks = CreateObject("SAPI.SpVoice")
Call SuaraTeks.Speak(TextString, SPF_DEFAULT)
End Sub
Private Sub Command1_Click()
Call Baca(Form1.Text1.Text)
End Sub
'------------- Finish here -------------

4. Selesai dech, Coba jalankan dan ketikan teks pada Teks box setelah itu klik pada command button.
5. Bunyikan....

download source code lengkap disini.