lukario/Schaltschranklueftersteuerung
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

.

Browse Source
This commit is contained in:
lukario
2021-06-16 17:38:28 +02:00
parent 4c8ac7f1ba
commit 13d468e62c
27 changed files with 36998 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
Luefter_Software_V1/LUEFTER1.BIN Normal file
View File

Binary file not shown.

256
Luefter_Software_V1/LUEFTER1.HEX Normal file
View File

@@ -0,0 +1,256 @@
:1000000012C0189518951895189518951895189563
:100010001895189518951895189518951895189578
:100020001895189518958FE58DBFC0E4E0E44E2E25
:1000300084E08EBFD4E0F4E05F2EEEEFF3E0A0E6C4
:10004000B0E088278D933197E9F786E089B980E0A1
:1000500080BD88E18AB96FD366248FEF87BBB99AD8
:1000600083E88FBD81E08EBDA098A198A298A39847
:10007000A498AC9AA598AD9A83E086B980E487B934
:10008000889A899AA0EBB0E0E2EAFFE01FD3E6EAA3
:10009000FFE056D6E0EBF0E0FBD400D6FF27EDE022
:1000A000ADECB0E02DD7E6EAFFE04AD6E0EBF0E0B9
:1000B000EFD4E5D5FF27EDE0A1EDB0E021D7EAEAE6
:1000C000FFE03ED6EDECF0E0E3D4E8D5FF27EDE02D
:1000D000A5ECB0E015D7EAEAFFE032D6E1EDF0E0BA
:1000E000D7D4CDD5FF27EDE0A9ECB0E009D7A5ED39
:1000F000B0E0EEEAFFE0EAD2AFEDB0E0E6EAFFE022
:10010000E5D2ABEDB0E0E2EBFFE0E0D2A3EEB0E091
:10011000E2EBFFE0DBD282E390E0A7EEB0E08D936C
:100120009C93A9EEB0E0EAEAFFE0D0D2F894909870
:1001300020D084EF91E0ADEEB0E08D939C93ADEED6
:10014000B0E08D919C9190934B0080934A008CE09D
:100150003ED3D7D28FE714E0E3D2E6ECFFE0CBD278
:10016000E5E0F0E0DFD2CDD204D05BD2F6D17BD097
:10017000FBCF379AEBE7F0E0AFE7B0E0C1D680E421
:10018000806487B93ED4A0E6B0E08D939C9381E46F
:10019000806487B936D4A1E7B0E08D939C9382E464
:1001A000806487B92ED4A9E9B0E08D939C9383E451
:1001B000806487B926D4ABE9B0E08D939C93E6EBDD
:1001C000FFE0BED5E0E6F0E0D190E080FF2400271C
:1001D00083D424D5FF27EDE0A2E6B0E091D6E6EB8C
:1001E000FFE0AED5E1E7F0E0D190E080FF2400270A
:1001F00073D414D5FF27EDE0A3E7B0E081D6EAEB96
:10020000FFE09ED5E3E7F0E043D408D5FF27EDE01B
:10021000A7E7B0E075D6E7E7F0E0ABE7B0E070D66F
:10022000E6EBFFE08DD5EBE9F0E0D190E080FF2434
:10023000002752D4F3D4FF27EDE0ADE9B0E060D65B
:10024000EDE9F0E0A1EAB0E05BD6EEEBFFE078D5B7
:10025000E1EAF0E01DD4E2D4FF27EDE0A1EAB0E04E
:100260004FD637980895EBE7F0E012D4E5ECF0E0D4
:1002700014D46FD510F009F001C005C0A5EDB0E0B1
:10028000E2ECFFE023D2EBE7F0E002D4E0EBF0E0B9
:1002900004D45FD510F009F02FC0EBE7F0E0F8D3FD
:1002A000E1EDF0E0FAD355D508F01EC0ADEEB0E0B8
:1002B0000D911C91A7EEB0E04D915C91041B150BC4
:1002C000ADEEB0E00D931C93ADEEB0E00D911C913E
:1002D000003050E015070CF401C006C080E090E04B
:1002E000ADEEB0E08D939C93ADEEB0E08D919C911E
:1002F00090934B0080934A00EBE7F0E0C9D3EDEC1C
:10030000F0E0CBD326D510F009F001C0E1C0E0EB5E
:10031000F0E0C3D3EBE7F0E0BBD3B1D4FF27EDE0CF
:10032000A3EEB0E0EDD5E9EEF0E0B7D3E3EEF0E018
:10033000AFD374D4FF27EDE0A3EEB0E0E1D5E3EE58
:10034000F0E026D6FF27EDE065D3A7EEB0E0EE0C97
:10035000000FE794DD92EC92A7EEB0E00D911C91B6
:10036000013050E015070CF401C006C081E090E0B8
:10037000A7EEB0E08D939C93EBE7F0E089D3EFE735
:10038000F0E08BD3E6D410F009F001C00EC0ADEE62
:10039000B0E00D911C91A7EEB0E04D915C91040F7F
:1003A000151FADEEB0E00D931C93EBE7F0E070D3BA
:1003B000EFE7F0E072D3CDD408F00EC0ADEEB0E0C0
:1003C0000D911C91A7EEB0E04D915C91041B150BB3
:1003D000ADEEB0E00D931C93EBE7F0E059D3EFE7FF
:1003E000F0E05BD3B6D409F00CC0ADEEB0E00D91F7
:1003F0001C914AE050E0040F151FADEEB0E00D93E4
:100400001C93ADEEB0E00D911C910F3F53E015072A
:1004100014F009F001C006C08FEF93E0ADEEB0E03C
:100420008D939C93ADEEB0E00D911C91003050E0A7
:1004300015070CF401C006C080E090E0ADEEB0E01E
:100440008D939C93ADEEB0E08D919C9190934B0079
:1004500080934A00EBE7F0E01BD3E5ECF0E01DD31E
:1004600078D408F035C0919AEBE7F0E016D3E5ECCC
:10047000F0E00ED304D4FF27EDE0AFEEB0E040D5BE
:10048000EFEEF0E00AD3EBEDF0E002D371D3FF27FB
:10049000EDE0A5EDB0E034D5EFEDF0E0FED2E5ED16
:1004A000F0E0F6D2BBD3FF27EDE0A5EDB0E028D514
:1004B000E5EDF0E0EDD2EBEDF0E0EFD24AD410F054
:1004C00009F001C005C0EBEDF0E0A5EDB0E018D5F6
:1004D000EBE7F0E0DDD2E5ECF0E0DFD23AD410F06B
:1004E00009F001C006C09198A5EDB0E0E2ECFFE094
:1004F000EDD0E5EDF0E04CD5FF27EDE08BD2A9ED96
:10050000B0E0EE0C000FE794DD92EC92A9EDB0E0C4
:100510000D911C91003050E0150714F009F001C056
:100520001BC080E090E0AFEBB0E08D939C93A9ED11
:10053000B0E04D915C91AFEBB0E00D911C910417D0
:10054000150714F009F008C084E690E06CD169D07A
:10055000AFEBB0E0C2D0EBCF0895A8E2B4E0AF9328
:10056000BF93E7E7F0E094D26DD111E001E0BF91D5
:10057000AF9112D4E8E2F4E0AEE8B0E0BCD4A8E277
:10058000B4E0AF93BF93E1EAF0E082D25BD111E037
:1005900001E0BF91AF9100D4E8E2F4E0A5EAB0E059
:1005A000AAD4A8E2B4E0AF93BF93E0EBF0E070D23E
:1005B00049D111E001E0BF91AF91EED3E8E2F4E060
:1005C000A4EBB0E098D48FE711E0AAD0AEE8B0E099
:1005D0008CD0E2EDFFE08FD08FE717E0A1D0E6ED01
:1005E000FFE089D0A4EBB0E080D0EEEDFFE083D057
:1005F0008FEB11E095D0A5EAB0E077D0E0EEFFE018
:100600007AD08FEB19E08CD0E6EEFFE074D0A8E250
:10061000B4E0EDEEF0E01ED466D0EEEDFFE06BD07E
:100620000895BB27A3E38C9184FBA1ECB0E088275D
:1006300080F98D9388278C93BB27A3E38C9185FB4E
:10064000A3ECB0E0882780F98D9388278C93A1ECE8
:10065000B0E00D911C91003050E0150709F00FC07B
:10066000E6EAFFE06DD3E0EBF0E012D217D3FF270C
:10067000EDE0A0EBB0E044D48CE291E0D4D0A3EC68
:10068000B0E00D911C91003050E0150709F00FC04B
:10069000E6EAFFE055D3E0EBF0E0FAD1F0D2FF2735
:1006A000EDE0A0EBB0E02CD48CE291E0BCD0E0EB2C
:1006B000F0E0EED1E6EAFFE043D34BD308F005C00B
:1006C000A0EBB0E0E6EAFFE001D0089584E0C89531
:1006D00031960D928A95D9F70895ED91FC91319656
:1006E000FC93EE930895A8E2B4E08D91882311F075
:1006F00068D0FBCF089520D3802D11F062D0FBCFBE
:10070000089581E064D014D080E861C08FE7213083
:1007100039F08FEB223021F08FE8233009F08FEC95
:10072000810F55C088EE93E07ED03197D9F70895B8
:1007300083E0992778C08AEF90E075D08F9A8E9ADF
:100740008D9A8C9A8B9A8A9A9298EF93FF93E5E10F
:10075000F0E05DD0FF91EF91939897989698959AD5
:10076000949A939AEF93FF93E5E1F0E050D0FF91D4
:10077000EF91939855D0939AEF93FF93E5E1F0E0D2
:1007800046D0FF91EF9193984BD0939AEF93FF93BC
:10079000E5E1F0E03CD0FF91EF91939841D094983F
:1007A000939AEF93FF93E5E1F0E031D0FF91EF9161
:1007B000939836D088E20BD08EE009D086E007D03F
:1007C0000895929A829505D004D02AD008959298DF
:1007D000F9CF859510F4949A01C09498859510F4FA
:1007E000959A01C09598859510F4969A01C09698AF
:1007F000859510F4979A01C09798939AEF93FF9379
:10080000E5E1F0E004D0FF91EF91939808953197DE
:10081000F1F70895689462F80895E89462F80895ED
:1008200081E090E000C0EF93FF93EE27E82BE92BE7
:1008300031F0EAEFF0E03197F1F70197D1F7FF914E
:10084000EF9108958DE207FD8D938F2D881F802FE6
:10085000881F8F57082F6894F7F8802F87FF15C0DF
:1008600080958395082F80E38D938EE28D93802F62
:10087000815228F080E38D9399279C930895442713
:100880000A95802F09F192D01FC0805230F09EE46B
:100890009D9381E48D939D93EFCF4427DF92EF9258
:1008A000FF920F938FE1801B11F0082F7FD085D02E
:1008B0009EE29D930F91FF90EF90DF904427039568
:1008C000003209F4D7CF27D03F93ECE4F9E038E1C8
:1008D0002F2D1E2D0D2DFF24EE24DD244427000F87
:1008E000111F221F88F42F923F9226D2102C24D25F
:1008F000202C22D2302C20D23197410DD21CE31C67
:10090000F01C3F902F9001C0339631963A9539F7FD
:100910003F9107D0B3CFDD0CEE1CFF1C0A95D9F731
:100920000895002719E058D08F93802B11F003957C
:1009300001C08F911A95B9F7802F882309F49ACFB7
:100940008F91805D8D930A95D9F796CF0065CD1D67
:1009500080B2E60E40597307A0ACB90350D6DC0153
:10096000286BEE0094357700CA9A3B0065CD1D00D8
:10097000B2E60E0059730700ACB90300D6DC0100E3
:100980006BEE0000357700009A3B0000CD1D0000A3
:10099000E60E000073070000B9030000DC01000050
:1009A000EE000000770000003B000000F694E794A2
:1009B000D79447950A95D1F7089500270DD08F93C6
:1009C00003958F2D8E298D29842BC1F78F91805D02
:1009D0008D930A95D9F750CF1F930F93002710E2FC
:1009E000440FDD1CEE1CFF1C001F802F9AE0890BBA
:1009F00010F0082F43951A9599F7802F0F911F91AA
:100A00000895369A3699FECF369A3699FECF84B13C
:100A100095B108953DD0992711278F2D880F80E833
:100A2000F82A802F881F08F41FEF41F08F57082FF6
:100A300007FD04C0003240F08FEF01C08827982FD7
:100A4000D82EE82EF82E09C08FE1801B082FF694CF
:100A5000E794D79497950A95D1F7112351F0909583
:100A6000D094E094F09481E0980F8827D81EE81E77
:100A7000F81E0F2DFE2CED2CD92E0895D094E09465
:100A8000F09491E0D90E9927E91EF91E109508956A
:100A9000D190E190F190019108952191319141918E
:100AA00051910895102F90E8FF0C001F0927990F0E
:100AB000F7941078652F90E8440F551F5927990F28
:100AC0004795607800380895FF0C90E89027110F43
:100AD0009795F794092F0895102FBD2CDE2CEF2C3D
:100AE000F02E11234AF4B094D094E094F0949FEF48
:100AF000B91AD90AE90AF90A0EE1FF2039F4FE2CE5
:100B0000ED2CDB2CBB240850C2F766C032F00A95EE
:100B1000BB0CDD1CEE1CFF1CF9CF01D0D5CFB7FEFE
:100B2000089590E8B91611F4D0FE08959FEFD91AF0
:100B3000E90AF90A09F403950895502F2D2D3E2D49
:100B40004F2D612F08952DEC3CEC4CEC5DE36627B6
:100B50000FC09EDFF2DFDD24EE2490E8F92E0FE3D4
:100B600007C09BDF05C02227332740E251E46627F8
:100B7000552351F1002381F195DF71F116270058BB
:100B800050580894050B18F407FD03C025C007FD55
:100B900023C0469537952795F694E794D79422D0AD
:100BA000FF202AF0DD0CEE1CFF1C015073F09D2D80
:100BB000969548F0DD203AF4EE202AF491E0D90E23
:100BC0009927E91EF91E80CF07C09FE7092FF92A50
:100BD0009FEFD92EE92E0895DD24EE24FF2400276F
:100BE000112708959F929924AA24BB2488E1D21644
:100BF000E306F40628F0D21AE30AF40A089401C0C6
:100C00008894991CAA1CBB1CDD0CEE1CFF1C8A9549
:100C100071F7D92CEA2CFB2C9F90089543DFE1F269
:100C20005038D1F21627005850580894051F12F476
:100C300018F4CBCF08F0D0CF0AD0FF202AF0BB0C9D
:100C4000DD1CEE1CFF1C40CF0F5FFBF13DCF9F92E0
:100C50009924AA24BB24992788E1990CAA1CBB1CBF
:100C6000DD1CEE1CFF1C30F4920EA31EB41ED91E18
:100C7000E91EF91E8A9589F79F9008950EDF12DF0D
:100C8000503829F090E869270CC00AF045D01CCFF5
:100C90005FE322273327442701C0FFDE03DF5038FC
:100CA000B1F3003899F3902F951B8BF312F434D0E5
:100CB000FACF983118F0222733274427983028F0AC
:100CC000232F342F44279850F9CF992329F04695A4
:100CD000379527959A95D9F7912F962742F014D0FA
:100CE000B0F6F794E794D7940F5F8BF66ECF10D0E1
:100CF00051F008F4C3DEFF2052F2DD0CEE1CFF1CA5
:100D00000150CBF762CF68CFD20EE31EF41E0895D8
:100D1000D21AE30AF40A0895DF92EF92FF920F933A
:100D20001F93D22EE32EF42E052F162F6F915F9175
:100D30004F913F912F910895C895319600200895C5
:100D4000FBDF202DF9DF302DF7DF402DF5DF502DB3
:100D5000089507FB00680EF40F7757FB50680EF4F8
:100D60005F7707FD02C057FF05C0D216E306F40601
:100D7000050708952D153E054F055007089599273D
:100D80008D9193958823E1F7939511968C93119704
:100D90008E919A95D1F70895EA2FFB2F00244C915C
:100DA0008D9103948E32E1F711248D911394882351
:100DB000E1F71A94101640F41197202F211923956A
:100DC00080E38D932A95E9F7113039F59927AE2FF5
:100DD000BF2FA00DB91FA00FB91F8C919C93853315
:100DE00008F421C031E08E918E32E9F38D3241F06A
:100DF000830F8A3319F480E331E001C033278C93E9
:100E0000AE1789F7332341F0AE2FBF2FB8DF81E350
:100E10004D3209F43196808308958827E00DF81F3C
:100E2000E00FF81F80830895000F111F221F331F4A
:100E3000089500951095209530950F5F1F4F2F4F07
:100E40003F4F0895019110810EC0019111912191A0
:100E500030810BC00191108117FF05C03FEF2FEFCC
:100E600004C0008111272227332737FF03C0E1DFA9
:100E70008DE28D93CF93DF93CF92DF92EF92AA24EE
:100E8000BB24CC24DD24EE2440E2CAE0DD2755E07B
:100E900093E38881890F87FD9F7083FD907F891B75
:100EA00089935A95A9F7C0DFAA1CBB1CCC1CDD1C7A
:100EB000EE1C4A9551F7E894EFE0FF2782910ED09F
:100EC000EB30E0F71EF068948A2D0CD088278D93C4
:100ED000EF90DF90CF90DF91CF910895982F82957A
:100EE00001D0892F8F70805D26F0803309F408953A
:100EF00068948D93089581918D938823E1F70895E7
:100F000094E081918D939A95E1F70895C1DD80E099
:100F100003C0BEDD802F8078882321F0DF92EF921E
:100F2000FF920F938F93BEDD802F839512F454DED2
:100F30001BC080958A95885E0AF415C088501AF403
:100F40000CD0D92210C0DD2488501AF406D0E92232
:100F50000AC0EE2402D0F92206C09FEF8770990FD5
:100F60008A95EAF70895B0DD8F918823D9F35F91D0
:100F70004F913F912F910F93ECDE0F9199F390F3E6
:100F800002D050688BCE5FE340E8332722270895D4
:100F90007FDD0F930F777CDEBDDF8F918078082B8C
:100FA00008950000E0410000803F00002041000063
:100FB000C841000048420000A03B0000C8420000B9
:100FC0007A44000000004C75656674657220312E0D
:100FD00034002043200020536F6C6C3A0000200046
:0C0FE0006D412020000050776D3A0000A9
:00000001FF

