atmega8 program nepracuje spravne

Zpráva

procesor · #16 Příspěvek od **procesor** » 06 pro 2014, 19:54

Nie !!!
Vyššie som popísal ako tie nuly písať.
Na začiatku to môže byť tiež, ale by tam musela byť podmienka (test) iba pre pípad, že je stlačené niektoré tlačítko.

if Porc.0 AND Portc.1 AND.........AND Portc.3=0

porb.x=0
..
.
.
.
portc.x=0
endif

a tu tie pôvodné

if
.
.
.endif
if
.
.
.
endif
loop
end

mato1168 · #17 Příspěvek od **mato1168** » 06 pro 2014, 19:56

Ok upravim to a odskusam a keby nieco este sem napisem zatial dakujem

nekmil · #18 Příspěvek od **nekmil** » 06 pro 2014, 20:16

Pokud na vstupním pinu nemáš připojen fyzický odpor nebo nemáš zapnutý vnitřní "pull up" , na tomto pinu bude furt 0 bez ohledu na to jestli je tlačítko stlačeno či nikoli.

Ruprecht · #19 Příspěvek od **Ruprecht** » 06 pro 2014, 20:16

Nějak v tomprogramu nevidím, že by se aktivivaly pull-up odpory. Jakpak se tedy na vstup (od přizemněného tlačítka) dostane log.1/+5V?

Definice vstupů Config Portb.0 = Input je správně, interní pull-up (tedy 5V na vstupu s nezmáčknutým tlačítkem) se aktivuje Portb.0 = 1

Prostě ty řádky s definicí vstupů oprav na

Kód: Vybrat vše

Config Portb.0 = Input : Portb.0 = 1

Pak v klidu (žádné tlačítko není zmáčknuté=přizemněné) budou na vstupech log.1/5V, zmáčknuté tlačítko bude log.0, takže programově budeš testovat
if pinb.0 = 0 then...

mato1168 · #20 Příspěvek od **mato1168** » 06 pro 2014, 20:30

Testovat to budem asi az zajtra este som vonku a uz sa mi asi nebude chcet tak zajtra cez den upravim program a otestujem to zatial dakujem za rady

mato1168 · #21 Příspěvek od **mato1168** » 06 pro 2014, 21:48

upravil som ten program takto ale nejde skompilovat spravil som to tak ako som to pochopil z prispevku od procesor

Kód: Vybrat vše

$regfile = "m8def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config Portc.0 = Output                                     'hl.n biela
Config Portc.1 = Output                                     'hl.n cervena
Config Portc.2 = Output                                     'hl.n biela
Config Portc.3 = Output                                     'hl.n Z
Config Portd.0 = Output                                     'opakovacie biela
Config Portd.1 = Output                                     'opakovacie modra
Config Portd.2 = Output                                     'opakovacie biela
Config Portd.3 = Output                                     'opakovacie Z
Config Portb.0 = Input : Portb.0 = 1                        'tlacit zakazane
Config Portb.1 = Input : Portb.1 = 1                        'tlacit pomaly
Config Portb.2 = Input : Portb.2 = 1                        'tlacit rychlejsie
Config Portb.3 = Input : Portb.3 = 1                        'tlacit spat
Do
If Portb.0 And Portb.1 And Portb.2 And Portb.3 = 0 Then
Portc.0 = 0
Portc.1 = 0
Portc.2 = 0
Portc.3 = 0
Portd.0 = 0
Portd.1 = 0
Portd.2 = 0
Portd.3 = 0
End If

If Pinb.0 = 1 Then
Portc.1 = 1
Portd.1 = 1
End If
If Pinb.1 = 1 Then
Portc.0 = 1
Portc.2 = 1
Portd.0 = 1
Portd.2 = 1
End If
If Pinb.2 = 1 Then
Portc.0 = 1
Portd.0 = 1

End If
If Pinb.3 = 1 Then
Portc.1 = 1
Portc.3 = 1
Portd.1 = 1
Portd.3 = 1
End If

Loop
 End

chyby to hlasi v prvom riadku za ,,do´´ nastavil som tam aj ten pullup ako pisal ruprecht
ked to dam bez tohto

Kód: Vybrat vše

If Portb.0 And Portb.1 And Portb.2 And Portb.3 = 0 Then
Portc.0 = 0
Portc.1 = 0
Portc.2 = 0
Portc.3 = 0
Portd.0 = 0
Portd.1 = 0
Portd.2 = 0
Portd.3 = 0

tak to skompiluje

procesor · #22 Příspěvek od **procesor** » 06 pro 2014, 21:57

Presne syntax neovládam.
Možno do zátvoriek treba ten logický súčin AND tlačítok.

mato1168 · #23 Příspěvek od **mato1168** » 06 pro 2014, 22:38

ako cele do zatvoriek myslis alebo ako?a keby to vypisem pod seba bez tych and to by mohlo ist takto

Kód: Vybrat vše

$regfile = "m8def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config Portc.0 = Output                                     'hl.n biela
Config Portc.1 = Output                                     'hl.n cervena
Config Portc.2 = Output                                     'hl.n biela
Config Portc.3 = Output                                     'hl.n Z
Config Portd.0 = Output                                     'opakovacie biela
Config Portd.1 = Output                                     'opakovacie modra
Config Portd.2 = Output                                     'opakovacie biela
Config Portd.3 = Output                                     'opakovacie Z
Config Portb.0 = Input : Portb.0 = 1                        'tlacit zakazane
Config Portb.1 = Input : Portb.1 = 1                        'tlacit pomaly
Config Portb.2 = Input : Portb.2 = 1                        'tlacit rychlejsie
Config Portb.3 = Input : Portb.3 = 1                        'tlacit spat
Do
If Pinb.0 = 0 Then
Portc.1 = 0
Portd.1 = 0
End If
If Pinb.1 = 0 Then
Portc.0 = 0
Portc.2 = 0
Portd.0 = 0
Portd.2 = 0
End If
If Pinb.2 = 0 Then
Portc.0 = 0
Portd.0 = 0

End If
If Pinb.3 = 0 Then
Portc.1 = 0
Portc.3 = 0
Portd.1 = 0
Portd.3 = 0
end if
If Pinb.0 = 1 Then
Portc.1 = 1
Portd.1 = 1
End If
If Pinb.1 = 1 Then
Portc.0 = 1
Portc.2 = 1
Portd.0 = 1
Portd.2 = 1
End If
If Pinb.2 = 1 Then
Portc.0 = 1
Portd.0 = 1

End If
If Pinb.3 = 1 Then
Portc.1 = 1
Portc.3 = 1
Portd.1 = 1
Portd.3 = 1
End If

Loop
 End

Ruprecht · #24 Příspěvek od **Ruprecht** » 06 pro 2014, 22:44

Ty ANDy mají vypadat takto

Kód: Vybrat vše

If Portb.0 = 0 And Portb.1 = 0 And Portb.2 = 0 And Portb.3 = 0 Then

ale úplně nechápu jejich smysl. To by nulovalo výstupy jen v případě zmáčknutí všech tlačítek najednou

procesor · #25 Příspěvek od **procesor** » 06 pro 2014, 22:51

Má to urobiť pri stlačení ktoréhokoľvek.
Ak ten zápis ANDu má byť ako píšeš potom ale má byť takto

Kód: Vybrat vše

If Portb.0 = 0 or Portb.1 = 0 or Portb.2 = 0 or Portb.3 = 0 Then

ešte by so skúsil či pozná syntax zátvorky ...potom by to bolo takto

Kód: Vybrat vše

If (Portb.0 And Portb.1 And Portb.2 And Portb.3) = 0 Then

Ruprecht · #26 Příspěvek od **Ruprecht** » 06 pro 2014, 22:55

Nebo třeba takto?

Kód: Vybrat vše

$regfile = "m8def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config Portc.0 = Output                                     'hl.n biela
Config Portc.1 = Output                                     'hl.n cervena
Config Portc.2 = Output                                     'hl.n biela
Config Portc.3 = Output                                     'hl.n Z
Config Portd.0 = Output                                     'opakovacie biela
Config Portd.1 = Output                                     'opakovacie modra
Config Portd.2 = Output                                     'opakovacie biela
Config Portd.3 = Output                                     'opakovacie Z
Config Portb.0 = Input : Portb.0 = 1                        'tlacit zakazane
Config Portb.1 = Input : Portb.1 = 1                        'tlacit pomaly
Config Portb.2 = Input : Portb.2 = 1                        'tlacit rychlejsie
Config Portb.3 = Input : Portb.3 = 1                        'tlacit spat

Do


   If Pinb.0 = 0 Then
      Portc.1 = 1
      Portd.1 = 1
   Else
      Gosub Zhasni
   End If
'---------------------------------------------------------
   If Pinb.1 = 0 Then
      Portc.0 = 1
      Portc.2 = 1
      Portd.0 = 1
      Portd.2 = 1
   Else
      Gosub Zhasni
   End If
