Ich versuche jetzt (schon länger) eine Segementanzeige anzusteuern.
Leider vergeblich

ich habe dieses Programm hier geschreiben:

Nur leider zählt der nach belieben ohne Tastendruck einfach hoch das ist ja so frustrierend. Gibt es da vieleicht noch eine andere Möglichkeit Diese (Zensiert) Anzeigen anzusteuern.

$regfile = "m88def.dat"
$crystal = 16000000

Config Pind.4 = Input
Config Pinc.1 = Input
Config Pinc.0 = Input
Ddrd = &B11101111
Ddrb = &B00000111
Ddrc = &B00111100
Portd.4 = 1
Portc.1 = 1
Portc.0 = 1
Declare Sub Anzeige
Dim A As Integer
Dim S As Integer
Dim C As Integer
Dim D As Integer
A = 0
S = 0
C = 0
D = 0

Do

If Pinc.0 = 1 Then
Waitms 50
S = S + 1
Else
S = S + 0
End If
Gosub Anzeige


Loop

End

Sub Anzeige

If S = 0 Then
Portd = &B11100000
Portc = &B00110000
Portb = &B00000010
End If

If S = 1 Then
Portd = &B10000000
Portc = &B00100000
Portb = &B00000000
End If

If S = 2 Then
Portd = &B01100000
Portc = &B00110000
Portb = &B00000100
End If

If S = 3 Then
Portd = &B11000000
Portc = &B00110000
Portb = &B00000100
End If

If S = 4 Then
Portd = &B10000000
Portc = &B00100000
Portb = &B00000110
End If

End Sub