Nyákhoz lamináló Bascom vezérlő

elektromos

Már megint én vagyok. Azt szeretném megkérdezni, hogy az INT0, vagy INT1 lábat csak akkor lehet használni, ha alacsony szintet kap? Mert nekem pont magas szintre kellene hogy megszakítson! Míg alacsony szinten használtam ok volt, de most magas szintre kellen, hogy megszakítson! Ha van erre lehetőség, megírnátok ide, mi a megoldás?

A Bascom könyvet nézd meg!
Megszakítás fejezet...
Low/Falling/Rising/PinChange kulcsszavakat....

elektromos

mega8-an nincs pinchance, ha jol olvasom

Az a M48/88/168/328-ason van a M8 sorozatból...

elektromos

Elkészült a progija a laminálónak, de nem akarja azt csinálni amit szeretnék! Mivel utólag építettem bele egy plusz kapcsolót melyel ki szeretném választani, hogy laminálok vagy éppen pcb-t készítek, nem működik, mert mindig a pcb- részt hajtja végre. Elektromosan jó, mert az ic-lábán magas, vagy alacsony szint mérhető. Mi a hiba a progiban?

'Laminator -proba2
$regfile = "M8def.dat"
$crystal = 1000000

Config Adc = Single , Prescaler = Auto , Reference = Avcc 'config ADC
Start Adc
Dim W As Word , P As Word , V As Word
Config Portd.0 = Output 'ventillator
Config Portd.1 = Output 'futotest
Config Portd.2 = Output 'gorgo motor
Config Portd.5 = Input 'kapcsolo start
Config Portd.6 = Input 'kapcsolo stop
Config Portd.7 = Input 'kapcsolo gorgo motor
Config Portc.1 = Input 'thermo elem bemenet
Config Portb.0 = Input 'kapcsolo laminator/pcb

Kstart Alias Pind.5 'kapcsolo BE
Kstop Alias Pind.6 'kapcoló KI
Kgorgo Alias Pind.7 'csak görgető motor tisztítás
Mrele Alias Portd.2 'gorgo motor rele
Hrele Alias Portd.0 'huto ventillatorok
Fbetet Alias Portd.1 'futobetet
Laminpcb Alias Portb.0 ' laminalo-pcb kapcsolo

Do
W = Getadc(1)
W = W / 10
P = W / 10
Kezd:
If Laminpcb = 1 Then Goto Laminator 'laminpcb kapcsolo ki
If Laminpcb = 0 Then Goto Pcb 'laminpcb kapcsolo be
Laminator: 'laminator uzemmod
If Kstart = 0 Then ' start kapcsolo
Set Mrele 'bekapcsolja a gorgo motort
Set Fbetet 'Bekapcsolja A Futobetet
End If

If Kstop = 0 Then 'stop kapcsolo
Reset Fbetet 'kikapcsolja a futobetetet
Set Hrele ' bekapcsolja a ventillátort
Set Mrele 'bekapcsolja a gorgo motort
Wait 200 'vár
Reset Mrele 'kiapcsolja a gorgo motor
Wait 10 'var
Reset Hrele 'kikapcsolja a ventillátort
End If

If Kgorgo = 0 Then 'gorgo tisztitas
Set Mrele 'be-gorgo motor
Wait 40 'várj
Reset Mrele 'kiapcsolja a gorgo motor
End If
If W = 18 Then Set Fbetet 'bekapcsolja a futobetet 110-117 fok
If W >= 18 Then Reset Fbetet 'kikapcsolja a futobetetet
If W >= 18 Then Set Hrele ' bekapcsolja a ventillátort
If W <= 19 Then Reset Hrele 'kikapcsolja a ventillátort
If W >= 28 Then Reset Fbetet 'védelem thermo elem hiba esetén

Pcb:
If Kstart = 0 Then ' start kapcsolo
Set Mrele 'bekapcsolja a gorgo motort
Set Fbetet 'Bekapcsolja A Futobetet
End If
If Kstop = 0 Then 'stop kapcsolo
Reset Fbetet 'kikapcsolja a futobetetet
Set Hrele ' bekapcsolja a ventillátort
Set Mrele 'bekapcsolja a gorgo motort
Wait 200 'vár
Reset Mrele 'kiapcsolja a gorgo motor
Wait 10 'var
Reset Hrele 'kikapcsolja a ventillátort
End If
If W = 30 Then Set Fbetet 'bekapcsolja a futobetet 180-185 fok
If W >= 30 Then Reset Fbetet 'kikapcsolja a futobetetet
If W >= 33 Then Set Hrele ' bekapcsolja a ventillátort
If W <= 30 Then Reset Hrele 'kikapcsolja a ventillátort
If W >= 32 Then Reset Fbetet 'védelem thermo elem hiba esetén

