Pompschakelaar vloerverwarming

'====================================================================================================
Program Pump    'Control pump For underfloor heating
'====================================================================================================
' Project name: Pump
' MCU:          PIC16F1847
' Oscillator:   Internal 8 MHz
' Display:      7-Segment 8 pieces with Max 7219 (SPI1)
' Temp Sensor:  DB18B20 LATB.0           Pin 6
' Switch Low  + PORT A.0                 Pin 17
' Switch Low  - PORT A.1                 Pin 18
' Switch High + PORT A.2                 Pin 1
' Switch High - PORT A.3                 Pin 2
' SDO:          LATB.2                   Pin 8
' SCK:          PORTB.4                  Pin 10
' D/C:          LATB.3                   Pin 9
' PumpOnOff     LATB.5                   Pin 11

 Const 
     Time_L   = 30
     Time_H   = 35
     Init_TL  = 23
     Init_TH  = 26

 Dim Ref_Temp_L As Byte
     Ref_Temp_H As Byte
     Datapin    As sbit at LATB.2       'Pin 8  SDO  - SPI1
     SCKPin     As sbit at PORTB.4      'Pin 10 SCK - SPI1
     D_C        As sbit at LATB.3       'Pin 9  Data Command
     D_C1       As sBit at LATB.0       'Pin 6  Data/Command Tem Sensor DB18B20
     Sw_Low_Up  As SBit at PORTA.0      'Pin 17 Adjust temperature Low  - Increase
     Sw_Low_Dn  As SBit at PORTA.1      'Pin 18 Adjust temperature Low  - Decrease
     Sw_High_Up As SBit at PORTA.2      'Pin 1  Adjust temperature High - Increase
     Sw_High_Dn As SBit at PORTA.3      'Pin 2  Adjust temperature High - Decreasee
     PumpOnOff  As sBit at LATB.5       'Pin 11 Control relais For pump
     Disp       As Byte
     Dsp        As Byte [8]
     TempH1     As byte
     TempL1     As byte
     Temp1      As word
     Cnt        As Byte
     CntSec     As Longword
     i1         As Byte

'====================================================================================================
Sub Procedure Max_Write(Dim pRow, pDig0 as Byte)
'====================================================================================================
 D_C = 0
 SPI1_Write(pRow)
 SPI1_Write(pDig0)
 D_C = 1
 Delay_ms(2)
End sub

'====================================================================================================
Sub Procedure Max7219_Init()
'====================================================================================================
 Max_Write(0x09, 0xFF)                   'Decode Mode Code B-Digital digits 7-5 and 3-0; 4 = -
 Max_Write(0x0B, 0x07)                   'Scan Limit 0-7
 Max_Write(0x0C, 0x01)                   'Normal Operation
 Max_Write(0x0A, 0x0C)                   'Intensity
End sub

'====================================================================================================
Sub Procedure Write_Display()
'====================================================================================================
 For Disp = 1 to 8
   Max_Write(Disp, Dsp[Disp - 1])
   Next Disp
End sub

'====================================================================================================
Sub Procedure Blank_Digits()            'Blank Digits. First 2 digits 0, other blank
'====================================================================================================
 For Disp  = 0 to 7
   Dsp[Disp] = 0x7F                     'Blank all displays
 Next Disp
 Write_Display()
 Delay_Ms(1000)

 For i1 = 0 to 7                        'Test Displays
   Dsp[i1] = i1 + 1
   Write_Display()
   Delay_Ms(100)
 Next i1
 Delay_Ms(1000)

 For Disp  = 0 to 1
   Dsp[Disp] = 0x00                     'Show 00 at start on display 1-2
 Next Disp
 For Disp  = 2 to 7                     'Blank Display 3-7 and suppress decimal point
   Dsp[Disp] = 0x7F
 Next Disp
 Write_Display()
End Sub

'====================================================================================================
 Sub procedure Read_Temp()              'Read Temperature from DB18B20
