تقييم الموضوع :
  • 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]

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] مطلوب الاكواد التالية حفظكم الله .. pro-ye 5 163 21-06-16, 03:04 AM
آخر رد: Amir_alzubidy
  [سؤال] اسئله في غاية الاهميه بارك الله فيكم الخثعمي 1 472 26-04-15, 01:53 PM
آخر رد: abulayth
  الله يوفقكم ساعدوني ، ابغى ابرمج برنامج .. صغير Lover programming 6 757 21-08-13, 01:05 PM
آخر رد: ahmed3d
  طلب من ذوي الخبرة جزاكم الله كل خير أبوسائد 5 578 09-08-13, 09:06 PM
آخر رد: أبوسائد
  تعديل على الكود جزاكم الله الجنه samee119485r 16 1,810 14-06-13, 02:01 PM
آخر رد: samee119485r
  طلب مساعدة من اعضاء المنتدى جزاكم الله خيرا AHMED213 0 376 19-05-13, 10:30 PM
آخر رد: AHMED213
  مساعدة فى عمل برنامج ارسال رسائل ارجو الدخول جزاكم الله خيرا مسلم 11 1,262 18-03-13, 11:54 PM
آخر رد: عبدالله الصافي

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


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