Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Re: Wer kann einem Anfäger bei der Programmierung helfen Kategorie: Programmierung Basic (von Michael - 19.04.2004 20:30)
 Als Antwort auf Re: Wer kann einem Anfäger bei der Programmierung helfen von Christian - 19.04.2004 16:11
> > > 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

Bisherige Antworten: