ATNEL tech-forum

Re: Obsługa klawiszy nie działa...

2014-09-17T17:11:13+01:00

Do podciągania pinów wejściowych do Vcc używa się rejestru PORT a nie PIN.
Te linie
[syntax=basic4gl]Set Pind.6
Set Pind.7[/syntax]
powieneś zmienić na
[syntax=basic4gl]Set Portd.6
Set Portd.7[/syntax]

Statystyki: Napisane przez jacekk232 — 17 wrz 2014, o 17:11

Re: Obsługa klawiszy nie działa...

2014-09-17T16:54:35+01:00

Niveasoft
Miganie działa, to pierwsze sprawdziłem. Dzięki!

skalarro
Twój kod zadziałał! Dziękuję za pomoc. Bałem się, że coś nie tak z ATB...
Kurcze, gdzie jest błąd w kodzie który mam w pierwszym poście? Dziś nie mam na to chwili, ale postaram się to odrobaczyć i podam co było przyczyną.

m.

Statystyki: Napisane przez michalwu — 17 wrz 2014, o 16:54

Re: Obsługa klawiszy nie działa...

2014-09-16T21:50:37+01:00

Spróbuj inaczej podejść do tematu...
Od początku
[syntax=basic4gl]$regfile = "m32def.dat"
$crystal = 11059200
Config Portd = &B00111111
Portd = &b11000000
Config Porta = &B11111111 'starcze 6 bitow nieistotne teraz
Porta = &B11111111 ' tu dwa bity najmlodsze 0 lub 1 zalezy czy hcesz zapalone gasić czy odwrotnie

S1 Alias Pind.6
S2 Alias Pind.7

Led1 Alias Porta.0
Led2 Alias Porta.1[/syntax]
i druga część - powinna zadziałać - sprawdź
[syntax=basic4gl]do
if S1 =0 then
waitms 50
if S1 =0 then gosub ETYKIETA
end if
Loop
end

etykieta:
Toggle LED1
return[/syntax]
oczywiście jak zadziała, zrobisz sobie bez waitów

Statystyki: Napisane przez skalarro — 16 wrz 2014, o 21:50

Re: Obsługa klawiszy nie działa...

2014-09-16T20:34:03+01:00

W ATB przyciski zwieraja do masy.

Statystyki: Napisane przez Nefarious19 — 16 wrz 2014, o 20:34

Obsługa klawiszy nie działa...

2014-09-16T20:11:00+01:00

Cześć

Mam problem z najprostszą rzeczą. Nie działają mi klawisze w ATB. Diody zaświecają się.
Przykład z ksiązki p. Wiązani. Działał na mojej poprzedniej płytce od Gotronik.
A na ATB nie chce. Może popełniam gdzieś błąd...

Macie pomysły?

[syntax=basic4gl]$regfile = "m32def.dat"
$crystal = 11059200

Config Pind.6 = Input
Config Pind.7 = Input

Config Pina.0 = Output
Config Pina.1 = Output

S1 Alias Pind.6
S2 Alias Pind.7

Led1 Alias Porta.0
Led2 Alias Porta.1

Set Pind.6
Set Pind.7

Do
Debounce S1 , 0 , Program1 , Sub

Debounce S2 , 0 , Program2 , Sub
Loop
End

Program1:
Toggle Led1
Return

Program2:
Toggle Led2
Return

'taki sposob tez nie dziala
'If S1 = 0 Then
' Do
' Toggle Led1
' Waitms 500
' Loop
'End If
'End[/syntax]

Statystyki: Napisane przez michalwu — 16 wrz 2014, o 20:11