Hallo

Ich will einen Zähler bauen ,der, wenn man auf einen Taster drückt, immer um eins nach oben zählt.Das ganze bis 99 also im zweistelligen Bereich.

Code:
$regfile = "m8def.dat"
 $crystal = 1000000                                         ' 1MHZ crystal

 Ddrc = &B000000
 Ddrd = &B0000000
 Config Pind.2 = Input





 Dim Vari1 As Byte
 Vari1 = 0
 Config Int0 = Rising
 Enable Interrupts
 Enable Int0
 On Int0 Unterprogramm


 Do

 Vari1



 Unterprogramm:
 Vari1 = Vari1 + 1

 Return


 0:
    Portd.0 = 1
    Portd.1 = 1
    Portd.7 = 1
    Portd.3 = 1
    Portd.4 = 1
    Portd.5 = 1

 1:

    Portd.1 = 1
    Portd.7 = 1


 2:
    Portd.0 = 1
    Portd.1 = 1
    Portd.6 = 1
    Portd.4 = 1
    Portd.3 = 1

 3:
    Portd.0 = 1
    Portd.1 = 1
    Portd.6 = 1
    Portd.7 = 1
    Portd.3 = 1

 4:
    Portd.5 = 1
    Portd.6 = 1
    Portd.1 = 1
    Portd.7 = 1

 5:
    Portd.0 = 1
    Portd.5 = 1
    Portd.6 = 1
    Portd.7 = 1
    Portd.3 = 1

 6:
    Portd.0 = 1
    Portd.5 = 1
    Portd.6 = 1
    Portd.4 = 1
    Portd.3 = 1
    Portd.7 = 1

 7:
    Portd.0 = 1
    Portd.1 = 1
    Portd.7 = 1

 8:
    Portd.0 = 1
    Portd.1 = 1
    Portd.7 = 1
    Portd.3 = 1
    Portd.4 = 1
    Portd.5 = 1
    Portd.6 = 1

 9:
    Portd.0 = 1
    Portd.1 = 1
    Portd.7 = 1
    Portd.3 = 1
    Portd.5 = 1
    Portd.6 = 1
Ich weiß jetzt nicht wie das Hauptprogramm aussehen soll.
Wie kann ich sagen das die Variable Vari1 angezeigt werden soll ?
Das ganze soll auf 7 Segment Displays angezeigt werden.

Mfg

David Wagner