 |
www.elektronik.si
Forum o elektrotehniki in računalništvu
|
| Poglej prejšnjo temo :: Poglej naslednjo temo |
| Avtor |
Sporočilo |
mikra67
Član
Pridružen-a: Ned 16 Apr 2017 8:35
Prispevkov: 25
Aktiv.: 0.25
Kraj: koroška
|
 Objavljeno: Sob Nov 25, 2017 9:45 pm Naslov sporočila: Diferenčni termostat |
 |
|
Pozdravljeni, mogoče koga zanima izdelava dif. termostata
Za domačo kurilnico sem sestavil diferenčni termostat, za dogrevanje sanitarne vode s pečjo na drva. Uporabljen je arduino nano, sprogramiran v bascomu. Tipala sta LM35 zalita v tulec z epoxi smolo. Ohišje je standardna N/O doza. V pokrov doze je
zmontiran lcd 2x16 in tipke za nastavitev.
Območje nastavitev:
-temperatura bojler, 20-80 st/c
-diferenca, 0-15 st/c
-histereza, 0-8 st/c
-izklop črpalke, 15-45 st/c
Tu je še nekaj slik:
| Opis: |
|
| Velikost datoteke: |
892.44 KB |
| Pogledana: |
21 krat |
|
| Opis: |
|
| Velikost datoteke: |
1.98 MB |
| Pogledana: |
29 krat |
|
| Opis: |
|
| Velikost datoteke: |
2.08 MB |
| Pogledana: |
41 krat |
|
| Opis: |
|
| Velikost datoteke: |
1.61 MB |
| Pogledana: |
23 krat |
|
| Opis: |
|
| Velikost datoteke: |
882.06 KB |
| Pogledana: |
56 krat |
|
|
|
| Nazaj na vrh |
|
 |
