So,
jetzt funktioniert auch die Ziffernausgabe mit Timer. Dabei mußte ich wohl den Fehler machen, das man in Bascom mit sowas ohne Warnung Probleme kriegt:
Spiout Displaydigit(Displaydigitaddress(x) + 1) , 1
und besser so macht:
Y = Displaydigitaddress(x) + 1
Spiout Displaydigit(y) , 1
entsprechende Codeschnipsel:
Code:
.
.
'8 bit Timer zur Ziffernausgabe on Overflow 8MHz / 128 / 256 ~ 244 Hz ~ 60Hz pro Ziffer
Config Timer1 = Timer , Prescale = 128
On Ovf1 Isr_timer1
Enable Timer1
.
.
Isr_timer1: 'wird ca. 244 mal / Sek. aufgerufen und zeigt jedesmal 1 von 4 Ziffern an
If X > 4 Then
X = 1
End If
Y = Displaydigitaddress(x) + 1
Spiout Displaydigit(y) , 1
X = X + 1
Return
Gruß
Searcher
Lesezeichen