'====================================================================================================
  Ow_Reset(PORTB, 0)                    'Onewire reset signal
  Ow_Write(PORTB, 0, 0xCC)              'Issue command SKIP_ROM
  Ow_Write(PORTB, 0, 0x44)              'Issue command CONVERT_T
  Delay_us(120)
  Ow_Reset(PORTB, 0)                    'Onewire reset signal
  Ow_Write(PORTB, 0, 0xCC)              'Issue command SKIP_ROM
  Ow_Write(PORTB, 0, 0xBE)              'Read ScratchPad

  TempL1 =  Ow_Read(PORTB, 0)
  TempH1 =  Ow_Read(PORTB, 0)
  Temp1 = TempH1 <<4 + TempL1 >>4
  If tempH1.7 = 1 Then                  'Negative temperature
     Temp1 = NOT(TempH1 <<4 + TempL1 >>4) + 1
  Else
     Temp1 = (TempH1 <<4 + TempL1 >>4) + 1
  End If
  Temp1 = Temp1 - 1                     'Correction calibration
End Sub

'====================================================================================================
 Sub procedure Adjust_Limits            'Adjust Temperature Limits
'====================================================================================================
 If Sw_Low_Up = 0 Then
     Delay_ms(50)
     If Sw_Low_Up = 0 Then
        If (Ref_Temp_L < (Ref_Temp_H - 1)) Then
           Inc(Ref_Temp_L)
        End If
     End If
  End If

  If Sw_Low_Dn = 0 Then
     Delay_ms(50)
     If Sw_Low_Dn = 0 Then
        Dec(Ref_Temp_L)
     End If
  End If

  If Sw_High_Up = 0 Then
     Delay_ms(50)
     If Sw_High_Up= 0 Then
        Inc(Ref_Temp_H)
     End If
  End If

  If Sw_High_Dn = 0 Then
     Delay_ms(50)
     If Sw_High_Dn = 0 Then
        If (Ref_Temp_H > (Ref_Temp_L + 2)) Then
           Dec(Ref_Temp_H)
        End If
     End If
  End If
 End Sub
 
'====================================================================================================
 Sub procedure Show_Data                'Show data in displays
'====================================================================================================
  Dsp[3] = Ref_Temp_H mod 10            'Display reference Temperature High
  Dsp[4] = Ref_Temp_H/10 mod 10

  Dsp[6] = Ref_Temp_L mod 10            'Display reference Temperature Low
  Dsp[7] = Ref_Temp_L/10 mod 10

  Read_Temp()
  Dsp[0] = Temp1 mod 10                 'Display Current Temperature on Digits 4-5
  Dsp[1] = Temp1/10 mod 10
  Write_Display()
 End Sub

'====================================================================================================
Sub procedure Interrupt() iv 0x0004 ics ICS_AUTO
'====================================================================================================
 If TMR2If_bit = 1 Then
    Inc(Cnt)
    If Cnt >= 199 Then
      Cnt = 0
      Inc(CntSec)
      If CntSec > Time_H Then
         Cnt = 0
         CntSec = 0
      End If
    End If
    TMR2If_bit = 0
  End If
End Sub

main:

OSCCON     = %01110000                  '8Mhz Internal
ANSELB     = %00000000                  'All Port B Digital
ANSELA     = %00000000                  'All Port A Digital
TRISB      = %00000001                  'Port B.0 Input
TRISA      = %00001111                  'Port A0, A1, A2, A3 Input
PR2        = 249
T2CON      = %01001101                  'Post: 10, Pre 4
TMR2IE_bit = 1
GIE_bit    = 1
PEIE_bit   = 1

PumpOnOff  = 0                          'Default Relais Off, Pump On

Cnt        = 0
CntSec     = 0
Ref_Temp_L = Init_TL                    'Init values For temperature control
Ref_Temp_H = Init_TH

SPI1_Init()                             'Init SPI
Max7219_Init()                          'Init MAX7219
Delay_ms(5)
Blank_Digits()                          'Blank Displays
Delay_Ms(5)

While True
  Adjust_Limits()                       'Set Limits For temperature control
  Show_Data()

  If (Temp1 >= Ref_Temp_H) Then         'Main control
     PumpOnOff = 1
  Else
     If (Temp1 <= Ref_Temp_L) Then
     PumpOnOff = 0
     If CntSec >= Time_L Then           'Check on time. Pump runs between Time_L And Time_H
        PumpOnOff = 1
        End If
     End If
  End If
 
  Delay_Ms(25)
Wend

End.