Utilitaire Make_APK

panoramic
X Application non installée.
Un package portant le même nom accompagné d'une signature différente est déjà installé

Code:

rem converts arab numbers into roman numbers

dim arab, temp

label conv, finished

left 0,276
top 0,228
width 0,450
height 0,260
caption 0,"Nombres Romain"
 
edit 1
left 1,150
top 1,43
width 1,242
height 1,42
 
button 2
left 2,150
top 2,95
width 2,150
height 2,50
caption 2,"CONVERTION"
on_click 2,conv
 
edit 3
left 3,150
top 3,160
width 3,242
height 3,42
inactive 3
 
alpha 4
left 4,10
top 4,47
width 4,130
height 4,34
caption 4,"Nombre Arabe"
 
alpha 5
left 5,10
top 5,163
width 5,130
height 5,34
caption 5,"Nombre Romain"

end

conv:
rem convert arab number into roman number
active 3
text 3,""
arab=val(text$(1))
if (arab>4999) or (arab<1)
 message "A Roman Number must be between 1 and 4999"
 goto finished
end_if

rem thousands column
temp=int(arab/1000)
if temp=1 then text 3,"M"
if temp=2 then text 3,"MM"
if temp=3 then text 3,"MMM"
if temp=4 then text 3,"MMMM"

rem hundreds column
arab=arab-temp*1000
temp=int(arab/100)
if temp=1 then text 3,text$(3)+"C"
if temp=2 then text 3,text$(3)+"CC"
if temp=3 then text 3,text$(3)+"CCC"
if temp=4 then text 3,text$(3)+"CD"
if temp=5 then text 3,text$(3)+"D"
if temp=6 then text 3,text$(3)+"DC"
if temp=7 then text 3,text$(3)+"DCC"
if temp=8 then text 3,text$(3)+"DCCC"
if temp=9 then text 3,text$(3)+"CM"

rem tens column
arab=arab-temp*100
temp=int(arab/10)
if temp=1 then text 3,text$(3)+"X"
if temp=2 then text 3,text$(3)+"XX"
if temp=3 then text 3,text$(3)+"XXX"
if temp=4 then text 3,text$(3)+"XL"
if temp=5 then text 3,text$(3)+"L"
if temp=6 then text 3,text$(3)+"LX"
if temp=7 then text 3,text$(3)+"LXX"
if temp=8 then text 3,text$(3)+"LXXX"
if temp=9 then text 3,text$(3)+"XC"

rem units column
temp=arab-temp*10
if temp=1 then text 3,text$(3)+"I"
if temp=2 then text 3,text$(3)+"II"
if temp=3 then text 3,text$(3)+"III"
if temp=4 then text 3,text$(3)+"IV"
if temp=5 then text 3,text$(3)+"V"
if temp=6 then text 3,text$(3)+"VI"
if temp=7 then text 3,text$(3)+"VII"
if temp=8 then text 3,text$(3)+"VIII"
if temp=9 then text 3,text$(3)+"IX"

finished:
return