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

لدى جملة طويييييييلة بسبب أرقامها الكثيييييرة أحتاجها كثيرآ فى الكود

وأريد اخنصارها بدلآ من تكرارها بنفس هذا الطووووول

كود :

X = Val(Text1.Text)
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
Print Y

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

THEN Y=100    ضمن أرقام المجموعة     IF X

ولكم ألف شكر

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

أم لابد لعمل ذلك من عمل جدول من حقل واحد بقاعدة بيانات
ووضع هذه الأرقام فيه كسجلات
وكلما أردت كتابة هذه الجملة كتبت جملة البحث select عن قيمة X فيه

ألا يمكن عمل ذلك بطريقة سهلة بدلآ من هذا اللف والدوران ؟
ولكم ألف شكر

[sendbad100]

(23-01-18, 03:58 PM)اسلام الكبابى كتب : أم لابد لعمل ذلك من عمل جدول من حقل واحد بقاعدة بيانات
ووضع هذه الأرقام فيه كسجلات
وكلما أردت كتابة هذه الجملة كتبت جملة البحث select عن قيمة X فيه

ألا يمكن عمل ذلك بطريقة سهلة بدلآ من هذا اللف والدوران ؟
ولكم ألف شكر

PHP كود :

Function d(x As Double, y As Double) As Double

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
d = 100
Else
d = y
End If

End Function 


PHP كود :

Private Sub Command1_Click()
 
Print d(Val(Text1.Text), 200)

 
End Sub 


[محمد بن عطية]

(23-01-18, 04:26 PM)sendbad100 كتب :

(23-01-18, 03:58 PM)اسلام الكبابى كتب : أم لابد لعمل ذلك من عمل جدول من حقل واحد بقاعدة بيانات
ووضع هذه الأرقام فيه كسجلات
وكلما أردت كتابة هذه الجملة كتبت جملة البحث select عن قيمة X فيه

ألا يمكن عمل ذلك بطريقة سهلة بدلآ من هذا اللف والدوران ؟
ولكم ألف شكر

PHP كود :

استعمل مصفوفة

Function d(x As Double, y As Double) As Double

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
d = 100
Else
d = y
End If

End Function 


PHP كود :

Private Sub Command1_Click()
 
Print d(Val(Text1.Text), 200)

 
End Sub 


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

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

ولكما ألف شكر

---

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

كود :

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

ولكم ألف شكر

[sendbad100]

هنا الفرق

هذا اقصر
Print d(Val(Text1.Text), 200)


X = Val(Text1.Text)
FUNC1
Print Y

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

هذا فقط الفرق
أما هذه الجملة الطويلة  ........OR OR OR OR  فلا بد أن يمر عليها البرنامج كلما احتجنا لهذه المقارنة
والا فلابد من عمل جدول بقاعدة بيانات ووضع هذه الأرقام فيه كسجلات

كنت أبحث عن حل بدون هذه الجملة الطويييييييلة
ولكم ألف شكر