تقييم الموضوع :
  • 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
برنامج خاص للمصنع الالومنيوم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مساعدة فى برنامج الاجازات aboezzat84 1 683 26-03-23, 03:56 PM
آخر رد: sanyor77
  برنامج الفاتورة الاصدار الثاني من برمجتي في المنتدى القديم ahmedabdelaliem 16 12,125 31-10-22, 11:50 PM
آخر رد: Ibrahimxp
  برنامج تعبئة الرصيد للثلاث متعاملين في الجزائر AHMED213 3 2,980 04-10-22, 10:11 PM
آخر رد: Taha Okla
  تحويل برنامج تم تصميمه بلغة الفيجوال بيسك الى مايكروسوفت اكسيس shabrawy 3 865 07-09-22, 10:05 PM
آخر رد: Taha Okla
  برنامج مترجم قوقل مفتوح المصدر samee119485r 23 11,219 20-12-21, 12:44 AM
آخر رد: marmarmar
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 10 5,797 21-11-21, 05:43 PM
آخر رد: mona82
Thumbs Up مشكلة في برنامج مبرمج بلغة الفيجول بيسك palart 2 1,897 04-05-21, 05:59 PM
آخر رد: palart
  [vb6.0] هاام الى جميع الاخوة في المنتدى ارجو المساعدة husam.aj87 2 1,404 03-03-21, 08:20 PM
آخر رد: Amir_Alzubidy
  برنامج جديد benali17 2 1,661 27-01-21, 11:27 PM
آخر رد: benali17
Wink [مشروع] اريد برنامج فيجوال بيسك 2010 عن حساب سعر السلعة بعد الخصم Aiosh15 0 1,617 10-12-20, 04:43 PM
آخر رد: Aiosh15

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


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