Hallo,
Voor de modelbaan zit ik te puzzelen met de aansturing van een aantal seinen met een 16f628a.
Ik wil vier blokseinen met ieder twee LED's (groen en rood) besturen met vier ingangen. De LED's faden in en uit om een natuurlijk effect na te bootsen.
Wie kan me een paar ideeën geven hoe dit uit te breiden voor de andere drie seinen waarbij de volgende issues gelden:
1. Ik heb Proton Basic Lite, dus max. 50 regels; (investering moet laag blijven, anders kan ik net zo goed Marklin seinen kopen...)
2. Is iets met Interrupts haalbaar om de seinen onafhankelijk van elkaar te besturen (heb over interrupts al veel gelezen in dit forum, maar nog geen beeld van hoe en wat)
Voorbeeld voor 1 sein:
WHILE 1 = 1
IF INP00 = 1 THEN ;Input 0 hoog => groen uit, rood aan.
FOR Duty = 1 TO 255 STEP 2 ;LED groen fade out (uitgang sink!)
PWM OUTGN0, Duty, 1
NEXT
HIGH OUTGN0 ;Laat LED groen uit;
DELAYMS 200
FOR Duty = 254 TO 0 STEP -2 ;LED rood fade in
PWM OUTRD0, Duty, 1
NEXT
LOW OUTRD0 ;Laat LED rood aan;
ELSEIF INP00 = 0 THEN ;Input 0 = laag => rood uit, groen aan
FOR Duty = 1 TO 255 STEP 2 ;LED rood fade out
PWM OUTRD0, Duty, 1
NEXT
HIGH OUTRD0 ;Laat LED rood uit;
DELAYMS 200
FOR Duty = 254 TO 0 STEP -2 ;LED groen fade in
PWM OUTGN0, Duty, 1
NEXT
LOW OUTGN0 ;Laat LED groen aan;
ENDIF
WEND
END
Groet,
Siko
theove
Take care to get what you like or you will be forced to like what you get
Dat is een goed idee. Ik ga het bestuderen en kijken of ik het kan aanvullen met terug tellen. Om onder de 50 regels te blijven zal ik waarschijnlijk de declaraties moeten vergeten.
hadv
Just find out what you like and let it kill you
Als je led's onafhankelijk wilt dimmen kun je niet om interrupts heen.
Maar het is wel de vraag of dat binnen de 50 regels limiet lukt.
Probeer anders het Amicus platform, dat is helemaal vergelijkbaar met Proton en gratis. Is alleen wel beperkt tot 1 processor (PIC18F25K20).
http://www.myamicus.co.uk/content.php?245-Free-AMICUS18-Compiler
Eindelijk gelukt met Jal iets te bakken waarmee vier LEDs onafhankelijk van elkaar faden.
Ik gebruik dit voor seinbesturing.
Lekker goedkope oplossing. Voor €3,50 vier seinen aansturen!
http://www.youtube.com/watch?v=TL1Pf4_7ncI&context=C3d721a1ADOEgsToPDs…
de 18F25K20 kost ca. 2.5 euro en is onbeperkt te programmeren met de gratis amicus picbasic versie. Ook nog eens ruim twee keer zoveel poorten........
theove
Take care to get what you like or you will be forced to like what you get
Na ruim 2 jaar zal het wel goedgekomen zijn denk je niet?