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 harf_kontrol = Mid(metin, i, 1) If Asc < Asc And Asc > Asc Or Asc < Asc And Asc > Asc Then toplam = toplam + Asc End If Next Text2. Text = toplam End Sub Ben Harflere değer olarak ascii kodlarını verdim if deyimini istediğin gibi değiştirerek harflere istediğin değerleri ver.

basitten sade kücük bi ornek atsanız olmaz mı ben bu iste biras yeniyim :D... with great power comes great irresponsibility #deadpool

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 with great power comes great irresponsibility #deadpool

: Hacı ilk nce textte yazılan harflerin ne olduğunu tek tek araman lazım onun için mid dngüsü kullan sonra o harfi komutla eşleştir sonra toplat mid dngüsü içinde for kullanrnek kullanım metin=text1. text for i=1 to len 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 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 ;) Kayalardan kayarım yoktur benim ayarım (;

Hacı ilk nce textte yazılan harflerin ne olduğunu tek tek araman lazım onun için mid dngüsü kullan sonra o harfi komutla eşleştir sonra toplat mid dngüsü içinde for kullanrnek kullanım metin=text1. text for i=1 to len harf=mid(metin1, i,1) 'harfin ne oldugunu kontrol ettim sonra harfi rakamla eşleştir gerisi basit zaten

tskler with great power comes great irresponsibility #deadpool