Text to speech di vb.net

kali ini kita akan membuat contoh text to speech , program ini akan membaca kalimat / kata yang diinput dan mengucapkannya,

input adalah bahsa inggris..baiklah langsung saja ke contoh

Buat project baru di visual studio anda , pilih VB.net > windows Form application
silahkan lihat tutorial nya disini untuk membuat project baru dan mengenal IDE visual studio 2010.gunakan windoes form application
:)

1.siapkan 2 button , 1 textbox dan 1 trackbar , 2 label dan atur seperti gambar berikut , double click saja yang di toolbox

2.untuk pertama kali textbox yang muncul hanya 1 baris,agar terlihat lebih lebar centang multiline dan atur lebar sesuai selera

3.klik button 1 dan masukkan kode dibawah ini

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim jaco 'mendeklarasikan variabel bernama jaco
        jaco = CreateObject("sapi.spvoice") 'membuat object untuk memanggil spvoice
        jaco.rate = TrackBar1.Value 'mengatur rate sesuai nilai trackbar
        jaco.speak(TextBox1.Text) 'memanggil fungsi speak dari nilai textbox

End Sub

4.klik button 2 dan masukkan kode dibawah ini

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim jaco
        jaco = CreateObject("sapi.spvoice")
        jaco.rate = TrackBar1.Value
        jaco.speak("Thank you for using text to speech")
 End 'keluar form setelah fungsi text to speech thank you di jalankan

 End Sub

5.tekan F5 untuk compile program , dan silahkan masukkan kata atau kalimat , tekan button 1 , sekarang button 1 sudah saya ganti textnya menjadi say it,sedangkan button 2 menjadi exit ,unutk menggantinya silahkan atur di bagian properties di bagian kanan,pilih text, trackbar tadi berfungsi mengatur kecepatan pengucapan

 

sekian dan terimakasih