Loop
Goto Kezd
End 'end program

Laminpcb alias PINB.x !
nem PORTB.x

elektromos

áááááááááááááááááááááá

köszi
Amugy a többi rész megfelelő, mert ez az első tényleg önállóan írt progim!
A KAPCSOLÁSI RAJZOT TÖRÖLD KI A FILE-CSERE BERE oldalról, mert sokat kelett módosítani rajta, és amit feltettem az bizonytalanul működött, és csak a prototípus volt. Már minden OK!

kapu48

Figyusz a Gotokat nagyon összezavartad!
Futasd már le szimulátorban lépésenként!
De ha nem boldogulsz, szívesen ki javítom?

kapu48

Fölösleges GOTOk nélkül, kicsit rendezve:

Kód: Egész kijelölése

   'Laminator -proba2
$regfile = "M8def.dat"
$crystal = 1000000

Config Adc = Single , Prescaler = Auto , Reference = Avcc   'config ADC
Start Adc
Dim W As Word , P As Word , V As Word
Dim Start_ As Bit
Start_ = 0

Config Portd.0 = Output                                     'ventillator
Config Portd.1 = Output              'futotest
Config Portd.2 = Output              'gorgo motor
Config Portd.5 = Input                'kapcsolo start
Config Portd.6 = Input                'kapcsolo stop
Config Portd.7 = Input               'kapcsolo gorgo motor
Config Portc.1 = Input               'thermo elem bemenet
Config Portb.0 = Input               'kapcsolo laminator/pcb

Kstart Alias Pind.5                     'kapcsolo BE
Kstop Alias Pind.6                      'kapcoló KI
Kgorgo Alias Pind.7                    'csak görgető motor tisztítás
Mrele Alias Portd.2                    'gorgo motor rele
Hrele Alias Portd.0                     'huto ventillatorok
Fbetet Alias Portd.1                    'futobetet
Laminpcb Alias Pinb.0                  'laminalo-pcb kapcsolo

Do
   W = Getadc(1)                        'Hö szenzor
   W = W / 10
   P = W / 10
   If Kstart = 0 Then                  'start kapcsolo
      Start_ = 1                          'Start rutin engedély
   End If
   If Kstop = 0 Then                   'stop kapcsolo
      Start_ = 0                          'Start rutin tiltás
   End If

'Laminator: üzemmod
If Laminpcb = 1 Then                 'Laminpcb Kapcsolo Ki
   If Start_ = 1 Then                  ' start kapcsolo
      Set Mrele                            'bekapcsolja a gorgo motort
      If W <= 18 Then Set Fbetet  'bekapcsolja a futobetet 110-117 fok
      If W > 18 Then Reset Fbetet 'kikapcsolja a futobetetet
      If W >= 18 Then Set Hrele    ' bekapcsolja a ventillátort
      If W <= 20 Then Reset Hrele 'kikapcsolja a ventillátort
   End If

   If W >= 28 Then Reset Fbetet  'védelem thermo elem hiba esetén
End If

'Pcb:   Üzemmod
If Laminpcb = 0 Then
   If Start_ = 1 Then                  ' start kapcsolo
      Set Mrele                            'bekapcsolja a gorgo motort
      If W <= 30 Then Set Fbetet  'bekapcsolja a futobetet 180-185 fok
      If W > 30 Then Reset Fbetet 'kikapcsolja a futobetetet
      If W >= 33 Then Set Hrele    ' bekapcsolja a ventillátort
      If W <= 30 Then Reset Hrele  'kikapcsolja a ventillátort
   End If

   If W >= 32 Then Reset Fbetet  'védelem thermo elem hiba esetén
End If

 'gorgo tisztitas
   If Kgorgo = 0 Then                 'gorgo tisztitas
      Set Mrele                           'be-gorgo motor
      Wait 40                              'várj
      Reset Mrele                         'kikapcsolja a gorgo motor
   End If

