Visual Basic - Basic - PicBasic ve Türevleri
Vb6 Da Harflere Deger Nasıl Verilir?
Vb6 Da Harflere Deger Nasıl Verilir?
-
ö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ımmetin=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ımmetin=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
Ben Harflere değer olarak ascii kodlarını verdim if deyimini istediğin gibi değiştirerek harflere istediğin değerleri ver. -
tskler