كيف يمكن تجزئة رقم طويل الى اجزائه؟

[mzaad]

بسم الله الرحمن الرحيم
اخوتي :
نطلب مساعدتكم في معرفة طريقة تجزئة رقم طويل الى اجزائه مثلا :
اذا كان عندي الرقم الطويل 123456789
واريد تجزئته الى ارقامه وهي :
1 ، 2 ، 3 ، 4 ، 5 ، 6 ، 7 ، 8 ، 9
واجراء عملية على كل رقم على حده .
1
2
3
4
5
6
7
8
9

فهل من له خبرة يعرف الدالة او المصفوفة التي تتعامل مع هذه الفكرة ...

ولكم جزيل الشكر والتقدير

[أبو هاجر الحلوة]

إذا كنت تعمل بالفجوال بيسك
إستعمل متغيرة نصية لاسترجاع العدد (مثلا الخاصية Text للأداة TextBox)
ثم استعمل حلقة For Next حدها الأعلى هو طول هذه المتغيرة ((Len(Text1.Text)
داخل هذه الحلقة قم باسترجاع مكونات العدد باستعمال الدالة Mid

Dim iChar as String * 1
Dim i as Integer
For i=1 To Len(Text1.Text)
iChar = Mid(Text1.Text,i,1)
Next i

[أبو هاجر الحلوة]

و لاجراء العمليات الحسابية على الأرقام المسترجعة إستعمل الدالة Val لتحويل المتغير النصي iChar إلى قيمة عددية.

[mzaad]

بارك الله فيك اخي أبو هاجر الحلوة على سرعة ردك ..... والمعذرة على التأخر في تصفح الموضوع ...
نعم مثل ما قلت في ردك هذه هي الطريقة ولك مني دعوة صالحة بظهر الغيب ....

فبارك الله فيك وفي فيك وفي كل ما فيك من خير .............