الأخوه الافاضل
ما هي دالة تجزئة رقم صحيح مثل 123456789 الي عدد 9 تكست بوكس كل تكست يأخذ رقم
انا وجد الدالة الخاصة بتجزئة النص ولم يفلح بحثي عن دالة الرقم
وشكراً للجميع
[ تمت الإجابة ]كيفية تجزئة رقم صحيح في التكست بوكس
السلام عليكم...
استعمل الدالة Mid.
إذا كان الرقم في مربع نص (TextBox) أو في متغير نصي فاعمل عليه مباشرة. مثلاً إذا كان الرقم في الخانة Text1 فسيكون الكود كالتالي:
- 'هي Mid صيغة الدالة
- ' Mid(string, start, length)
- Text2.Text = Mid(Text1.Text, 1, 1)
- Text3.Text = Mid(Text1.Text, 2, 1)
- Text4.Text = Mid(Text1.Text, 3, 1)
- Text5.Text = Mid(Text1.Text, 4, 1)
- ' ... إلخ
أما إذا كان الرقم محفوظاً في متغير رقمي (من النوع Long مثلاً) فقم بتحويله إلى String ثم استعمل الدالة Mid أيضاً. إذا فرضنا أن المتغير الرقمي اسمه MyNumber فسيكون الكود كالتالي:
- Dim MyNumberStr As String
- MyNumberStr = CStr(MyNumber)
- Text2.Text = Mid(MyNumberStr, 1, 1)
- Text3.Text = Mid(MyNumberStr, 2, 1)
- Text4.Text = Mid(MyNumberStr, 3, 1)
- Text5.Text = Mid(MyNumberStr, 4, 1)
- ' ... إلخ
ملاحظة: إذا كان عدد مربعات النص التي ستضع بها ألرقام المنفردة كثيراً فمن الأحسن أن تجعلها في مصفوفة مكونات (Control Array) ثم تستعمل حلقة For لتعبئتها بالأرقام، حيث سيكون الكود أقل بكثير.
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم
الاستاذ / najy_zl
مشرف قسم الديلفي وخبير فيجوال بيسك
شكراً لك وبارك الله فيك
اتمني من الجميع الاستفادة
تحياتي لك