+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] افيدوني جزاكم الله خيرا كود حساب أصناف معينه (/showthread.php?tid=41848)
RE: افيدوني جزاكم الله خيرا كود حساب أصناف معينه - أبو خالد الشكري - 05-07-22
(05-07-22, 09:00 AM)سعود كتب :(05-07-22, 08:20 AM)أبو خالد الشكري كتب : المشكلة لما يكون أكثر من عنصرين مجموعهما 20
يعني عرفت تشغل المشروع ؟
هي فكرة وممكن تغيرها مثل ماتريد.
لا ما اشتغل
لكن أحاول أنزل فيجوال 2010 وأنصبه في كمبيوتر آخر
علشان أقدر أشوف المشاريع المنفذة بهذا الإصدار .
RE: افيدوني جزاكم الله خيرا كود حساب أصناف معينه - asemshahen5 - 05-07-22
افتح الفورم ببرنامج 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
RE: افيدوني جزاكم الله خيرا كود حساب أصناف معينه - أبو خالد الشكري - 05-07-22
شكرا جزيلا لك أخي العزيز asemshahen5 على مداخلتك واقتراحك الرائع
بارك الله فيك .
RE: افيدوني جزاكم الله خيرا كود حساب أصناف معينه - abo ragab - 05-07-22
[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
حاولت ، ولم أجد حلا لهذه المشكلة !
اخى أبو خالد الشكري جزاك الله خير ورحم والديك والمسلمين اجمعين
شكرا لتعبك ومحاولتك الحل
RE: افيدوني جزاكم الله خيرا كود حساب أصناف معينه - Taha Okla - 05-07-22
السلام عليكم ورحمة الله وبركاته
ذكرتني بأيام الجامعة (رجعتنا سنين بالذاكرة)، بعد ما نشتري يزود كم ليرة لنا عند البائع
يقول البائع ترا ما معي خردة حتى أرجع لك الباقي، خلهن للمرة التالية
بنخاف ننسى : فـ بنطلب بدلهن أظرف شامبوا أو أظرف شاي ..
=========
معقول فيه حد بيطلب بضاعة بدون ما يعرف شو هن ولكن المهم عنده يسكر الحساب ؟؟؟
RE: افيدوني جزاكم الله خيرا كود حساب أصناف معينه - abo ragab - 05-07-22
(05-07-22, 04:52 PM)Taha Okla كتب : السلام عليكم ورحمة الله وبركاته
ذكرتني بأيام الجامعة (رجعتنا سنين بالذاكرة)، بعد ما نشتري يزود كم ليرة لنا عند البائع
يقول البائع ترا ما معي خردة حتى أرجع لك الباقي، خلهن للمرة التالية
بنخاف ننسى : فـ بنطلب بدلهن أظرف شامبوا أو أظرف شاي ..
=========
معقول فيه حد بيطلب بضاعة بدون ما يعرف شو هن ولكن المهم عنده يسكر الحساب ؟؟؟
وعليكم السلام ورحمة الله وبركاته
مرحبا اخى Taha Okla
يوجد فى منظومة التموين عندنا فى مصر أصناف بأسعار ثابتة حوالى
25 صنف يأتى
الفرد عنده بطاقة دعم له مبلغ 200 جنيه والمفروض ان تدخل له أصناف من اللى موجودة أصناف تساوى 200 جنيه فقط لا زيادة
ولا نقص ارجو ان اكون وصلت لك الفكره اخى
RE: افيدوني جزاكم الله خيرا كود حساب أصناف معينه - Taha Okla - 05-07-22
الآن فهمت عليك .. تقصد بطاقة الدعم وما شابهها.
بالفعل فكرة جيدة
والشباب هنا تشكر جهودهم..
ولكن لازالت الاكواد المطروحة غير مجدية فعلياً (إلا إذا كان فقط المسموح صرف صنفين فقط).
لأنه قد يكون هناك ثلاثة أصناف أو أربعة تساوي المجموع المطلوب.
وهنا أقترح عليك أن تعتمد على فكرة التراتيب لصنع مصفوفة(ثنائية الأعمدة أو أكثر) تساوي المجموع لعدة أصناف
والبرنامج يبحث عن المجموع المطلوب فإذا وجد عرف ما هي العناصر التي جمعت منها من خلال المصفوفه أو خلال جدول مؤقت في قاعدة البيانات.
فكرة التراتيب هي :
1 - فرديات : أن تضع العناصر كما هي في المصفوفة.
2 - ثنائيات : 1 - أن تجمع العنصر الأول مع الثاني وتضيفه للمصفوفة، ثم الأول مع الثالث وتضيفه للمصفوفه ،، وهكذا حتى النهاية.
2 - ثم تجمع العنصر الثاني مع العنصر الثالث وتضيفه للمصفوفه، ثم تجمع العنصر الثاني مع الرابع وتضيفه للمصفوفه ... حتى النهاية.
3 - وهكذا حتى تنتهي من الكل.
3 - ثم ثلاثيات ثم رباعيات ... حتى تصل لمجموع الكل..
===================================
في البحث تبحث عن المجموع ،،
ولكن في العمود الأول تضع فيه المجاميع،، وفي العمود الثاني رقم العنصر أو العناصر أو اسماء العناصر التي شكلت المجموع.
فتصل للنتيجة بأسرع من لمح البصر ومهما كان عدد العناصر المكون للمجموع ..
RE: افيدوني جزاكم الله خيرا كود حساب أصناف معينه - abo ragab - 05-07-22
(05-07-22, 05:18 PM)Taha Okla كتب : الآن فهمت عليك .. تقصد بطاقة الدعم وما شابهها.مرحبا اخى Taha Okla لو فى إمكانية أن تعمل المشروع مثل ماقلت
بالفعل فكرة جيدة
والشباب هنا تشكر جهودهم..
ولكن لازالت الاكواد المطروحة غير مجدية فعلياً (إلا إذا كان فقط المسموح صرف صنفين فقط).
لأنه قد يكون هناك ثلاثة أصناف أو أربعة تساوي المجموع المطلوب.
وهنا أقترح عليك أن تعتمد على فكرة التراتيب لصنع مصفوفة(ثنائية الأعمدة أو أكثر) تساوي المجموع لعدة أصناف
والبرنامج يبحث عن المجموع المطلوب فإذا وجد عرف ما هي العناصر التي جمعت منها من خلال المصفوفه أو خلال جدول مؤقت في قاعدة البيانات.
فكرة التراتيب هي :
1 - فرديات : أن تضع العناصر كما هي في المصفوفة.
2 - ثنائيات : 1 - أن تجمع العنصر الأول مع الثاني وتضيفه للمصفوفة، ثم الأول مع الثالث وتضيفه للمصفوفه ،، وهكذا حتى النهاية.
2 - ثم تجمع العنصر الثاني مع العنصر الثالث وتضيفه للمصفوفه، ثم تجمع العنصر الثاني مع الرابع وتضيفه للمصفوفه ... حتى النهاية.
3 - وهكذا حتى تنتهي من الكل.
3 - ثم ثلاثيات ثم رباعيات ... حتى تصل لمجموع الكل..
===================================
في البحث تبحث عن المجموع ،،
ولكن في العمود الأول تضع فيه المجاميع،، وفي العمود الثاني رقم العنصر أو العناصر أو اسماء العناصر التي شكلت المجموع.
فتصل للنتيجة بأسرع من لمح البصر ومهما كان عدد العناصر المكون للمجموع ..
فى ردك وترفعة اكون شاكر لان اخوك مبتدأ فى الفيجوال بيسك
RE: افيدوني جزاكم الله خيرا كود حساب أصناف معينه - Taha Okla - 05-07-22
هذا البرنامج بالرغم من بساطة فكرته فإنه يحتاج لوقت وتركيز عالي
كي لا تتكرر حالات الادخال ..
وبسبب وقت العمل والالتزامات
بمجرد ما تتوفر لي الفرصة سأعمله بإذن الله ..
لكن هل مهم لديك أن يكون بلغة (VB.Net) ؟؟
فنحن الجيل القديم لازلنا نفضل العمل على VB6.0 ونشعر بأنها أسهل وأبسط ..
فقد تشعب فينا لدرجة أننا لا نستطيع نسيانة بالرغم من أنها أصبحت تنقرض مع التقدم بإصدارات الويندوز.
RE: افيدوني جزاكم الله خيرا كود حساب أصناف معينه - أبو خالد الشكري - 05-07-22
أنا أيصا من محبي VB6
وصممت بها برامج متواضعة
ولكنها خدمتني كثيرا .
وما زلت إلى الآن أجمع الأكواد المهمة لها في برنامجي الخاص الذي صممته لتجميع أكواد VB6 وأكواد VB.NET