منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عمل مجموعة أرقام - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : عمل مجموعة أرقام (/showthread.php?tid=23487)

عمل مجموعة أرقام - اسلام الكبابى - 23-01-18

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

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

كود :
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

ولكم ألف شكر

RE: عمل مجموعة أرقام - اسلام الكبابى - 23-01-18

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

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

RE: عمل مجموعة أرقام - sendbad100 - 23-01-18

(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 


RE: عمل مجموعة أرقام - محمد بن عطية - 23-01-18

(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 


RE: عمل مجموعة أرقام - اسلام الكبابى - 23-01-18

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

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


كود :
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
ولكم ألف شكر

RE: عمل مجموعة أرقام - sendbad100 - 23-01-18

هنا الفرق

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


X = Val(Text1.Text)
FUNC1
Print Y

RE: عمل مجموعة أرقام - اسلام الكبابى - 23-01-18

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

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