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


اخواني ما هو بديل هذا الكود 
كود :
If LblDay.Caption = "1" Or LblDay.Caption = "2" Or LblDay.Caption = "3" Or LblDay.Caption = "4" Or LblDay.Caption = "5" Then

TxtTotal.Text = txtday.Text
txtdip.Text = txtlimday.Text

End If

حيث انه يجب ان يكون من 1 الى 29  انا كتبته الى رقم 5 للاختصار قليلا 
اي ان الكود طويل جدا 
كيف اقول بتغير الكود الى حلقة For Next

وشكرا جزيلا لكم
الرد }}}
تم الشكر بواسطة:
#2
(20-10-19, 11:42 AM)hannileo كتب : السلام عليكم ورحمة الله وبركاته 


اخواني ما هو بديل هذا الكود 
كود :
If LblDay.Caption = "1" Or LblDay.Caption = "2" Or LblDay.Caption = "3" Or LblDay.Caption = "4" Or LblDay.Caption = "5" Then

TxtTotal.Text = txtday.Text
txtdip.Text = txtlimday.Text

End If

حيث انه يجب ان يكون من 1 الى 29  انا كتبته الى رقم 5 للاختصار قليلا 
اي ان الكود طويل جدا 
كيف اقول بتغير الكود الى حلقة For Next

وشكرا جزيلا لكم

وعليكم السلام ورحمة الله وبركاته ،،

كود :
If LblDay.Caption > 0 Or LblDay.Caption < 30 Then

TxtTotal.Text = txtday.Text
txtdip.Text = txtlimday.Text

End If
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , hannileo , Amir_Alzubidy
#3
(20-10-19, 11:58 AM)حريف برمجة كتب :
(20-10-19, 11:42 AM)hannileo كتب : السلام عليكم ورحمة الله وبركاته 


اخواني ما هو بديل هذا الكود 
كود :
If LblDay.Caption = "1" Or LblDay.Caption = "2" Or LblDay.Caption = "3" Or LblDay.Caption = "4" Or LblDay.Caption = "5" Then

TxtTotal.Text = txtday.Text
txtdip.Text = txtlimday.Text

End If

حيث انه يجب ان يكون من 1 الى 29  انا كتبته الى رقم 5 للاختصار قليلا 
اي ان الكود طويل جدا 
كيف اقول بتغير الكود الى حلقة For Next

وشكرا جزيلا لكم

وعليكم السلام ورحمة الله وبركاته ،،

كود :
If LblDay.Caption > 0 Or LblDay.Caption < 30 Then

TxtTotal.Text = txtday.Text
txtdip.Text = txtlimday.Text

End If



شكرا لك استاذي الكريم 

لكن للاسف لم تنجح الطريقة 
 اصبحت اتجوز رقم 29 و30 .... الخ 

اعتقد انها بحلقة for next نجح اكثر 

وشكرا لك
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , حريف برمجة
#4
استبدل Or بــــ And

If LblDay.Caption > 0 And LblDay.Caption < 30 Then
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
#5
(20-10-19, 03:12 PM)حريف برمجة كتب : استبدل Or بــــ And

If LblDay.Caption > 0 And LblDay.Caption < 30 Then



شكرا لك استاذي الكريم الا اصبحت تعمل بشكل جيد بارك الله بك وجعلها في ميزان حسناتك
الرد }}}
تم الشكر بواسطة: حريف برمجة , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اختصار الكود حسب المثال المرفق abde6726 2 277 29-10-23, 11:00 AM
آخر رد: abde6726
  اختصار الكود حسب المثال المرفق abde6726 0 214 28-10-23, 05:01 PM
آخر رد: abde6726
Question [vb6.0] عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟ Microformt 1 269 25-10-23, 04:10 PM
آخر رد: Amir_Alzubidy
Question كيف يمكن تطوير هذا الكود نامل المساعدة ؟؟ Microformt 1 910 22-11-21, 07:51 PM
آخر رد: اسلام الكبابى
Question [vb6.0] هل يمكن تغير نوع خط Label من خلال الكود وكيف ذلك ؟؟ Microformt 2 1,049 10-10-21, 08:58 AM
آخر رد: Microformt
  [سؤال] مساعدة في عمل هذا الكود العبادي 2 11 2,958 09-09-21, 01:29 AM
آخر رد: اسلام الكبابى
Question [vb6.0] نامل المساعدة في هذا الكود المرفق إن امكن ذلك ؟؟ Microformt 3 1,261 23-05-21, 08:50 AM
آخر رد: Ahmed_Mansoor
  [سؤال] كيفيه البحث باستخدام الكود aboezzat84 1 1,205 28-12-20, 05:59 PM
آخر رد: sendbad100
  سوال اخوانى الاحباب ارجو المساعدة فى هذا الكود كي بورد ارقام mhareek 0 1,009 22-09-20, 09:04 PM
آخر رد: mhareek
Lightbulb [كود] كود لتأجيل تنفيذ الكود بدون Timer! Omar 6.0 1 2,095 19-08-20, 09:39 PM
آخر رد: Gfftfdeuoig c

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


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