ATNEL tech-forum

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-02-15T21:17:04+01:00

Dostałem od kolegi jacekk232 taki program (mam nadzieję, że nie obrazi się, że go tu zamieściłem), za co bardzo mu dziękuję:

[syntax=basic4gl]$regfile = "m8adef.dat"
$crystal = 8000000

Dim Tryb As Byte
Dim Opoznienie As Byte
Dim I As Byte
Dim Licznik As Word
Dim Krotki_czas As Byte , Dlugi_czas As Word
Dim Wybor_czasu As Bit , Ktory_czas As Bit
Dim Ilosc_migniec As Byte

Opoznienie = 255
Tryb = 0
Krotki_czas = 150
Dlugi_czas = 550

Config Pind.1 = Output
Config Pind.2 = Output
Config Pind.3 = Input : Portd.3 = 1 'tryb_up
Config Pind.4 = Input : Portd.4 = 1 'tryb_down
Config Pind.5 = Input : Portd.5 = 1
Config Pind.6 = Input : Portd.6 = 1
Config Pind.7 = Input : Portd.7 = 1

Do
Waitms 1

Debounce Pind.3 , 0 , Tryb_up , Sub
Debounce Pind.4 , 0 , Tryb_down , Sub
Debounce Pind.5 , 0 , Key_plus , Sub
Debounce Pind.6 , 0 , Key_minus , Sub
Debounce Pind.7 , 0 , Zmien , Sub

If Tryb = 0 Or Tryb = 1 Or Tryb = 2 Then 'jesli ustawiony tryb 1 lub 2
Incr Licznik
If Licznik >= Opoznienie Then
Licznik = 0

If Tryb = 0 Then
Reset Portd.1
Reset Portd.2
End If

If Tryb = 1 Then
Toggle Portd.1
Toggle Portd.2
End If

If Tryb = 2 Then
Toggle Portd.1
Portd.2 = Not Portd.1
End If

End If
Else
If Ktory_czas = 0 Then 'jesli ustawiony tryb 3
Incr Licznik
If Licznik = Krotki_czas Then
Licznik = 0
Toggle Portd.1
Toggle Portd.2
Incr Ilosc_migniec
If Ilosc_migniec = 10 Then
Ilosc_migniec = 0
Toggle Ktory_czas
End If
End If
Else
Incr Licznik
If Licznik = Dlugi_czas Then
Licznik = 0
Portd.1 = 1
Portd.2 = 1
Toggle Ktory_czas
End If
End If
End If

Loop
End

Tryb_up:
If Tryb < 3 Then Incr Tryb
If Tryb = 3 Then
Portd.1 = 1 'aby wyłaczyć diody i
Portd.2 = 1 'przygotować je do trzech mignięć
End If
Licznik = 0
Return

Tryb_down:
If Tryb > 0 Then Decr Tryb
If Tryb = 0 Or Tryb = 1 Then Portd.1 = Portd.2 'aby przy Tryb=0 lub tryb=1 diody migały razem
Licznik = 0
Return

Zmien:
Toggle Wybor_czasu
Return

Key_plus:
If Tryb = 3 Then
If Wybor_czasu = 0 Then
Krotki_czas = Krotki_czas + 10
Else
Dlugi_czas = Dlugi_czas + 60
End If
Else
Opoznienie = Opoznienie + 15
End If
Return

Key_minus:
If Tryb = 3 Then
If Wybor_czasu = 0 Then
Krotki_czas = Krotki_czas - 10
Else
Dlugi_czas = Dlugi_czas - 60
End If
Else
Opoznienie = Opoznienie - 15
End If
Return[/syntax]

Plus diody mam podłączony do +5V. Całość działa dobrze. No może prawie dobrze.
W trybie 3, gdzie diody migają razem (kilka szybkich błysków, przerwa i znowu kilka błysków) jest czasami błąd. Jeśli zwiększam czas krótkich błysków (zmienna krotki_czas) to dwie diody albo się zaświecą, albo zgasną i nic dalej się nie dzieje. Muszę wtedy przejść do trybu niżej i znowu wskoczyć do trybu 3. Wtedy szybkość błysków jest już zmieniona. Chodzi o to, że całość tak jakby się zawieszała. Dzieje się tak dość często, ale nie za każdym razem. Najczęściej jeśli szybko naciskam na przycisk. Co to może być?

