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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع nourmandour 13 214 14-05-17, 06:03 PM
آخر رد: nourmandour
  برنامج مواقيت الصلاة لشهر رمضان لولاية بسكرة عبد الرحمان البسكري 4 136 09-05-17, 09:45 PM
آخر رد: Ratchinko
  اريد المساعدة في عمل برنامج مواقيت الصلاة نوراني 1 55 03-05-17, 09:34 AM
آخر رد: Ahmed_Mansoor
  السؤال عن برنامج تسطيب عبد الرحمان البسكري 1 45 03-05-17, 12:17 AM
آخر رد: Ahmed_Mansoor
  [سؤال] برجاء المساعدة - كيفية عمل صفحة التعريف بالبرنامج عبد الرحمن على 11 184 30-04-17, 01:20 AM
آخر رد: عبد العزيز البسكري
  برنامج مكافح الفيرس يعترض ملف exe عند بداية تشغيله عبد الرحمن على 8 153 26-04-17, 10:27 PM
آخر رد: عبد الرحمن على
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 9 197 15-04-17, 04:13 AM
آخر رد: sendbad100
  [سؤال] ارجو المساعدة في تقسيم الارقام VB.NET 4 144 14-02-17, 05:32 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] طلب برنامج عرض اجهزة الشبكه f16 1 254 21-01-17, 06:35 PM
آخر رد: Ashraf Elafify
  اعادة نشر برنامج لتصفح المصحف الكريم مفتوح المصدر a_senan 4 851 07-01-17, 09:06 PM
آخر رد: Ashraf Elafify

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


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