تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود الله يجزيكم الخير
#1
السلام عليكم ورحمه الله وبركاته

اخباركم حبايبي عساكم بخير

ابي كود يجمع باكثر من تكست ويضرب برقم انا احدده في الكود واذا بغيت ازيد التكست كيف الطريقه

توضيح بالصور


الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

كود :
Dim Total As Double

Total = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)
Total = Total * 25
Text5.Text = Total

- كمل باقي التكستات إذا فيه أكثر ، أنا حطيت من واحد إلى أربعه كمثال .

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#3
إقتباس :ابي كود يجمع باكثر من تكست ويضرب برقم انا احدده في الكود واذا بغيت ازيد التكست كيف الطريقه
ياريت توضح مقصدك بمثال بالأرقام
مش ضرورى [SIZE=3]صورة
ولكن المهم مثال بالأرقام[/SIZE]
الرد }}}
تم الشكر بواسطة:
#4
الله يعطيكم الف الف عافيه
الرد }}}
تم الشكر بواسطة:
#5
[INDENT] على فكرة يا فيصل
أنا أرسلت لك مرفق بسيط فى موضوعك السابق (طلب سورس كود حسبه)
يعلمك أو يساعدك فى عملية التقريب التى كنت تسأل عنها
بشئ من التفصيل
افتحه وان شاء الله سينف[SIZE=3]عك كثيرآ
[/SIZE]


ان أعجبتك مشاركتي
Rolleyes ... فلا تنسى تقييمي Big Grin
[/INDENT]
الرد }}}
تم الشكر بواسطة:
#6
السلام عليكم
هذه أول مشاركة لي في هذا الصرح العظيم والذي أتمنى له طول العمر والنجاح المتواصل ، وبالمناسبة أشكر كل من ساهم ويساهم في إنجاح هذا العملاق إن شاء الله
بالنسبة لطلب أخينا الكريم اقترح عليه هذا الكود (قد يكون طويلا نوعا ما ) ولكن مع إدخال كل رقم في أي خانة يعطي النتيجة مباشرة
حيث: 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
[/align]

كما يمكنك باستعمال كود مبسط باستعمال كوموند 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]

أرجو أن يكون الموضوع مفهوما وتقبل تحياتي والسلام عليكم ورحمة الله
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم