NYÁK olcsón!!!

[elektromos]

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.

[elektromos]

Í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

[SirLeslie]

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.

Ha ráér vasárnap délutánig (csak aznap reggeltől érek rá), akkor küldheted a végleges kapcsolási rajzot
(expresspcb-ben tudom elkészíteni)

[kapu48]

Szerintem csak megkellene adni:
$crystal = 1000000 'Sebesseg értéket
Mert a Bascom ebből számolja a késleltetéseket.

[elektromos]

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!!

[Robert]

Bascom NEM éget be _semmit_ magától....
Tessék elolvasni a 4. fejezetet - hamár leírtam....
NE feltételezz semmit semmi prg-ről! Hacsak nem akarsz szívni sokat - saját hibából!

A $crystal-t tessék berakni.....

[elektromos]

OK ! Be írom, de ha nem írok be semmit akkor is működik! lNem lehet, hogy valahol alapban be van állítva a bascomban valahol?

[Robert]

Irtam .

http://avr.tavir.hu/modules.php?name=Co ... page&pid=7

[elektromos]

Robi!
Igazad van ! Nagyon kezdünk vissza menni a programozás részbe, és ezért itt nem folytatjuk, mert ez maradjon a nyák készítő topik.

[kapu48]

OK ! Be írom, de ha nem írok be semmit akkor is működik! lNem lehet, hogy valahol alapban be van állítva a bascomban valahol?

Minek kérsz tanácsot? Ha aztán úgysem nézel utána a kapott témának?
Csak mész a magad feje után!

[SirLeslie]

SirLeslie!
Amit feltettem a file csere-bere oldalra, szerintem az a végső variáció, remélem! Laminator3.gif alatt megtalálhatod. ...

oké, vasárnapig frissítheted.

[elektromos]

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á.

[kapu48]

És hol van az úthenger képe?

[elektromos]

Holnap be lesz dobozolva teljesen, mert az előlap is csak most készülget, de holnap mindent felteszek!

[elektromos]

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.