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 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
Add Comment
Please, Sign In to add comment