بسم الله الرحمن الرحيم
الاخوة الافاضل :
كيف يمكن اظهار عدد اصفار في تكست txtB بناء علي الرقم في txtA بحيث اذا كان الرقم في txtA ينحصر بين 1: 9 يعطي عدد الاصفار 7 في txtB واذا كان الرقم ينحصر بين 10: 99 يعطي عدد الاصفار6 واذا كان الرقم ينحصر بين 100 :999 يعطي عدد الاصفار 5 .
السلام عليكــم ورحمـة الله وبركاتــه ،،
لاتأسفن علي غدر الزمان لطـــــالما رقصت علي حثث الأســـــود كلاب
لاتحسبن برقصها تعلو علي أسادها تبقي الأسود أسودا والكلاب كلاب
استعمل جملة SELECT CASE
تلبي المطلوب..
همام
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
بســم الله الـرحمــن الرحيــم
اخي الفاضل همام اشكر علي التفضل بالمشاركة
وبالفعل قمت باستخدام جملة select case ولكن المشكلة التي تواجهني انه يعطي صفر واحد فقط
ارجو التعديل علي المرفق
السلام عليكــم ورحمـة الله وبركاتــه ،،
لاتأسفن علي غدر الزمان لطـــــالما رقصت علي حثث الأســـــود كلاب
لاتحسبن برقصها تعلو علي أسادها تبقي الأسود أسودا والكلاب كلاب
اه ه
عفوا
استخدم علامة التنصيص "الاقتباس" وهي " "
تفضل ها هو الكود الذي جربته وتم المطلوب 100%
Private Sub Command4_Click() Select Case Me.txtA Case 1 To 9 Me.txtB = "0000000" Case 10 To 99 Me.txtB = "000000" Case 100 To 999 Me.txtB = "00000" Case elese: Me.txtB = "1" End Select End Sub
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
بســم الله الـرحمــن الرحيــم
تم تجربة الكود بنجاح
كل الشكر اخي الفاضل همام
السلام عليكــم ورحمـة الله وبركاتــه ،،
لاتأسفن علي غدر الزمان لطـــــالما رقصت علي حثث الأســـــود كلاب
لاتحسبن برقصها تعلو علي أسادها تبقي الأسود أسودا والكلاب كلاب
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…