Hi,
bitte kurz Code überfliegen und mir sagen worans liegt :
Code:
#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