Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Add Comment
Please, Sign In to add comment