Merhaba arkadaşlar bu örnekte TextBox a girilen string içerisinden sesli harfleri çıkaracağız. Sadece TextBox ta sessiz harf karakterleri kalacak.
Screenshot
Şekil 1
Şekil 2
Form1.vb
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim str As String
Dim sessizHarf As String = ""
str = TextBox1.Text.Trim
Dim sesliHarf As Integer = 0
Dim i As Integer
For i = 0 To str.Length - 1
'metin icindeki sesli harfler cikariliyor
'metinde sadece sessiz harfler kaliyor
If str(i) <> "a" And str(i) <> "e" And str(i) <> "ı" And str(i) <> "u" And str(i) <> "ü" And str(i) <> "ö" And str(i) <> "i" And str(i) <> "o" Then
sessizHarf = sessizHarf + str(i)
Else
'metinden cikarilan sesli harf sayisinin toplami hesaplaniyor
sesliHarf += 1
End If
Next
TextBox1.Text = sessizHarf
Label1.Text = "Metinden çıkarılan sesli harf sayısı toplamı= " & sesliHarf.ToString()
End Sub
End Class
}
}
}
Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
0 comments:
Yorum Gönder