Druga sprawa. Jak rozwiązać 4 tryb, w którym kilka razy mrugałaby pierwsza dioda, przerwa (zmienna dlugi_czas) i kilka razy druga dioda. Kombinowałem coś podobnie jak w trybie 3, ale nie wychodziło mi to. Nie udało mi się uzyskać takiego efektu jaki chciałem.

Pozdrawiam.

Statystyki: Napisane przez pavel0910 — 15 lut 2013, o 21:17

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-02-13T23:19:17+01:00

U kolegi jacekk232 program działa, a u mnie nie. Widzicie w tym coś złego?

Przycisków nie mam, zwieram wyprowadzenia m8 do masy kabelkiem.

Statystyki: Napisane przez pavel0910 — 13 lut 2013, o 23:19

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-02-13T21:21:30+01:00

Mam podłączone 2 zasilania (VCC i AVCC) do +5v z USB. Masa podłączona. Plus diody do PD1, drugiej diody do PD2. Masa do masy. Każdy przycisk osobno do masy, na pewno nie są cały czas zwarte.

------------------------ [ Dodano po: 36 minutach ]

Tak to zrobiłem i nie działa. Mogę tylko w tryb=0 zmniejszać i zwiększać szybkość migania, po przejściu do tryb=1 nie ma reakcji na przyciski.

[syntax=basic4gl]$regfile = "m8adef.dat"
$crystal = 1000000

Dim Tryb As Byte
Dim Opoznienie As Byte
Dim I As Byte
Opoznienie = 255

Config Pind.1 = Output
Config Pind.2 = Output
Config Pind.3 = Input : Portd.3 = 1 'tryb
Config Pind.4 = Input : Portd.4 = 1 'plus
Config Pind.5 = Input : Portd.5 = 1 'minus

Do

Debounce Pind.3 , 0 , Tryb1 , Sub
Debounce Pind.6 , 0 , Tryb2 , Sub
Debounce Pind.4 , 0 , Key_plus , Sub
Debounce Pind.5 , 0 , Key_minus , Sub

If Tryb = 0 Then 'obie migaja razem
For I = 0 To Opoznienie
Waitms 1
Next
Toggle Portd.1
Toggle Portd.2
End If

If Tryb = 1 Then
For I = 0 To Opoznienie
Waitms 1
Next
Toggle Portd.1
Portd.2 = Not Portd.1
End If
Loop
End

Tryb1:
Tryb = 0
Portd.1 = Portd.2 'aby przy Tryb=0 diody migały razem
Return

Tryb2:
Tryb = 1
Return

Key_plus:
Opoznienie = Opoznienie - 10
Return

Key_minus:
Opoznienie = Opoznienie + 10
Return[/syntax]

Statystyki: Napisane przez pavel0910 — 13 lut 2013, o 21:21

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-02-13T21:17:30+01:00

Program z mojego ostatniego postu działa mi na zestawie ATB. Jeśli u Ciebie od razu przechodzi do drugiego trybu to tak jakbyś miał przycisk wyboru trybu na stałe zwarty do masy.

Jeśli możesz to pokaż schemat jak to masz podłączone bo może jednak w układzie siedzi jakiś babol.

Dodam tylko, że z powodu tych waitów w pętli głównej przyciski trzeba przycisnąć troszkę dłużej aby nastąpiła reakcja.

Statystyki: Napisane przez jacekk232 — 13 lut 2013, o 21:17

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-02-13T21:16:58+01:00

Mała zmiana. Po włączeniu układu dwie diody mrugają razem. Jest wtedy możliwość regulacji szybkości i zmiany trybu, ale jeśli zmienię tryb to później żaden przycisk nie działa.

Statystyki: Napisane przez pavel0910 — 13 lut 2013, o 21:16

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-02-13T21:08:58+01:00

Dalej to samo. Nie wiem co robię nie tak...

Całość zmontowana jest na płytce stykowej. Wszystkie połączenia są dobre. Po zaprogramowaniu układu diody od razu mrugają w tym trybie na przemian. Nie ma reakcji na przyciski.

Statystyki: Napisane przez pavel0910 — 13 lut 2013, o 21:08

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-02-13T16:32:46+01:00

Dzięki wielkie, wieczorem sprawdzę i dam znać. Jeśli będzie działać (a skoro mówisz, że na płytce testowej działa dobrze to u mnie też powinno) to będę miał jeszcze kilka pytań odnośnie innych trybów migania diód.

Statystyki: Napisane przez pavel0910 — 13 lut 2013, o 16:32

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-02-13T16:29:04+01:00

