Forum: Mikrocontroller und Digitale Elektronik Atmega8 Lightshow


von Pascal H. (pase-h)


Angehängte Dateien:

Lesenswert?

Hi,
Ich als (noch)Anfänger hab mal wieder eine Frage:
Den Code für Eine Led Lichterschow (Anhang) habe ich in Bascom ganz 
abstrakt Programmiert.
Meine Frage Lautet also, Wie ich den Code verkleinern, bzw. verbessern 
kann(durch irgendwelche spezialbefehle? etc.).

von Thomas K. (tkroth) Benutzerseite


Lesenswert?

Ich würde das Ganze mit einer Lookup-Tabelle machen:

dim L as Integer
dim W as Integer

do
  for L=1 to {Anzahl Lichtmuster}
    w=Lookup(L, LightTab):Portd=w:waitms 100
  next
loop

LightTab:
  Data &B00000001, &B00000110 ....

Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.