نور محمود قام بنشر مايو 26, 2012 قام بنشر مايو 26, 2012 تصميم فورم خزنه بالفئات يضرب ويجمع ويرحل لشيبت اكسيل باسم كل مودع اسم المودع ....... التاريخ 200 0 100 0 50 0 20 0 10 0 5 0 1 0 0.5 0 0.25 0 اجمالى المبلغ 0
نور محمود قام بنشر مايو 26, 2012 الكاتب قام بنشر مايو 26, 2012 طيب سؤال لاهل الخبره ف المنتدى هل الفورم واقعى يعنى ينفع يتنفذ ولا مستحيل ؟
طارق محمود قام بنشر مايو 27, 2012 قام بنشر مايو 27, 2012 السلام عليكم أخي الكريم هل الفورم واقعى يعنى ينفع يتنفذ ولا مستحيل ؟ الفورم بسيط إن شاء الله لكن مطلوب منك أن ترفق مثال لما تتخيله مثلا : شكل تصميم فورم أيضا : الشيبت الاكسيل المرحل إليه باسم المودع
نور محمود قام بنشر مايو 27, 2012 الكاتب قام بنشر مايو 27, 2012 مرفق مثال للتخيل لشكل الفورم وشاكر جدا للتعاون وجزاك الله خيرا فورم خزنه .rar
طارق محمود قام بنشر مايو 27, 2012 قام بنشر مايو 27, 2012 السلام عليكم مرفق محاولة بدائية للتسهيل علي من أراد التدخل من باقي الزملاء لضيق وقتي فورم خزنه.rar 1
أيو خديجة و حنين قام بنشر مايو 27, 2012 قام بنشر مايو 27, 2012 السلام عليكم بعد اذن اخي : الاستاذ طارق هذه محاولة اخرى رغم انني لم اعرف كيفية الحصول على بعض المبالغ في الملف الرفق المهم انها محاولة فورم خزنه .rar
نور محمود قام بنشر مايو 30, 2012 الكاتب قام بنشر مايو 30, 2012 طيب ممكن الكود الى بيضرب العدد فى الفئه
طارق محمود قام بنشر مايو 30, 2012 قام بنشر مايو 30, 2012 السلام عليكم طيب ممكن الكود الى بيضرب العدد فى الفئه موجود داخل الفورم في مشاركتي السابقة
نور محمود قام بنشر مايو 30, 2012 الكاتب قام بنشر مايو 30, 2012 انا مش عارف هوا انهى كود فيهم لو امكن ممكن شرح للاكواد االموجوده ف الفورم
طارق محمود قام بنشر مايو 31, 2012 قام بنشر مايو 31, 2012 السلام عليكم من محرر الفيجول بيزيك ، استدع الفورم إضغط دبل كليك علي أي من الأزرار الصفراء (المخصصة لعدد الأوراق النقدية من الفئات المختلفة) وليكن 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 تساوي النسبة المئوية لفئة الخمسة جنيهات
نور محمود قام بنشر مايو 31, 2012 الكاتب قام بنشر مايو 31, 2012 جزاك الله خيرا وبارك الله فيك وباذن الرحمن كل ما اخلص حاجه ف الفورم هعملها ابلود عشان تشوفها ولو فيه حاجه احتجتها هبقى اسالك عليها وبورك فيك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.