تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عمل مجموعة أرقام
#1
لدى جملة طويييييييلة بسبب أرقامها الكثيييييرة أحتاجها كثيرآ فى الكود

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

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

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

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

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

PHP كود :
Function d(As DoubleAs Double) As Double

If Or 20 Or 23 Or 38 Or 69 Or 188 Or 213 Or 239 Or 246 Then
100
Else
y
End 
If

End Function 

PHP كود :
Private Sub Command1_Click()
 
Print 
d(Val(Text1.Text), 200)

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

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

PHP كود :
استعمل مصفوفة

Function d(As DoubleAs Double) As Double

If Or 20 Or 23 Or 38 Or 69 Or 188 Or 213 Or 239 Or 246 Then
100
Else
y
End 
If

End Function 

PHP كود :
Private Sub Command1_Click()
 
Print 
d(Val(Text1.Text), 200)

 
End Sub 
الرد
تم الشكر بواسطة: اسلام الكبابى
#5
بارك الله لكما

ولكما ألف شكر

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


كود :
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
ولكم ألف شكر
الرد
تم الشكر بواسطة:
#6
هنا الفرق

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


X = Val(Text1.Text)
FUNC1
Print Y
الرد
تم الشكر بواسطة:
#7
هذا فقط الفرق
أما هذه الجملة الطويلة  ........OR OR OR OR  فلا بد أن يمر عليها البرنامج كلما احتجنا لهذه المقارنة
والا فلابد من عمل جدول بقاعدة بيانات ووضع هذه الأرقام فيه كسجلات

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال ايجاد اصغر قيمه من مجموعة قيم ؟؟ haider kh 5 775 03-07-19, 02:15 PM
آخر رد: haider kh
  [vb6.0] طلب كود بحث عن مجلد يحتوي على مجموعة صور و التعديل عل اسم الصورة adad 3 864 09-08-18, 06:36 PM
آخر رد: elgokr
  [سؤال] اضافة مجموعة على الداتا amro_demon 4 820 13-02-18, 01:46 PM
آخر رد: amro_demon
  حفظ مجموعة تكست بوكس فى قاعدة البيانات بضغطة حفظ واحدة المبرمج العتيق 6 993 28-10-17, 07:11 PM
آخر رد: المبرمج العتيق
  توليد أرقام عشوائية dr.mostashar 1 893 14-07-17, 11:57 AM
آخر رد: Amir_Alzubidy
  اضافة مجموعة تكست حسب الرقم الموجود أبو عقيل 12 2,051 31-05-17, 03:50 AM
آخر رد: أبو عقيل
  [vb6.0] السؤال فى كيفية اضافة مجموعة من الادوات على الفورم المبرمج العتيق 2 948 24-03-17, 06:04 PM
آخر رد: المبرمج العتيق
  اريد مجموعة سعر الكمية امباعة بتاريخ محدد في هذا الكود عمر سالم 5 1,295 31-01-17, 01:18 PM
آخر رد: ahmedabdelaliem
  [vb6.0] طريقة جمع أو ضرب أرقام موجودة وسط نص فى التيكست بوكس copy77 11 2,231 27-01-17, 03:31 PM
آخر رد: copy77
  طلب بسيط نقل أرقام؟؟؟ KamelArab 2 872 10-12-16, 06:45 PM
آخر رد: sendbad100

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم