فورم خزنه

[نور محمود]

تصميم فورم خزنه بالفئات يضرب ويجمع ويرحل لشيبت اكسيل باسم كل مودع

اسم المودع ....... التاريخ 200 0 100 0 50 0 20 0 10 0 5 0 1 0 0.5 0 0.25 0 اجمالى المبلغ 0

[نور محمود]

طيب سؤال لاهل الخبره ف المنتدى

هل الفورم واقعى يعنى ينفع يتنفذ ولا مستحيل ؟

[طارق محمود]

السلام عليكم

أخي الكريم

هل الفورم واقعى يعنى ينفع يتنفذ ولا مستحيل ؟

الفورم بسيط إن شاء الله

لكن مطلوب منك أن ترفق مثال لما تتخيله

مثلا : شكل تصميم فورم

أيضا : الشيبت الاكسيل المرحل إليه باسم المودع

[نور محمود]

مرفق مثال للتخيل لشكل الفورم وشاكر جدا للتعاون وجزاك الله خيرا

فورم خزنه .rar

[طارق محمود]

السلام عليكم

مرفق محاولة بدائية

للتسهيل علي من أراد التدخل من باقي الزملاء لضيق وقتي

فورم خزنه.rar

[أيو خديجة و حنين]

السلام عليكم

بعد اذن اخي : الاستاذ طارق

هذه محاولة اخرى رغم انني لم اعرف كيفية الحصول على بعض المبالغ في الملف الرفق

المهم انها محاولة

فورم خزنه .rar

[نور محمود]

طيب ممكن الكود الى بيضرب العدد فى الفئه

[طارق محمود]

السلام عليكم

طيب ممكن الكود الى بيضرب العدد فى الفئه

موجود داخل الفورم في مشاركتي السابقة

[نور محمود]

انا مش عارف هوا انهى كود فيهم

لو امكن ممكن شرح للاكواد االموجوده ف الفورم

[طارق محمود]

السلام عليكم

من محرر الفيجول بيزيك ، استدع الفورم

إضغط دبل كليك علي أي من الأزرار الصفراء (المخصصة لعدد الأوراق النقدية من الفئات المختلفة) وليكن TextBox1

سينتقل بك المحرر الي الكود المصاحب لأي تغيير في هذا الزر

ستجد الكود كالتالي

Private Sub TextBox1_Change()


s = TextBox1.Value

If s > 100 Then s1 = Int(s / 100): Sheet1.[R1] = Sheet1.[R1] + s1 * TextBox11.Value

If Int(s) <> s Then TextBox1.BackColor = 2

Call T_Calc


End Sub

وشرح بسرعة للكود يعطي قيمة الزر للمتغير s ثم يسأل إذا كانت s أكبر من 100 فيعطي عدد الرزمات {Int {s / 100 للمتغير s1 وفي نفس الوقت يستخدم الخلية R1 لإجمالي قيمة الرزمات (باللهجة المصري : رزمة أي باكو 100 ورقة نقدية) بمعني : عند تفعيل الفورم يجعل قيمة الخلية R1 = صفر ، ثم عند تغيير أي من الأزرار الصفراء TextBox1 : TextBox9 (المخصصة لعدد الأوراق النقدية من الفئات المختلفة) عند التغيير في أي منها يتم التسجيل في الخلية R1 بالإضافة إلي ماكان فيها ، قيمة عدد الرزمات × قيمة الفئة المقابلة وفي نفس الوقت يتم تغيير لون الزر المستخدم وفي آخر الكود تجد أنه يستدعي كود آخر اسمه T_Calc وذلك بالأمر Call T_Calc وهذا الكود T_Calc ستجده كالتالي

Sub T_Calc()

TextBox10.Value = TextBox1.Value * TextBox11.Value + TextBox2.Value _

* TextBox12.Value + TextBox3.Value * TextBox13.Value + TextBox4.Value _

* TextBox14.Value + TextBox5.Value * TextBox15.Value + TextBox6.Value _

* TextBox16.Value + TextBox7.Value * TextBox17.Value + TextBox8. _

Value * TextBox18.Value + TextBox9.Value * TextBox19.Value


TextBox21.Value = Sheet1.[R1] * 100

TextBox22.Value = TextBox10.Value - TextBox21.Value

If TextBox10.Value = 0 Then TextBox23.Value = "0%" Else TextBox23.Value = Format(5 * TextBox6.Value / TextBox10.Value, "0.00 %")

End Sub

وشرح بسرعة أيضا للكود ، مع طوله فهو مكون من 4 سطور

السطر الأول طويل وفي يتم تجميع حاصل ضرب كل عدد × الفئة المقابلة له ووضع النتيجة في الزر TextBox10

ثم جعل الزر TextBox21 يساوي قيمة الخلية R1 مضروبا في 100 لتجميع قيمة البواكي (الرزمات)

ثم جعل الزر TextBox22 قيمة الزر TextBox20 - الزر TextBox21 لتجميع قيمة الفكة به

وفي الأخير جعل الزر TextBox23 تساوي النسبة المئوية لفئة الخمسة جنيهات

[نور محمود]

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

وبورك فيك