Konuşan Bilgisayar

 

 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'References ekle komutu ver COM sekmesinden Microsoft object library 5.0 references'e dahil et
        Dim konuş As New SpeechLib.SpVoice
        konuş.Speak(TextBox1.Text)

    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TextBox1.Text = "www.vbkodindir.com"
 

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

konuşan bilgisayar