-
-
Erfahrener Benutzer
Fleißiges Mitglied
Wenn Du ein Lauflicht für die ersten Schritte basteln möchtest, könntest Du auch erst mal mit einem Port anfangen.
Da viele I/O's von Controllern meist mehr Strom gegen Masse als gegen Vcc schalten können sollten die LED's mit der Anode gegen Vcc gelegt werden.
Der Code könnte dann zum beispiel so aussehen:
Dim A as Byte
Config Portc = Output
A = &B11111110
Portb = &b11111111
Do
Portc = A
Rotate A , left , 1
Waitms 250
Loop
Der Befehl "Rotate" dient dazu die logische 0 um 1 Position weiter nach links zu schieben (von A.0 nach A.1). Die logische 1 des MSB wird dabei zum LSB geschoben. (von A.7 nach A.0)
Da im Gegensatz zum Befehl "Shift" keine Daten verloren gehen hat man damit eine Endlosschleife gebastelt.
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- Anhänge hochladen: Nein
- Beiträge bearbeiten: Nein
-
Foren-Regeln
Lesezeichen