'---------------------------------------------------------
   If Pinb.2 = 0 Then
      Portc.0 = 1
      Portd.0 = 1
   Else
      Gosub Zhasni
   End If
'---------------------------------------------------------
   If Pinb.3 = 0 Then
      Portc.1 = 1
      Portc.3 = 1
      Portd.1 = 1
      Portd.3 = 1
   Else
      Gosub Zhasni
   End If


Loop
End

Zhasni:
   Portc.0 = 0
   Portc.1 = 0
   Portc.2 = 0
   Portc.3 = 0
   Portd.0 = 0
   Portd.1 = 0
   Portd.2 = 0
   Portd.3 = 0
Return

Držím tlačítko = svítí kombinace, pustím tlačítko, všecho zhasne

procesor · #27 Příspěvek od **procesor** » 06 pro 2014, 22:58

Nie ...
Gosub zhasni daj pred nastavenia portov do 1 a príkaz else netreba.

Kód: Vybrat vše


   If Pinb.0 = 0 Then
     Gosub Zhasni
      Portc.1 = 1
      Portd.1 = 1
 
 
   End If

Toto vynuluje a hneď nastaví požadované LEDky.

Edit:
Tak som si nainštaloval bascom

a vyskúšal preložiť toto najjednoduchšie:
a neprotestuje sytax

Kód: Vybrat vše

.
.
Do
 If Portb.0 = 0 Or Portb.1 = 0 Or Portb.2 = 0 Or Portb.3 = 0 Then
   Portc.0 = 0
   Portc.1 = 0
   Portc.2 = 0
   Portc.3 = 0
   Portd.0 = 0
   Portd.1 = 0
   Portd.2 = 0
   Portd.3 = 0
 End If
.
.
[/b]

mato1168 · #28 Příspěvek od **mato1168** » 07 pro 2014, 00:11

spravil som to takto

Kód: Vybrat vše

$regfile = "m8def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config Portc.0 = Output                                     'hl.n biela
Config Portc.1 = Output                                     'hl.n cervena
Config Portc.2 = Output                                     'hl.n biela
Config Portc.3 = Output                                     'hl.n Z
Config Portd.0 = Output                                     'opakovacie biela
Config Portd.1 = Output                                     'opakovacie modra
Config Portd.2 = Output                                     'opakovacie biela
Config Portd.3 = Output                                     'opakovacie Z
Config Portb.0 = Input : Portb.0 = 1                        'tlacit zakazane
Config Portb.1 = Input : Portb.1 = 1                        'tlacit pomaly
Config Portb.2 = Input : Portb.2 = 1                        'tlacit rychlejsie
Config Portb.3 = Input : Portb.3 = 1                        'tlacit spat
Do

If Pinb.0 = 0 Then
Portc.1 = 1
Portd.1 = 1
End If
If Pinb.1 = 0 Then
Portc.0 = 1
Portc.2 = 1
Portd.0 = 1
Portd.2 = 1
End If
If Pinb.2 = 0 Then
Portc.0 = 1
Portd.0 = 1

End If
If Pinb.3 = 0 Then
Portc.1 = 1
Portc.3 = 1
Portd.1 = 1
Portd.3 = 1
End If

Loop
 End

a funguje to ako ma

procesor · #29 Příspěvek od **procesor** » 07 pro 2014, 00:19

Nefunguje, postupne stlač všetky a bude ti svietiť všetko. Leda, že za každým stlačíš aj reset Tl.
Vyššie som doplnil kód s príkazmi OR a ide to skompilovať.

A robí to toto:
-po stlačení tlačidla (okamžite)sa rozsvieti príslušná kombinácia a svieti do stlačenia iného kódu.
-Reset tl. sa nemusí stláčať, iba ak je potreba zhasiť všetky LEDky.

mato1168 · #30 Příspěvek od **mato1168** » 07 pro 2014, 00:24

funguje mam tam reset tlacitko takze ked chcem zmenit kombinaciu tak ho stlacim a potom stlacim co potebujem to tvoje funguje tak ze ked stlacim inu kombinaciu tak automaticky zhasnu tie ledky ktore svietili ak som spravne pochopil
mne to vyhovuje takto kedze chcem dorobit este aby po stlaceni resetu sa rozsvietil zakladny stav tj tlacit zakazane to su dve ledky a bude tam o jedno tlacitko menej cize to bude fungovat tak ze po zapnuti sa rozsvieti zakladny stav a po stlaceni tlacitka sa rozsvieti prislusna kombinacia po stlaceni resetu sa do vrati naspet do zakladneho stavu