Kode mengubah teks menjadi suara di Visual Basic .Net

Jika anda mengetahui fitur Text to Speech atauSpeech Recognition yang ada pada Windows 7, maka anda pun bisa membuat aplikasi serupa di visual basic .net dengan amat mudah. Syntax yang saya jelaskan ini dapat mengubah bentuk teks atau string pada aplikasi anda menjadi bentuk suara. Jadi seolah-olah program yang anda buat sendiri mampu membaca teks yang diinputkan kemudian aplikasi anda berbicara dengan lantang menggunakan speaker komputer apa yang telah dibacanya. Misalkan jika anda menginputkan sebuah kalimat pada textbox: “Thank you very much – for trying feylopelis software corporation..” maka speaker anda akan berbunyi mengeluarkan suara seperti apa yang tertera pada textbox. Hebat bukan?

Suara yang dikeluarkan bawaan dari Windows yaitu Microsoft Anna suara seorang wanita yang berdialek bahasa Inggris US. Namun sayangnya belum tersedia suara yang berdialek bahasa Indonesia.

Untuk source code nya silahkan langsung saja anda ikuti tutorial dibawah ini:

Tambahkan satu buah button (Button1) dan satu buah textbox (TextBox1) pada form anda.Tuliskan kode berikut di event Button1_Click:

Try

Dim sapi
sapi = CreateObject("sapi.spvoice")
sapi.speak("" & TextBox1.Text & ",, . Thank You Very Much. . for trying Feylopelis Software corporation")

Catch ex As Exception
Exit Sub

End Try