Für die umrechnung von einer normalen Ziffer (0...9) in die 7 Segmentdarstellung kann man ein konstantes array verwenden. Besonders einfach ist das, wenn die LEDs alle an einem Port hängen. Dann reicht so etwas wie:

segtab[0] = ....
segtab[1] = ....
....
Portb = segtab[n]
schon aus um die Zahl n auszugeben. Im array wird einfach wie ein erner tabelle nachgesehn was man ausgeben muß für die Zahl. Also so eine Art Zeichensatz. Wenn die LEDs wie hier nicht an einem Port sind, muß man die Bits noch etwas verteilen. Die meisten Bits kann man einfach mit einer Maske aussuchen. Die paar die übrig bleiben, dann z.B. per IF Then ELSE.


Die Alternative mit dem select case ist dann etwa so. Abhängig von der zahl die Ausgegben wird, wird einer der Fälle aufgerufen und da dann ausgegeben. Bis auf die Werte die Ausgegeben werden sehen die Fälle gleich aus. Auch damit kriegt man so etwas wie eine Funktion um eine ziffer auszugeben, die dann in einer schleife mehrmals aufgerufen wird.