منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - افيدوني جزاكم الله خيرا كود حساب أصناف معينه

الصفحات : 1 2 3

(05-07-22, 09:00 AM)سعود كتب : [ -> ]
(05-07-22, 08:20 AM)أبو خالد الشكري كتب : [ -> ]المشكلة لما يكون أكثر من عنصرين مجموعهما 20

يعني عرفت تشغل المشروع ؟
هي فكرة وممكن تغيرها مثل ماتريد.

لا ما اشتغل
لكن أحاول أنزل فيجوال 2010 وأنصبه في كمبيوتر آخر
علشان أقدر أشوف المشاريع المنفذة بهذا الإصدار .

افتح الفورم ببرنامج Note++ او Note Pad و انسخ الكود الموجود و ضعه في مثال جديد و جربه هذا اسهل اسرع من ان تنصب فيجوال استديو .

الجدول الاول اسمه : d
الجدول الثاني اسمه : d2

صندوق نص اسمه TextBox1
زر اسمه : Button1
ليبل اسمه : Lbl
--------------------------------------
أعمدة الجدول الأول :
1- الاسم : tname - العنوان : Name
2- الاسم : tprise - العنوان : Price
---------------------------------------
أعمدة الجدول الثاني :
1- الاسم : DataGridViewTextBoxColumn1 - العنوان : Name
2- الاسم : DataGridViewTextBoxColumn2 - العنوان : Price
---------------------------------------
الكود الموجود :

PHP كود :

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        d.Rows.Add("book", 2)
        d.Rows.Add("plane", 30)
        d.Rows.Add("pc", 60)
        d.Rows.Add("bike", 44)
        d.Rows.Add("car", 18)
        Randomize()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim selv As Integer = Val(TextBox1.Text)
        For r As Integer = 0 To 100
            lbl.Text = r
            '  On Error Resume Next'
            Dim i1 As Integer = Int(Rnd() * d.Rows.Count)
            Dim i2 As Integer = Int(Rnd() * d.Rows.Count)
            If i1 < 0 Then i1 = 0
            If i2 < 0 Then i2 = 0
            ''  MsgBox(i1 & vbNewLine & i2)
            Dim rowv1 As Integer = Val(d.Rows(i1).Cells(1).Value)
            Dim rowv2 As Integer = Val(d.Rows(i2).Cells(1).Value)

            If (rowv1 + rowv2) = selv Then
                d2.Rows.Add(d.Rows(i1).Cells(0).Value, d.Rows(i1).Cells(1).Value)
                d2.Rows.Add(d.Rows(i2).Cells(0).Value, d.Rows(i2).Cells(1).Value)

                Exit For
                Exit Sub
            End If
        Next
    End Sub 

شكرا جزيلا لك أخي العزيز asemshahen5 على مداخلتك واقتراحك الرائع
بارك الله فيك .

[attachment=27958]

(05-07-22, 02:02 AM)سعود كتب : [ -> ]

يااااااااااااااسلاااااااااااام

مخخخخخخخخخ

ههههههههههه

ابشرك عرفت الحل

هذا من فضل الله ثم المكوث مع سي++ حول اسبوعين او اكثر خلالها حذفت السي++ مرتين او اكثر واعيد التحميل والتثبيت

السلام عليكم ورحمة الله وبركاته
اخى سعود جعلة الله فى ميزان حساناتك ورحم الله والديك والمسلمين اجمعين
....................................................................................................
اخى قمت بوضع اربعة اصناف جدد يساوي مبلغهم 40
عندى سؤال عند وضع اربع اصناف = مبلغ 40 لايقوم بحسابهم
مرفق لك صورة ما اريدة

(05-07-22, 01:58 AM)أبو خالد الشكري كتب : [ -> ]أنا أرى أن الطلب معقد شوية
لأنه حتى عسل 15 + جبنة 5 =20
وأيضا بيض 16 + زيت 4 = 20
وأيضا فول 9 + مربى 11 = 20
وأيضا سكر 12 + مخلل 8 = 20

حاولت ، ولم أجد حلا لهذه المشكلة !

اخى أبو خالد الشكري جزاك الله خير ورحم والديك والمسلمين اجمعين
شكرا لتعبك ومحاولتك الحل

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

ذكرتني بأيام الجامعة (رجعتنا سنين بالذاكرة)، بعد ما نشتري يزود كم ليرة لنا عند البائع
يقول البائع ترا ما معي خردة حتى أرجع لك الباقي، خلهن للمرة التالية
بنخاف ننسى : فـ بنطلب بدلهن أظرف شامبوا أو أظرف شاي ..
=========
معقول فيه حد بيطلب بضاعة بدون ما يعرف شو هن ولكن المهم عنده يسكر الحساب ؟؟؟

(05-07-22, 04:52 PM)Taha Okla كتب : [ -> ]السلام عليكم ورحمة الله وبركاته

ذكرتني بأيام الجامعة (رجعتنا سنين بالذاكرة)، بعد ما نشتري يزود كم ليرة لنا عند البائع
يقول البائع ترا ما معي خردة حتى أرجع لك الباقي، خلهن للمرة التالية
بنخاف ننسى : فـ بنطلب بدلهن أظرف شامبوا أو أظرف شاي ..
=========
معقول فيه حد بيطلب بضاعة بدون ما يعرف شو هن ولكن المهم عنده يسكر الحساب ؟؟؟

