Girilen sayının rakamları toplamı
#1
Tekrar merhaba;

Ufak bir matematik ve kelime oyunu yapmaya çalışıyorum. ilk adımı sayın Taruz'un yardımıyla atlattım. (2 sayı arasındaki rakamların çarpımı)..

Şimdiki sorunum ise girilen sayının rakamlarını toplatabilmek. Bu yapmaya çalıştım ama olmadı..
Örneğin sayımız 2534 olsun

2+5+3+4 = 14

veya

sayımız 65331 olsun,

6+5+3+3+1 = 18

bu toplam sonuçlarını nasıl alabiliriz?

Teşekkür eder saygılar sunarım..



  Alıntı
Bu mesajı beğenenler:
#2
Sayın Muhsingil

Visual Basic
  1. Private Sub Komut2_Click()
  2. Dim kacRakkam As Integer
  3. Dim Toplam As Integer
  4. kacRakkam = Len(Me.sayımız)
  5. For i = 1 To kacRakkam
  6. If i = 1 Then
  7. Toplam = Left(sayımız, 1)
  8. Else
  9. Toplam = Toplam + Mid(sayımız, i, 1)
  10. End If
  11. Next
  12. Me.Etiket1.Caption = Toplam
  13. Toplam = 0
  14. End Sub


böyle bir kod istediğinizi yapar
iyi çalışmalar


Eklenti Dosyaları
.rar   sayılar.rar (Boyut: 16,18 KB / İndirilme: 87)
Teşekküre gerek yok, Taş atın yeter!!!



  Alıntı
Bu mesajı beğenenler:
#3
Adnan Bey, harikasınız, çok teşekkür ederim..



  Alıntı
Bu mesajı beğenenler:
#4
Hocam elinize sağlık.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Inputbox Kutusuna Girilen Değere Pasword Maske Uygulama orderyazbim 2 149 22-01-2024, 22:12
Son Mesaj: orderyazbim
  Bir Sütuna Girilen Verileri Başka Bir Sütun Ile Karşılaştırıp Hesaplama bilservisci 4 265 08-01-2024, 11:58
Son Mesaj: bilservisci
  Sorguda Okşulla Göre Veri Girilen Yere Elle Veri Girişi ŞabanTR 4 187 09-01-2023, 13:31
Son Mesaj: ŞabanTR
  [FORM] GİRİLEN GÜN SAYISINA GÖRE TARİH EKLEME SOGUT01 8 1.571 10-10-2022, 10:11
Son Mesaj: Kaptan64
  Metin Kutusuna Girilen Bir Değeri Başka Metin Kutunda Arama farukozgursoy 3 256 18-09-2022, 09:31
Son Mesaj: alperalper
  Girilen Tarihin Haftanın Başlangıçı Ve Sorunu Gösteren Fonksiyon Veya Sorgu cozum@msn.com 1 214 04-08-2022, 13:20
Son Mesaj: onur_can
  Tabloda Hesaplanmış Alanda Sütun Toplamı edacan19 11 364 10-01-2022, 11:18
Son Mesaj: onur_can
  Inputbox'a Girilen Verinin Yıldız Olarak Gözükmesi alikagan 2 209 07-10-2021, 15:17
Son Mesaj: onur_can

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi