منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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


اخواني ما هو بديل هذا الكود 

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

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

(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

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

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

(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 نجح اكثر 

وشكرا لك

استبدل Or بــــ And

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

(20-10-19, 03:12 PM)حريف برمجة كتب : [ -> ]استبدل Or بــــ And

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

شكرا لك استاذي الكريم الا اصبحت تعمل بشكل جيد بارك الله بك وجعلها في ميزان حسناتك