مشکل در ایجاد شرط بصورت کوتاه تر

[look20]

باسلام وخسته نباشید
من دو تا لیبل دارم
و میخام شرط های زیر رو انجام بدم

اگر
Label2 <<< Label1
0 تا 50- >>> 100
51- تا 100- >>> 99
101- تا 150- >>> 98
151- تا 200- >>> 97
201- تا 250- >>> 96
251- تا 300- >>> 95
301- تا 350- >>> 94
351- تا 400- >>> 93
...
و همین طور تا 5000- این شرط ادامه داره
یعنی به ازای هر 50- از لیبل اول عدد 1 از لیبل دوم کم میشه
اگه بخام شرطهای بالا رو ادامه بدم باید 100 شرط بزارم ولی من میخام این همه if نزارم از چه راهی میتونم این کارو انجام بدم تا دستور و کد نویسی کوتاه تری داشته باشم

با تشکر

[fazelm]

باسلام وخسته نباشید
من دو تا لیبل دارم
و میخام شرط های زیر رو انجام بدم

اگر
Label2 <<< Label1
0 تا 50- >>> 100
51- تا 100- >>> 99
101- تا 150- >>> 98
151- تا 200- >>> 97
201- تا 250- >>> 96
251- تا 300- >>> 95
301- تا 350- >>> 94
351- تا 400- >>> 93
...
و همین طور تا 5000- این شرط ادامه داره
یعنی به ازای هر 50- از لیبل اول عدد 1 از لیبل دوم کم میشه
اگه بخام شرطهای بالا رو ادامه بدم باید 100 شرط بزارم ولی من میخام این همه if نزارم از چه راهی میتونم این کارو انجام بدم تا دستور و کد نویسی کوتاه تری داشته باشم

با تشکر

از for استفاده کن

[look20]

میشه با یه مثال کوچیک توضیح بدید

[fazelm]

میشه با یه مثال کوچیک توضیح بدید

دوتا لیبل بذار و یک کلید وبعد کد زیر رو بذار ببین منظورت همین بود ::
Label1.Caption = Label1.Caption - Label2.Caption \ 50

[parselearn]

دوست عزيز برنامه نويسي رو شروع كنيد. مي بينيد اونقدر سخت نيست...



Private Sub Command1_Click()
Dim i As Integer, n As Integer, c As Integer, b As Boolean
n = CInt(Label1.Caption)
c = 100

For i = 0 To -5000 Step -50
List1.AddItem i
If n < i And n > (i - 50) Then
Label2.Caption = c
b = True
Exit For
Else
c = c - 1
End If
Next i

If b = False Then
MsgBox "Not Found!"
End If
End Sub

Private Sub Form_Load()
Label1.Caption = "-102"
End Sub