Hallo,
ich hoffe hier st mir jemand der mir bei meinem Problem helfen kann, da ich noch nicht so firm in der Programierung bin.
Das Program funzt soweit, ich hab es schon etwas umgeschrieben, nur bin ich nun an einem Punkt angekommen wo ich nicht mehr weiter weiß.
Der Timer0 gibt ein Signal auf Porta.0 raus, soweit so gut. Die Musteranzeige funzt auch auf Portb und Portd. Meine Frage ist nun, ist es möglich das Signal das Timer0 generiert auf die anderen Ports zu nutzen, so daß die LED´s die durch die Musteranzeige während dieser zeit schnell blinken??
Bisher hab ich nur das Ergebnis gehabt das entweder das Blinksignal gar nicht geht oder die ganzen Ports blinken läßt und so die Musteranzeige überblendet.
Code:
'Drachenlicht mit ATtiny2313 Version 0.8
'Zeitgesteuerte Musteranzeige
'erstellt für www.attiny.de
'von Bernhard Ritter
$regfile = "attiny2313.dat" 'Definitionsdatei für ATtiny2313
$crystal = 2000000 'Oszillatorfrequenz 0.5 MHz
Config Porta.0 = Output 'Port A ist Ausgang für LEDs
Config Portb = Output 'Port B ist Ausgang für LEDs
Config Portd = Output 'Port D ist Ausgang für LEDs
Porta.0 = 0 'Alle Ausgänge Port A auf 0
Portb = 0 'Alle Ausgänge Port B auf 0
Portd = 0 'Alle Ausgänge Port D auf 0
Dim Muster1 As Byte 'Muster1 als Byte dimensionieren
Dim Muster2 As Byte 'Muster2 als Byte dimensionieren
Dim Zeit As Byte 'Zeitzähler in 0.13-Sekundenschritten
Dim Intzeit As Byte 'Interruptzähler für Zeitvergleich
Config Timer0 = Timer , Prescale = 8 ' Timer-0 Vorteiler auf 1024
Timer0 = &H00 ' Timer-0 Startwert setzen
Enable Timer0 ' Timer-0 Interrupt einschalten
On Timer0 Trigger
Config Timer1 = Timer , Prescale = 1 'Prescaler auf 256
'Interrupt alle 256 x 256 Takte : 2uS * 65536 = 131.072 ms
'15 Zeiteinheiten ergeben 2 Sekunden Musteranzeigezeit
On Timer1 Anzeige 'bei Timerüberlauf nach Anzeige springen
Enable Timer1 'Timer0-Interrupt einschalten
Enable Interrupts 'Interrupts global aktivieren
Do 'Hauptprogramm
'nothing
Loop
End 'End Hauptprogramm
Anzeige: 'Unterprogramm Anzeige
Incr Intzeit 'Interruptzähler für Zeitvergleich erhöhen
If Intzeit > Zeit Then 'Wenn Musterzeit abgelaufen ist neuen Datensatz holen
Intzeit = 1 'Interruptzähler zurücksetzen
If Zeit = 0 Then Restore Musterdaten 'Datenzeiger auf erstes Muster setzen
Read Muster1 'Muster einlesen
Read Muster2
Read Zeit
Portb = Muster1 'Daten anzeigen
Portd = Muster2
End If
Return
Trigger:
'Timer-0 Interruptroutine
Timer0 = &H00 ' Timer-0 Startwert setzen
Portb = &HFF - Portb ' Ausgänge invertieren
Return
'Hier beginnt die Muster- und Zeitenliste
'Aufbau: Data Muster1 , Muster2 , Zeit
'Die Muster können binär(&Bxxxxxxxx), hexadezimal(&Hxx) oder dezimal eingegeben werden
'Zeit=0 startet Programm neu
Musterdaten:
Data &B00000001 , &B00000001 , 10
Data &H03 , &H03 , 10
Data 7 , 7 , 15
Data 15 , 15 , 1
Data 31 , 31 , 1
Data 63 , 63 , 1
Data 127 , 127 , 1
Data 255 , 255 , 1
Data 1 , 254 , 1
Data 3 , 252 , 1
Data 7 , 248 , 1
Data 15 , 240 , 1
Data 31 , 224 , 1
Data 63 , 192 , 1
Data 127 , 128 , 1
Data 255 , 0 , 1
Data 0 , 0 , 0
Bin für jeden Hinweis dankbar.
Gruß
Stefan
Berechtigungen
Zitieren
Lesezeichen