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 416
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

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ı