اعطنا مثال على 2568 بالحالتين
على العموم تكتب ضمن كوماند
ثم كيف تستعمله
يعني ترتيب هذه الشروط الاربعة يغيير النتيجة
حيث الاكس هو مرتبة الالف و الواي مرتبة المئات و الزد مرتبة العشرات و zz مرتبة الآحاد
على العموم تكتب ضمن كوماند
كود :
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 مرتبة الآحاد

