Büyü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 kalin(3), ince(3), karakter As String
        Dim bak, bak1 As Integer
        bak = 0
        bak1 = 0

        kalin(0) = "a"
        kalin(1) = "ı"
        kalin(2) = "u"
        kalin(3) = "o"

        ince(0) = "e"
        ince(1) = "i"
        ince(2) = "ü"
        ince(3) = "ö"

        For i = 1 To TextBox1.Text.Length
            If Mid(TextBox1.Text, i, 1) = kalin(0) Or Mid(TextBox1.Text, i, 1) = kalin(1) Or Mid(TextBox1.Text, i, 1) = kalin(2) Or Mid(TextBox1.Text, i, 1) = kalin(3) Then
                bak = 1
            ElseIf Mid(TextBox1.Text, i, 1) = ince(0) Or Mid(TextBox1.Text, i, 1) = ince(1) Or Mid(TextBox1.Text, i, 1) = ince(2) Or Mid(TextBox1.Text, i, 1) = ince(3) Then
                bak1 = 1
            End If
        Next
        If bak1 = bak Then
            MsgBox("Büyük ünlü uyumuna uymaz!")
        Else
            MsgBox("Büyük ünlü uyumuna uyar.")
        End If
        TextBox1.Text = ""
    End Sub
End Class

Girilen kelimenin büyük ünlü uyumuna uyup uymadığını kontrol eder.