Wypróbuj ten program:
[syntax=basic4gl]$regfile = "m32def.dat"
$crystal = 16000000

Dim Tryb As Byte
Dim Opoznienie As Byte
Dim I As Byte
Opoznienie = 255

Config Pind.1 = Output
Config Pind.2 = Output
Config Pind.3 = Input : Portd.3 = 1 'tryb
Config Pind.4 = Input : Portd.4 = 1 'plus
Config Pind.5 = Input : Portd.5 = 1 'minus

Do

Debounce Pind.3 , 0 , Key_mode , Sub
Debounce Pind.4 , 0 , Key_plus , Sub
Debounce Pind.5 , 0 , Key_minus , Sub

If Tryb = 0 Then 'obie migaja razem
For I = 0 To Opoznienie
Waitms 1
Next
Toggle Portd.1
Toggle Portd.2
End If

If Tryb = 1 Then
For I = 0 To Opoznienie
Waitms 1
Next
Toggle Portd.1
Portd.2 = Not Portd.1
End If
Loop
End

Key_mode:
Tryb = Tryb + 1
If Tryb > 1 Then
Tryb = 0
Portd.1 = Portd.2 'aby przy Tryb=0 diody migały razem
'Portd.1 = 1 : Portd.2 = 1
End If
Return

Key_plus:
Opoznienie = Opoznienie - 1
Return

Key_minus:
Opoznienie = Opoznienie + 1
Return[/syntax]
U mnie na płytce testowej działa dobrze. W razie jakiś wątpliwości pytaj.

Statystyki: Napisane przez jacekk232 — 13 lut 2013, o 16:29

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-02-13T00:03:23+01:00

Nic takie coś nie daje. Może ma ktoś jakiś pomysł? Ten ostatni program Antystatycznego wydaje się bardzo logiczny i poprawny, a jednak nie działa tak jak powinien...

Statystyki: Napisane przez pavel0910 — 13 lut 2013, o 00:03

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-02-12T20:36:34+01:00

W programie Antystatycznego nie widzę podciągnięcia wejść do Vcc.
[syntax=basic4gl]Portd.3 = 1
Portd.4 = 1
Portd.5 = 1 [/syntax] Może dlatego program działa nieprawidłowo.

Statystyki: Napisane przez jacekk232 — 12 lut 2013, o 20:36

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-02-12T12:29:14+01:00

Cel dalej nie osiągnięty. Nie uzyskałem efektu takiego jak chciałem uzyskać.

W ostatnim programie, który zamieścił Antystatyczny program przechodzi od razu do trybu, kiedy diody migają na przemian. Nie ma żadnej reakcji na przyciski.

Ktoś byłby w stanie pomóc?

Statystyki: Napisane przez pavel0910 — 12 lut 2013, o 12:29

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-01-30T21:28:23+01:00

spokojnie w bascomie i tak nie zapanujesz nad stosem i sie nie dowiesz co on tam z nim robi

dlatego radzę przejdź na C i to szybko nim złych nawyków dostaniesz
widzisz że i ja miałem problem choć sporo w nim pisałem

Statystyki: Napisane przez SunRiver — 30 sty 2013, o 21:28

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-01-30T21:24:42+01:00

A nie zapełnie przez te podprogramy stosu?

Dioda miga 8 razy. Bo przerwa w miganiu czyli stan "1" też chyba się liczy. Czyli razem 16.

Statystyki: Napisane przez pavel0910 — 30 sty 2013, o 21:24

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-01-30T21:19:25+01:00

pobaw sie podprogramami i debounce ...

dioda powinna mrugać 16 razy bo tak ma w petli for

Statystyki: Napisane przez SunRiver — 30 sty 2013, o 21:19

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-01-30T21:13:47+01:00

SunRiver ten ostatni program działa, ale dioda mruga tylko 8 razy.

Potrzebuję 3 przycisków:
1 - przełącza do kolejnego trybu migania
2 - zwiększa szybkość migania
3 - zmniejsza szybkość migania.

Jak to rozwiązać?

Statystyki: Napisane przez pavel0910 — 30 sty 2013, o 21:13

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-01-30T21:07:17+01:00

To musi tak byc i musi działać :

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

Config Debounce = 30
Dim A As Byte
Config Portb.1 = Output
Set PortB.0
Set PortD.7

Do

Debounce Pinb.0 , 0 ,Pr1 , Sub
Debounce Pind.7 , 0 ,Pr2 , Sub

