مشاهده نسخه کامل
: درباره کلاس ها
یک سوال یک کلاس ایجاد کنید که زمانی که کاربر دو عدد میدهد مجموع اعداد مابین آن ها را نشان دهد و اسم این تابه هم که می سازید summbetween باشه بعنوان مثال کاربر اعداد 2و5 را وارد می کند و دستگاه باید 2+3+4+5=14 را نشان بدهد بعد از این که کلاس رو ساختید در یک فرم آن را استفاده کنید
hosein182421824218
08-05-2009, 15:51
سلام دوست عزیز برنامه که گفتی رو نوشتم به این صورته که توی کلاست دستورات زیر رو وارد کن
Public Class middlesum
Function jam(ByVal a As Integer, ByVal b As Integer)
Dim f As Integer
For i As Integer = a + 1 To b - 1
f += i
Next i
Return f
End Function
End Class
حالا توی فرمت دو تا تکس باکس بزار و یه دکمه و یه lable
دستورات زیر رو تو کد دکمه وارد کن:
Dim a As New middlesum
Label1.Text = a.jam(TextBox1.Text, TextBox2.Text)چ
حالا اگه به طور مثال عدد 5 و 8 رو وارد کنی
lable عدد جمع مابینشون رو نشون میده که میشه 13
اگرم میخوای دو عددی هم که وارد میکنی جزو اعداد مابین حساب بشن و اونارم با اعداد مابین جمع بزنه کافیه تو classet اینجوری دستورو وارد کنی:
Public Class middlesum
Function jam(ByVal a As Integer, ByVal b As Integer)
Dim f As Integer
For i As Integer = a To b
f += i
Next i
Return f
End Function
End Class
vBulletin , Copyright ©2000-2025, Jelsoft Enterprises Ltd.