merhaba arkadaşlar yapmam gereken bi uygulama var uygulamadan bahsedeyim
richtextbox a metin giriyoruz sayı onemli değil daha sonra bu metindeki harfleri teker teker sayıp msgboxta gosterecek. richtextbox a giriyorum textbox a hangi harfi araması istediğini yazıyorum msgboxda gosteriyorum
ama onemli olan harfi ben yazmadan a,b,c,d richtextboxta kactane varsa hepsini teker teker
a 1
b 3
c 5
d 2
diye gostermesini istiyorum yardımcı olabilirmisiniz lutfen

Dim say, uzunluk, i, j As Integer
Dim metin, bak As String
say = 0
metin = TextBox1.Text
'mayhemious
metin = metin + "#"
uzunluk = Len(metin)
For i = 1 To uzunluk
For j = 1 To uzunluk
bak = Mid(metin, i, j)
If bak = TextBox2.Text Then say = say + 1
Next
Next
TextBox3.Text = "ifade icinde " & say & " defa geciyo"
__________________