solomojster
Član
Pridružen-a: Tor 18 Maj 2010 12:26
Prispevkov: 851
Aktiv.: 4.63
Kraj: NOVA GORICA
|
| Objavljeno: Ned Nov 26, 2017 7:46 am Naslov sporočila: |
|
|
Lep izdelek. 
Zanima me, kje se dobi take folije ?
|
|
| Nazaj na vrh |
|
|
milan62
Član
Pridružen-a: Ned 04 Jan 2004 23:19
Prispevkov: 2391
Aktiv.: 10.09
Kraj: Kranj
|
| Objavljeno: Ned Nov 26, 2017 9:24 am Naslov sporočila: |
|
|
Lep izdelek.
Lp
_________________
Wasting time online since 1999 |
|
| Nazaj na vrh |
|
|
MadMax
Član
Pridružen-a: Pet 09 Sep 2005 22:16
Prispevkov: 4743
Aktiv.: 20.01
|
| Objavljeno: Ned Nov 26, 2017 9:50 am Naslov sporočila: |
|
|
| solomojster je napisal/a: |
| Zanima me, kje se dobi take folije ? |
Sprintaš, obrežeš, plastificiraš, obrežeš, prilepiš s tankim dvostranskim selotejpom...
mikra67, res lepo
Sam pa ne bi uporabil switcherja, raje navaden trafo na cca 12v za rele in 7805 regulator za pamet.
Če si pripravljen razkrit/objavit tudi shemo in .bas pa mislim da bo še kdo vesel 
|
|
| Nazaj na vrh |
|
|
qwertz
Član
Pridružen-a: Ned 01 Jun 2008 11:57
Prispevkov: 2743
Aktiv.: 13.21
Kraj: Vrhnika
|
| Objavljeno: Ned Nov 26, 2017 11:29 am Naslov sporočila: |
|
|
| solomojster je napisal/a: |
Lep izdelek.
Zanima me, kje se dobi take folije ? |
Poglej na spletu, ključne besede: membranska tipkovnica, čelna folija...
|
|
| Nazaj na vrh |
|
|
kose19
Član
Pridružen-a: Sre 02 Mar 2005 19:37
Prispevkov: 1228
Aktiv.: 5.18
Kraj: okolica Kobarida
|
| Objavljeno: Ned Nov 26, 2017 11:34 am Naslov sporočila: |
|
|
Lepo narejeno.
Jaz si nikoli ne vzamem časa da izdelam čelno ploščo.
Za podrobnosti bi bil pa vesel, ker mi stoji nekaj tipal LM35 v predalu
_________________
- Absens, carens -
- Tisti, ki ga ni, bo prikrajšan - |
|
| Nazaj na vrh |
|
|
Jaka57
Moderator
Pridružen-a: Ned 12 Dec 2004 21:47
Prispevkov: 5820
Aktiv.: 24.56
Kraj: Grosuplje
|
| Objavljeno: Ned Nov 26, 2017 8:53 pm Naslov sporočila: |
|
|
Lepo narejeno, ni kaj!
Nekaj podobnega je naredil naš forumaš rkulcar2 (če se ne motim) z Arduinom, s tem, če se ne motim,
da je temperature nastavljal s potenciometri.
_________________
Lp, Jaka |
|
| Nazaj na vrh |
|
|
mikra67
Član
Pridružen-a: Ned 16 Apr 2017 8:35
Prispevkov: 25
Aktiv.: 0.25
Kraj: koroška
|
| Objavljeno: Ned Nov 26, 2017 9:44 pm Naslov sporočila: |
|
|
Tu je slika vezja, če pa kdo potrebuje vezalni načrt ga lahko narišem, sam sem imel samo skico na papirju. Kar se pa tiče tipkovnice je izdelana tako kot pravi madmax, bom pripel še nekaj čelnih plošč izdelanih na podoben način. tudi sam sem imel pomisleke glede switcherja, ampak kaj bi lahko šlo narobe, če prebije vhod je tu varovalka, na sekundarno stran pa praktično ne more prebiti že zaradi vmesne razdalje med ac in dc delom vezja. Potem bi bili tudi vsi polnilci za mobilne telefone nevarni.Na koncu je tu še RCD (fid) stikalo in bi odkloplo v trenutko prebitja (preko tipala na ozemljeno cev centralne),ampak tudi ohišje tipala nima nobene povezave s lm35.
| Opis: |
|
| Velikost datoteke: |
1.82 MB |
| Pogledana: |
25 krat |
|
|
|
| Nazaj na vrh |
|
|
mikra67
Član
Pridružen-a: Ned 16 Apr 2017 8:35
Prispevkov: 25
Aktiv.: 0.25
Kraj: koroška
|
| Objavljeno: Ned Nov 26, 2017 9:46 pm Naslov sporočila: in še koda |
|
|
| Koda: |
'DIFERENČNI TERMOSTAT
$regfile = "m328pdef.dat"
$crystal = 16000000
Waitms 500
$lib "lcd_i2c_v2.lib" 'I2C LCD KNJIŽICA
$hwstack = 32
$swstack = 32
$framesize = 32
Const Pcf8574_lcd = &H70 'HEX NASLOV I2C VMESNIKA (A0,A1,A2=0)=H70
Const Pcf_d4 = 4 'NASTAVITEV PINOV
Const Pcf_d5 = 5
Const Pcf_d6 = 6
Const Pcf_d7 = 7
Const Pcf_rs = 0
Const Pcf_rw = 1
Const Pcf_e2 = 3
Const Pcf_e1 = 2
Const Pcf_e2_is_output = 1
Const Pcf_rw_is_output = 1
Dim _lcd_e As Byte
Dim _out_rw As Byte
Dim _out_e2 As Byte
Dim Trimer As Integer
Dim Trimer1 As Integer
Config Lcd = 16 * 2
Cls
Config I2cdelay = 5 'HITROST PRENOSA (5=200kHz),(10=100kHz)
Config Sda = Portc.4
Config Scl = Portc.5
_lcd_e = 128 ' 64=E2 128=E1 192=E1+E2 128=2*16
_out_rw = 1
_out_e2 = 1
'''''''''''''VHODI ADC'''''''''''''''''''''''''''''''''''''''''''
'TIPALO1 PINADC.7 A7
'TIPALO2 PINADC.6 A6
'''''''''''''VHODI DIGITALNI''''''''''''''''''''''''''''''''''''''''
Tipka_set Alias Pind.3 'D3
Tipka_enter Alias Pind.2 'D2
Tipka_levo Alias Pind.5 'D5
Tipka_desno Alias Pind.4 'D4
'''''''''''''IZHODI'''''''''''''''''''''''''''''''''''''''''''
Pumpa Alias Portb.4 'D12
Ddrb = &B00010000 'definiranje vhodov-izhodov
Ddrc = &B00000000
Ddrd = &B00000000 'izhod=1 vhod=0
'76543210
Portb = &B00000000 'stanje vhoda izhoda
Portc = &B00000000
Portd = &B00111100
'''''''''''''''''''SPREMENLJIVKE'''''''''''''''''''''''''''''''''''''''''''''''
Dim Tipalo1 As Integer 'TIPALO KOTEL
Dim Tipalo2 As Integer 'TIPALO BOJLER
Dim Izklop_pumpe As Integer
Dim Diferenca As Integer
Dim Stevec As Integer
Dim Stevec1 As Integer
Dim Bojler As Integer
Dim Razlika As Integer
Dim Error1 As Bit
Dim Error2 As Bit
Dim Tipka_set As Bit
Dim Tipka_enter As Bit
Dim Tipka_levo As Bit
Dim Tipka_desno As Bit
Dim Histereza As Integer
Dim E_bojler_histereza As Integer
Dim E_bojler As Eram Integer
Dim E_diferenca As Eram Integer
Dim E_izklop_pumpe As Eram Integer
Dim E_histereza As Eram Integer
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Deflcdchar 0 , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32
Deflcdchar 1 , 4 , 4 , 10 , 10 , 17 , 17 , 17 , 14
Pumpa = 0
Error1 = 0
Error2 = 0
Bojler = E_bojler
Diferenca = E_diferenca
Izklop_pumpe = E_izklop_pumpe
Histereza = E_histereza
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Meni1:
Stevec = 0
Tipalo1 = Getadc(6)
Tipalo2 = Getadc(7)
Tipalo1 = Tipalo1 * 50 '53
Tipalo1 = Tipalo1 / 100
Tipalo2 = Tipalo2 * 50 '53
Tipalo2 = Tipalo2 / 100
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'GLAVNI PROGRAM
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Do
Deflcdchar 0 , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32
Deflcdchar 1 , 4 , 4 , 10 , 10 , 17 , 17 , 17 , 14
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Incr Stevec1
If Stevec1 > 30 Then
Stevec1 = 0
Gosub Meritve 'skok do meritev
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Incr Stevec
If Stevec > 100 Then
Stevec = 100
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Error1 = 0 Then
Locate 1 , 1
Lcd "Kotel " ; Tipalo1 ; Chr(0) ; "C"
_out_rw = 0
End If
If Error2 = 0 Then
If Pumpa = 1 Then
Locate 2 , 1
Lcd "Bojler " ; Chr(1) ; " " ; Tipalo2 ; Chr(0) ; "C"
_out_rw = 0
End If
End If
If Error2 = 0 Then
If Pumpa = 0 Then
Locate 2 , 1
Lcd "Bojler " ; Tipalo2 ; Chr(0) ; "C"
_out_rw = 0
End If
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Error1 = 1 Then
Locate 1 , 1
Lcd "Kotel ERROR"
_out_rw = 0
End If
If Error2 = 1 Then
Locate 2 , 1
Lcd "Bojler ERROR"
_out_rw = 0
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Tipka_set = 0 Then 'TIPKA SET
If Stevec > 10 Then
Stevec = 0
Gosub Nastavitve2
End If
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''izračun diference in histereze''''
E_bojler_histereza = E_bojler - Histereza
If Tipalo1 > Tipalo2 Then
Razlika = Tipalo1 - Tipalo2
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Error1 = 0 Then
If Error2 = 0 Then
If Tipalo2 <= E_bojler_histereza Then
If Tipalo1 > Tipalo2 Then
If Tipalo1 >= E_izklop_pumpe Then
If Razlika >= E_diferenca Then
Set Pumpa 'VKLOP PUMPA
End If
End If
End If
End If
End If
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Tipalo2 >= Tipalo1 Then
Reset Pumpa
End If
If Tipalo2 >= E_bojler Then
Reset Pumpa 'IZKLOP PUMPA
End If
If Tipalo1 < E_izklop_pumpe Then
Reset Pumpa
End If
If Error1 = 1 Then
Reset Pumpa
End If
If Error2 = 1 Then
Reset Pumpa
End If
Loop
Return
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Nastavitve2:
Stevec = 0
Bojler = E_bojler
Do
Incr Stevec
If Stevec > 200 Then
Stevec = 200
End If
''''''''''''''''''''''''''''''''''
If Tipka_desno = 0 Then 'GOR
If Stevec > 7 Then
Incr Bojler
Stevec = 0
End If
End If
If Bojler > 79 Then
Bojler = 80
End If
''''''''''''''''''''''''''''''''''
If Tipka_levo = 0 Then ' DOL
If Stevec > 7 Then
Decr Bojler
Stevec = 0
End If
End If
If Bojler < 21 Then
Bojler = 20
End If
'''''''''''''''''''''''''''''''
If Tipka_enter = 0 Then 'TIPKA ENT
E_bojler = Bojler
Locate 1 , 1
Lcd "Nastavitve: M"
_out_rw = 0
Wait 1
End If
''''''''''''''''''''''''''
Locate 1 , 1
Lcd "Nastavitve: "
Locate 2 , 1
Lcd "Max T bojl. " ; Bojler ; Chr(0) ; "C"
_out_rw = 0
If Tipka_set = 0 Then 'TIPKA SET
If Stevec > 10 Then
Stevec = 0
Gosub Nastavitve4
End If
End If
If Stevec = 200 Then
Gosub Meni1
End If
Loop
Return
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Nastavitve4:
Stevec = 0
Diferenca = E_diferenca
Do
Incr Stevec
If Stevec > 200 Then
Stevec = 200
End If
If Tipka_desno = 0 Then 'GOR
If Stevec > 10 Then
Incr Diferenca
Stevec = 0
End If
End If
If Diferenca > 14 Then
Diferenca = 15
End If
If Tipka_levo = 0 Then ' DOL
If Stevec > 10 Then
Decr Diferenca
Stevec = 0
End If
End If
If Diferenca < 1 Then
Diferenca = 0
End If
If Tipka_enter = 0 Then 'TIPKA ENT
E_diferenca = Diferenca
Locate 1 , 1
Lcd "Nastavitve: M"
_out_rw = 0
Wait 1
End If
If Diferenca < 10 Then
Locate 1 , 1
Lcd "Nastavitve: "
Locate 2 , 1
Lcd "Diferenca " ; Diferenca ; Chr(0) ; "C"
_out_rw = 0
End If
If Diferenca > 9 Then
Locate 1 , 1
Lcd "Nastavitve: "
Locate 2 , 1
Lcd "Diferenca " ; Diferenca ; Chr(0) ; "C"
_out_rw = 0
End If
If Tipka_set = 0 Then 'TIPKA SET
If Stevec > 10 Then
Stevec = 0
Gosub Nastavitve5
End If
End If
If Stevec = 200 Then
Gosub Meni1
End If
Loop
Return
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Nastavitve5:
Stevec = 0
Izklop_pumpe = E_izklop_pumpe
Do
Incr Stevec
If Stevec > 200 Then
Stevec = 200
End If
If Tipka_desno = 0 Then 'GOR
If Stevec > 7 Then
Incr Izklop_pumpe
Stevec = 0
End If
End If
If Izklop_pumpe > 45 Then
Izklop_pumpe = 45
End If
If Tipka_levo = 0 Then ' DOL
If Stevec > 7 Then
Decr Izklop_pumpe
Stevec = 0
End If
End If
If Izklop_pumpe < 15 Then
Izklop_pumpe = 15
End If
If Tipka_enter = 0 Then 'TIPKA ENT
E_izklop_pumpe = Izklop_pumpe
Locate 1 , 1
Lcd "Nastavitve: M"
_out_rw = 0
Wait 1
End If
Locate 1 , 1
Lcd "Nastavitve: "
Locate 2 , 1
Lcd "Izklop crp. " ; Izklop_pumpe ; Chr(0) ; "C"
_out_rw = 0
If Tipka_set = 0 Then 'TIPKA SET
If Stevec > 10 Then
Stevec = 0
Gosub Nastavitve6
End If
End If
If Stevec = 200 Then
Gosub Meni1
End If
Loop
Return
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Nastavitve6:
Stevec = 0
Histereza = E_histereza
Do
Incr Stevec
If Stevec > 200 Then
Stevec = 200
End If
If Tipka_desno = 0 Then 'GOR
If Stevec > 10 Then
Incr Histereza
Stevec = 0
End If
End If
If Histereza > 7 Then
Histereza = 8
End If
If Tipka_levo = 0 Then '2 DOL
If Stevec > 10 Then
Decr Histereza
Stevec = 0
End If
End If
If Histereza < 1 Then
Histereza = 0
End If
If Tipka_enter = 0 Then 'TIPKA ENT
E_histereza = Histereza
Locate 1 , 1
Lcd "Nastavitve: M"
_out_rw = 0
Wait 1
End If
Locate 1 , 1
Lcd "Nastavitve: "
Locate 2 , 1
Lcd "Histereza " ; Histereza ; Chr(0) ; "C"
_out_rw = 0
If Tipka_set = 0 Then 'TIPKA SET
If Stevec > 10 Then
Stevec = 0
Gosub Meni1
End If
End If
If Stevec = 200 Then
Gosub Meni1
End If
Loop
Return
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Meritve:
Tipalo1 = Getadc(6)
Tipalo2 = Getadc(7)
Tipalo1 = Tipalo1 * 50
Tipalo1 = Tipalo1 / 100
Tipalo2 = Tipalo2 * 50
Tipalo2 = Tipalo2 / 100
If Tipalo1 > 3 And 120 > Tipalo1 Then
Error1 = 0
Else
Error1 = 1
End If
If Tipalo2 > 3 And 120 > Tipalo2 Then
Error2 = 0
Else
Error2 = 1
End If
Return
End 'end program |
|
|
| Nazaj na vrh |
|
|
Jaka57
Moderator
Pridružen-a: Ned 12 Dec 2004 21:47
Prispevkov: 5820
Aktiv.: 24.56
Kraj: Grosuplje
|
| Objavljeno: Ned Nov 26, 2017 10:23 pm Naslov sporočila: |
|
|
Odlično, ni kaj, mogoče bi še opisal samo izdelavo čelne plošče.
Verjetno se je že o tem debatiralo, toda, novih članov je kar nekaj in tudi če je dvakrat razloženo, ne škodi.
_________________
Lp, Jaka |
|
| Nazaj na vrh |
|
|
MadMax
Član
Pridružen-a: Pet 09 Sep 2005 22:16
Prispevkov: 4743
Aktiv.: 20.01
|
| Objavljeno: Ned Nov 26, 2017 10:55 pm Naslov sporočila: |
|
|
Hm, očitno moja razlaga ni zadosti detajlna...
Izpustil sem le del glede samega grafičnega oblikovanja in prilagajanja dimenzij po MUP, kar je itak stvar posameznika, vse se da že z excelom...
mikra67, hvala za pripeto.
Glede napajalnika sem imel bolj v mislih robustnost za dolgotrajno delovanje, odpornost na prenapetosti (strela), smetenje... Včasih kakšnega kitajskega tudi raznese, brez na prvi pogled znanega razloga...
Na sliki dejanskega izdelka je pa na poti do priključkov tipal videt še en IC, ki ga na predlogah ni?
Nazadnje urejal/a MadMax Ned Nov 26, 2017 11:01 pm; skupaj popravljeno 1 krat |
|
| Nazaj na vrh |
|
|
kose19
Član
Pridružen-a: Sre 02 Mar 2005 19:37
Prispevkov: 1228
Aktiv.: 5.18
Kraj: okolica Kobarida
|
| Objavljeno: Ned Nov 26, 2017 11:00 pm Naslov sporočila: |
|
|
Super hvala, zelo enostavno.
_________________
- Absens, carens -
- Tisti, ki ga ni, bo prikrajšan - |
|
| Nazaj na vrh |
|
|
mikra67
Član
Pridružen-a: Ned 16 Apr 2017 8:35
Prispevkov: 25
Aktiv.: 0.25
Kraj: koroška
|
| Objavljeno: Pon Nov 27, 2017 8:56 pm Naslov sporočila: |
|
|
| Mad max na sliki se vidi ojačevalnik signala z lm324. Prvotno sem uparabil senzorje PT1000 in za vsak kanal svoj ojačevalnik, ker pa pri testiranju nista delala povsem enako verjetno zaradi tolerance uporov sem ga odstranil . Uporabit bi moral analogni preklopnik signala (npr.4066), ki preklaplja med senzorji in imaš na koncu samo en signal za ojačat.
|
|
| Nazaj na vrh |
|
|
ule
Član
Pridružen-a: Tor 13 Jan 2004 20:32
Prispevkov: 1583
Aktiv.: 6.68
Kraj: Babno Polje
|
| Objavljeno: Tor Nov 28, 2017 7:11 am Naslov sporočila: |
|
|
| Lep izdelek. Si mogoče imel kakšne težave glede LM35 in dolžino kabla? Kolikšna je sploh dolžina kablov na katerih sta pripeta senzorja?
|
|
| Nazaj na vrh |
|
|
mikra67
Član
Pridružen-a: Ned 16 Apr 2017 8:35
Prispevkov: 25
Aktiv.: 0.25
Kraj: koroška
|
| Objavljeno: Tor Nov 28, 2017 10:14 pm Naslov sporočila: |
|
|
| Ule Z LM35 ni nobenih težav delajo v nulo, na samo delovanje ne vpliva dolžina kabla, senzor za bojler ima 6m kabla, senzor za peč pa 2m
|
|
| Nazaj na vrh |
|
|
|
|
Ne, ne moreš dodajati novih tem v tem forumu
Ne, ne moreš odgovarjati na teme v tem forumu
Ne, ne moreš urejati svojih prispevkov v tem forumu
Ne, ne moreš brisati svojih prispevkov v tem forumu
Ne ne moreš glasovati v anketi v tem forumu
Ne, ne moreš pripeti datotek v tem forumu
Ne, ne moreš povleči datotek v tem forumu
|
Uptime: 497 dni
Powered by phpBB © 2001, 2005 phpBB Group
|
Pomoč
Išči
Seznam članov
Skupine
Statistika
Album
Filemanager
Registriraj se
Priponke
Koledar
Tvoj profil
Prijava
