جمع زدن چند عدد داخل لیست باکس

Silver PC

Silver PC

Well-Known Member
سلام
من یه لیست باکس تو پروژه خودم دارم که داخل لیست باکس مثلا هزار خط نوشته شده
هر خط هم یک عدد
میشه کاری کرد که تمام اعداد را با هم جمع زد ؟
یعنی یه دکمه بذاریم که وقتی روش کیک کردم یه پیام بده و جمع کل اونا رو بده
دوستان خیلی برام مهمه
 
Silver Soft

Silver Soft

کاربر متخصص مولتی مدیا بیلدر
کد: 
For i=1 To 5
  ListBoxSelectItem("SongList","i")
  ListBoxGetSelectedItems("SongList","a$,1")
  S=S+VAL(a$)
Next i
S$=CHAR(S)
DisplayValue("TextBTN","S$")

البته شاید راه ساده دیگه ای هم باشه ولی من 2 سال هست که با بیلدر کار نکردم ، این رو هم به زور نوشتم ...
 
آخرین ویرایش:
nevercom

nevercom

کاربر متخصص انجمن مولتی مدیا بیلدر
کد: 
[FONT=Courier New][SIZE=2]Sum = [color=#ff0000]0[/color] 
[color=#000090][b]ListBoxGetItems[/b][/color]("ListBox","Items$,ItemsNum$,#,NumItems") 
[color=#0000FF]For[/color] i = [color=#ff0000]1[/color] [color=#0000FF]To[/color] NumItems 
  Integer = [color=#000090][b]VAL[/b][/color]([color=#000090][b]GetArrayItem[/b][/color](Items$,#,i)) 
  Sum = Sum + Integer 
[color=#0000FF]Next[/color] i 
[color=#000090][b]Message[/b][/color]("","Sum")[/SIZE][/FONT]
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها

بالا