Hallo, Leute!

Es geht um folgende Tabelle: http://martinsuniverse.de/projekte/a...iszeichen.html

Für mich sind die Zahlen interessant, also &H30, &H31, &H32, &H33, &H34, &H35, &H36, &H37, &H38, &H39. Das sind dann 0, 1, 2, 3, 4, 5, 6, 7, 8, 9.

Angenommen, ich habe eine Variable A
Wenn A = 3 ist, soll es auf &H33 umgerechnet werden.
Wenn A aber 30 ist, ist das dann &H33 und &H30.

Zur Zeit arbeite ich mit if-then schleifen, was sehr aufwändig ist und viel Flash kostet.
Beispiel:
If A = 13 then
Zeichen1 = &H31
Zeichen2 = &H33
end if

If A = 14 then
Zeichen1 = &H31
Zeichen2 = &H34
end if

usw.

Wie Ihr seht, wird die Umrechnung sehr lang.

Wie kann ich das Problem anders lösen?

Beispiel, wie ich es mir vorstelle:

Dim A as Byte
Dim y as byte
Dim x as Byte

Do
A = 46

gosub umrechnen
print y, x

Loop

umrechen:
xxx
xxx
xxx
...
y = &H34
x = &H36
return



Hoffe, es kann mir Jemand helfen.

Danke und Gruss