'Leállítás
   If Kstop = 0 Then                   'stop kapcsolo
     Start_ = 0                           'Start rutin tiltás
     Reset Fbetet                        'kikapcsolja a futobetetet
     Set Hrele                             'bekapcsolja a ventillátort
     Set Mrele                             'bekapcsolja a gorgo motort
     Wait 200                                  'vár
     Reset Mrele                          'kikapcsolja a gorgo motor
     Wait 10                                    'var
     Reset Hrele                           'kikapcsolja a ventillátort
   End If

Loop             'Innen vissza ugrik a DO-hoz

End                                           'end program

herc1234

Ha a gombokat INTx-re kötötted volna diódán keresztül akkor
azokat vizsgálhattad volna akkor mikor benyomod a gombod.

Kód: Egész kijelölése

     If W <= 30 Then Set Fbetet  'bekapcsolja a futobetet 180-185 fok 
      If W > 30 Then Reset Fbetet 'kikapcsolja a futobetetet 
      If W >= 33 Then Set Hrele    ' bekapcsolja a ventillátort 
      If W <= 30 Then Reset Hrele  'kikapcsolja a ventillátort

vagy igy is lehet

Kód: Egész kijelölése

    if w <= 30 then
    set Fbetet
    else
    reset fbetet
    end if

    if w >= 33 then
    set Hrele
    else
    reset Hrele
    end if

vagy igy

Kód: Egész kijelölése

select case w
     case Is >= 33 :set Hrele
     case else :reset Hrele
end select

Ezekkel a nagy wait-ekel az a baj hogy a tápelvételen kivűl nem fogsz tudni beavatakozni sehogy máshogy ez alatt a gombok nem fognak
működni.

elektromos

Itt vannak a képek melyeket igértem, laminálo-fotok.zip alatt a file cserebere oldalon. Mivel csak a kedvetekért dobtam össze egy nyákot, így vannak benne zárlatok, de nem is az a lényeg, hanem a 0,2mm-es vonalak hibátlanok. A felső részen jobban látható a minőség, mert a vastagabb összekötő vonal 0,4mm, a vékonyabb 0,2mm-es. Ha jól tervez valaki nyákot, akkor a 0,2mm-es vonalakal semmi baj, tehát lehet használni, ezt a laminátoros megoldást. Kapu48 módosított programját használom, mely tényleg szebb, és áttgondoltabb, de az enyém is jól működött.

Van egy kép a végleges mechanikai megoldásról is, melyet a nagy hő miatt átt kellett módosítani. A két ventillátorra szükség van, hogy gyorsan vissza tudja hűteni a fűtőbetétet, és így nem sérűl a görgő, meg a műanyag alkatrészek sem. A kétoldalas nyákot is meg lehet csinálni 1 lépésben, és a furatok pontosan ott vannak ahol kell, de minimális elcsuszás lehetséges, attól függ milyen ügyesek vagyunk.

Herc1234 ! Látod mennyi jó megoldás van, de akkor kelett volna szólni, mielőtt még megterveztem a nyákot.

A kis program részeid is tanulságosak, melyeket le is mentettem magamnak, még jól jöhetnek!

herc1234

Nagyából az pont jó is igy a 0,2 az 7,8 mil és 8 milnél vékonyabbat
a kisipari nyákgyártók se igen szeretnek vállalni a demo-02.zip
ben nem látni hogy milyen a szigetelési távolság de mintha itt ott
2mil nél nem volna több.Ez direkt ilyen? a Fotok.zip-on viszont
a nyákot irigylem.

(mostanában a perszulfát valamiért alámarja
, lehet visszaszokom a desztviz elegyre)Én DIP lábak között nem
szivesen "hajtok át".Viszont a nyákod az jó.

elektromos

Csak bele rajzoltam a sok vékony 0,2miles vonalat, hogy lehessen látni milyen minőséget tud a laminálo prudukálni ilyen finom felbontásban. Én csak sósav-hidrogén-peroxidot használok, nekem az jön be , közel 10 éve. Bár kifogytam belőle, és csak pesten kapni az Azurban és nem is küldik el, ezért megpróbálom a hiperol tablettát mely kapható a gyógyszertárban. Valaki használta már a tablettát?

Nem megy. Hyperol:

H2O2+karbamid....
Töménysége a béka feneke alatt....

elektromos

De jó, akkor nem veszek, köszi! Akkor mégis menem kell pestre!