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

الصفحات : 1 2

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

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

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

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

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

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

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

السلام عليكم

عندي استفسار

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

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

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

عندي استفسار

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

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

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

إقتباس :أو ممكن يكون رقمين أو ثلاثة أو عشرة بحيث ما يتعدى الرقم 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 

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

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

[/url]

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

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

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

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

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

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

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

وماهو برنامجك؟

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

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

البجيدي123

abulayth

البجيدي123

اسلام الكبابى

اسلام الكبابى

اسلام الكبابى

البجيدي123

البجيدي123

اسلام الكبابى

البجيدي123