Vb.Net ile Kelime İçerisinde Harf Bulma Programı

Nasıl Yapılır? Detaylı Anlatım

VB.Net ile kelime içinde belirli bir harfi aramak için aşağıdaki adımları izleyebilirsiniz:

Bir Windows Form uygulaması oluşturun ve bir metin kutusu ve bir düğme ekleyin. Metin kutusuna kullanıcının aramak istediği kelimeyi girmesini sağlayın. Düğmeye tıkladığında, belirli bir harfin kelimenin içinde kaç kez geçtiğini gösteren bir mesaj kutusu görüntülenir.

Düğme tıklandığında, metin kutusundaki metni bir dize değişkenine atayın:

vb.net

Dim kelime As String = txtKelime.Text

Kullanıcının aramak istediği harfi bir karakter değişkeninde saklayın:

vb.net

Dim harf As Char = “a”c ‘ örneğin, “a” harfi için

Kelimenin içindeki harf sayısını hesaplamak için bir döngü kullanın. Kelimeyi karakterlere ayırmak için CharEnumerator sınıfını kullanabilirsiniz.

vb.net

Dim harfSayisi As Integer = 0

Dim kelimeEnum As CharEnumerator = kelime.GetEnumerator()

While kelimeEnum.MoveNext()

    If kelimeEnum.Current = harf Then

        harfSayisi += 1

    End If

End While

Son olarak, mesaj kutusunu kullanarak kullanıcıya kelimenin içinde belirli bir harf için kaç eşleşme olduğunu bildirin:

vb.net

MessageBox.Show(harf & ” harfi ” & kelime & ” kelimesinde ” & harfSayisi & ” kez geçmektedir.”)

Tam kod şöyle görünebilir:

vb.net

Public Class Form1

    Private Sub btnAra_Click(sender As Object, e As EventArgs) Handles btnAra.Click
        Dim kelime As String = txtKelime.Text
        Dim harf As Char = "a"c
        Dim harfSayisi As Integer = 0
        Dim kelimeEnum As CharEnumerator = kelime.GetEnumerator()


        While kelimeEnum.MoveNext()
            If kelimeEnum.Current = harf Then
                harfSayisi += 1
            End If
        End While

        MessageBox.Show(harf & " harfi " & kelime & " kelimesinde " & harfSayisi & " kez geçmektedir.")
    End Sub

End Class