وعليكم السلام ورحمة الله وبركاته
مرحبا اخى Taha Okla
يوجد فى منظومة التموين عندنا فى مصر أصناف بأسعار ثابتة حوالى
25 صنف يأتى
الفرد عنده بطاقة دعم له مبلغ 200 جنيه والمفروض ان تدخل له أصناف من اللى موجودة أصناف تساوى 200 جنيه فقط لا زيادة
ولا نقص ارجو ان اكون وصلت لك الفكره اخى

الآن فهمت عليك .. تقصد بطاقة الدعم وما شابهها.

بالفعل فكرة جيدة
والشباب هنا تشكر جهودهم..
ولكن لازالت الاكواد المطروحة غير مجدية فعلياً (إلا إذا كان فقط المسموح صرف صنفين فقط).

لأنه قد يكون هناك ثلاثة أصناف أو أربعة تساوي المجموع المطلوب.
وهنا أقترح عليك أن تعتمد على فكرة التراتيب لصنع مصفوفة(ثنائية الأعمدة أو أكثر) تساوي المجموع لعدة أصناف
والبرنامج يبحث عن المجموع المطلوب فإذا وجد عرف ما هي العناصر التي جمعت منها من خلال المصفوفه أو خلال جدول مؤقت في قاعدة البيانات.

فكرة التراتيب هي :
1 - فرديات : أن تضع العناصر كما هي في المصفوفة.
2 - ثنائيات : 1 - أن تجمع العنصر الأول مع الثاني وتضيفه للمصفوفة، ثم الأول مع الثالث وتضيفه للمصفوفه ،، وهكذا حتى النهاية.
2 - ثم تجمع العنصر الثاني مع العنصر الثالث وتضيفه للمصفوفه، ثم تجمع العنصر الثاني مع الرابع وتضيفه للمصفوفه ... حتى النهاية.
3 - وهكذا حتى تنتهي من الكل.
3 - ثم ثلاثيات ثم رباعيات ... حتى تصل لمجموع الكل..
===================================
في البحث تبحث عن المجموع ،،
ولكن في العمود الأول تضع فيه المجاميع،، وفي العمود الثاني رقم العنصر أو العناصر أو اسماء العناصر التي شكلت المجموع.

فتصل للنتيجة بأسرع من لمح البصر ومهما كان عدد العناصر المكون للمجموع ..

(05-07-22, 05:18 PM)Taha Okla كتب : [ -> ]الآن فهمت عليك .. تقصد بطاقة الدعم وما شابهها.

بالفعل فكرة جيدة
والشباب هنا تشكر جهودهم..
ولكن لازالت الاكواد المطروحة غير مجدية فعلياً (إلا إذا كان فقط المسموح صرف صنفين فقط).

لأنه قد يكون هناك ثلاثة أصناف أو أربعة تساوي المجموع المطلوب.
وهنا أقترح عليك أن تعتمد على فكرة التراتيب لصنع مصفوفة(ثنائية الأعمدة أو أكثر) تساوي المجموع لعدة أصناف
والبرنامج يبحث عن المجموع المطلوب فإذا وجد عرف ما هي العناصر التي جمعت منها من خلال المصفوفه أو خلال جدول مؤقت في قاعدة البيانات.

فكرة التراتيب هي :
1 - فرديات : أن تضع العناصر كما هي في المصفوفة.
2 - ثنائيات : 1 - أن تجمع العنصر الأول مع الثاني وتضيفه للمصفوفة، ثم الأول مع الثالث وتضيفه للمصفوفه ،، وهكذا حتى النهاية.
2 - ثم تجمع العنصر الثاني مع العنصر الثالث وتضيفه للمصفوفه، ثم تجمع العنصر الثاني مع الرابع وتضيفه للمصفوفه ... حتى النهاية.
3 - وهكذا حتى تنتهي من الكل.
3 - ثم ثلاثيات ثم رباعيات ... حتى تصل لمجموع الكل..
===================================
في البحث تبحث عن المجموع ،،
ولكن في العمود الأول تضع فيه المجاميع،، وفي العمود الثاني رقم العنصر أو العناصر أو اسماء العناصر التي شكلت المجموع.

فتصل للنتيجة بأسرع من لمح البصر ومهما كان عدد العناصر المكون للمجموع ..

مرحبا اخى Taha Okla لو فى إمكانية أن تعمل المشروع مثل ماقلت
فى ردك وترفعة اكون شاكر لان اخوك مبتدأ فى الفيجوال بيسك

هذا البرنامج بالرغم من بساطة فكرته فإنه يحتاج لوقت وتركيز عالي
كي لا تتكرر حالات الادخال ..
وبسبب وقت العمل والالتزامات
بمجرد ما تتوفر لي الفرصة سأعمله بإذن الله ..
لكن هل مهم لديك أن يكون بلغة (VB.Net) ؟؟
فنحن الجيل القديم لازلنا نفضل العمل على VB6.0 ونشعر بأنها أسهل وأبسط ..
فقد تشعب فينا لدرجة أننا لا نستطيع نسيانة بالرغم من أنها أصبحت تنقرض مع التقدم بإصدارات الويندوز.

أنا أيصا من محبي VB6
وصممت بها برامج متواضعة
ولكنها خدمتني كثيرا .
وما زلت إلى الآن أجمع الأكواد المهمة لها في برنامجي الخاص الذي صممته لتجميع أكواد VB6 وأكواد VB.NET

الصفحات : 1 2 3

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

أبو خالد الشكري

asemshahen5

أبو خالد الشكري

abo ragab

Taha Okla

abo ragab

Taha Okla

abo ragab

Taha Okla

أبو خالد الشكري