-
-
Also, hab mal probiert: Mit diesem Code wird eine Led etwa alle 3 Sekunden an- und abgeschaltet. (verwende 1Mhz internen Oszi)
Hier ist der Code:
$regfile = "m8def.dat"
$crystal = 1000000
Dim B As Byte ; Variable B definieren
B = 0 ; Variable B=0
On Timer0 Ontimer0
Ddrd.6 = 1
Config Timer0 = Timer , Prescale = 1024
Enable Timer0
Enable Interrupts
Do
If B = 10 Then
Toggle Portd.6
If B = 10 Then
B = 0
Loop
Ontimer0:
B = B + 1
Return
End
Hmm, funktioniert das so?
Kann man die beiden If-Befehle in der Loop-Schlaufe nicht einfacher zusammenfassen? Braucht es ein Endif?
Was ist falsch/krumm?
Herzliche Grüsse
Mario
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- Anhänge hochladen: Nein
- Beiträge bearbeiten: Nein
-
Foren-Regeln
Lesezeichen