Anfängercode, alle 3 Minuten ein anderer Pin auf High

[Fl K. (fkhm)]

Hallo, ich versuche meinen Vater ein wenig bei seiner Modelleisenbahn zu 
unterstützen. Gesteuert werden sollen gewisse Sachen wie 
Straßenbeleuchtung, besondere Gebäude einzeln, Hausbeleuchtung, 
Bahnübergänge etc.
Dafür hatte ich an einen "Haupt-µC" gedacht, der jede simulierte Stunde 
(3 Minuten) einen anderen Pin auf HIGH schaltet.

Dafür dann den Mega16 und folgender Code, könnt ihr dort mal rüber 
schauen ob er so richtig ist.

Es sollen dann noch ein paar kleinere µCs kommen, Attiny2313 z.B.. Dort 
ist dann ein Pin der Eingang und an den passenden Pin an der "Uhr" 
angeschlossen. Wenn es also 19 Uhr ist, bekommt dann der µC für die 
Straßenbeleuchtung ein Signal und schaltet über ein Relais die 
Straßenbeleuchtung für 2160 Sekunden (12 simulierte Stunden = 36 
Minuten) an.

$regfile = "M16def.dat"
$crystal = 1000000
$hwstack = 100
$swstack = 100
$framesize = 100


'Stunde1 an PA0
Stunde1 Alias Porta.0
Config Stunde1 = Output

'Stunde2 an PA1
Stunde2 Alias Porta.1
Config Stunde2 = Output

'Stunde3 an PA2
Stunde3 Alias Porta.2
Config Stunde3 = Output

'Stunde4 an PA3
Stunde4 Alias Porta.3
Config Stunde4 = Output

'Stunde5 an PA4
Stunde5 Alias Porta.4
Config Stunde5 = Output

'Stunde6 an PA5
Stunde6 Alias Porta.5
Config Stunde6 = Output

'Stunde7 an PA6
Stunde7 Alias Porta.6
Config Stunde7 = Output

'Stunde8 an PA7
Stunde8 Alias Porta.7
Config Stunde8 = Output

'Stunde9 an PB0
Stunde9 Alias Portb.0
Config Stunde9 = Output

'Stunde10 an PB1
Stunde10 Alias Portb.1
Config Stunde10 = Output

'Stunde11 an PB2
Stunde11 Alias Portb.2
Config Stunde11 = Output

'Stunde12 an PB3
Stunde12 Alias Portb.3
Config Stunde12 = Output

'Stunde13 an PB4
Stunde13 Alias Portb.4
Config Stunde13 = Output

'Stunde14 an PB5
Stunde14 Alias Portb.5
Config Stunde14 = Output

'Stunde15 an PB6
Stunde15 Alias Portb.6
Config Stunde15 = Output

'Stunde16 an PB7
Stunde16 Alias Portb.7
Config Stunde16 = Output

'Stunde17 an PC0
Stunde17 Alias Portc.0
Config Stunde17 = Output

'Stunde18 an PC1
Stunde18 Alias Portc.1
Config Stunde18 = Output

'Stunde19 an PC2
Stunde19 Alias Portc.2
Config Stunde19 = Output

'Stunde20 an PC3
Stunde20 Alias Portc.3
Config Stunde20 = Output

'Stunde21 an PC4
Stunde21 Alias Portc.4
Config Stunde21 = Output

'Stunde22 an PC5
Stunde22 Alias Portc.5
Config Stunde22 = Output

'Stunde23 an PC6
Stunde23 Alias Portc.6
Config Stunde23 = Output

'Stunde24 an PC7
Stunde24 Alias Portc.7
Config Stunde24 = Output

Do

  Stunde1 = 1
  Wait 180
  Stunde1 = 0
  Stunde2 = 1
  Wait 180
  Stunde2 = 0
  Stunde3 = 1
  Wait 180
  Stunde3 = 0
  Stunde4 = 1
  Wait 180
  Stunde4 = 0
  Stunde5 = 1
  Wait 180
  Stunde5 = 0
  Stunde6 = 1
  Wait 180
  Stunde6 = 0
  Stunde7 = 1
  Wait 180
  Stunde7 = 0
  Stunde8 = 1
  Wait 180
  Stunde8 = 0
  Stunde9 = 1
  Wait 180
  Stunde9 = 0
  Stunde10 = 1
  Wait 180
  Stunde10 = 0
  Stunde11 = 1
  Wait 180
  Stunde11 = 0
  Stunde12 = 1
  Wait 180
  Stunde12 = 0
  Stunde13 = 1
  Wait 180
  Stunde13 = 0
  Stunde14 = 1
  Wait 180
  Stunde14 = 0
  Stunde15 = 1
  Wait 180
  Stunde15 = 0
  Stunde16 = 1
  Wait 180
  Stunde16 = 0
  Stunde17 = 1
  Wait 180
  Stunde17 = 0
  Stunde18 = 1
  Wait 180
  Stunde18 = 0
  Stunde19 = 1
  Wait 180
  Stunde19 = 0
  Stunde20 = 1
  Wait 180
  Stunde20 = 0
  Stunde21 = 1
  Wait 180
  Stunde21 = 0
  Stunde22 = 1
  Wait 180
  Stunde22 = 0
  Stunde23 = 1
  Wait 180
  Stunde23 = 0
  Stunde24 = 1
  Wait 180
  Stunde24 = 0

