Hallo,

ich versuche mich gerade an meiner ersten Programmierung.

Das Projekt ist ein Modellauto mit Dach-LED (ähnlich der Polizei) und Frontblitzern.

Nach langem ausprobieren (irgendwie versteh ich das mit dem Timer noch nicht so ganz) habe ich die Beleuchtung für das Dach realistisch hinbekommen. Aber die Schleifen für die Frontblitzer wollen nicht wirklich.

Das Resultat ist:

L _ R _ L_ _ _

Es sollte aber:

L_L_L_R_R_R_L_L_L_ _ _ _

sein. (L = Links / R = Rechts / _ = Verzögerung)

Hier mein Code:

Code:
$crystal = 1000000
$regfile = "attiny85.dat"

Config Portb.3 = Output
Config Portb.2 = Output
Config Portb.4 = Output
Config Portb.1 = Output

Ocr1a = 51458
Ocr1b = 51599
Config Timer1 = Timer , Prescale = 1024 , Clear Timer = 1 , Compare A = Disconnect , Compare B = Disconnect
Enable Timer1
On Oc1a Timer1serv
On Oc1b Timer2serv
Enable Oc1a
Enable Oc1b
Enable Interrupts

Dim Rechts As Integer
Dim Links As Integer


Do

For Links = 0 To 5
   Portb.1 = 1
   Waitms 100
   Portb.1 = 0
   Waitms 100
Next Links

For Rechts = 0 To 5
   Portb.4 = 1
   Waitms 100
   Portb.4 = 0
   Waitms 100
Next Rechts

For Links = 0 To 5
   Portb.1 = 1
   Waitms 100
   Portb.1 = 0
   Waitms 100
Next Links

Waitms 1000

Loop

Timer1serv:
Toggle Portb.3
Return



Timer2serv:
Toggle Portb.2
Return



End
Bei weiteren Verbesserungsvorschlägen bin ich schon jetzt dankbar - aber dann bitte mit Erklärung

Achso - Die Frequenz für die Dachleuchten ist 1.11 Hz und 1.12 Hz - hab was relativ nahes genutzt.