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: Relay schaltet nicht ab an Kay Kategorie: Programmierung Basic (von Jens - 19.07.2005 16:34)
 Als Antwort auf Re: Relay schaltet nicht ab an Kay von frankpeter - 18.07.2005 22:31
Jens nutzt:  CC1-M-Unit V1.1, Micro, Open-Micro, Open-Mini
Hallo Peter

>  Naja,
> ein normales Relais über die C-Control ansteuern ist kein Problem. Das habe ich schon gemacht, aber was ich jetzt brauch ist nur ein kurzer Impuls (denke so etwa 1/2 sekunde) um die klimaanlage bei erreichen einer bestimmten Temperatur einzuschalten und genau so einen Impuls um sie bei unterschreiten einer bestimmten Temperatur abzuschalten.
>

Das nachfolgende Programm sollte Dein Problem lösen. Ich habe es auf der Open-Micro getestet und es funktioniert reibungslos. Die beiden Taster schalten gegen Masse und auch nur ein Mal. Danach muss der Taster erst wieder ein High-Signal liefern, bevor er wieder abgefragt wird. Das Relais schaltet 0,5 Sekunden...

LG Jens

'**************************************
'*  Wischkontakt mit der Open-Micro   *
'**************************************

define Taster_ein   port[4] 'Taster einschalten
define Taster_aus   port[5] 'Taster ausschalten
define Relais       port[6] 'Relais Ausgang

define ver_ein      byte[1] 'Verriegelung EIN-Taster
define ver_aus      byte[2] 'Verriegelung AUS-Taster

Relais = off 'Voreinstellung Relais

#Hauptschleife
if (ver_ein = 0) and (not Taster_ein) then gosub wischen_ein 'zum wischen
if (ver_ein > 0) and Taster_ein then ver_ein = 0 'Verriegelungs Reset
if (ver_aus = 0) and (not Taster_aus) then gosub wischen_aus 'zum wischen
if (ver_aus > 0) and Taster_aus then ver_aus = 0 'Verriegelungs Reset
goto Hauptschleife

#wischen_ein
Relais = on : pause 25 : Relais = off '0,5 sekunden wischen
ver_ein = 1 'Verriegelung aktiviren
return

#wischen_aus
Relais = on : pause 25 : Relais = off '0,5 sekunden wischen
ver_aus = 1 'Verriegelung aktiviren
return

end

 Antwort schreiben

Bisherige Antworten: