درباره کلاس ها

[سونامی]

یک سوال یک کلاس ایجاد کنید که زمانی که کاربر دو عدد میدهد مجموع اعداد مابین آن ها را نشان دهد و اسم این تابه هم که می سازید summbetween باشه بعنوان مثال کاربر اعداد 2و5 را وارد می کند و دستگاه باید 2+3+4+5=14 را نشان بدهد بعد از این که کلاس رو ساختید در یک فرم آن را استفاده کنید

[hosein182421824218]

سلام دوست عزیز برنامه که گفتی رو نوشتم به این صورته که توی کلاست دستورات زیر رو وارد کن
PublicClass middlesum
Function jam(ByVal a AsInteger, ByVal b AsInteger)
Dim f AsInteger



For i AsInteger = a + 1 To b - 1
f += i
Next i
Return f
EndFunction
EndClass
حالا توی فرمت دو تا تکس باکس بزار و یه دکمه و یه lable
دستورات زیر رو تو کد دکمه وارد کن:
Dim a AsNew middlesum
Label1.Text = a.jam(TextBox1.Text, TextBox2.Text)چ


حالا اگه به طور مثال عدد 5 و 8 رو وارد کنی
lable عدد جمع مابینشون رو نشون میده که میشه 13
اگرم میخوای دو عددی هم که وارد میکنی جزو اعداد مابین حساب بشن و اونارم با اعداد مابین جمع بزنه کافیه تو classet اینجوری دستورو وارد کنی:
PublicClass middlesum
Function jam(ByVal a AsInteger, ByVal b AsInteger)
Dim f AsInteger



For i AsInteger = a To b
f += i
Next i
Return f
EndFunction
EndClass