Membuat Komputer Berbicara dengan Visual Basic

Hai Sob EAGLE’S…

Pernahkah Anda menyadari bahwa komputer Anda dapat berbicara? Bahkan, jika Anda mau, Anda juga dapat berbicara kepada komputer Anda. Memang, banyak program sejenis yang menawarkan kemampuan di mana program tersebut dapat membacakan teks yang Anda ketik. Namun, akan lebih menyenangkan kalau Anda membuatnya sendiri dengan Visual Basic (VB) Anda. Bagaimana tidak, untuk membuat program seperti itu, Anda hanya memerlukan ketrampilan meracik saja. Semua yang Anda butuhkan sudah tersedia di Internet. Saya hanya akan menunjukkan kepada Anda betapa mudahnya membuat program seperti itu. Apa saja yang kita butuhkan? Pertama, tentunya Microsoft Visual Basic (penulis menggunakan VB6). Lalu, kita cari komponen yang kita perlukan di Internet. Di sini, terlebih dahulu kita perlu mengenal apa itu Text To Speech Engine. Kalau kita menginginkan komputer kita dapat berbicara atau membaca teks yang kita ketikkan, maka kita perlu sebuah mesin yang dapat mengubah teks menjadi suara. Yang kita gunakan adalah Lernout & Hauspie TruVoice. Kita bisa mendapatkannya di www.msagentring.org. Ada banyak bahasa yang ditawarkan, pilih saja bahasa Inggris. Kalau sudah, maka Anda akan mendapatkan sebuah file bernama tv_enua.exe (840KB). Nah, lengkap sudah. Cuma itu yang Anda butuhkan. Sekarang tinggal kreativitas Anda. Mari kita mulai. Jalankan file tv_enu.exe yang baru Anda dapatkan. Jawab [Yes],maka komputer Anda sudah memiliki Text To Speech Engine. Sekarang buka VB Anda. Buat sebuah form (Form1). Pilih menu [Project]>[Components]. Pada daftar komponen, pilih [Microsoft Voice Text], lalu tombol [OK], maka pada toolbox akan bertambah sebuah ikon bergambar mulut. Tambahkan pada Form1, beri nama Mulut. Lalu tambahkan pula sebuah Command Button dan Text Box.

Perhatikan tabel!

Tambahkan kode berikut!

Private Sub cmdBicara_Click()

Mulut.Speak "Hello"

End Sub

Wuooi... mulutnya bergerak-gerak!!! Wow… keren!

Perhatikan perintah Mulut.Speak(Text As String). Ini mantra yang paling penting. Coba Anda ganti kodenya menjadi ini!

Private Sub cmdBicara_Click()

If Text1.Text = "" Then Exit Sub

Mulut.Speak Text1.Text

End Sub

Kode baris kedua untuk mencegah error bila tidak ada teks sama sekali. Gampang kan? Sekarang Anda tinggal mempelajari perintah-perintah lainnya, seperti Pause, Resume, IsSpeaking, atau bahkan Proce- dure yang baru. Saya yakin Anda pasti mampu. Perhatikan kodeini!

–––––––––––––––––––––––––––––––

–––––––

Private Sub cmdBicara_Click()

If Text1.Text = "" Then Exit Sub

If cmdBicara.Caption ="&Ngomong" Then Mulut.Speak Text1.Text cmdBicara.Caption ="&Pause"

Else

If cmdBicara.Caption ="&Pause" Then If Mulut.IsSpeaking Then Mulut.Pause cmdBicara.Caption ="&Lanjut"

Else

Mulut.ResumecmdBicara.Caption ="&Pause"

End If

End If

End Sub

––––––––––––––––––––––––––––––

––––––––

Private Sub

Mulut_SpeakingDone()

cmdBicara.Caption ="&Ngomong"

End Sub

Tidak rumit. Coba saja,Anda pasti bisa. Yang penting kreativitas. Selamat berjuang

VBCoders!!!