title image


Smiley oT -> C-Control
Hallo Norbert,

erinnerst Du Dich an mich? 20.06.2001 :-)



Du hast mir damals mein erstes C-Control Programm geschrieben, ich habe es in der Zwischenzeit mehrmals angepasst und verbogen *g* und nun ein zweites Terrarium (7 Einzelterris in einem Schrank) angeschlossen, und habe jetzt ein paar kleine Probleme mit der Steuerung. Ich hab mir schon einen Wolf gemessen, aber wer viel misst .....



Nun meine Bitte, könntest Du Dir das Programm mal anschauen um Fehler darin auszuschliessen?



Hier der Text,



'**************Terrariensteuerung**************

'(für zwei Terrarien mit Nachtabsenkung und Nebelsteuerung)

'(Achtung umverdrahtung notwendig)







'gedankenstütze :-)

'Definitionen: '< kleiner

'> größer



'Ausgänge:

define heizung port[1] 'Extrarelais an Port 1 (K1 Heizlüfter)

define lampen port[2] 'Extrarelais an Port 2 (K2 Lampen)

define lüfter port[3] 'Extrarelais an Port 3 (K3 Lüfter)

define nebel port[7] 'Internes Relais an Port 7 (K4 Nebel)

define pumpe port[8] 'Internes Relais an Port 8 (K5 Pumpe)



'Taster:

define F1heizung port[9] 'Taste F1 (Heizlüfter)

define F2lampen port[10] 'Taste F2 (Lampen)

define F3nebel port[11] 'Taste F3 (Nebel)

define F4pumpe port[12] 'Taste F4 (Pumpe)



'Leds:

define ledheizung port[13] 'LED 1 (Heizlüfter)

define ledlampen port[14] 'LED 2 (Lampen)

define lednebel port[15] 'LED 3 (Nebel)

define ledpumpe port[16] 'LED 4 (Pumpe)



'Sensoren:

define tempsenlüfter AD[5] 'Temperatursensor 1 (Lüfter)

define tempsenheizung AD[6] 'Temperatursensor 2 (Heizlüfter)



'Variable:

define settime word 'Uhrzeit setzen

define templüfter word 'Das werden die in 1/10°C umgerechneten

define tempheizung word 'Werte der Temperatursensoren

define lockK1 word 'blockieren des Relais K1 (Heizlüfter)

define lockK2 word 'einschalten des Relais K2 (Lampen)

define lockK3 word 'einschalten des Relais K3 (Nebel)

define lockK4 word 'blockieren des Relais K4 (Pumpe)





'alles ausmachen:

heizung=off : lampen=off : nebel=off : pumpe=off

ledheizung=off : ledlampen=off : lednebel=off : ledpumpe=off

lüfter=off



'Programm:



#start



if settime=0 then year=06

if settime=0 then month=10

if settime=0 then day=25

if settime=0 then hour=21

if settime=0 then minute=06

settime=1



templüfter = tempsenlüfter * 5 - 250 'Umrechnung der Sensorwerte (0...255) in

tempheizung = tempsenheizung * 5 - 250 '1/10°C (-250...1025 = -25...102,5 °C)



if hour >= 6 then gosub Pumpeein else gosub Pumpeaus



if (hour >= 7 and hour <= 22) then gosub HeizTag else gosub HeizNacht 'Tag und Nacht umschaltung

'Heizlüfter



if (hour >= 7 and hour <= 22) then gosub LüfterTag else gosub LüfterNacht 'Tag und Nacht umschaltung

'Lüfter



if (hour >= 8 and hour <= 22) then gosub Lampenein else gosub Lampenaus



if not F1heizung then gosub LockK1

if not F2lampen then gosub LockK2

if not F3nebel then gosub LockK3

if not F4pumpe then gosub LockK4



if heizung=on then gosub Nebelein else gosub Nebelaus







pause 100 ' 100 * 20ms = 2 sec Pause



goto start





'Subroutinen



#LockK1 '(Heizung)

if lockK1=0 then lockK1=1 else lockK1=0

beep 568, 10, 3

beep 568, 10, 0

pause 5

wait F1heizung

return



#LockK2 '(Lampen)

if lockK2=0 then lockK2=1 else lockK2=0

beep 568, 10, 3

beep 568, 10, 0

pause 5

wait F2lampen

return



#LockK3 '(Nebel)

if lockK3=0 then lockK3=1 else lockK3=0

beep 568, 10, 3

beep 568, 10, 0

pause 5

wait F3nebel

return



#LockK4 '(Pumpe)

if lockK4=0 then lockK4=1 else lockK4=0

beep 568, 10, 3

beep 568, 10, 0

pause 5

wait F4pumpe

return



#HeizTag

if tempheizung <= 280 then gosub Heizungein

if tempheizung >= 300 then gosub Heizungaus

return



#HeizNacht

if tempheizung <= 240 then gosub Heizungein

if tempheizung >= 260 then gosub Heizungaus

return



#Heizungein

if lockK1=1 then gosub Heizungaus else heizung=on

if lockK1=1 then gosub Heizungaus else ledheizung=on

return



#Heizungaus

heizung=off : ledheizung=off

return



#LüfterTag

if templüfter <= 280 then gosub Lüfterein

if templüfter >= 300 then gosub Lüfteraus

return



#LüfterNacht

if templüfter <= 240 then gosub Lüfterein

if templüfter >= 260 then gosub Lüfteraus

return



#Lüfterein

lüfter=on

return



#Lüfteraus

lüfter=off

return



#Lampenein

lampen=on : ledlampen=on

return



#Lampenaus

if lockK2=1 then gosub Lampenein else lampen=off

if lockK2=1 then gosub Lampenein else ledlampen=off

return





#Nebelein

nebel=on : lednebel=on

return



#Nebelaus

if lockK3=1 then gosub Nebelein else nebel=off

if lockK3=1 then gosub Nebelein else lednebel=off

return





#Pumpeein

if lockK4=1 then gosub Pumpeaus else pumpe=on

if lockK4=1 then gosub Pumpeein else ledpumpe=on

return



#Pumpeaus

pumpe=off

ledpumpe=off

return









Ich hoffe ich habe Dich jetzt nicht erschlagen, und Vorsicht wenn Du antwortest, es könnten noch mehr Fragen kommen.



Danke und Gruß Klaus






Dieser Beitrag ist kostenlos aber (hoffentlich) nicht umsonst...
Schlauchbrücke


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: