Örneğimizde bir text kutusuna girilen yazıdaki cümle sayısını bulacağız. Form üzerine bir adet buton ve bir adet de textbox ekliyoruz. Textbox'ın multiline özelliğini true yapıyoruz ki alt alta birden fazla cümle eklenebilsin.Kodumuz ise şu şekilde olacak:

Public Class Form1

Private Sub cmdbul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbul.Click

Dim i, cumlesay As Integer

For i = 1 To Len(TextBox1.Text)

If Mid(TextBox1.Text, i, 1) = "." Then cumlesay = cumlesay + 1

Next

MsgBox("Cümle Sayısı= " & cumlesay)

End Sub

End Class

Kodlarımızı inceleyecek olursak:

Yazının ilk harfinden son harfine kadar bir For döngüsü kuruyoruz. Cümlenin son harfine kadar döngümüzü kurabilmek için Len fonksiyonu ile textbox'a girilen yazının uzunluğunu buluyoruz. Mid fonksiyonu ile de cümlenin harflerini sıra ile ele alarak noktaya eşit olup olmadığını sorguluyoruz. Çünkü nokta sayısı cümle sayısına eşittir.

Son olarak proje dosyasının linkini vereyim: