لدى جملة طويييييييلة بسبب أرقامها الكثيييييرة أحتاجها كثيرآ فى الكود
وأريد اخنصارها بدلآ من تكرارها بنفس هذا الطووووول
كود :
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 فيه
ألا يمكن عمل ذلك بطريقة سهلة بدلآ من هذا اللف والدوران ؟
ولكم ألف شكر
(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
ولكم ألف شكر
هنا الفرق
هذا اقصر
Print d(Val(Text1.Text), 200)
X = Val(Text1.Text)
FUNC1
Print Y
هذا فقط الفرق
أما هذه الجملة الطويلة ........OR OR OR OR فلا بد أن يمر عليها البرنامج كلما احتجنا لهذه المقارنة
والا فلابد من عمل جدول بقاعدة بيانات ووضع هذه الأرقام فيه كسجلات
كنت أبحث عن حل بدون هذه الجملة الطويييييييلة
ولكم ألف شكر