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

أول مشاركة لي في هذا المنتدى وأتمنى الفائدة ؟

أبغى دالة في الفيجوال بيسك 6 تقوم بالاتي :

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

هل ممكن توجد دالة تحقق المطلوب .

مثال :
لوعندي مجموعة أرقام مثلا :
2
3
5
6
2
4
6
7
أبغى دالة تجمع أرقام عددة أرقام أو ممكن يكون رقمين أو ثلاثة أو عشرة بحيث ما يتعدى الرقم 21 ممكن يكون مقارب له
2+3+5+6+2=18
وهذا ليس المطلوب
المطلوب تحقق أفضل رقم إلى 21 من الجمع

اتمنى وصلت الفكرة ياليت يا شباب لا تبخلوا علينا في الفايدة
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

عندي استفسار

هل 6+6+4+3+2 = 21 يحقق الشرط

يعطيك العافية
شـــايـفـــك

الرد }}}}
تم الشكر بواسطة:
#3
abulayth كتب :السلام عليكم

عندي استفسار

هل 6+6+4+3+2 = 21 يحقق الشرط

يعطيك العافية


يعطيك العافية أخي ومشكور على توضيحك هي نفس الفكرة ممكن يحقق الشرط أو قريب للشرط أهم شي يجمع افضل الارقام إلى الشرط المطلوب
ياليت يا شباب تجيبون الدالة
الرد }}}}
تم الشكر بواسطة:
#4
إقتباس :أو ممكن يكون رقمين أو ثلاثة أو عشرة بحيث ما يتعدى الرقم 21 ممكن يكون مقارب له
هذا هو الكود ليجمع لك
ثلاثة أرقام
وبنفس الطريقة يمكنك عمل الكود
ليجمع لك أى عدد من الأرقام
PHP كود :
Dim IN1N2 As Integer
Dim NUM
SUM As Integer
Dim X
(99) As Integer
Dim TART
(99) As Integer
Dim XCHOS
(99) As Integer
Dim XBEST
(99) As Integer

Private Sub Command1_Click()

 
NUM InputBox("ما عدد الأرقام  الموجودة""")
SUM InputBox("ما هو المجموع المطلوب""")
Rem"المجموع المطلوب هو الذى افترضته فى مثالك 21"
For 1 To NUM

 X
(I) = InputBox("أدخل العدد رقم " I"")
TART(X(I)) = I
 Next I

XMIN 
X(NUM): DEFMIN 9999
For N1 1 To NUM
For N2 N1 1 To NUM
XCHOS
(1) = X(N1): XCHOS(2) = X(N2)
XX SUM XCHOS(1) - XCHOS(2)
If 
XX 0 Then GoTo 50

If TART(XX) > And TART(XX) > N2 Then XCHOS(3) = XX: GoTo 100
For XX 1 To XMIN Step (-1)

If 
TART(I) > And TART(I) > N2 Then
XCHOS
(3) = IDEF XX I
If DEF DEFMIN Then DEFMIN DEFXBEST(1) = XCHOS(1): XBEST(2) = XCHOS(2): XBEST(3) = XCHOS(3)
GoTo 
50
 End 
If
      
Next I
50 Next N2
     Next N1
     
Print XBEST(1); XBEST(2); XBEST(3); " أفضل 3 أرقام هى ": GoTo 200
100 
Print XCHOS(1); XCHOS(2); XCHOS(3); " أفضل 3 أرقام هى "
200  Z MsgBox(""69"")
End Sub 
الرد }}}}
تم الشكر بواسطة:
#5
طبعآ من الممكن ادخال معطياتك فى TEXT بدلآ من هذه الInputBox
الرد }}}}
تم الشكر بواسطة:
#6
أليس هذا هو طلب الزميل البجيدي[url="http://vb4arb.com/vb/member.php?5795-%D8%A7%D9%84%D8%A8%D8%AC%D9%8A%D8%AF%D9%8A123"]123

[/url]
الرد }}}}
تم الشكر بواسطة:
#7
الله يعطيك العافية عز الله انك ذيب وبيض الله وجهك وكل عام وانت بخير

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

هذه قريبة من الفكرة الا انني ابغاه ممكن ادخل 500 رقم وتختار لي عددة أرقام من قواعد بيانات بحيث يكون مجموعها ما يتعدى 100 مثلا
ممكن يطبع 10 ارقام مجموعهن قريب من المية وممكن يطبع سطر ثاني عددة ارقام مجموعهن قريب من المية وهكذا بحيث ما يخلي ولا رقم الا يجمعه مع بعض حتى لو بقي واحد بس يعطيني افضل الطرق للجمع الارقام اللي تعطي مجموع معين ؟

اتوقع انك قدها وانشالله انك كفووو وبعد ما خلص سوف اعرض لكم البرنامج في هذا المنتدى الرائع وشكرا لكم نتمنى التفاعل معي من لديه الخبرة ؟
الرد }}}}
تم الشكر بواسطة:
#8
حتى تصل الفكرة المشكلة اني لم اصمم البرنامج ما أعرف أو اتوقع عدد الارقام اللي راح تتدخل ممكن يكون رقمين مجموعه قريب من المية وممكن يكون 99 رقم مجموعهن 100 وممكن يكون عشرة ارقام وهكذا ؟ ؟؟؟

مشكورين ومنورين وكل عام وانتم بخير !!!! اتمنى الفائدة للجميع وياليت يا أخوان بخصوص الدوال هذه لأن عندي برنامج قاعد اشتغل عليه من شهرين وتوقفت عن الشغلات هذه صراحة الوضع ما سأوي ياليت اللي عنده فكرة لا يبخل علينا فيها وله الاجر انشالله علما أن البرنامج هذا لعمل الخاص فقط وسوف يطرح انشالله في المنتدى كاملا للفائدة وشكرا لكم .
الرد }}}}
تم الشكر بواسطة:
#9
إقتباس :الا انني أبحث عن التعديل عليها لتلبي متطلباتي في برنامجي ؟
وماهو برنامجك؟
الرد }}}}
تم الشكر بواسطة:
#10
برنامج خاص للمصنع الالومنيوم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 8 191 01-12-16, 06:37 PM
آخر رد: Amir_alzubidy
  أحتاج برنامج فيجوال بيسك 6 .. يدعم الكتابة باللغة العربية المهندسة رسل 6 1,571 25-11-16, 12:23 AM
آخر رد: fkwinna
  ربط الفيجوال بأى برنامج رسم هندسي اسلام الكبابى 11 2,030 21-11-16, 11:48 PM
آخر رد: اسلام الكبابى
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 106 19-11-16, 12:08 PM
آخر رد: عمور2016
  ارجو المساعدة في تحويل اكواد bidaya 7 113 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  [سؤال] برنامج الفراهيدي الاصيله 1 79 11-11-16, 12:29 AM
آخر رد: أبو عمر
  برنامج الفاتورة الاصدار الثاني من برمجتي في المنتدى القديم ahmedabdelaliem 12 2,103 27-08-16, 07:18 PM
آخر رد: عمور2016
  [سؤال] بشأن برنامج كنترول نتائج الطلاب abomna 0 139 24-07-16, 11:58 PM
آخر رد: abomna
  ارجو المساعدة والتعديل وتصليح المشروع عمور2016 5 146 10-07-16, 12:26 PM
آخر رد: عمور2016
  برنامج لخدمة مراكز اصلاح وصيانة الأجهزة الألكترونية salaheldin 8 1,074 30-06-16, 08:08 PM
آخر رد: GHTAHA

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


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