martin66119
28.10.2007, 15:57
Einen schönen Sonntag euch allen hier im Forum!
Kann mir bitte jemand helfen. Ich weiß, dass der Code etwas lang ist, jedoch möchte ich ihn komplett hier hereinstellen. Ggf. kann ihn ja jemand oder Teile davon brachen.
Das Problem was ich habe ist, ich möchte gerne Abhängig vom Wochentag die Minimale Kesseltemperatur ändern. Nur wenn ich Weekday auf dem Display ausgebe kommt heute der Tag "5". Was mache ich da falsch.
Ein paar Infos zu meinem Programm.
In meinem Programm lese ich ein paar DS1820 aus. Zusätzlich noch zwei Temperaturwerte mit dem 10 Bit-AD-Wandler. Abhängig von den Messwerten und der Uhzeit schalte ich den Brenner sowie die Punpen ein und aus.
Ich weiß, dass es etwas anfängerhaft programmiert ist. Wie auch immer! Ich lerne noch,
__________________________________________________ ___________
$regfile = "m8def.dat"
$crystal = 3686400
$hwstack = 256
$swstack = 256
$framesize = 256
'***************************Config Schaltausgänge*******************************
Config Portb = Output
Brenner Alias Portb.3
Pumpefb Alias Portb.4
Pumpehk Alias Portb.5
'**************************Def. allgemeiner Variabeln***************************
Dim Tagnacht As Bit
Dim Nachtbetrieb As Byte
Dim Tagbetrieb As Byte
Dim Tempmessstelle(8) As Single
Dim Brennerstarts As Integer
Dim Interrupt_brenner As Bit
Dim Zeit_in_min As Integer
Dim Kessel_max As Single
Dim Kessel_min As Single
Dim Kessel_grenz_max As Single
Dim Kessel_grenz_min As Single
Dim Delta_kessel As Single
Dim Delta_vl_rl_fb As Single
Dim Wassertemp As Bit
Dim Aussentemp As Single
Dim Flag_aussentemp As Bit
Aussentemp = 2.68
Dim Flag_frequenz As Bit
Flag_frequenz = 0
Kessel_max = 57.0 '60.0
Kessel_min = 40.0 '43.0
Kessel_grenz_max = Kessel_max
Kessel_grenz_min = Kessel_min
Wassertemp = 1
Brennerstarts = 0
Interrupt_brenner = 0
Nachtbetrieb = 22
Tagbetrieb = 4
Const Tagtemp_og = 21.8
Const Tagtemp_ug = 21.6
Const Nachttemp_og = 21.4
Const Nachttemp_ug = 21.2
'**************************Funktionen LCD-Display*******************************
Config Lcd = 40 * 4
Config Lcdpin = Pin , Rs = Portb.0 , Db4 = Portd.5 , Db5 = Portd.4 , Db6 = Portd.3 , Db7 = Portd.2 , E = Portd.6 , E2 = Portd.7
Config Lcdbus = 4
Config Lcdmode = Port
Dim ___lcdno As Byte
___lcdno = 0
Initlcd
Cursor Off
Cls
___lcdno = 1
Initlcd
Cursor Off
Cls
'************************************************* ******************************
Config 1wire = Portc.1 'DS1820
Match_rom Alias &H55
Read_scratchpad Alias &HBE
Start_conversion Alias &H44
Innen Alias 0
Vorlauf_fb Alias 1
Rücklauf_fb Alias 2
Vorlauf_hk Alias 3
Kessel Alias 4
Dim Read_temp As Integer
Dim Sensor_ids(48) As Byte
Dim Id As Byte
Dim Offset As Byte
Dim Ds_array(7) As Byte
Dim Bruchteil As Single
Dim Temperatur As Single
Dim I As Integer
'*************************Config INT0 zur Frequenzmesung************************
Enable Interrupts
Enable Int0
Config Int0 = Falling
Dim Flankenzahl As Integer
Flankenzahl = 0
On Int0 Irq
'*************************Config Timer1*****************************************
Config Timer1 = Timer , Prescale = 256 '256 '64 '256 'Konfiguriere Timer1
Enable Timer1 'schalte den Timer1 ein
On Timer1 Isr_von_timer1 'verzweige bei Timer1 überlauf zu Isr_von_Timer1
Enable Interrupts
Timer1 = 51135 'Timer1 soll schon von 34285 wegzählen
'***************************Config RTC******************************************
Config Sda = Portc.4
Config Scl = Portc.5
Const Ds1307w = &HD0 ' Addresses of Ds1307 clock
Const Ds1307r = &HD1
Config Clock = User ' this will dim the bytes automatic
Dim Weekday As Byte
'Time$ = "01:50:00" ' to watch the day changing value
Date$ = "10.28.07" ' erstmaliges stellen der Uhr
'Weekday = 7
'***************************AD-Config*******************************************
Config Adc = Single , Prescaler = Auto
Dim Faktor As Single
Dim Sp As Integer
Faktor = 5.28 / 1023
'***************************ID 1Wire configurieren******************************
For Id = 1 To 40 'Einlesen der 5 Sensoren IDs (5*8 Byte)
I = Id - 1
Readeeprom Sensor_ids(id) , I
Next Id
'**************************Initialisierung******** ******************************
Brenner = 0
Pumpefb = 1
Pumpehk = 1
'**************************Hauptrogramm*********** ******************************
Do
Waitms 1000
For Id = Innen To Kessel 'Kessel
Offset = Id * 8
Offset = Offset + 1 'Offset geht auf 1, 9, 17, 25 und 33
1wreset 'hier wird der Temperaturwert eingelesen
1wwrite Match_rom
1wwrite Sensor_ids(offset) , 8 '8 Byte ID wird übertragen
1wwrite Read_scratchpad
For I = 1 To 7 'nur bis 7, weil 8 und 9 uninteressant
Ds_array(i) = 1wread()
Next I
Read_temp = Makeint(ds_array(1) , Ds_array(2))
1wreset 'jetzt wird wieder die Konvertierung gestartet
1wwrite Match_rom
1wwrite Sensor_ids(offset) , 8
1wwrite Start_conversion
Shift Read_temp , Right
If 127 < Read_temp Then Read_temp = Read_temp - 32768
Bruchteil = 16 - Ds_array(7)
Bruchteil = Bruchteil / 16
Bruchteil = Bruchteil - 0.25
Temperatur = Read_temp + Bruchteil
If Temperatur >= -16.0 Then
Tempmessstelle(id + 1) = Read_temp + Bruchteil 'Temperatur
End If
___lcdno = 0
Locate 1 , 2 : Lcd "BO-U RA-T KE-T VLB-T RLB-T"
Select Case Id
Case Innen: '1
Locate 2 , 7 : Lcd Fusing(tempmessstelle(1) , "#.#")
Locate 2 , 11 : Lcd " "
Case Kessel: '2
Locate 2 , 12 : Lcd Fusing(tempmessstelle(2) , "#.#")
Locate 2 , 16 : Lcd " "
Case Vorlauf_fb: '3
Locate 2 , 17 : Lcd Fusing(tempmessstelle(3) , "#.#")
Locate 2 , 21 : Lcd " "
Case Rücklauf_fb: '4
Locate 2 , 23 : Lcd Fusing(tempmessstelle(4) , "#.#")
Locate 2 , 27 : Lcd " "
End Select
Locate 2 , 6 : Lcd " "
If Tempmessstelle(8) >= 0 Then
Locate 2 , 2 : Lcd Fusing(tempmessstelle(8) , "#.##")
Else
Locate 2 , 1 : Lcd Fusing(tempmessstelle(8) , "#.#")
End If
___lcdno = 1
Locate 2 , 20
Lcd Time$
Locate 2 , 15 : Lcd " "
Select Case Id
Case Vorlauf_hk: '5
Locate 1 , 1 : Lcd "Vl-hk " : Lcd Fusing(tempmessstelle(5) , "#.#")
Locate 1 , 11 : Lcd " "
End Select
'Locate 1 , 12 : Lcd "AU-T " : Lcd Fusing(tempmessstelle(7) , "#.##")
Locate 1 , 12 : Lcd "AU-T " : Lcd Fusing(aussentemp , "#.##")
Locate 1 , 21 : Lcd " "
Locate 2 , 1 : Lcd "Starts:" '"B-Start: "
Locate 2 , 9 : Lcd Brennerstarts 'Brennerstarts
Locate 2 , 16
Lcd Weekday
Cursor Off
Next Id
If _hour >= Nachtbetrieb Or _hour < Tagbetrieb Then 'Or _hour = 7 Or _hour = 8 Then
Tagnacht = 0 'Nachteinstellung
Else
Tagnacht = 1 'Tageinstellung
End If
Gosub Ad_wandler
Gosub Überwachung_kesseltemp 'Aussentemp_mittel
Gosub Schalterelais
Gosub Aussentemp_mittel
Gosub Kesselgrenzwert
'Gosub Überwachung_pumpen
If Wassertemp = 0 Then
Gosub Überwachung_brauchwassertemp
End If
Loop
End
'*******************************Uhr stellen + 1min******************************
Uhr_plus_min:
Return
'*******************************Frequenzzähler**** ******************************
Frequenz:
Return
'*******************************Überwachung Brauchwassertemp********************
Überwachung_brauchwassertemp:
If Tempmessstelle(4) <= 42.0 Then
Wassertemp = 0
If Tempmessstelle(2) < 48.0 Then
Brenner = 1
End If
If Tempmessstelle(2) > 58.0 Then
Brenner = 0
End If
Pumpehk = 1
Pumpefb = 0
End If
If Tempmessstelle(2) >= 50 Then
Wassertemp = 1
End If
Return
'*******************************Überwachung Pumpen******************************
Überwachung_pumpen:
If Tempmessstelle(2) < 29.0 Then
Pumpefb = 0
End If
If Tempmessstelle(2) >= 32.0 Then
Pumpefb = 1
End If
If Tempmessstelle(2) < 38.0 Then
Pumpehk = 0
End If
If Tempmessstelle(2) >= 36.0 Then
Pumpehk = 1
End If
Return
'*******************************AD-Wandler**************************************
Ad_wandler:
Start Adc
Sp = Getadc(0)
Tempmessstelle(8) = Sp * Faktor
'Tempmessstelle(8) = Tempmessstelle(8) - 0.35
'Tempmessstelle(8) = 132.14 * Tempmessstelle(8)
'Tempmessstelle(8) = Tempmessstelle(8) - 153.93 ' Boiler_temp unten
Sp = Getadc(2)
Tempmessstelle(7) = Sp * Faktor ' Außentemp
'Sp = Getadc(2)
'Tempmessstelle(6) = Sp * Faktor
Return
'
'**************************Überwachung Kesseltemp*******************************
Überwachung_kesseltemp:
If Tempmessstelle(2) >= Kessel_grenz_max Or Tempmessstelle(8) >= 1.52 Then
Brenner = 0
If Interrupt_brenner = 0 Then
Brennerstarts = Brennerstarts + 1
Interrupt_brenner = 1
End If
End If
If Tempmessstelle(2) < Kessel_grenz_min And Tempmessstelle(8) <= 1.46 Then
Brenner = 1
Interrupt_brenner = 0
End If
Return
'*************************Kesselgrenzwert bestimmen*****************************
Kesselgrenzwert:
If Aussentemp > 1.8 And Aussentemp < 3.0 Then
If Aussentemp >= 2.68 Then ' Aussentemp >= 18 Grad
Delta_kessel = 0
End If
If Aussentemp > 2.10 And Aussentemp < 2.68 Then
Delta_kessel = 2.68 - Aussentemp
Delta_kessel = Delta_kessel * 11
Delta_kessel = Abs(delta_kessel)
End If
If Aussentemp <= 2.10 Then 'Aussentemp <= -7 Grad
Delta_kessel = 0.58 * 11
End If
End If
Return
'*************************Mittelwert der Außentemp******************************
Aussentemp_mittel:
'If _min = 0 Then
Aussentemp = Tempmessstelle(7) + Aussentemp
Aussentemp = Aussentemp / 2
'End If
Return
'*************************Sub Relais schalten***********************************
Schalterelais:
Select Case Tagnacht
Case 0
Gosub Nachtbetrieb
Case 1
Gosub Tagbetrieb
End Select
Return
'**************************Sub für Tagbetrieb**********************************
Tagbetrieb:
'If Weekday = 6 Or Weekday = 7 Then
' If _hour <= 8 Then
'' Kessel_grenz_min = Kessel_min
' Kessel_grenz_max = Kessel_max + Delta_kessel
' Else
' Kessel_grenz_min = Kessel_min + Delta_kessel
' Kessel_grenz_max = Kessel_max + Delta_kessel
' End If
'Else
If _hour <= 12 Then
Kessel_grenz_min = Kessel_min
Kessel_grenz_max = Kessel_max + Delta_kessel
Else
Kessel_grenz_min = Kessel_min + Delta_kessel
Kessel_grenz_max = Kessel_max + Delta_kessel
End If
'End If
If Tempmessstelle(1) <= Tagtemp_ug Then
Pumpefb = 1
End If
If Tempmessstelle(1) >= Tagtemp_og Then
Brenner = 0
Pumpefb = 0
End If
Return
'**************************Sub für Nachtbetrieb*********************************
Nachtbetrieb:
Kessel_grenz_min = 29.0
If Tempmessstelle(2) >= Kessel_grenz_min Then
Brenner = 0
Pumpefb = 1
Else
Brenner = 0
Pumpefb = 0
End If
If _hour = 0 Then 'Brennerstarts auf Null setzen
Brennerstarts = 0
Delta_kessel = 0
Aussentemp = 2.68
End If
Return
'***************************INTO Interrupt**************************************
Irq:
Incr Flankenzahl
Return '
'**************************Subroutine für Timer1*******************************
Isr_von_timer1: 'ISR von Timer1
Timer1 = 51135
Flankenzahl = 0
Return
'***************************Subs für RTC****************************************
Getdatetime:
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' start address in 1307
I2cstart ' Generate start code
I2cwbyte Ds1307r ' send address
I2crbyte _sec , Ack
I2crbyte _min , Ack ' MINUTES
I2crbyte _hour , Ack ' Hours
I2crbyte Weekday , Ack ' Day of Week
I2crbyte _day , Ack ' Day of Month
I2crbyte _month , Ack ' Month of Year
I2crbyte _year , Nack ' Year
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return
Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 4 ' starting address in 1307
I2cwbyte _day ' Send Data to SECONDS
I2cwbyte _month ' MINUTES
I2cwbyte _year ' Hours
I2cstop
Return
Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' starting address in 1307
I2cwbyte _sec ' Send Data to SECONDS
I2cwbyte _min ' MINUTES
I2cwbyte _hour ' Hours
I2cstop
Return
'************************************************* ******************************
$eeprom
Data &H10 , &HE8 , &HF4 , &H23 , &H01 , &H08 , &H00 , &HEF ' 0
Data &H10 , &H1B , &HD0 , &H23 , &H01 , &H08 , &H00 , &H23 ' 1
Data &H10 , &H78 , &H37 , &H39 , &H01 , &H08 , &H00 , &H11 ' 2
Data &H10 , &HC0 , &H46 , &H19 , &H01 , &H08 , &H00 , &H67 ' 3
'Data &H10 , &HBD , &HB6 , &H23 , &H01 , &H08 , &H00 , &H40 ' 4
Data &H10 , &H56 , &HA3 , &H23 , &H01 , &H08 , &H00 , &H3F ' 5
Kann mir bitte jemand helfen. Ich weiß, dass der Code etwas lang ist, jedoch möchte ich ihn komplett hier hereinstellen. Ggf. kann ihn ja jemand oder Teile davon brachen.
Das Problem was ich habe ist, ich möchte gerne Abhängig vom Wochentag die Minimale Kesseltemperatur ändern. Nur wenn ich Weekday auf dem Display ausgebe kommt heute der Tag "5". Was mache ich da falsch.
Ein paar Infos zu meinem Programm.
In meinem Programm lese ich ein paar DS1820 aus. Zusätzlich noch zwei Temperaturwerte mit dem 10 Bit-AD-Wandler. Abhängig von den Messwerten und der Uhzeit schalte ich den Brenner sowie die Punpen ein und aus.
Ich weiß, dass es etwas anfängerhaft programmiert ist. Wie auch immer! Ich lerne noch,
__________________________________________________ ___________
$regfile = "m8def.dat"
$crystal = 3686400
$hwstack = 256
$swstack = 256
$framesize = 256
'***************************Config Schaltausgänge*******************************
Config Portb = Output
Brenner Alias Portb.3
Pumpefb Alias Portb.4
Pumpehk Alias Portb.5
'**************************Def. allgemeiner Variabeln***************************
Dim Tagnacht As Bit
Dim Nachtbetrieb As Byte
Dim Tagbetrieb As Byte
Dim Tempmessstelle(8) As Single
Dim Brennerstarts As Integer
Dim Interrupt_brenner As Bit
Dim Zeit_in_min As Integer
Dim Kessel_max As Single
Dim Kessel_min As Single
Dim Kessel_grenz_max As Single
Dim Kessel_grenz_min As Single
Dim Delta_kessel As Single
Dim Delta_vl_rl_fb As Single
Dim Wassertemp As Bit
Dim Aussentemp As Single
Dim Flag_aussentemp As Bit
Aussentemp = 2.68
Dim Flag_frequenz As Bit
Flag_frequenz = 0
Kessel_max = 57.0 '60.0
Kessel_min = 40.0 '43.0
Kessel_grenz_max = Kessel_max
Kessel_grenz_min = Kessel_min
Wassertemp = 1
Brennerstarts = 0
Interrupt_brenner = 0
Nachtbetrieb = 22
Tagbetrieb = 4
Const Tagtemp_og = 21.8
Const Tagtemp_ug = 21.6
Const Nachttemp_og = 21.4
Const Nachttemp_ug = 21.2
'**************************Funktionen LCD-Display*******************************
Config Lcd = 40 * 4
Config Lcdpin = Pin , Rs = Portb.0 , Db4 = Portd.5 , Db5 = Portd.4 , Db6 = Portd.3 , Db7 = Portd.2 , E = Portd.6 , E2 = Portd.7
Config Lcdbus = 4
Config Lcdmode = Port
Dim ___lcdno As Byte
___lcdno = 0
Initlcd
Cursor Off
Cls
___lcdno = 1
Initlcd
Cursor Off
Cls
'************************************************* ******************************
Config 1wire = Portc.1 'DS1820
Match_rom Alias &H55
Read_scratchpad Alias &HBE
Start_conversion Alias &H44
Innen Alias 0
Vorlauf_fb Alias 1
Rücklauf_fb Alias 2
Vorlauf_hk Alias 3
Kessel Alias 4
Dim Read_temp As Integer
Dim Sensor_ids(48) As Byte
Dim Id As Byte
Dim Offset As Byte
Dim Ds_array(7) As Byte
Dim Bruchteil As Single
Dim Temperatur As Single
Dim I As Integer
'*************************Config INT0 zur Frequenzmesung************************
Enable Interrupts
Enable Int0
Config Int0 = Falling
Dim Flankenzahl As Integer
Flankenzahl = 0
On Int0 Irq
'*************************Config Timer1*****************************************
Config Timer1 = Timer , Prescale = 256 '256 '64 '256 'Konfiguriere Timer1
Enable Timer1 'schalte den Timer1 ein
On Timer1 Isr_von_timer1 'verzweige bei Timer1 überlauf zu Isr_von_Timer1
Enable Interrupts
Timer1 = 51135 'Timer1 soll schon von 34285 wegzählen
'***************************Config RTC******************************************
Config Sda = Portc.4
Config Scl = Portc.5
Const Ds1307w = &HD0 ' Addresses of Ds1307 clock
Const Ds1307r = &HD1
Config Clock = User ' this will dim the bytes automatic
Dim Weekday As Byte
'Time$ = "01:50:00" ' to watch the day changing value
Date$ = "10.28.07" ' erstmaliges stellen der Uhr
'Weekday = 7
'***************************AD-Config*******************************************
Config Adc = Single , Prescaler = Auto
Dim Faktor As Single
Dim Sp As Integer
Faktor = 5.28 / 1023
'***************************ID 1Wire configurieren******************************
For Id = 1 To 40 'Einlesen der 5 Sensoren IDs (5*8 Byte)
I = Id - 1
Readeeprom Sensor_ids(id) , I
Next Id
'**************************Initialisierung******** ******************************
Brenner = 0
Pumpefb = 1
Pumpehk = 1
'**************************Hauptrogramm*********** ******************************
Do
Waitms 1000
For Id = Innen To Kessel 'Kessel
Offset = Id * 8
Offset = Offset + 1 'Offset geht auf 1, 9, 17, 25 und 33
1wreset 'hier wird der Temperaturwert eingelesen
1wwrite Match_rom
1wwrite Sensor_ids(offset) , 8 '8 Byte ID wird übertragen
1wwrite Read_scratchpad
For I = 1 To 7 'nur bis 7, weil 8 und 9 uninteressant
Ds_array(i) = 1wread()
Next I
Read_temp = Makeint(ds_array(1) , Ds_array(2))
1wreset 'jetzt wird wieder die Konvertierung gestartet
1wwrite Match_rom
1wwrite Sensor_ids(offset) , 8
1wwrite Start_conversion
Shift Read_temp , Right
If 127 < Read_temp Then Read_temp = Read_temp - 32768
Bruchteil = 16 - Ds_array(7)
Bruchteil = Bruchteil / 16
Bruchteil = Bruchteil - 0.25
Temperatur = Read_temp + Bruchteil
If Temperatur >= -16.0 Then
Tempmessstelle(id + 1) = Read_temp + Bruchteil 'Temperatur
End If
___lcdno = 0
Locate 1 , 2 : Lcd "BO-U RA-T KE-T VLB-T RLB-T"
Select Case Id
Case Innen: '1
Locate 2 , 7 : Lcd Fusing(tempmessstelle(1) , "#.#")
Locate 2 , 11 : Lcd " "
Case Kessel: '2
Locate 2 , 12 : Lcd Fusing(tempmessstelle(2) , "#.#")
Locate 2 , 16 : Lcd " "
Case Vorlauf_fb: '3
Locate 2 , 17 : Lcd Fusing(tempmessstelle(3) , "#.#")
Locate 2 , 21 : Lcd " "
Case Rücklauf_fb: '4
Locate 2 , 23 : Lcd Fusing(tempmessstelle(4) , "#.#")
Locate 2 , 27 : Lcd " "
End Select
Locate 2 , 6 : Lcd " "
If Tempmessstelle(8) >= 0 Then
Locate 2 , 2 : Lcd Fusing(tempmessstelle(8) , "#.##")
Else
Locate 2 , 1 : Lcd Fusing(tempmessstelle(8) , "#.#")
End If
___lcdno = 1
Locate 2 , 20
Lcd Time$
Locate 2 , 15 : Lcd " "
Select Case Id
Case Vorlauf_hk: '5
Locate 1 , 1 : Lcd "Vl-hk " : Lcd Fusing(tempmessstelle(5) , "#.#")
Locate 1 , 11 : Lcd " "
End Select
'Locate 1 , 12 : Lcd "AU-T " : Lcd Fusing(tempmessstelle(7) , "#.##")
Locate 1 , 12 : Lcd "AU-T " : Lcd Fusing(aussentemp , "#.##")
Locate 1 , 21 : Lcd " "
Locate 2 , 1 : Lcd "Starts:" '"B-Start: "
Locate 2 , 9 : Lcd Brennerstarts 'Brennerstarts
Locate 2 , 16
Lcd Weekday
Cursor Off
Next Id
If _hour >= Nachtbetrieb Or _hour < Tagbetrieb Then 'Or _hour = 7 Or _hour = 8 Then
Tagnacht = 0 'Nachteinstellung
Else
Tagnacht = 1 'Tageinstellung
End If
Gosub Ad_wandler
Gosub Überwachung_kesseltemp 'Aussentemp_mittel
Gosub Schalterelais
Gosub Aussentemp_mittel
Gosub Kesselgrenzwert
'Gosub Überwachung_pumpen
If Wassertemp = 0 Then
Gosub Überwachung_brauchwassertemp
End If
Loop
End
'*******************************Uhr stellen + 1min******************************
Uhr_plus_min:
Return
'*******************************Frequenzzähler**** ******************************
Frequenz:
Return
'*******************************Überwachung Brauchwassertemp********************
Überwachung_brauchwassertemp:
If Tempmessstelle(4) <= 42.0 Then
Wassertemp = 0
If Tempmessstelle(2) < 48.0 Then
Brenner = 1
End If
If Tempmessstelle(2) > 58.0 Then
Brenner = 0
End If
Pumpehk = 1
Pumpefb = 0
End If
If Tempmessstelle(2) >= 50 Then
Wassertemp = 1
End If
Return
'*******************************Überwachung Pumpen******************************
Überwachung_pumpen:
If Tempmessstelle(2) < 29.0 Then
Pumpefb = 0
End If
If Tempmessstelle(2) >= 32.0 Then
Pumpefb = 1
End If
If Tempmessstelle(2) < 38.0 Then
Pumpehk = 0
End If
If Tempmessstelle(2) >= 36.0 Then
Pumpehk = 1
End If
Return
'*******************************AD-Wandler**************************************
Ad_wandler:
Start Adc
Sp = Getadc(0)
Tempmessstelle(8) = Sp * Faktor
'Tempmessstelle(8) = Tempmessstelle(8) - 0.35
'Tempmessstelle(8) = 132.14 * Tempmessstelle(8)
'Tempmessstelle(8) = Tempmessstelle(8) - 153.93 ' Boiler_temp unten
Sp = Getadc(2)
Tempmessstelle(7) = Sp * Faktor ' Außentemp
'Sp = Getadc(2)
'Tempmessstelle(6) = Sp * Faktor
Return
'
'**************************Überwachung Kesseltemp*******************************
Überwachung_kesseltemp:
If Tempmessstelle(2) >= Kessel_grenz_max Or Tempmessstelle(8) >= 1.52 Then
Brenner = 0
If Interrupt_brenner = 0 Then
Brennerstarts = Brennerstarts + 1
Interrupt_brenner = 1
End If
End If
If Tempmessstelle(2) < Kessel_grenz_min And Tempmessstelle(8) <= 1.46 Then
Brenner = 1
Interrupt_brenner = 0
End If
Return
'*************************Kesselgrenzwert bestimmen*****************************
Kesselgrenzwert:
If Aussentemp > 1.8 And Aussentemp < 3.0 Then
If Aussentemp >= 2.68 Then ' Aussentemp >= 18 Grad
Delta_kessel = 0
End If
If Aussentemp > 2.10 And Aussentemp < 2.68 Then
Delta_kessel = 2.68 - Aussentemp
Delta_kessel = Delta_kessel * 11
Delta_kessel = Abs(delta_kessel)
End If
If Aussentemp <= 2.10 Then 'Aussentemp <= -7 Grad
Delta_kessel = 0.58 * 11
End If
End If
Return
'*************************Mittelwert der Außentemp******************************
Aussentemp_mittel:
'If _min = 0 Then
Aussentemp = Tempmessstelle(7) + Aussentemp
Aussentemp = Aussentemp / 2
'End If
Return
'*************************Sub Relais schalten***********************************
Schalterelais:
Select Case Tagnacht
Case 0
Gosub Nachtbetrieb
Case 1
Gosub Tagbetrieb
End Select
Return
'**************************Sub für Tagbetrieb**********************************
Tagbetrieb:
'If Weekday = 6 Or Weekday = 7 Then
' If _hour <= 8 Then
'' Kessel_grenz_min = Kessel_min
' Kessel_grenz_max = Kessel_max + Delta_kessel
' Else
' Kessel_grenz_min = Kessel_min + Delta_kessel
' Kessel_grenz_max = Kessel_max + Delta_kessel
' End If
'Else
If _hour <= 12 Then
Kessel_grenz_min = Kessel_min
Kessel_grenz_max = Kessel_max + Delta_kessel
Else
Kessel_grenz_min = Kessel_min + Delta_kessel
Kessel_grenz_max = Kessel_max + Delta_kessel
End If
'End If
If Tempmessstelle(1) <= Tagtemp_ug Then
Pumpefb = 1
End If
If Tempmessstelle(1) >= Tagtemp_og Then
Brenner = 0
Pumpefb = 0
End If
Return
'**************************Sub für Nachtbetrieb*********************************
Nachtbetrieb:
Kessel_grenz_min = 29.0
If Tempmessstelle(2) >= Kessel_grenz_min Then
Brenner = 0
Pumpefb = 1
Else
Brenner = 0
Pumpefb = 0
End If
If _hour = 0 Then 'Brennerstarts auf Null setzen
Brennerstarts = 0
Delta_kessel = 0
Aussentemp = 2.68
End If
Return
'***************************INTO Interrupt**************************************
Irq:
Incr Flankenzahl
Return '
'**************************Subroutine für Timer1*******************************
Isr_von_timer1: 'ISR von Timer1
Timer1 = 51135
Flankenzahl = 0
Return
'***************************Subs für RTC****************************************
Getdatetime:
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' start address in 1307
I2cstart ' Generate start code
I2cwbyte Ds1307r ' send address
I2crbyte _sec , Ack
I2crbyte _min , Ack ' MINUTES
I2crbyte _hour , Ack ' Hours
I2crbyte Weekday , Ack ' Day of Week
I2crbyte _day , Ack ' Day of Month
I2crbyte _month , Ack ' Month of Year
I2crbyte _year , Nack ' Year
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
_day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
Return
Setdate:
_day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 4 ' starting address in 1307
I2cwbyte _day ' Send Data to SECONDS
I2cwbyte _month ' MINUTES
I2cwbyte _year ' Hours
I2cstop
Return
Settime:
_sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' starting address in 1307
I2cwbyte _sec ' Send Data to SECONDS
I2cwbyte _min ' MINUTES
I2cwbyte _hour ' Hours
I2cstop
Return
'************************************************* ******************************
$eeprom
Data &H10 , &HE8 , &HF4 , &H23 , &H01 , &H08 , &H00 , &HEF ' 0
Data &H10 , &H1B , &HD0 , &H23 , &H01 , &H08 , &H00 , &H23 ' 1
Data &H10 , &H78 , &H37 , &H39 , &H01 , &H08 , &H00 , &H11 ' 2
Data &H10 , &HC0 , &H46 , &H19 , &H01 , &H08 , &H00 , &H67 ' 3
'Data &H10 , &HBD , &HB6 , &H23 , &H01 , &H08 , &H00 , &H40 ' 4
Data &H10 , &H56 , &HA3 , &H23 , &H01 , &H08 , &H00 , &H3F ' 5