Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Main()
    Dim i As Integer
    Do While True
        For i = 0 To 3 Step 1
            SetVariableValue("Wsp_Temp[" & i &"]",(Temp_Zew - GetVariableValue("Temp_Wew[" & i &"]")) * 0.001) 'Obliczanie wspolczynnika spadku temperatury z roznicy temperatury zewnetrznej i wewnetrznej
            If GetVariableValue("Temp_Wew[" & i & "]") < (GetVariableValue("Temp_Zad[" & i & "]") -3) Then
                SetVariableValue("Potencjometry[" & i & "]",1)
            End If
        Next i
        If [Potencjometry.e0] = 1 Or [Potencjometry.e1] = 1 Or [Potencjometry.e2] = 1 Or [Potencjometry.e3] = 1 Then
            Stan_Pieca = True
        End If
        If Stan_Pieca = True Then
            For i = 0 To 3 Step 1
                If GetVariableValue("Potencjometry[" & i &"]") = 1 Then
                    SetVariableValue("Temp_Wew[" & i &"]", GetVariableValue("Temp_Wew[" & i &"]") + 0.055)
                End If
                If GetVariableValue("Temp_Wew[" & i & "]") > (GetVariableValue("Temp_Zad[" & i & "]") +1) Then
                    SetVariableValue("Potencjometry[" & i &"]",0)
                End If
            Next i
        End If
        For i = 0 To 3 Step 1
            SetVariableValue("Temp_Wew[" & i &"]", GetVariableValue("Temp_Wew[" & i &"]") + GetVariableValue("Wsp_Temp[" & i &"]"))

        Next i
        If [Potencjometry.e0] = 0 And [Potencjometry.e1] = 0 And [Potencjometry.e2] = 0 And [Potencjometry.e3] = 0 Then
            Stan_Pieca = False
        End If
    Sleep (1000)
    Loop
End Sub