[asto]

اعطنا مثال على 2568 بالحالتين

---

على العموم تكتب ضمن كوماند

كود :

text2.text=""
ReDim f(27) As String
ReDim ff(27) As Integer
f(0) = "ا"
ff(0)=1
f(1)="ب"
ff(1)=2
اكمله حتى f(27)="غ"
ff(27)=1000

dim x as Integer

x=text1.text/1000

dim y as Integer

y=text1.text/100
a=text1.text-(1000*x)

dim z as Integer

z=text1.text/10
aa=text1.text-(1000*x)-(100*y)

dim zz as Integer

zz=text1.text-(1000*x)-(100*y)-(10*z)

ثم كيف تستعمله

كود :

for i=0 to 27
if ff(i)= x  then
q=f(i)

text2.text= q
endif
if ff(i)= y then
q=f(i)

text2.text= text2.text & q
endif
if ff(i)= z then
q=f(i)

text2.text= text2.text & q
endif
if ff(i)= zz then
q=f(i)

text2.text= text2.text & q
endif

next i

يعني ترتيب هذه الشروط الاربعة يغيير النتيجة
حيث الاكس هو مرتبة الالف و الواي مرتبة المئات و الزد مرتبة العشرات و zz مرتبة الآحاد