NYÁK olcsón!!!
- elektromos
- Bitmanipulátor
- Hozzászólások: 101
- Csatlakozott: 2008. július 30. szerda, 6:00
- elektromos
- Bitmanipulátor
- Hozzászólások: 101
- Csatlakozott: 2008. július 30. szerda, 6:00
Írtam egy egyszerű, de sok hibával teli kis programot! Bár működik, de biztos van benne hiba. Ez a laminátor próbapanelen elkészített verziójának a nyers progija, melyet még lehet csinosítani, de így is működik.Hogy lássam az adc működését ide még tettem egy LCD-t ami már nem lesz benne a végleges verzióban
: 'Laminator -proba1
$regfile = "M8def.dat" ' use the Mega8
' Belso 1Mhz-es orajelről megy
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.6 , Rs = Portd.7
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'config ADC
Start Adc
Dim W As Word , P As Word , V As Word
Config Portb.1 = Input
Config Portc.5 = Input
Config Portb.2 = Input
Config Portb.3 = Input
Config Portb.4 = Output
Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.2 = Output
Kstart Alias Pinb.1 'kapcsolo BE
Kstop Alias Pinb.2 'kapcoló KI
Kgorgo Alias Pinb.3 'csak görgető motor tisztítás
Mrele Alias Portc.0 'gorgo motor rele
Hrele Alias Portc.1 'huto ventillatorok
Fbetet Alias Portc.2 'futobetet
Portb.4 = 0 ' vesz jelzo led
Cls
Cursor Off
Kezd:
Do
Locate 1 , 1
Lcd "Adc:" ; W
Locate 1 , 13
Lcd P ; "%" "
W = Getadc(5)
W = W / 10
P = W / 10
If Kstart = 0 Then
Set Mrele
Set Fbetet
Reset Portb.4
End If
If Kstop = 0 Then
Reset Fbetet
Set Hrele
Reset Portb.4
Wait 30
Reset Mrele
Wait 10
Reset Hrele
End If
If Kgorgo = 0 Then
Set Mrele
Wait 40
Reset Mrele
End If
If W = 32 Then Reset Fbetet
If W = 29 Then Set Fbetet
If W >= 34 Then Reset Fbetet Else Toggle Portb.4
If W <= 1 Then Reset Fbetet Else Toggle Portb.4
'Goto Kezd
Loop
End 'end program
: 'Laminator -proba1
$regfile = "M8def.dat" ' use the Mega8
' Belso 1Mhz-es orajelről megy
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.6 , Rs = Portd.7
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'config ADC
Start Adc
Dim W As Word , P As Word , V As Word
Config Portb.1 = Input
Config Portc.5 = Input
Config Portb.2 = Input
Config Portb.3 = Input
Config Portb.4 = Output
Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.2 = Output
Kstart Alias Pinb.1 'kapcsolo BE
Kstop Alias Pinb.2 'kapcoló KI
Kgorgo Alias Pinb.3 'csak görgető motor tisztítás
Mrele Alias Portc.0 'gorgo motor rele
Hrele Alias Portc.1 'huto ventillatorok
Fbetet Alias Portc.2 'futobetet
Portb.4 = 0 ' vesz jelzo led
Cls
Cursor Off
Kezd:
Do
Locate 1 , 1
Lcd "Adc:" ; W
Locate 1 , 13
Lcd P ; "%" "
W = Getadc(5)
W = W / 10
P = W / 10
If Kstart = 0 Then
Set Mrele
Set Fbetet
Reset Portb.4
End If
If Kstop = 0 Then
Reset Fbetet
Set Hrele
Reset Portb.4
Wait 30
Reset Mrele
Wait 10
Reset Hrele
End If
If Kgorgo = 0 Then
Set Mrele
Wait 40
Reset Mrele
End If
If W = 32 Then Reset Fbetet
If W = 29 Then Set Fbetet
If W >= 34 Then Reset Fbetet Else Toggle Portb.4
If W <= 1 Then Reset Fbetet Else Toggle Portb.4
'Goto Kezd
Loop
End 'end program
Ha ráér vasárnap délutánig (csak aznap reggeltől érek rá), akkor küldheted a végleges kapcsolási rajzotelektromos írta:Köszi a válaszokat! Nem akarja valaki megtervezni a panelját a laminálónak, TQFP-s atmega8-al? Én neki állok, de még nem terveztem ilyem smd-s panelt, de egyszer el kell kezdeni.
(expresspcb-ben tudom elkészíteni)
- elektromos
- Bitmanipulátor
- Hozzászólások: 101
- Csatlakozott: 2008. július 30. szerda, 6:00
SirLeslie!
Amit feltettem a file csere-bere oldalra, szerintem az a végső variáció, remélem! Laminator3.gif alatt megtalálhatod. Én nekiálltam megcsinálni, remélem holnap estére már ki is tudom maratni, de beültetni csak a hétvégén tudom, mert vagy pénteken, vagy hétfőn érkeznek meg az alkatrészek hozzá. Ha van kedved, megcsinálhatnád Te is a nyák rajzot és feldobjuk ide a netre , hátha valakinek még jól jön, persze erős igénybevétel után csak. Én két részre bontom, vagyis két panelt tervezek, egy 220V-os részt, és külön a procis részt, mert utálok 220V-ba nyulkálni, értem azt mikor fel kell programozni az atmega-t.
Amugy köszönöm, a segítőkészségedet!
Kapu48!
Mi van velled? Azt hittem már eltüntél, mert szerettem volna veled beszélgetni ! Azért nem adok meg kvarcot , mert a bascom alapban a belső 1Mhz-et éget be a prociba, és én egyenlőre ezt használom, mert ide bőven elég. Kapcsolgatni nem kell nagy sebesség szerintem. Amugy megépítettem és jól működik, de csak a proba panelemen. Ha elérhető vagy, jelezzél mert dumcsizhatnánk egyet!!
Amit feltettem a file csere-bere oldalra, szerintem az a végső variáció, remélem! Laminator3.gif alatt megtalálhatod. Én nekiálltam megcsinálni, remélem holnap estére már ki is tudom maratni, de beültetni csak a hétvégén tudom, mert vagy pénteken, vagy hétfőn érkeznek meg az alkatrészek hozzá. Ha van kedved, megcsinálhatnád Te is a nyák rajzot és feldobjuk ide a netre , hátha valakinek még jól jön, persze erős igénybevétel után csak. Én két részre bontom, vagyis két panelt tervezek, egy 220V-os részt, és külön a procis részt, mert utálok 220V-ba nyulkálni, értem azt mikor fel kell programozni az atmega-t.
Amugy köszönöm, a segítőkészségedet!
Kapu48!
Mi van velled? Azt hittem már eltüntél, mert szerettem volna veled beszélgetni ! Azért nem adok meg kvarcot , mert a bascom alapban a belső 1Mhz-et éget be a prociba, és én egyenlőre ezt használom, mert ide bőven elég. Kapcsolgatni nem kell nagy sebesség szerintem. Amugy megépítettem és jól működik, de csak a proba panelemen. Ha elérhető vagy, jelezzél mert dumcsizhatnánk egyet!!
- elektromos
- Bitmanipulátor
- Hozzászólások: 101
- Csatlakozott: 2008. július 30. szerda, 6:00
- elektromos
- Bitmanipulátor
- Hozzászólások: 101
- Csatlakozott: 2008. július 30. szerda, 6:00
- elektromos
- Bitmanipulátor
- Hozzászólások: 101
- Csatlakozott: 2008. július 30. szerda, 6:00
SirLeslie!
Nem kell megcsinálni a panelet, mert kész, és minden működött elsőre!
Teszek fel képet a file csere berére laminálokép alatt! Egy számítogép tápegység házat használtam fel, és így a dobozolás megoldodott ingyen, és még a ventillátor is benne volt! Már csak valami jó előlapot kell készíteni neki. Tehát a laminálló elektronika működik, de még tesztelgetem. Mivel találtam egy dip tokos atmega8-at, így azzal lett megoldva, persze a rajzot modosítani kellett hozzá.
Nem kell megcsinálni a panelet, mert kész, és minden működött elsőre!
Teszek fel képet a file csere berére laminálokép alatt! Egy számítogép tápegység házat használtam fel, és így a dobozolás megoldodott ingyen, és még a ventillátor is benne volt! Már csak valami jó előlapot kell készíteni neki. Tehát a laminálló elektronika működik, de még tesztelgetem. Mivel találtam egy dip tokos atmega8-at, így azzal lett megoldva, persze a rajzot modosítani kellett hozzá.
- elektromos
- Bitmanipulátor
- Hozzászólások: 101
- Csatlakozott: 2008. július 30. szerda, 6:00
- elektromos
- Bitmanipulátor
- Hozzászólások: 101
- Csatlakozott: 2008. július 30. szerda, 6:00
Elkészült a laminálós project-em ! Megdolgoztam vele, mert a semmiből kellett felépíteni az egészet, meg aztán a mechanikai dolgok, azok adták a munka 70%-át, mert ki kelett találni, milyen doboz legyen, mekkora legyen a nyák mérete, hogy minden vidáman elférjen, és még a hűtéssel is gondok voltak, hogy lehetne egyszerűen a fűtőbetétet lehűteni túlmelegedésnél, és kikapcsolás utánni lehűtésnél! Vallatásnál, az analog rész nem ugy működödtt mint szerettem volna, és egy kis áttalakításon esett átt. Aztán tettem bele egy plusz kapcsolót, melyel válthatok , hogy laminálni vagy pcb-t akarok készíteni. Idáig szépen dolgozik, de még a progit átt kell kozmetikázni az uj funkció miatt, de ez már nem lesz nehéz remélem, mert Ti fórumozók nagyon segítőkészek vagytok! A képet a szokott helyre teszen laminálokész név alatt.