Loop

End

Habe noch schnell einen Code für die Straßenbeleuchtung geschrieben, die 
über 6 Relais geschaltet wird.

$regfile = "XXX.dat"
$crystal = 1000000
$hwstack = 100
$swstack = 100
$framesize = 100


'Relais1 an PB0
Relais1 Alias Portb.0
Config Relais1 = Output

'Relais2 an PB1
Relais2 Alias Portb.1
Config Relais2 = Output

'Relais3 an PB2
Relais3 Alias Portb.2
Config Relais3 = Output

'Relais4 an PB3
Relais4 Alias Portb.3
Config Relais4 = Output

'Relais5 an PB4
Relais5 Alias Portb.4
Config Relais5 = Output

'Relais6 an PB5
Relais6 Alias Portb.5
Config Relais6 = Output

'Stunde18 an PA1
Stunde18 Alias Pina.1
Config Stunde18 = Input
'falls benötigt Porta.1 = 1       'PullUp-Widerstand einschalten

Do

   If Stunde18 = 1 Then
      Relais1 = 1
      Relais2 = 1
      Relais3 = 1
      Relais4 = 1
      Relais5 = 1
      Relais6 = 1
      Wait 2160
      Relais1 = 0
      Relais2 = 0
      Relais3 = 0
      Relais4 = 0
      Relais5 = 0
      Relais6 = 0
   Else
      Relais1 = 0
      Relais2 = 0
      Relais3 = 0
  Relais4 = 0
  Relais5 = 0
  Relais6 = 0
   End If
Loop


End

Hier bin ich mir aber unsicher wie das mit dem Wait in der IF schleife 
ist

Programmierfreudige Grüße,
Flo

[Karl H. (kbuchegg)]

Fl KHM schrieb:

> Dafür dann den Mega16 und folgender Code, könnt ihr dort mal rüber
> schauen ob er so richtig ist.

Brenn den Müll in einen Mega16 und lass ihn laufen. Dann weisst du es.
Mehr Mut zum selber Testen!


(PS: Zum Testen kann man die 3 Minuten auch auf 3 Sekunden kürzen. Dann 
sitzt man nicht die halbe Nacht für einen Durchgang)

[Peter II (Gast)]

Fl KHM schrieb:
> Dafür dann den Mega16 und folgender Code, könnt ihr dort mal rüber
> schauen ob er so richtig ist.

naja, der code ist einfach jetzt schon nicht mehr sinnvoll zu lesen, was 
soll das erst nach ein paar Erweiterungen werden?

Beschäftige dich erst mal mit Schleifen, dann bekommt man das viel 
einfacher hin.

Und mehre µC dafür zu nehmen, ist auch nicht wirklich sinnvoll. Häng 
lieber ein paar Port-Erweiterungen an den Mega und lass alles über ihn 
laufen. Das ist die Software erst mal einfacher und du musst auch nur 
ein Controller updaten.

[Fl K. (fkhm)]

Also mit einer Schleife, darauf hätte ich auhc vorher kommen können,
ich weiß nur nicht ob er das i in dieser Schleife auch hochzählt.
Vorher natürlich noch wie oben alle Ports definieren.

Dim i as Byte

Do

i = 0
i = i + 1

For i = 1 To 24 Step 1

  Stundei = 1
  Wait 180
  Stundei = 0

Next i

Loop
End

Die Idee mit mehreren µCs (ATtiny13) beruht darauf, dass ca. 500 Leds in 
den Häusern nach Zufall eingeschaltet werden sollen, im Zeitraum von 18 
bis 7 Uhr.

Und immer ein kleiner Code der auf einem µC läuft ist doch auch einfach 
zu warten, sind ja keine großen Sachen. Das mit den HC595 
Schieberegistern ist aber eine gute Sache, damit kann man gleiche Sachen 
doch einfach über einen µC steuern.

[Fl K. (fkhm)]

Noch eine zusätzliche Frage, bei dem Code:

if Eingang19Uhr = 1 //Straßenbeleuchtung/Bahnsteigbeleuchtung ein
  Relais1 = 1
  Wait 1
  Relais2 = 1
  Wait 1
  Relais3 = 1
  Wait 1
  Relais4 = 1
  Wait 1
  Relais5 = 1
  Wait 1

endif
if Eingang7Uhr = 1 //Straßenbeleuchtung/Bahnsteigbeleuchtung aus
  Relais1 = 0
  Wait 1
  Relais2 = 0
  Wait 1
  Relais3 = 0
  Wait 1
  Relais4 = 0
  Wait 1
  Relais5 = 0
  Wait 1
endif

Dann würde er ja immer eine Sekunde warten. Kann man das evtl. auch mit 
einem Timer lösen, so dass die weiteren Befehle ausgeführt werden?