PDA

View Full Version : جمع اعداد در listbox


Iran2010
یک شنبه 13 آبان 1386, 20:31 عصر
با سلام
کدی برای جمع کردن اعداد در listbox را میخواستم :متفکر:
sokote_bi_payan
یک شنبه 13 آبان 1386, 21:18 عصر
به نام خدا

با سلام

خوب شما باید یک کانتر داشته باشید و در یک حلقه تا وقتی که به listCount نرسیده اعدادو گرفته و جمع کنه

باز اگه توضیح بیشتر خواستی بگو تا مثال بزنم
Iran2010
یک شنبه 13 آبان 1386, 21:52 عصر
لطف کن یه مثال بزن
ali_habibi1384
یک شنبه 13 آبان 1386, 23:50 عصر
تابعی نیست که این کارو واسه ما انجام بده مثل دستورات SQL?
vbhamed
دوشنبه 14 آبان 1386, 02:05 صبح
dim i%,Sum!

sum=0

for i=0 to list1.listcount-1
sum=sum+val(list1.list(i))
next

msgbox "Sumation is : " & Cstr(Sum)
Mbt925
دوشنبه 14 آبان 1386, 08:24 صبح
dim i%,Sum!

sum=0

For i=0 to List1.Listcount - 1
Sum = Sum + Val ( List1.List(i) )
Next

MsgBox "Sum is : " & Cstr(Sum)



کد ها رو داخل تگ کد قرار بدین.
ali_habibi1384
دوشنبه 14 آبان 1386, 08:41 صبح
پس دستور SQL نیستش؟
Mbt925
دوشنبه 14 آبان 1386, 10:48 صبح
پس دستور SQL نیستش؟

نه نیست دوست عزیز.
SQL برای کار با دیتابیس اه.
Iran2010
دوشنبه 14 آبان 1386, 13:57 عصر
dim i%,Sum!

sum=0

for i=0 to list1.listcount-1
sum=sum+val(list1.list(i))
next

msgbox "Sumation is : " & Cstr(Sum)


از این که کمک کردین واقعا متشکرم.