ich mach schon mal ein kleinen anfang mit
Code: Alles auswählen
'Nightrider Lauflicht mit 8 LEDs
'erstellt von Jay
'am 27.01.2007
'für ATmega8
$regfile = "m8def.dat" 'ATmega8
$crystal = 1000000
'Konfigurieren
'============================================================================='
Config Pind.0 = Output 'Port D0
Config Pind.1 = Output 'Port D1
Config Pind.2 = Output 'Port D2
Config Pind.3 = Output 'Port D3
Config Pind.4 = Output 'Port D4
Config Pind.5 = Output 'Port D5
Config Pind.6 = Output 'Port D6
Config Pind.7 = Output 'Port D7
'============================================================================='
'Ports zu den LEDs zuweisen
'============================================================================='
Led1 Alias Portd.0
Led2 Alias Portd.1
Led3 Alias Portd.2
Led4 Alias Portd.3
Led5 Alias Portd.4
Led6 Alias Portd.5
Led7 Alias Portd.6
Led8 Alias Portd.7
'============================================================================='
Dim Zaehler As Long 'Zähler von 1-9
Dim Richtung As Long 'Richtung 0 oder 1
Zaehler = 9
Richtung = 1
Do
If Richtung = 1 Then 'Prüfen welche richtung laufen soll
Zaehler = Zaehler - 1
If Zaehler = 1 Then Richtung = 0 'setzt richtung 0 wenn Zähler 1 ist
Else
Zaehler = Zaehler + 1
If Zaehler = 8 Then Richtung = 1 'setzt richtung 1 wenn Zähler 8 ist
End If
If Zaehler = 1 Then Led1 = 1 Else Led1 = 0
If Zaehler = 2 Then Led2 = 1 Else Led2 = 0
If Zaehler = 3 Then Led3 = 1 Else Led3 = 0
If Zaehler = 4 Then Led4 = 1 Else Led4 = 0
If Zaehler = 5 Then Led5 = 1 Else Led5 = 0
If Zaehler = 6 Then Led6 = 1 Else Led6 = 0
If Zaehler = 7 Then Led7 = 1 Else Led7 = 0
If Zaehler = 8 Then Led8 = 1 Else Led8 = 0
Waitms 150 'Laufzeit von LED zu LED
Loop
- 526_nightrider_1.png (188.67 KiB) 15648 mal betrachtet
EDIT: Ich hab schon immer eine einfache Lösung gesucht ein Nightrider Lauflicht zu bastelln, aber nur mit mehrer bauteilen gefunden, so geht viel einfacher.
MfG
Jay
nach kurzem nachdenken hats bling gemacht. Du hast quasi ein gatter und steuerst mit 9 ports die reihen und mit den anderen 9 die zeilen an und mit der kombination aus beidem lassen sich dann 81 leds ansteuern.... Garnicht dumm. Respekt.