Svenska ElektronikForumet

Jag trodde att jag loggade in på Elektronikforumet men jag måste ha kommit fel och hamnat på forumet för handvevade/enkla lösningar i stället.

Det är klart att det ska lösas med elektronik, helst en processor!

Hur länge ska den gula lampan lysa? Lika länge varje gång man startar sekvensen eller ska det skilja från gång till gång? Mellan vilka tider i så fall?

Hur länge ska den gröna lysa innan den släcks och den röda tänds igen?

Vet man det är det snabbt gjort att sno ihop en lösning...

Ramzon: Har du vippströmbrytare så kan du synka vänster och höger tumme så fixar sig det med tändning och släckning, troligtvis är din en 230-variant om du inte skruvat ner den själv.

(min favvosmiley)

anrhm: Tror att en av finesserna är att lamporna inte ska lysa lika länge vid varje "start, tror att reaktionstiden ska spela in, annars går det att lära sig signalen.

Salle, igen

Precis. Poängen var ju att när den visar gult så skall det vara en slumpad tid, säg mellan 2-6 sek tills det att den slår till grönt.

Men jag tror jag kör på lite reläer till att börja, skall knåpa ihop ett kopplingschema och se om jag har fattat allt rätt. Sedankanske man kan bygga en mer avancerad gran men tillsvidare kör jag på den simpla varianten

.

Nu har jag suttit en stund och pulat ihop ett kopplingsschema med reläer som jag hoppas fungerar. Skratta ni åt mina oerhörda paintkunskaper

: Var knappt så jag själv fattar hur jag menar ett tag mitt i målandet

.

http://geting.se/viewimage.php?image=37 ... rtgran.gif

hej,
her er en test setup random delay time på gula lys 2 - 6 sec
AT90S2313 bascom-avr
http://www.geting.se/viewimage.php?imag ... TRAFIK.JPG

Kimmi:
Det går att spara in reläerna och dioderna över reläerna. Istället låter man lamporna sitta där reläerna sitter nu. D.v.s. mellan kollektor och +12V. Naturligtvis måste man byta till transistorer som klarar lampströmmen.
Att ha röd, gul, grön lysdiod med serieresistor där lamporna kopplas in är också en bra ide. Då kan man testa utan att koppla in granen.

Edit: Billigt, bra och enkelt. Tror att det blir svårt att få en billigare och bättre lösning.

Hej.
Jeg tænkte på om det var 220 volt derfor relæ ,

Riktigt bra jobbat kimmi! Ser helt kanon ut! En sak jag funderade på bara, jag kolalde upp vad det satt för lampor i ljuset och dom låg på 30W. Blir det någon skillnad i kopplingschemat som kimmi gjort där han använt sig utav 21W lampor eller spelar det ingen roll?

edit: Nu är det bara shoppinglistan kvar då, men jag har lite svårt att hitta sakerna på elfa. Antar att komponenterna finns där bara jag som inte är van

:

hej,
Det er transistoren der bestemmer WATT BD539 cs 45 watt see datasheet på den transistor du bruger

En spänningsregulator t.ex. 7805 med kondensatorer på in och utgång (enligt tillverkarens rekommendation) behövs också för att microcontrollern ska må bra.

Är lamporna 12V/30W behöver transistorn tåla ca 2,5A enligt ohms lag. Men eftersom lampan drar mer ström när den är kall är det bra med betydligt mera strömtålighet.
Dessutom behövs en förstärkning i transistorn som kan öka strömmen som mikrocontrollern kan lämna till den ström lampan behöver.
Låt säga 2,5A/0,01A ca 250ggr, mer gör inget.

Darlingtontransistorer eller logikstyrbar fälteffekt rekommenderas därför.
IRL2703 t.ex. tycker jag borde funka bra.

hej,
Okay , her er en version med buz11 eller IRL2703
pris ca 150.00 kr (elfa priser)
http://www.geting.se/viewimage.php?imag ... gran_1.JPG

hoppas det er ok nu !

Grymt imponerande

Problemet nu är att jag inte kan se tydligt nog vad du har använt dig utav för komponenter i schemat, haha

.

http://www.geting.se/viewimage.php?imag ... 2313_1.JPG
er din dator skærm en 12"

Haha, nejdå

. Nu är det perfekt, återkommer när jag har börjat bygga

. Tack så hemskt mycket för all hjälp!

Hej,

Her er en anden code RND(max) gir samma random altid från start

Har fixat det med brug av timer0 mycke bra random nu

Kod: Markera allt

$regfile = "2313def.dat"
$crystal = 4000000                                          '4 Mhz

Const Timer0reload = 156
Config Timer0 = Timer , Prescale = 256
Load Timer0 , Timer0reload
On Ovf0 Timer0_isr
Enable Ovf0
Start Timer0
Enable Interrupts
Dim H As Word , A As Word
Config Portb.0 = Output : Set Portb.0                       'red port
Config Portb.1 = Output : Reset Portb.1                     'gul port
Config Portb.2 = Output : Reset Portb.2                     'gron port
Config Portd.2 = Input : Set Portd.2                        'start button
A = 1256

Do
If Pind.2 = 0 Then                                          'IF START IS PUSH
   Set Portb.1 : Reset Portb.0                              'RED OFF GUL ON
   Wait 2
   H = A                                                    'WAIT FROM 2 - 6 SEC
   Waitms H
   Reset Portb.1 : Set Portb.2                              'GUL OFF GRON ON
   Wait 5                                                   'WAIT 5 SEC THEN GRON OFF RED ON
   Reset Portb.2                                            ' AND WAIT FOR NEW START PUSH
   Set Portb.0
End If
Loop
End


Timer0_ISR:
   load timer0, Timer0Reload
   Incr A
   If A > 4000 Then A = 0
  return

Svenska ElektronikForumet

Bygga startgran?