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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : أتمنى المساعدة في برنامج وأعطائي الدالة بسررررررررعه (/showthread.php?tid=9953)

الصفحات: 1 2

أتمنى المساعدة في برنامج وأعطائي الدالة بسررررررررعه - البجيدي123 - 06-08-13

السلام عليكم ورحمة الله وبركاته ،،،،،

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

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

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

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

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

اتمنى وصلت الفكرة ياليت يا شباب لا تبخلوا علينا في الفايدة

أتمنى المساعدة في برنامج وأعطائي الدالة بسررررررررعه - abulayth - 06-08-13

السلام عليكم

عندي استفسار

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

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

أتمنى المساعدة في برنامج وأعطائي الدالة بسررررررررعه - البجيدي123 - 06-08-13

abulayth كتب :السلام عليكم

عندي استفسار

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

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


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

أتمنى المساعدة في برنامج وأعطائي الدالة بسررررررررعه - اسلام الكبابى - 10-08-13

إقتباس :أو ممكن يكون رقمين أو ثلاثة أو عشرة بحيث ما يتعدى الرقم 21 ممكن يكون مقارب له
هذا هو الكود ليجمع لك ثلاثة أرقام
وبنفس الطريقة يمكنك عمل الكود ليجمع لك أى عدد من الأرقام
PHP كود :
Dim I, N1, N2 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 I = 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) > 0 And TART(XX) > N2 Then XCHOS(3) = XX: GoTo 100
For I = XX - 1 To XMIN Step (-1)

If TART(I) > 0 And TART(I) > N2 Then
XCHOS(3) = I: DEF = XX - I
If DEF < DEFMIN Then DEFMIN = DEF: XBEST(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 


أتمنى المساعدة في برنامج وأعطائي الدالة بسررررررررعه - اسلام الكبابى - 10-08-13

طبعآ من الممكن ادخال معطياتك فى TEXT بدلآ من هذه الInputBox

أتمنى المساعدة في برنامج وأعطائي الدالة بسررررررررعه - اسلام الكبابى - 12-08-13

أليس هذا هو طلب الزميل البجيدي[url="http://vb4arb.com/vb/member.php?5795-%D8%A7%D9%84%D8%A8%D8%AC%D9%8A%D8%AF%D9%8A123"]123

[/url]

أتمنى المساعدة في برنامج وأعطائي الدالة بسررررررررعه - البجيدي123 - 13-08-13

الله يعطيك العافية عز الله انك ذيب وبيض الله وجهك وكل عام وانت بخير

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

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

اتوقع انك قدها وانشالله انك كفووو وبعد ما خلص سوف اعرض لكم البرنامج في هذا المنتدى الرائع وشكرا لكم نتمنى التفاعل معي من لديه الخبرة ؟

أتمنى المساعدة في برنامج وأعطائي الدالة بسررررررررعه - البجيدي123 - 13-08-13

حتى تصل الفكرة المشكلة اني لم اصمم البرنامج ما أعرف أو اتوقع عدد الارقام اللي راح تتدخل ممكن يكون رقمين مجموعه قريب من المية وممكن يكون 99 رقم مجموعهن 100 وممكن يكون عشرة ارقام وهكذا ؟ ؟؟؟

مشكورين ومنورين وكل عام وانتم بخير !!!! اتمنى الفائدة للجميع وياليت يا أخوان بخصوص الدوال هذه لأن عندي برنامج قاعد اشتغل عليه من شهرين وتوقفت عن الشغلات هذه صراحة الوضع ما سأوي ياليت اللي عنده فكرة لا يبخل علينا فيها وله الاجر انشالله علما أن البرنامج هذا لعمل الخاص فقط وسوف يطرح انشالله في المنتدى كاملا للفائدة وشكرا لكم .

أتمنى المساعدة في برنامج وأعطائي الدالة بسررررررررعه - اسلام الكبابى - 14-08-13

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

أتمنى المساعدة في برنامج وأعطائي الدالة بسررررررررعه - البجيدي123 - 14-08-13

برنامج خاص للمصنع الالومنيوم