PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : LED Laufbalken - wie???



ssalbach
26.11.2006, 17:20
Also ich habe mir eine LED AMtrix aud 12x4 LED gebaut zur Spannungsanzeige von 4 Akkus.
Diese habe ich an Port B und D angeschlossen.
Mit den ersten vier bits schalte ich Reihe 1 -4 mit allen weiteren und an Port D 0-6 alle weiteren LEDs

Wie bringe ich jetzt dem MEGA 32 bei, das z.B: alle LED nacheinander aufleuchten läßt?

Nutze AVR co PAscal aber ein Beispiel in Basic würde mir weiter helfen.
Leider gitb es hier bisslang immer noch keine Pascal Area.

Jean
27.11.2006, 18:57
Salut !
Na so ein Lauflicht in BASCOM zu programmieren, ist recht einfach.
Du konfigurierst zunächst die entsprechenden Ausgangsports und
schaltest sie dann nach Wunsch EIN bzw.AUS (also setzt sie "1" bzw."0").
z.B.
$regfile="m32def.dat"
Dim I As Byte, J As Byte
Config Portb.0 = Output
Config Portb.1 = Output usw......
Config Portd = Output (setzt z.B. den gesamten Port D als Ausgang)
Do
For I = 0 To 3 (LED-Balken 1 ...4 laufen lassen)
Portb.i=1
Wait 1
Portb.i=0
Next I
For J=0 To 7 (LED-Balken 5...12 laufen lassen)
Portd.j=1
Wait 1
Portd.j=0
Next J
Loop (....und wieder von vorn beginnen ...!)

Zweifellos geht's noch etwas besser, aber das müsste erstmal so laufen !

Try it ! so long - TOM !