3
Luefter_Software_V1/_a_luefter.bat Normal file
View File

@@ -0,0 +1,3 @@
rem Batchdatei zum Programmieren des Proz. mit AVR-Dude
rem ISP-AVR-Programmer an der parallelen Schnittstelle
avrdude -p m8 -c stk200 -U flash:w:luefter1.hex

302
Luefter_Software_V1/luefter_V1.bas Normal file
View File

@@ -0,0 +1,302 @@
$regfile = "m8def.dat" ' ATMega8
$crystal = 1000000 ' 1 MHz ist schnell genug
Const Const5 = 0.0048828125 ' 5Volt / 1024 (10-Bit-ADC)
Dim Adc0 As Word ' Wert vom NTC
Dim Volt0 As Single ' Volt vom NTC
Dim Disp_volt0 As String * 10 ' f<>r die LCD-Anzeige
Dim Adc1 As Word ' Wert vom LM35
Dim Volt1 As Single ' Volt vom LM35
Dim Templm35 As Single ' Temperatur (celsius) von LM35
Dim Isttemp As Single ' aktuelle Temperatur in Celsius
Dim Letzter_isttemp As Single ' Messwert davor
Dim Disp_volt1 As String * 10 ' zur LCD-Anzeige
Dim Disp_templm35 As String * 10 ' zur LCD-Anzeige
Dim Adc2 As Word ' nicht ben<65>tigt
Dim Adc3 As Word ' Wert vom ADC vom IRF510
Dim Volt3 As Single ' Volt vom IRF510
Dim Strom As Single ' Strom vom IRF510
Dim Disp_strom As String * 10 ' zur LCD-Anzeige
Dim Solltemp As Single ' Vorgabe der maximal zul<75>ssigen Temperatur
Dim Disp_solltemp As String * 10 ' zur LCD-Anzeige
Dim I As Integer ' Z<>hler / Schleife
Declare Sub Adc_in
Declare Sub Regeln
Declare Sub Anzeigen
Declare Sub Tasten
Config Lcdbus = 4
Config Lcd = 16 * 2
'Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Portb = Output
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Prescale = 1
' Tasten zur Einstellung der Solltemperatur
Taste_up Alias Pinc.4
Taste_dn Alias Pinc.5
Dim Tasteup As Integer
Dim Tastedn As Integer
Config Pinc.0 = Input
Config Pinc.1 = Input
Config Pinc.2 = Input
Config Pinc.3 = Input
Config Pinc.4 = Input
Set Portc.4
Config Pinc.5 = Input
Set Portc.5
Config Adc = Single , Prescaler = Auto , Reference = Avcc
' Led
Ledgruen Alias Portd.0
Ledrot Alias Portd.1
Config Portd.0 = Output
Config Portd.1 = Output
Dim Dynamikgrenze_oben As Single
Dim Dynamikgrenze_unten As Single
Dim Toleranzgrenze_oben As Single ' in den Toleranzgrenzem wired nicht geregelt
Dim Toleranzgrenze_unten As Single
Dim Pausenzeit As Single ' Pause zwischen den Regelungen
Dim Pausenzeit_int As Integer
Dim Pausenzeit_max As Single ' max. zul<75>ssige Pausenzeit
Dim Pausenzeit_faktor As Single
Dim Schrittweite As Single ' um diesen Betrag wird PWM korrigiert
Dim Schrittweite_int As Integer
Dim Schrittweite_faktor As Single
Dim Pwmwert As Integer ' 10-Bit PWM (0...1023)
Dim Differenz As Single
' ------------------------------------------------------------------------------
' ----------------------- Initialisierung der Variablen ------------------------
' ------------------------------------------------------------------------------
'Solltemperatur (max, zul<75>ssige Temperatur)
Solltemp = 28
Toleranzgrenze_oben = Solltemp + 1
Toleranzgrenze_unten = Solltemp - 1
Dynamikgrenze_oben = Toleranzgrenze_oben + 10
Dynamikgrenze_unten = Toleranzgrenze_unten - 10
Pausenzeit = 25 ' zu Beginn mittlere Pausenzeit einstellen (2 Sek.)
Pausenzeit_faktor = 1 ' Multiplikator f<>r die Bestimmung der Pausenzeit
Pausenzeit_max = 50 ' z.B. 50 * 1/10 Sek. = 5 Sekunden
Schrittweite = 50 ' Anfangswert
Schrittweite_int = 50 ' Anfangswert
Schrittweite_faktor = 10 '
Disable Interrupts
' ------------------------------------------------------------------------------
' Beginn Programm
' ------------------------------------------------------------------------------
Reset Ledgruen ' gr<67>ne LED einschalten
Call Adc_in
'Pwm1a = 0 ' Motor aus
Pwmwert = 500
Pwm1a = Pwmwert ' Motor max ein
Cursor Off
Cls
Locate 1 , 4
Lcd "Luefter 1.4"
Wait 5 ' L<>fter anlaufen lassen
Cls
Do
Call Adc_in
Call Tasten
Call Anzeigen
Call Regeln
Loop
' ADC lesen
Sub Adc_in
Start Adc
Letzter_isttemp = Isttemp ' letzten Messwert merken
Adc0 = Getadc(0) ' NTC
Adc1 = Getadc(1) ' LM35
Adc2 = Getadc(2) ' nix
Adc3 = Getadc(3) ' f<>r Strom IRF510
Volt0 = Adc0 * Const5 ' NTC
Volt1 = Adc1 * Const5 ' LM35
Templm35 = Volt1 * 100 ' in Celsius umrechnen (10mV je Grad <20>ber Null)
Isttemp = Templm35 ' aktuelle Temperatur am LM35
Volt3 = Adc3 * Const5 ' Strom durch den IRF510 berechnen
'Strom = Volt3 / 2.7 ' I = U / R R=2,7 Ohm
Strom = Volt3 ' I = U / R R=1 Ohm
Strom = Strom * 1000 ' Ampere in mA
Stop Adc
End Sub
Sub Regeln
' Pausenzeit au<61>erhalb Dynamikbereichs einstellen
If Isttemp > Dynamikgrenze_oben Then
Pausenzeit = 0 ' k<>rzest m<>gliche Pause
End If ' dann schnell regeln
' Temperatur unterhalb Solltemperatur
If Isttemp <= Solltemp Then ' Temp ist k<>lter als erlaubt
If Isttemp < Toleranzgrenze_unten Then ' unterhalb Toleranzgrenze ?
Pwmwert = Pwmwert - Schrittweite_int ' versuchen, ob L<>fter leiser werden kann
If Pwmwert < 0 Then
Pwmwert = 0
End If
End If
Pwm1a = Pwmwert
End If ' endif isttemp < solltemp
' Bereich oberhalb Solltemperatur
If Isttemp > Toleranzgrenze_oben Then ' Temp zu hoch, PWM-Wert steigern
' Schrittweite berechnen, um die der PWM-Wert korrigiert wird
Schrittweite = Isttemp - Solltemp
Schrittweite = Schrittweite * Schrittweite_faktor
Schrittweite_int = Round(schrittweite)
If Schrittweite_int < 1 Then
Schrittweite_int = 1
End If
If Isttemp > Letzter_isttemp Then
Pwmwert = Pwmwert + Schrittweite_int
End If
If Isttemp < Letzter_isttemp Then
Pwmwert = Pwmwert - Schrittweite_int
End If
If Isttemp = Letzter_isttemp Then
Pwmwert = Pwmwert + 10
End If
If Pwmwert > 1023 Then
Pwmwert = 1023
End If
If Pwmwert < 0 Then
Pwmwert = 0
End If
Pwm1a = Pwmwert ' PWM des Motors steuern
If Isttemp < Dynamikgrenze_oben Then ' im Regelbereich, in dem die Pausenzeit angepasst wird ?
Set Ledrot ' rote LED aus
' Pausenzeit berechnen f<>r (Toleranzgrenze oben < x < Dynamikgrenze oben)
Differenz = Dynamikgrenze_oben - Isttemp
Pausenzeit = Pausenzeit_max / Differenz
Pausenzeit = Pausenzeit * Pausenzeit_faktor
If Pausenzeit > Pausenzeit_max Then
Pausenzeit = Pausenzeit_max
End If
' nun steht in Pausenzeit die Pausenzeit 1/10 Sekunden
End If
End If ' if Toleranzgrenze_oben < Isttemp
If Isttemp > Dynamikgrenze_oben Then ' Ist > als Dynamikgrenze oben, also SEHR hoch
Reset Ledrot ' warnen
Pausenzeit = 0
End If
Pausenzeit_int = Round(pausenzeit) ' Pausenzeit (SINGLE) in INTEGER wandeln
' Pausenzeit vergehen lassen
If Pausenzeit_int > 0 Then
For I = 0 To Pausenzeit_int
Waitms 100 ' Zeit verplempern in Einheiten von 1/10 Sekunde
Call Tasten
Next I
End If
End Sub
Sub Anzeigen
' Disp_volt0 = Fusing(volt0 , "#.###")
' Disp_volt1 = Fusing(volt1 , "#.###")
Disp_templm35 = Fusing(templm35 , "##.#")
Disp_strom = Fusing(strom , "###.#")
Disp_solltemp = Fusing(solltemp , "###.#")
' LCD zweizeilig je 16 Zeichen
Locate 1 , 1
Lcd Disp_templm35 ; " C "
Locate 1 , 7
Lcd " Soll:" ; Disp_solltemp ; " "
Locate 2 , 1
Lcd Disp_strom ; "mA ";
Locate 2 , 9
Lcd "Pwm:" ; Pwmwert ; " "
' LCD vierzeilig je 20 Zeilen
'Locate 2 , 2
'Lcd "NTC " ; Disp_volt0 ; " V "
'Locate 3 , 2
'Lcd "LM35 " ; Disp_templm35 ; " C "
'Locate 4 , 2
'Lcd "IRF510 " ; Disp_strom ; " mA ";
'Lcd "Pwm:" ; Pwmwert ; " "
'Locate 4 , 11
'Lcd " Sw:" ; Schrittweite_int ; " "
End Sub
Sub Tasten
Tasteup = Taste_up
Tastedn = Taste_dn
If Tasteup = 0 Then
Solltemp = Solltemp + 1
Waitms 300
End If
If Tastedn = 0 Then
Solltemp = Solltemp - 1
Waitms 300
End If
If Solltemp < 1 Then
Solltemp = 1
End If
End Sub