المشاركات : 351
المواضيع 130
الإنتساب : Sep 2013
السمعة :
15
الشكر: 291
تم شكره 236 مرات في 105 مشاركات
13-03-19, 03:49 PM
اريد حساب تطبيق المعادله الحسابيه الموجوده في ملف الاكسل وتطبيقها على الفيجوال دوت نت كماهو مرفق وموضح لكم اتمنى المساعده في اقرب وقت ممكن شاكراً تعاون الجميع سلفاً في هذا المنتدى التعليمي المفيد للجميع .
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
المشاركات : 100
المواضيع 0
الإنتساب : Mar 2019
السمعة :
17
الشكر: 0
تم شكره 109 مرات في 75 مشاركات
13-03-19, 06:03 PM
(آخر تعديل لهذه المشاركة : 14-03-19, 01:49 AM {2} بواسطة 5000.)
أضف الكود التالي في الفورم
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
المشاركات : 351
المواضيع 130
الإنتساب : Sep 2013
السمعة :
15
الشكر: 291
تم شكره 236 مرات في 105 مشاركات
13-03-19, 11:31 PM
(آخر تعديل لهذه المشاركة : 13-03-19, 11:47 PM {2} بواسطة محمد مسافر.)
شكراً
في ملاحظه في خطاء في العمليه الحسابيه الثانيه المفترض والصحيح تكون العمليه الحسابيه كمافي الشكل المرفق.
هل ممكن تكون العمليه الحسابيه مباشره تطلع القيمه من غير الحاجه الى استخدام الـ Button
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
المشاركات : 100
المواضيع 0
الإنتساب : Mar 2019
السمعة :
17
الشكر: 0
تم شكره 109 مرات في 75 مشاركات
14-03-19, 01:42 AM
(آخر تعديل لهذه المشاركة : 14-03-19, 01:52 AM {2} بواسطة 5000.)
تم التصحيح في السطر (كان الخطأ في علامة [+] وتم استبدالها بـ [-] )
Dim D7 = A6 - C7 ' sec pk: D7
تم إضافة الحساب التلقائي أثناء تغيير القيمة المدخلة في كل من الأدوات التالية:
ComboBox2
ComboBox3
TextBox3
TextBox8
المشاركات : 351
المواضيع 130
الإنتساب : Sep 2013
السمعة :
15
الشكر: 291
تم شكره 236 مرات في 105 مشاركات
(14-03-19, 01:42 AM)5000 كتب : تم التصحيح في السطر (كان الخطأ في علامة [+] وتم استبدالها بـ [-] )
Dim D7 = A6 - C7 ' sec pk: D7
تم إضافة الحساب التلقائي أثناء تغيير القيمة المدخلة في كل من الأدوات التالية:
ComboBox2
ComboBox3
TextBox3
TextBox8
شكراً يااخي
العمليه الحسابيه الان صحيحه شكراً لك فقط تبقى عمليه الحساب التلقائي اثناء القيم المدخله في خانه الـ Used تظهر القيمه مباشره في Remaining
جربت من جهتي مامشي الحال ممكن توضيح على التطبيق .
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
المشاركات : 100
المواضيع 0
الإنتساب : Mar 2019
السمعة :
17
الشكر: 0
تم شكره 109 مرات في 75 مشاركات
ذكرت لك في مشاركتي السابقة انني قمت بتصحيح الخطأ في الكود الموجود في أول مشاركة لي مع إضافة الحساب التلقائي
ارجع مشاركتي الأولى وانسخ الكود كاملا وضعه في الفورم والتي تشمل الحساب التلقائي أثناء تغيير القيمة المدخلة في كل من الأدوات التالية:
ComboBox2
ComboBox3
TextBox3
TextBox8
وهي Main وUsed لكلا المعادلتين