Toxic
26.03.2004, 11:18
Hi,
bitte kurz Code überfliegen und mir sagen worans liegt ;) :
#Main
if temp => IntCool then gosub IntCoolOn Else gosub IntCoolOff
if temp2 =< ExHeat then gosub ExHeatOn Else gosub ExHeatOff
goto Main
#IntCoolOn
If v_IntCoolOn = -1 then Return
v_IntCoolOn = v_IntCoolOn = -1
v_IntCoolOff = 0
Print "1"
Pause 10
K1 = ON
LED3 = ON
return
#IntCoolOff
If v_IntCoolOff = -1 then Return
v_IntCoolOff = v_IntCoolOff = -1 '<- Will er nich machen...
v_IntCoolOn = 0
Print "2"
Pause 10
K1 = OFF
LED3 = OFF
return
#ExHeatOn
If v_ExHeatOn = -1 then Return
v_ExHeatOn = v_ExHeatOn - 1
v_ExHeatOff = 0
Print "3"
K2 = ON
LED4 = ON
return
#ExHeatOff
If v_ExHeatOff = -1 then Return
v_ExHeatOff = v_ExHeatOff - 1
v_ExHeatOn = 0
Print "4"
K2 = OFF
LED4 = OFF
return
bitte kurz Code überfliegen und mir sagen worans liegt ;) :
#Main
if temp => IntCool then gosub IntCoolOn Else gosub IntCoolOff
if temp2 =< ExHeat then gosub ExHeatOn Else gosub ExHeatOff
goto Main
#IntCoolOn
If v_IntCoolOn = -1 then Return
v_IntCoolOn = v_IntCoolOn = -1
v_IntCoolOff = 0
Print "1"
Pause 10
K1 = ON
LED3 = ON
return
#IntCoolOff
If v_IntCoolOff = -1 then Return
v_IntCoolOff = v_IntCoolOff = -1 '<- Will er nich machen...
v_IntCoolOn = 0
Print "2"
Pause 10
K1 = OFF
LED3 = OFF
return
#ExHeatOn
If v_ExHeatOn = -1 then Return
v_ExHeatOn = v_ExHeatOn - 1
v_ExHeatOff = 0
Print "3"
K2 = ON
LED4 = ON
return
#ExHeatOff
If v_ExHeatOff = -1 then Return
v_ExHeatOff = v_ExHeatOff - 1
v_ExHeatOn = 0
Print "4"
K2 = OFF
LED4 = OFF
return