Küçük Ünlü Uyumu.vb

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim genisduz(1), daryuvarlak(1), duzdar(1), genisyuvarlak(1) As String
        Dim bak1, bak2, bak3, bak4 As Integer
        bak1 = 0
        bak2 = 0
        bak3 = 0
        bak4 = 0

        genisduz(0) = "a"
        genisduz(1) = "e"

        daryuvarlak(0) = "u"
        daryuvarlak(1) = "ü"

        duzdar(0) = "ı"
        duzdar(1) = "i"

        genisyuvarlak(0) = "o"
        genisyuvarlak(1) = "ö"

        If TextBox1.Text(0) = genisduz(0) Or TextBox1.Text(0) = genisduz(1) Or TextBox1.Text(0) = duzdar(0) Or TextBox1.Text(0) = duzdar(1) Then
            For i = 1 To TextBox1.Text.Length - 1
                If (TextBox1.Text(i) = daryuvarlak(0) Or TextBox1.Text(i) = daryuvarlak(1) Or TextBox1.Text(i) = genisyuvarlak(0) Or TextBox1.Text(i) = genisyuvarlak(1)) Then
                    bak1 = 1 'küu uymaz
                Else
                    bak2 = 1 'küu uyar
                End If
            Next
            If bak1 = bak2 Then
                MsgBox("Küçük ünlü uyumuna uymaz")
            Else
                MsgBox("Küçük ünlü uyumuna uyar")
            End If

        ElseIf TextBox1.Text(1) = genisduz(0) Or TextBox1.Text(1) = genisduz(1) Or TextBox1.Text(1) = genisduz(1) Or TextBox1.Text(1) = genisduz(1) Then
            For i = 2 To TextBox1.Text.Length - 1
                If (TextBox1.Text(i) = daryuvarlak(0) Or TextBox1.Text(i) = daryuvarlak(1) Or TextBox1.Text(i) = genisyuvarlak(0) Or TextBox1.Text(i) = genisyuvarlak(1)) Then
                    bak1 = 1 'küu uymaz
                Else
                    bak2 = 1 'küu uyar
                End If
            Next
            If bak1 = bak2 Then
                MsgBox("Küçük ünlü uyumuna uymaz")
            Else
                MsgBox("Küçük ünlü uyumuna uyar")
            End If

        ElseIf TextBox1.Text(0) = genisyuvarlak(0) Or TextBox1.Text(0) = genisyuvarlak(1) Or TextBox1.Text(0) = daryuvarlak(0) Or TextBox1.Text(0) = daryuvarlak(1) Then
            For z = 1 To TextBox1.Text.Length - 1
                If (TextBox1.Text(z) = daryuvarlak(0) Or TextBox1.Text(z) = daryuvarlak(1) Or TextBox1.Text(z) = genisduz(0) Or TextBox1.Text(z) = genisduz(1)) Then
                    bak3 = 1  'küu uyar
                Else
                    bak4 = 1  'küu uymaz
                End If
            Next
            If bak1 = bak2 Then
                MsgBox("Küçük ünlü uyumuna uyar")
            Else
                MsgBox("Küçük ünlü uyumuna uymaz")
            End If

        ElseIf TextBox1.Text(1) = genisyuvarlak(0) Or TextBox1.Text(1) = genisyuvarlak(1) Or TextBox1.Text(1) = daryuvarlak(0) Or TextBox1.Text(1) = daryuvarlak(1) Then
            For z = 2 To TextBox1.Text.Length - 1
                If (TextBox1.Text(z) = daryuvarlak(0) Or TextBox1.Text(z) = daryuvarlak(1) Or TextBox1.Text(z) = genisduz(0) Or TextBox1.Text(z) = genisduz(1)) Then
                    bak3 = 1  'küu uyar
                Else
                    bak4 = 1 'küu uymaz
                End If
            Next
            If bak1 = bak2 Then
                MsgBox("Küçük ünlü uyumuna uyar")
            Else
                MsgBox("Küçük ünlü uyumuna uymaz")
            End If
        End If
    End Sub
End Class

Küçük ünlü uyumuna uyup uymadığını kontrol eder.