23-09-15, 09:02 PM
كتبت هذا الكود
كود :
Private Sub Command1_Click()
For I = 1 To NNUM
VV(I) = Text1(I).Text
If VV(I) > 50 Then GoTo 100
NNN = VV(I)
If NNN = 10 Then GoTo 10
If NNN = 20 Then GoTo 20
If NNN = 30 Then GoTo 30
If NNN = 40 Then GoTo 40
If NNN = 50 Then GoTo 50
100 Next I
10 Rem"هنا نكتب كود اللازم عندما تكون NNN=10"
GoTo 200
20 Rem"هنا نكتب كود اللازم عندما تكون NNN=20"
GoTo 200
30 Rem"هنا نكتب كود اللازم عندما تكون NNN=30"
GoTo 200
40 Rem"هنا نكتب كود اللازم عندما تكون NNN=40"
GoTo 200
50 Rem"هنا نكتب كود اللازم عندما تكون NNN=50"
200 End Sub
وطبعآ يمكن استبدال الجمل الشرطيةالخمسةالمتتالية باستخدام Select Case بدلآ من IF هكذا
كود :
Select Case NNN
Case "10": GoTo 10
Case "20": GoTo 20
Case "30": GoTo 30
Case "40": GoTo 40
Case "50": GoTo 50
End Select
وأريد كودآ أسهل من ذلك بحيث لا يمرالبرنامج كل مرة(مع كل قيمة لل I أثناء تنفيذ اللوب) على هذه الجمل الخمسة أوعلى بعضها حتى يتحقق الشرط
كيف يمكن مثلآ أن نجعل متغير يعبرعن رقم الجملة التى سنتوجه اليها فتكتب هذه الجمل الخمسة جملة واحدة بدون أى شرط (GoTo NNN)
كيف يمكن مثلآ أن نجعل متغير يعبرعن رقم الجملة التى سنتوجه اليها فتكتب هذه الجمل الخمسة جملة واحدة بدون أى شرط (GoTo NNN)
أى يكون اللوب هكذا
كود :
For I = 1 To NNUM
VV(I) = Text1(I).Text
If VV(I) > 50 Then GoTo 100
NNN = VV(I)
GoTo NNN
NEXT I 100
ولكم ألف شكر