prerobenie programu pre atmega8

[mato1168]

Vedel by mi niekto prerobit program z attiny13 na atmega8 kvoli skuske kedze attiny doma nemam a atmegu ano
program je v tejto teme http://www.ebastlirna.cz/modules.php?na ... ic&t=67064
dakujem

[nekmil]

Popiš přesně co to má dělat.

[mato1168]

po stlaceni tlacidla zopne rele 1 po dalsom stlaceni na niaku dobu ktoru si mozem v programe potom zmenit zopne rele 2 a tretie stlacenie rozopne rele 1 rele 2 bude tiez rozopnute je to povodne do auta ako spinacia skrinka no ja som to chcel najprv nasimulovat v proteuse kde mi to neslo neviem preco pisal som sem na forum nikto neporadil tak by som to chcel skusit postavit ale zaroven by som bol rad keby to funguje aj v proteuse s tou attiny13

[AB1]

Podle popisu je finta v tom, že akce (odemknutí) nastane v okamžiku kdy R2 je odpadlé a R1 odpadá.

Takže třetí stisk tlačítka musí přijít až po pauze, až odpadne relé R2. Pokud přijde dřív tak R2 zůstane přitažené a program skončí. Na další mačkání tlačítka nereaguje.

Na proteus se vykašli, zapoj tlačítko, místo relé dej ledky a zkoušej v reálu.
U procesoru dej blokovací kondík aspoň na napájení.

Přikládám kód pro mega8.

[mato1168]

ma to fungovat tak ze prve stlacenie tlacitka je akoby otocenie do prvej polohy v spinacej skrinke auta druhe je startovanie a tretie je vypnutie motora a vytiahnutie klucika samozrejme ze takto sa to pouzit do auta neda kvoli bezpecnosti ale to by som riesil neskor

[AB1]

Aha, myslel jsem že je to nějaké zabezpečení.
To, že někdo místo jednoduchého otočení klíčkem nastrká do auta tlačítka, relátka a mikroprocesory by mne nenapadlo.

[nekmil]

Pochopil jsem to správně ?

první_stisk: sepne rele_1
druhý_stisk: sepne rele_2 na 5 sekund a vypne rele_2
třetí_stisk: vypne rele_1

[mato1168]

Presne tak

[mato1168]

Aha, myslel jsem že je to nějaké zabezpečení.
To, že někdo místo jednoduchého otočení klíčkem nastrká do auta tlačítka, relátka a mikroprocesory by mne nenapadlo.

moj napad to nieje je to z jedneho fora samozrejme takto ako to je by som to nepouzil kvoli bezpecnositi

[nekmil]

Odladěno na reálné desce s ATmega 644.

Kód: Vybrat vše

$regfile = "m8def.dat"
$crystal = 1e6                                              '1MHz
$hwstack=40
$swstack = 16
$framesize = 32

'konfigurace výstupů
Config Portb.1 = Output
Config Portb.2 = Output
'výstupům přiřadíme jméno
Rele_1 Alias Portb.1                                       'vystup1
Rele_2 Alias Portb.2                                        'vystup2

'konfigurace vstupů
Config Pinb.3 = Input                                       'tlačítko
Portb.3 = 1                                                 'nastavit pull-up
'vstupum přiřadíme jméno
Tlacitko Alias Pinb.3

Const On = 0                                                '0 - aktivní v L , 1 - aktivní v H
Const Off = 1
Rele_1 = Off
Rele_2 = Off

Dim Klik As Byte

 '------------------------------------------------------------------
Do
      Debounce Tlacitko , 0 , Key , Sub                     'kontrolujeme tlačítko
Loop

Key:
    Incr Klik                                               'zvýšíme počítadlo stisků
    Select Case Klik
                Case 1
                Rele_1 = On                                 'první stisk - zapneme rele 1

                Case 2
                Rele_2 = On                                 'druhý stisk zapneme rele 2
                Wait 2                                      'počkáme třeba 2 sekundy
                Rele_2 = Off                                'vypneme rele 2

                Case 3
                Rele_1 = Off                                'třetí stisk - vypneme rele 1
                Klik = 0                                    'vynulujeme  počítadlo stisků
End Select
Return

 End                                                        'end program

'(
první_stisk:     sepne rele_1
druhý_stisk:    sepne rele_2 na 5sec  a vypne rele_2
třetí_stisk:       vypne rele_1
')

[mato1168]

Dakujem za program odskusal som to na kontaktnom poli s ledkami a funguje to este to v najblizsom case skusim s rele