Bilgisayarınız Konuşsun

Evet arkadaşlar. Text kutusuna yazdığınız kelimeleri, bilgisayarınız sizin için söylesin.
Formunuza 1 adet TextBox, 1 adet Button ekleyin.
İlk yapmanız gereken Project > Add Reference > System.Speech özelliğini Ok tuşuna basarak getirmek.

Daha sonra aşağıdaki kodları formunuza yazın. Bilgisayarınız sizin yerinize konuşsun :)

Forma yazılacak kodlar:

Public Class Form1
    Dim i As New SpeechLib.SpVoice
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        With Me
            .Text = "Voice Örnek...Bahadirsa"
            .MaximizeBox = False
            .Size = New System.Drawing.Size(237, 144)
            .Location = New Point(250, 170)
        End With
        Button1.Text = "Bilgisayarı Konuştur"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            i.Speak("Yazı Giriniz. Bahadirsa")
            MsgBox("Yazı Giriniz. Bahadirsa", MsgBoxStyle.OkOnly, "bahadirsa voice ")

        End If
        i.Speak(TextBox1.Text)
    End Sub
End Class

Bir sonraki makalede buluşmak üzere...Bahadirsa