18-05-13, 03:16 AM
18-05-13, 03:16 AM
18-05-13, 03:28 AM
السلام عليكم
- كمل باقي التكستات إذا فيه أكثر ، أنا حطيت من واحد إلى أربعه كمثال .
- تحياتي .
كود :
Dim Total As Double
Total = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)
Total = Total * 25
Text5.Text = Total
- كمل باقي التكستات إذا فيه أكثر ، أنا حطيت من واحد إلى أربعه كمثال .
- تحياتي .
18-05-13, 12:41 PM
إقتباس :ابي كود يجمع باكثر من تكست ويضرب برقم انا احدده في الكود واذا بغيت ازيد التكست كيف الطريقهياريت توضح مقصدك بمثال بالأرقام
مش ضرورى [SIZE=3]صورة ولكن المهم مثال بالأرقام[/SIZE]
19-05-13, 05:19 AM
الله يعطيكم الف الف عافيه
19-05-13, 07:07 PM
[INDENT] على فكرة يا فيصل
أنا أرسلت لك مرفق بسيط فى موضوعك السابق (طلب سورس كود حسبه)
يعلمك أو يساعدك فى عملية التقريب التى كنت تسأل عنها
بشئ من التفصيل
افتحه وان شاء الله سينف[SIZE=3]عك كثيرآ[/SIZE]
ان أعجبتك مشاركتي ... فلا تنسى تقييمي
[/INDENT]
أنا أرسلت لك مرفق بسيط فى موضوعك السابق (طلب سورس كود حسبه)
يعلمك أو يساعدك فى عملية التقريب التى كنت تسأل عنها
بشئ من التفصيل
افتحه وان شاء الله سينف[SIZE=3]عك كثيرآ[/SIZE]
ان أعجبتك مشاركتي ... فلا تنسى تقييمي
[/INDENT]
24-05-13, 12:37 PM
السلام عليكم
هذه أول مشاركة لي في هذا الصرح العظيم والذي أتمنى له طول العمر والنجاح المتواصل ، وبالمناسبة أشكر كل من ساهم ويساهم في إنجاح هذا العملاق إن شاء الله
بالنسبة لطلب أخينا الكريم اقترح عليه هذا الكود (قد يكون طويلا نوعا ما ) ولكن مع إدخال كل رقم في أي خانة يعطي النتيجة مباشرة
حيث: Text10 مخصص لوضع العدد المضروب فيه ( قابل للتغيير) أما Text9 فهي لإظهار النتيجة مباشرة
[/align]
كما يمكنك باستعمال كود مبسط باستعمال كوموند Command والكود في هذه الحالة يكون من سطرواحد فقط والنتيجة تظهر بعد الضغط على الكوموند
كما يمكنك أيضا الاستغناء عن الكوموند في حالة استعمال كل الخانات، اجعل الكود مرتبط بآخر خانة لإدخال الأعداد بحيث عند إدخال آخر رقم تظهر النتيجة مباشرة وبهذا تتجنب : 1- الكود الطويل السابق
2- عدم استعمال الكوموند
وبذلك يكون هذا أبسط كود في اعتقادي والله أعلم
أرجو أن يكون الموضوع مفهوما وتقبل تحياتي والسلام عليكم ورحمة الله
هذه أول مشاركة لي في هذا الصرح العظيم والذي أتمنى له طول العمر والنجاح المتواصل ، وبالمناسبة أشكر كل من ساهم ويساهم في إنجاح هذا العملاق إن شاء الله
بالنسبة لطلب أخينا الكريم اقترح عليه هذا الكود (قد يكون طويلا نوعا ما ) ولكن مع إدخال كل رقم في أي خانة يعطي النتيجة مباشرة
حيث: Text10 مخصص لوضع العدد المضروب فيه ( قابل للتغيير) أما Text9 فهي لإظهار النتيجة مباشرة
كود :
[align=left]Private Sub Text1_Change()
Text9 = Val(Text1) * Text10
End Sub
Private Sub Text2_Change()
Text9 = (Val(Text1) + Val(Text2)) * Text10
End Sub
Private Sub Text3_Change()
Text9 = (Val(Text1) + Val(Text2) + Val(Text3)) * Text10
End Sub
Private Sub Text4_Change()
Text9 = (Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4)) * Text10
End Sub
Private Sub Text5_Change()
Text9 = (Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5)) * Text10
End Sub
Private Sub Text6_Change()
Text9 = (Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5) + Val(Text6)) * Text10
End Sub
Private Sub Text7_Change()
Text9 = (Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5) + Val(Text6) + Val(Text7)) * Text10
End Sub
Private Sub Text8_Change()
Text9 = (Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5) + Val(Text6) + Val(Text7) + Val(Text8)) * Text10
End Sub
كما يمكنك باستعمال كود مبسط باستعمال كوموند Command والكود في هذه الحالة يكون من سطرواحد فقط والنتيجة تظهر بعد الضغط على الكوموند
كود :
[align=left]Private Sub Command1_Click()
Text9 = (Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5) + Val(Text6) + Val(Text7) + Val(Text8)) * Text10
End Sub[/align]
كما يمكنك أيضا الاستغناء عن الكوموند في حالة استعمال كل الخانات، اجعل الكود مرتبط بآخر خانة لإدخال الأعداد بحيث عند إدخال آخر رقم تظهر النتيجة مباشرة وبهذا تتجنب : 1- الكود الطويل السابق
2- عدم استعمال الكوموند
وبذلك يكون هذا أبسط كود في اعتقادي والله أعلم
كود :
[align=left]Private Sub Text8_Change()
Text9 = (Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5) + Val(Text6) + Val(Text7) + Val(Text8)) * Text10
End Sub[/align]
أرجو أن يكون الموضوع مفهوما وتقبل تحياتي والسلام عليكم ورحمة الله