Vb Listbox1, Listbox2 toplama kodları

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb Vb Listbox1, Listbox2 toplama kodları

Bu konudaki kullanıcılar: 1 misafir

3
Cevap 413
Tıklama 0
Öne Çıkarma

1. sayfa

Vb Listbox1, Listbox2 toplama kodları

Cevap Yaz

Talha38

11 yıl

Çavuş

Konu Sahibi

Visual Basic

buton kodları ile...;
arkadaşlar listbox1 de tüm toplayıp label1 e aktardığımda doğru sonucu alıyorum ancak listbox2 de aynı işlemi yaptığımda label2 de 0 yazıyor..
kodlarda hata yok bire bir aynı kodlar..

(listbox1 ve listbox2 nin toplama kodları tek bir butonda yer alıyor)

Sixce sorunun nedeni nedir nasıl çözülür??

Şimdiden teşekkürler

İyi Forumlar...

@brk0001
@Belriez_RT

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

Bu mesajda bahsedilenler: @brk0001 , @Belriez_RT

emre_ermag155

11 yıl

Yüzbaşı

kodları yazar mısın?

Bu mesaja 1 cevap geldi.

Bu mesajda bahsedilenler: @Talha38

alife

11 yıl

Merhaba
İnşallah doğru anlamışımdır:

 
      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
          ListBox1.Items.Add("1") 
          ListBox1.Items.Add("2") 
          ListBox1.Items.Add("3") 
          ListBox1.Items.Add("4") 
          ListBox1.Items.Add("5") 
   
          ListBox2.Items.Add("10") 
          ListBox2.Items.Add("20") 
          ListBox2.Items.Add("30") 
          ListBox2.Items.Add("40") 
          ListBox2.Items.Add("50") 
          ListBox2.Items.Add("60") 
          ListBox2.Items.Add("70") 
   
          Dim toplam As Integer 
   
          toplam = 0 
   
          For l_index As Integer = 0 To ListBox1.Items.Count - 1 
              Dim l_text As String = CStr(ListBox1.Items(l_index)) 
              If IsNumeric(l_text) Then 
                  toplam = toplam + Convert.ToInt32(l_text) 
              End If 
          Next 
   
          For l_index As Integer = 0 To ListBox2.Items.Count - 1 
              Dim l_text As String = CStr(ListBox2.Items(l_index)) 
              If IsNumeric(l_text) Then 
                  toplam = toplam + Convert.ToInt32(l_text) 
              End If 
          Next 
   
          Label1.Text = toplam.ToString() 
   
      End Sub

Saygılarımla.

< Resime gitmek için tıklayın >

< Bu mesaj bu kişi tarafından değiştirildi alife -- 12 Eylül 2014; 21:42:08 >
Bu mesaja 1 cevap geldi.

Talha38

11 yıl

Çavuş

Konu Sahibi

quote:

Orijinalden alıntı: alife

Merhaba
İnşallah doğru anlamışımdır:

 
      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
          ListBox1.Items.Add("1") 
          ListBox1.Items.Add("2") 
          ListBox1.Items.Add("3") 
          ListBox1.Items.Add("4") 
          ListBox1.Items.Add("5") 
   
          ListBox2.Items.Add("10") 
          ListBox2.Items.Add("20") 
          ListBox2.Items.Add("30") 
          ListBox2.Items.Add("40") 
          ListBox2.Items.Add("50") 
          ListBox2.Items.Add("60") 
          ListBox2.Items.Add("70") 
   
          Dim toplam As Integer 
   
          toplam = 0 
   
          For l_index As Integer = 0 To ListBox1.Items.Count - 1 
              Dim l_text As String = CStr(ListBox1.Items(l_index)) 
              If IsNumeric(l_text) Then 
                  toplam = toplam + Convert.ToInt32(l_text) 
              End If 
          Next 
   
          For l_index As Integer = 0 To ListBox2.Items.Count - 1 
              Dim l_text As String = CStr(ListBox2.Items(l_index)) 
              If IsNumeric(l_text) Then 
                  toplam = toplam + Convert.ToInt32(l_text) 
              End If 
          Next 
   
          Label1.Text = toplam.ToString() 
   
      End Sub

Saygılarımla.

< Resime gitmek için tıklayın >

Hocam form load kısmı dışındaki kodlar işimi gören kısım :) çok saolun sayenizde bunuda hallettim :)

< Bu ileti mini sürüm kullanılarak atıldı >

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb Vb Listbox1, Listbox2 toplama kodları