Loop

Pr1:
For A = 1 To 16
Wait 1
Portb.1 = A
Next A
Return

Pr2:
For A = 1 To 16
Waitms 100
Portb.1 = A
Next A
Return

[/syntax]

Statystyki: Napisane przez SunRiver — 30 sty 2013, o 21:07

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-01-30T20:53:20+01:00

Niestety. Wgrałem to i dioda miga kilkanaście razy wolno, później kilkanaście razy szybko i tak w kółko. Nie ma żadnej reakcji na przyciski.

Statystyki: Napisane przez pavel0910 — 30 sty 2013, o 20:53

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-01-30T19:31:11+01:00

dioda ci świeci bo masz set LED czyli jest zapalona

wpływaj przycikiem na parametr pętli albo na waita i bedzie działać

------------------------ [ Dodano po: 17 minutach ]

zobacz to powinno działać

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

Config Debounce = 30

Dim A As Byte

Config Portb.1 = Output

Debounce Pinb.0 , 0 , Pr1
Debounce Pind.7 , 0 , Pr2

End

Pr1:
For A = 1 To 16
Wait 1
Portb.1 = A

Next A

Return

Pr2:
For A = 1 To 16
Waitus 100
Portb.1 = A

Next A

Return

[/syntax]

Statystyki: Napisane przez SunRiver — 30 sty 2013, o 19:31

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-01-30T19:28:03+01:00

Dodałem takie coś:

[syntax=basic4gl]Config Portb.1 = Output
Config Portb.0 = Input
Config Portd.7 = Input[/syntax]

I teraz dioda mi cały czas świeci.

Statystyki: Napisane przez pavel0910 — 30 sty 2013, o 19:28

Re: Mrugające diody na Atmega8. Nie do końca działa.

2013-01-30T19:23:38+01:00

Przede wszystkim nie widzę nigdzie konfiguracji pinów ??

np:

[syntax=basic4gl]
Config PortB.1 = Output
Config PortB.0 = Input
Config PortD.7 = Input
[/syntax]

Looknij na program przykładowy migacza diodowego

[syntax=basic4gl]

$regfile = "m32def.dat"
$crystal = 16000000

Dim A As Byte

Config Portb.1 = Output
Config Portd.0 = Input
Config Portd.1 = Input

Do
For A = 1 To 16
Wait 1
'If A = 1 Then
Portb.1 = A
'Portd.0 = A
'Portd.1 = A
'End If

Next A
Loop
[/syntax]

Statystyki: Napisane przez SunRiver — 30 sty 2013, o 19:23

Mrugające diody na Atmega8. Nie do końca działa.

2013-01-30T18:16:41+01:00

Witam.
Chciałem zrobić sterownik do diód led na Atmega8A (tylko do testów). Na razie mam tylko taki program (później go rozbuduję):

[syntax=basic4gl]$regfile = "m8adef.dat"
$crystal = 4000000

Led1 Alias Portb.1
Przycisk1 Alias Portd.7
Przycisk2 Alias Portb.0

set Led1
set Przycisk1
set Przycisk2

'zmienne
Dim Przycisk_licz1 As Byte
Dim Przycisk_licz2 As Byte
dim czas as byte, licznik as byte

czas = 10

Do
'wolniej
if Przycisk1 = 0 then
incr przycisk_licz1
if przycisk_licz1 = 5 then
przycisk_licz1 = 0
if czas < 255 then incr czas
End if
end if

incr licznik
if licznik >= czas then
licznik = 0
Led1 = not led1
end if

Waitms 10

'szybciej
if Przycisk2 = 0 then
incr przycisk_licz2
if przycisk_licz2 = 95 then
przycisk_licz2 = 0
if czas > 1 then decr czas
End if
else
przycisk_licz2 = 90
End If

Waitms 10

Loop[/syntax]

Plus diody podłączyłem przez rezystor 1K do PB.1, a minus - do masy.
Przycisk1 - PD.7 i do masy.
Przycisk2 - PB.0 i tak samo do masy.

Zaprogramowałem Atmegę. Fuse bity wyglądają tak:

Dioda mruga. Ale nie ma regulacji szybkości mrugania. Po zwarciu PD.7 lub PB.0 do masy nie ma żadnej reakcji. Czy coś źle zrobiłem? O co chodzi?

Proszę o pomoc.
Pozdrawiam.

Statystyki: Napisane przez pavel0910 — 30 sty 2013, o 18:16