öncelikle mrb arkadaslar ben 3 text 1 label ve 1butondan olusan bir program yazmak istiyorum program text1 ve text 2 ye girilien harflerin değerlerini toplayarak label1 e sonucu nu yazmasını bunun neticesinde if else dongüsü ile text3 de bir msj yazmasını istiyorum...

HESAP MAKİNESİNDE KULLANILAN "VAL" FOKSİYONUNU DENEDİM SADECE SAYILAR İCİN GECERLİ OLUD

örnek:

K=10 U=5 Ş=0 TEXT 1 VE 2 YE KUŞ KUŞ YAZDIK TOPLAMI K+U+Ş+K+U+Ş=LABEL 1 DE 30 DEDİ VE TEXT . TE BUNUNLA İLGİLİ BİR ACIKLAMA YAZMASINI İSTİYORUM

ilginiz icin tskler

Hacı ilk önce textte yazılan harflerin ne olduğunu tek tek araman lazım onun için mid döngüsü kullan sonra o harfi komutla eşleştir sonra toplat mid döngüsü içinde for kullan
örnek kullanım

metin=text1.text

for i=1 to len(metin) 

harf=mid(metin1,i,1)      'harfin ne oldugunu kontrol ettim

sonra harfi rakamla eşleştir gerisi basit zaten

iqsuz bunu yazdı:
-----------------------------

Hacı ilk önce textte yazılan harflerin ne olduğunu tek tek araman lazım onun için mid döngüsü kullan sonra o harfi komutla eşleştir sonra toplat mid döngüsü içinde for kullan
örnek kullanım

metin=text1.text

for i=1 to len(metin) 

harf=mid(metin1,i,1)      'harfin ne oldugunu kontrol ettim

sonra harfi rakamla eşleştir gerisi basit zaten

-----------------------------

nick'inle ters orantılı bi yorum :D :D (şaka hee )

adam olayın özünü yapmış. gerisini halledersin. halledemezsen kaldığın yeri yaz devam ettirelim.

yok bana baştan sonra yazacak yokmu dersen var derim ama canlı konuşur ;)

basitten sade kücük bi ornek atsanız olmaz mı ben bu iste biras yeniyim :D...

Private Sub hesapla_Click()

Dim metin, harf_kontrol As String

metin = Text1.Text

Dim i, toplam As Long

toplam = 0

For i = 1 To Len(metin)

    harf_kontrol = Mid(metin, i, 1)

        If Asc(harf_kontrol) < Asc("z") And Asc(harf_kontrol) > Asc("a") Or Asc(harf_kontrol) < Asc("Z") And Asc(harf_kontrol) > Asc("A") Then

        toplam = toplam + Asc(harf_kontrol)

        End If

Next

    Text2.Text = toplam

End Sub

tskler