محاسبه چند تا مقدار

[ehsanocx]

با سلام
چطوری می تونم مثلا 10 تا عدد توی لیست باکس دارم رو 2تا 2تا مقدار رو به ترتیب از اول لیست باکس توی فرمول بگذارم و محاسبه کنم و مقدار محاسبه شده رو توی یک تکست دیگه نمایش بدم ؟
مثلا توی این فرمول قرار بده sum=x+y
و مقدار sum رو توی تکست باکس نمایش بده؟
مثلا توی تکست باکس مقدار به ترتیب از اول لیست 1,4,9

[saber187518]

با سلام


text1.text=text1.text+" "+str(val(List1.List(i))+val(List1.List(i+1)))

که البته i شمارنده ای هست که از اول مقدارش صفر هست و به ازای هر بار تکرار برنامه 2 واحد بهش اضافه میشه.

[pooya1072]

از تابع str جهت جدا کردن ارقام از تکست باکس و از تابع val جهت تبدیل مقدار متنی به مقدار عددی استفاده کن

[ehsanocx]

دوستان من این کد رو نوشتم اما فقط 2 تا عدد اول لیست باکس رو نمایش میده و بقیه رو چک نمی کنه:ناراحت:.
میشه کدمو اصلاح کنید ؟

Dim p, q, i, s1, s2, x, y As Long


(p = Val(txtP
(q = Val(txtq

For i = 0 To List1.ListCount - 3

(( x = Val(List1.List(i
(( y = Val(List1.List(i + 1


(((s1 = Val(x + Val(Sqr(y
(s2 = Val((Sqr(x)) + y
Next i

(If s1 = p & s2 = q Then List2.AddItem (s1 & "-" & s2

[ali_habibi1384]

دوستان من این کد رو نوشتم اما فقط 2 تا عدد اول لیست باکس رو نمایش میده و بقیه رو چک نمی کنه:ناراحت:.
میشه کدمو اصلاح کنید ؟

Dim p, q, i, s1, s2, x, y As Long


(p = Val(txtP
(q = Val(txtq

For i = 0 To List1.ListCount - 3

(( x = Val(List1.List(i
(( y = Val(List1.List(i + 1


(((s1 = Val(x + Val(Sqr(y
(s2 = Val((Sqr(x)) + y
Next i

(If s1 = p & s2 = q Then List2.AddItem (s1 & "-" & s2
این خط مال چیه ؟ For i = 0 To List1.ListCount - 3 چرا 3 تا کم کردی؟
من بودم خط آخر رو اینجوری می نوشتم:



(((s1 = Val(x + Val(Sqr(y
(s2 = Val((Sqr(x)) + y
msgbox cstr(s1)+ " " + Cstr(s2)

[ehsanocx]

For i = 0 To List1.ListCount - 3
اینو گذاشتم که مقادیر داخل لیست باکسو از اولین رکورد تکت تک توی فرمول چک کنه؟ اما نمی دونم چرا کار نمی کنه باید چیکار کنم تا تمام مقادیر رو چک کنه؟

[M.T.P]

For i = 0 To List1.ListCount - 3
عدد قرمز باید 1 باشه

[ehsanocx]

-1 میزارم جوابای که بدست میاره اشتباست
بعدشم فقط 2تا رقم اولی رو محاسبه می کنه و به عدد های بعدی که توی لیست باکس هست رو چک نمی کنه چرا:ناراحت:؟
کسی نمتونه کمکم کنه؟

[ali_habibi1384]

دقیقا کاری رو که مخوای پروژه انجام بده بگو برات درست کنیم.

[ehsanocx]

مرسی عزیز کارم راه افتاد باز گیر کردم حتما بهتون میگم با تشکر