You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
VB.Net Örnek Uygulamalar<br />
2 Kasım 2011<br />
Uygulama No: 32 – Metin İstatistikleri<br />
Açıklama : Çok-satırlı bir metin kutusuna girilen metnin hece, kelime ve cümle sayıları<br />
hesaplanıyor ve girilen bir anahtar kelimenin metin içersinde geçme sayısı<br />
bulunuyor.<br />
Ekran Görüntüsü<br />
Açıklamalı Kodlar<br />
Public Class Form1<br />
Dim metin, anahtar, sonkarakter As String<br />
Dim kelime_sayisi, cumle_sayisi, hece_sayisi, p, konum, sayac As Integer<br />
Private Sub BtnHesapla_Click(ByVal sender As System.Object, ByVal e As<br />
System.EventArgs) Handles BtnHesapla.Click<br />
metin = TxtMetin.Text + " "<br />
kelime_sayisi = 0<br />
cumle_sayisi = 0<br />
hece_sayisi = 0<br />
For k = 0 To Strings.Len(metin) - 1 'Metni sonuna kadar karakter<br />
karakter tarıyor.<br />
If metin(k) = " " Then kelime_sayisi = kelime_sayisi + 1 'Kelime<br />
sayısı=boşluk sayısı. Çünkü yukarıda fazladan bir boşluk eklemiştik.<br />
If k = Strings.Len(metin) - 1 Then Exit For 'Aşağıdaki koşulda son<br />
karakterden sonra (k+1) arama yapmasın<br />
Tolga GÜYER Sayfa 50
Change language