السلام عليكم ورحمة الله وبركاته
الرجاء المساعدة في استفسارين
الأول : كيف أظهر رساله خطأ في حالة كتابة أقل من 10 أرقام أو حروف في التكست بوكس
الثاني: كيف أضيف رقم صفر على يسار الناتج في حالة إذا كان الناتج أقل من رقمين على سبيل المثال إذا كان الناتج هو 99 فكيف أجبر البرنامج على جعله 099
ولكم جزيل الشكر
إلى متى نظل عاجزين عن الإبداع في عالم البرمجة[وسط][/وسط]
بالنسبة للسؤال الاول هذا هو الكود
If IsNumeric(Val(Text1.Text)) = False Then MsgBox "Enter Number" If Len(Text1.Text) < 10 Then MsgBox "Less than 10 digits"
و السؤال الثاني
If IsNumeric(Val(Text1.Text)) = True And Len(Text1.Text) = 2 Then Text1.Text = "0" & Text1.Text If IsNumeric(Val(Text1.Text)) = True And Len(Text1.Text) = 1 Then Text1.Text = "00" & Text1.Text
من قال لا إله إلا الله صادقا دخل الجنة
موقعي للتعارف و تبادل الأخبار http://www.xybond.com
السؤال الثانى ممكن بطريقة ثانية
With Text1
.Text = Format(.Text, "000")
End With
عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :
( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )
رواه الطبراني في الكبير
ان اجــمل الزهـــــــــــر مانـــــبت بحــــــــدائق الاحـــــــــــــــزان
Eng. Mohammed Salah
هذا الموضوع مغلق.