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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] معادله حسابيه (/showthread.php?tid=28993)

معادله حسابيه - محمد مسافر - 13-03-19

اريد حساب تطبيق المعادله الحسابيه الموجوده في ملف الاكسل وتطبيقها على الفيجوال دوت نت كماهو مرفق وموضح لكم اتمنى المساعده في اقرب وقت ممكن شاكراً تعاون الجميع سلفاً في هذا المنتدى التعليمي المفيد للجميع .

RE: معادله حسابيه - 5000 - 13-03-19

أضف الكود التالي في الفورم

Private Sub Text_TextChanged(sender As Object, e As EventArgs) _
Handles ComboBox2.TextChanged, ComboBox3.TextChanged, TextBox3.TextChanged, TextBox8.TextChanged
ccc()
End Sub

Private Sub ccc()
Dim A6 = Val(ComboBox2.Text) ' first pk: Main
Dim C6 = Val(TextBox3.Text) ' first pk: Used
Dim F6 = A6 - C6 ' first pk: Remaining
Dim H6 = F6 ' first pk: Carry Over

Dim A7 = Val(ComboBox3.Text) ' sec pk: Main
Dim B7 = A7 + H6 ' sec pk: B7
Dim C7 = Val(TextBox8.Text) ' sec pk: Used
Dim D7 = A6 - C7 ' sec pk: D7
Dim E7 = D7 + A7 ' sec pk: E7
Dim F7 = If(H6 = 0, D7, E7) ' sec pk: Remaining
Dim G7 = F7 - D7 ' sec pk: G7
Dim H7 = If(F7 >= A6, A6, F7) ' sec pk: Carry Over

TextBox4.Text = F6 ' first pk: Remaining
TextBox5.Text = H6 ' first pk: Carry Over

TextBox7.Text = F7 ' sec pk: Remaining
TextBox2.Text = H7 ' sec pk: Carry Over
End Sub

RE: معادله حسابيه - محمد مسافر - 13-03-19

شكراً
في ملاحظه في خطاء في العمليه الحسابيه الثانيه المفترض والصحيح تكون العمليه الحسابيه كمافي الشكل المرفق.

هل ممكن تكون العمليه الحسابيه مباشره تطلع القيمه من غير الحاجه الى استخدام الـ Button

RE: معادله حسابيه - 5000 - 14-03-19

تم التصحيح في السطر (كان الخطأ في علامة [+] وتم استبدالها بـ [-] )

Dim D7 = A6 - C7              ' sec pk: D7
تم إضافة الحساب التلقائي أثناء تغيير القيمة المدخلة في كل من الأدوات التالية:
ComboBox2
ComboBox3
TextBox3
TextBox8

RE: معادله حسابيه - محمد مسافر - 14-03-19

(14-03-19, 01:42 AM)5000 كتب : تم التصحيح في السطر (كان الخطأ في علامة [+] وتم استبدالها بـ [-] )

Dim D7 = A6 - C7              ' sec pk: D7
تم إضافة الحساب التلقائي أثناء تغيير القيمة المدخلة في كل من الأدوات التالية:
ComboBox2
ComboBox3
TextBox3
TextBox8
 شكراً يااخي

العمليه الحسابيه الان صحيحه شكراً لك فقط تبقى عمليه الحساب التلقائي اثناء القيم المدخله في خانه الـ Used تظهر القيمه مباشره في Remaining
جربت من جهتي مامشي الحال ممكن توضيح على التطبيق .

RE: معادله حسابيه - 5000 - 14-03-19

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

ارجع مشاركتي الأولى وانسخ الكود كاملا وضعه في الفورم والتي تشمل الحساب التلقائي أثناء تغيير القيمة المدخلة في كل من الأدوات التالية:
ComboBox2
ComboBox3
TextBox3
TextBox8

وهي Main وUsed لكلا المعادلتين