[اسلام الكبابى]

بارك الله لكما

ولكما ألف شكر

---

ولكن ما الفرق بين كودكم وبين هذا الكود مثلآ ؟

كود :

Private Sub FUNC1()
Y = 200
If X = 7 Or X = 20 Or X = 23 Or X = 38 Or X = 69 Or X = 188 Or X = 213 Or X = 239 Or X = 246 Then Y = 100
End Sub

Private Sub Command3_Click()
X = Val(Text1.Text)
FUNC1
Print Y
End Sub

مازالت هذه الجملة الطويييييلة................OR... OR... OR... OR  يمر عليها البرنامج كلما احتجنا لهذه المقارنة
[b][b]ألا يمكن عمل مجموعة تحتوى هذه الأرقام ونسميها مثلآ GROUP1
بحيث تكون صيغة هذه الجملة الشرطية الطويييييييلة هكذا[/b]
[/b]

IF X       GROUP1 THEN Y = 100

ولكم ألف شكر