INFO - FAQ - CC2-Forum - CCPro-Forum |
> > > Wo genau liegt denn dein Problem ? > > > Leider habe ich das letze mal vor 20 Jahren etwas mit Basic gemacht. > > Gibt es vielleicht ein Beispielprogramm indem gezeigt wird wie die einzelnen Ports (was ist > > das) angesprochen und gelesen werden. > > Konkret. Ich möchte 8 Pumpen ansteuern .Leider sind nur 2 K1 Relais vorhanden. > > So wie ich es sehe müste ich nun über die Digitalen Ausgänge die anderen Relais schalten. > > Gibt es ein Zusatzrelais an diese Ports ? wie heißen sie ) eventuell eine Relaisplatine ? > > > > Es wäre schön wenn in einem Beispielprogramm einmal alles zu sehen wäre > > z.B. relais 1 bis 8 werden nacheinader ein und dann aus geschaltet. > > Alle 8 Eingänge werden gelesen. den Rest könte ich mir eventuell selbst zusammen basteln > > > > Programieren möchte ich folgendes. > > Es sollen 8 Relais geschaltet werden. > > Über 8 Eingänge möchte ich 8 Schalter lesen ob sie Offen oder geschlossen sind. > > > > Je nach Schalterstellung sollen die Relais geschaltet werden. > > Zusätzlich möchte ich von 7-8 und von 19-20 Uhr alle Pumpen laufen lassen egal ob die > > Schalter gedrückt sind oder nicht. > > > > Eigendlich ganz einfach aber wie gehts ? > > > > Hallo Ralf, > anbei ein kleiner Vorschlag wie man die Relais schalten kann. Für die Ports 1-8 brauchst Du noch Relais-Schaltstufeund das dazugehörige Netzteil. > Conrad Bestell-Nr. 641162. > Zu den Schalterstellungen kann ich nicht weiterhelfen. > > define P1 port [1] > define P2 port [2] > define P3 port [3] > define P4 Port [4] > define P5 Port [5] > define P6 Port [6] > define K1 port [7] > define K2 port [8] ' > P1 = ON > P1 = OFF > P2 = ON > P2 = OFF > P3 = ON > P3 = OFF > P4 = ON > P4 = OFF > P5 = ON > P5 = OFF > P6 = ON > P6 = OFF > K1 = ON > K1 = OFF > K2 = ON > K2 = OFF > #loop > if (hour = 16) and (minute = 30) then P1 = ON ' an > if (hour = 07) and (minute = 30 ) then P1 = OFF ' aus > pause 5 > if (hour = 17) and (minute = 00) then K1 = ON ' an > if (hour = 07) and (minute = 00) then K1 = OFF ' aus > pause 5 > if (hour = 17) and (minute = 30) then K2 = ON ' an > if (hour = 07) and (minute = 00) then K2 = OFF ' aus > > goto Loop > Für die genaue Uhrzeit mußt Du die Zeit eingeben oder eine DCF-77 Antenne verwenden. > Ich hoffe Du kommst hiermit weiter. > MfG > Christian > sind doch 8 Pumpen und 8 Schalter so wirklich schalten wird dieses Programm nichts. Ausserdem werden nirgends Schalter abgefragt Also Schalter an die Ports 1-8 (byteport 1) und pumpen an die ports 9-16 (byteport2) Define schalter Byteport [1] Define pumpen Byteport [2] #start if (hour = 16) and (minute = 30) then goto label1 if (hour = 17) and (minute = 30) then goto label1 pumpen=schalter 'Bitmuster der Schalter auf Bitmuster der Pumpen legen goto start #label1 pumpen=255 'Alle Pumpen ein pause 36000 'Halbe stunde pause goto start Nachteil: Die pumpen lassen sich nicht abschalten während der 30 Minuten Ausserdem weiss ich nicht, ob mann so grosse werte hinter Pause schreiben kann |
Antwort schreiben |