Sayı İçinde Harf Olduğunu Anlama

Bu makalemizde TextBox içinde harf olup olmadığını, girilen harfleri ve Textbox ta kaçıncı sırada olduğunu tespit edeceğiz. Aşağıdaki şekili inceleyin.

Şekil 1

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Label1.Text = ""
      Label2.Text = ""
      Label3.Text = ""
    End Sub
    Private Sub btnTikla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTikla.Click
        Label2.Text = ""
        Label3.Text = ""
        Dim a, i As Integer, b As Integer, c As String
        a = Len(txtGiris.Text)
        i = 0
        For b = 1 To a
            c = Mid(txtGiris.Text, b, 1)

            Select Case c
                Case "a" To "z"
                    i = i + 1

                    Label1.Text = "Girdiğiniz sayı içinde " & i & " harf var"
                    If i = 1 Then
                        Label2.Text = Label2.Text & txtGiris.Text.Substring(b - 1, 1)
                        Label3.Text = Label3.Text & b
                    Else
                        Label2.Text = Label2.Text & "," & txtGiris.Text.Substring(b - 1, 1)
                        Label3.Text = Label3.Text & "," & b
                    End If
            End Select

        Next

        Label2.Text = "Harfler: " & Label2.Text
        Label3.Text = "Harflerin Sırası: " & Label3.Text

    End Sub
  
End Class

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