ATNEL tech-forum 2012-12-16T17:31:08+01:00 https://forum.atnel.pl/feed.php?f=12&t=1935&mode 2012-12-16T17:31:08+01:00 2012-12-16T17:31:08+01:00 https://forum.atnel.pl/viewtopic.php?t=1935&p=21318#p21318 <![CDATA[Re: ATmega8 i matryca LED 5x5]]> topic92.html#p887

a tu sobie go pobierzesz https://www.dropbox.com/sh/1johtpksshwdlzj/NItMpuQSW3

Statystyki: Napisane przez SunRiver — 16 gru 2012, o 17:31

]]> 2012-12-16T16:44:28+01:00 2012-12-16T16:44:28+01:00 https://forum.atnel.pl/viewtopic.php?t=1935&p=21314#p21314 <![CDATA[Re: ATmega8 i matryca LED 5x5]]>
Jeszcze tylko muszę jakoś fonta przerobić na 5x5 (teraz jest wrzucony 7x5).

Statystyki: Napisane przez Ficu — 16 gru 2012, o 16:44

]]> 2012-12-16T10:35:24+01:00 2012-12-16T10:35:24+01:00 https://forum.atnel.pl/viewtopic.php?t=1935&p=21279#p21279 <![CDATA[Re: ATmega8 i matryca LED 5x5]]> [syntax=basic4gl]Portb = Portb And &B01111111 'Pb.7 = 0, pozostałe bez zmian
Kol_zn = Kol_zn And &B10000000 'Kol_zn.7 bez zmian a pozostałe wyzerowane !!!!

Portb = Portb Or Kol_zn 'w wyniku tego i powyższych działań ustawi tylko Pb.7[/syntax]
Raczej tak:
[syntax=basic4gl]Portb = Portb And &B11100000 'wyzeruj Pb.4...Pb.0
Kol_zn = Kol_zn And &B00011111 'wyzeruj Kol_zn.7-Kol_zn.5 - bo nie używane, tylko Kol_zn.5...Kol_zn.0 zostaną użyte
Portb = Portb Or Kol_zn 'w wyniku tego i powyższych działań ustawi Pb.4...Pb.0[/syntax]

Statystyki: Napisane przez Krauser — 16 gru 2012, o 10:35

]]> 2012-12-15T23:57:43+01:00 2012-12-15T23:57:43+01:00 https://forum.atnel.pl/viewtopic.php?t=1935&p=21272#p21272 <![CDATA[ATmega8 i matryca LED 5x5]]> pojawił się u mnie problem (pewnie banalny) z obsługą matrycy led. Posiadam podręcznikowy przykład M. Wiązani i próbuje go przerobić tak aby działał z moim schematem:
[syntax=basic4gl]'wiersze
Config Pinb.4 = Output
Config Pinb.3 = Output
Config Pinb.2 = Output
Config Pinb.1 = Output
Config Pinb.0 = Output


'kolumny
Config Pind.7 = Output
Config Pind.6 = Output
Config Pind.5 = Output
Config Pind.4 = Output
Config Pind.3 = Output[/syntax]

Domyślnie było: wiersze pd.0-pd.6, kolumny pb.0-pb.4

Program:
[syntax=basic4gl]$regfile "m8def.dat"
$crystal = 8000000

'wiersze
Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pinb.3 = Output
Config Pinb.4 = Output

'kolumny
Config Pind.3 = Output
Config Pind.4 = Output
Config Pind.5 = Output
Config Pind.6 = Output
Config Pind.7 = Output

Config Timer0 = Timer , Prescale = 256

Declare Sub Pob_w_zn

On Timer0 Mult_wysw_matr

Dim Znak As String * 1
Dim Nr_kol As Byte
Dim Kod_zn As Byte
Dim Kol_zn As Byte
Dim I As Byte

C1 Alias Portd.7
C2 Alias Portd.6
C3 Alias Portd.5
C4 Alias Portd.4
C5 Alias Portd.3

Enable Interrupts
Enable Timer0
Load Timer0 , 94

Do
Znak = "A"
Wait 1

Znak = "B"
Wait 1

Znak = "C"
Wait 1

Znak = "D"
Wait 1

Znak = "0"
Wait 1

Znak = " "
Wait 1

For I = 32 To 127
Znak = Chr(i)
Waitms 500
Next I


Loop
'koniec pętli nieskończonej
End 'koniec programu


Sub Pob_w_zn
Kod_zn = Asc(znak)

Select Case Nr_kol 'w zależności od wartości

Case 0: 'jeśli I ma wartość 1, to
Kol_zn = Lookup(kod_zn , Kol1) 'wpisanie do tablicy Kol(5) kodu
'znaku dla kolumny 1
Case 1: 'jeśli I ma wartość 2, to
Kol_zn = Lookup(kod_zn , Kol2) 'wpisanie do tablicy Kol(5) kodu
'znaku dla kolumny 2
Case 2: 'jeśli I ma wartość 3, to
Kol_zn = Lookup(kod_zn , Kol3) 'wpisanie do tablicy Kol(5) kodu
'znaku dla kolumny 3
Case 3: 'jeśli I ma wartość 4, to
Kol_zn = Lookup(kod_zn , Kol4) 'wpisanie do tablicy Kol(5) kodu
'znaku dla kolumny 4
Case 4: 'jeśli I ma wartość 5, to
Kol_zn = Lookup(kod_zn , Kol5) 'wpisanie do tablicy Kol(5) kodu
'znaku dla kolumny 5
End Select 'koniec instrukcji wyboru

Portb = Portb And &B01111111
Kol_zn = Kol_zn And &B10000000

Portb = Portb Or Kol_zn

End Sub 'koniec procedury

'koniec procedury

Mult_wysw_matr: 'podprogramu obsługi przerwania
'od przepełnienia Timer0
Load Timer0 , 94 'wpisanie do licznika wartości
'początkowej
Set C1 'wygaszenie kolumny 1
Set C2 'wygaszenie kolumny 2
Set C3 'wygaszenie kolumny 3
Set C4 'wygaszenie kolumny 4
Set C5 'wygaszenie kolumny 5
Call Pob_w_zn 'wywołanie procedury
'pobierającej i wysyłającej kod
'wyświetlanej kolumny z tablic
Select Case Nr_kol 'w zależności od wartości Nr_kol
'wykonaj:
Case 0: 'gdy Nr_kol = 0, to
Reset C1 'włączenie kolumny 1
Case 1: 'gdy Nr_kol = 1, to
Reset C2 'włączenie kolumny 2
Case 2: 'gdy Nr_kol = 2, to
Reset C3 'włączenie kolumny 3
Case 3: 'gdy Nr_kol = 3, to
Reset C4 'włączenie kolumny 4
Case 4: 'gdy Nr_kol = 4, to
Reset C5 'włączenie kolumny 5

End Select 'koniec instrukcji wyboru

Incr Nr_kol 'zwiększenie o jeden wartości
'Nr_kol
If Nr_kol = 5 Then 'jeśli wartość Nr_kol osiągnie
'5, to
Nr_kol = 0 'zerowanie wartości Nr_kol
End If
Return


Kol1: 'tablica kodów Kol1 dla
'pierwszej kolumny wyświetlacza
'- kolejność kodów odpowiada
'numerom ASCII
Data 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 ,
Data 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 ,
Data 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 ,
Data 127 , 127 , 127 , 127 , 127 , 107 , 109 , 29 , 73 , 127 ,
Data 127 , 127 , 107 , 119 , 127 , 119 , 127 , 125 , 65 , 127 ,
Data 94 , 61 , 115 , 13 , 97 , 127 , 73 , 79 , 127 , 127 , 119 ,
Data 107 , 127 , 95 , 89 , 64 , 0 , 65 , 0 , 0 , 0 , 65 , 0 ,
Data 127 , 125 , 0 , 0 , 0 , 0 , 65 , 0 , 65 , 0 , 78 , 63 , 1 ,
Data 3 , 1 , 28 , 15 , 60 , 127 , 43 , 127 , 111 , 126 , 127 ,
Data 125 , 0 , 113 , 113 , 113 , 119 , 103 , 0 , 127 , 125 , 0 ,
Data 127 , 96 , 96 , 113 , 96 , 119 , 96 , 118 , 111 , 97 , 99 ,
Data 97 , 110 , 103 , 110 , 127 , 127 , 127 , 119 , 119

Kol2: 'tablica kodów Kol2 dla drugiej
'kolumny wyświetlacza
'- kolejność kodów odpowiada
'numerom ASCII
Data 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 ,
Data 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 ,
Data 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 ,
Data 127 , 127 , 127 , 127 , 15 , 0 , 85 , 27 , 54 , 47 , 99 ,
Data 62 , 119 , 119 , 122 , 119 , 124 , 123 , 58 , 94 , 60 , 62 ,
Data 107 , 46 , 86 , 56 , 54 , 54 , 73 , 74 , 107 , 107 , 62 ,
Data 63 , 54 , 59 , 54 , 62 , 62 , 54 , 55 , 62 , 119 , 62 , 126 ,
Data 119 , 126 , 95 , 111 , 62 , 55 , 62 , 55 , 54 , 63 , 126 ,
Data 125 , 126 , 107 , 119 , 58 , 0 , 75 , 62 , 95 , 126 , 63 ,
Data 106 , 118 , 110 , 110 , 106 , 64 , 90 , 119 , 110 , 126 ,
Data 123 , 62 , 111 , 119 , 110 , 107 , 107 , 119 , 106 , 1 ,
Data 126 , 125 , 126 , 117 , 122 , 108 , 119 , 127 , 62 , 119 , 99

Kol3: 'tablica kodów Kol3 dla trzeciej
'kolumny wyświetlacza
'- kolejność kodów odpowiada
'numerom ASCII
Data 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 ,
Data 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 ,
Data 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 ,
Data 127 , 127 , 127 , 6 , 127 , 107 , 0 , 119 , 42 , 31 , 93 ,
Data 93 , 65 , 65 , 121 , 119 , 124 , 119 , 54 , 0 , 58 , 46 , 91 ,
Data 46 , 54 , 55 , 54 , 54 , 73 , 73 , 93 , 107 , 93 , 58 , 48 ,
Data 59 , 54 , 62 , 62 , 54 , 55 , 54 , 119 , 0 , 62 , 107 , 126 ,
Data 103 , 119 , 62 , 55 , 58 , 51 , 54 , 0 , 126 , 126 , 113 ,
Data 119 , 120 , 54 , 62 , 96 , 62 , 63 , 126 , 95 , 106 , 110 ,
Data 110 , 110 , 106 , 55 , 90 , 111 , 32 , 110 , 117 , 0 , 115 ,
Data 111 , 110 , 107 , 107 , 111 , 106 , 110 , 126 , 126 , 121 ,
Data 123 , 122 , 106 , 73 , 0 , 73 , 85 , 85

Kol4: 'tablica kodów Kol4 dla czwartej
'kolumny wyświetlacza
'- kolejność kodów odpowiada
'numerom ASCII
Data 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 ,
Data 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 ,
Data 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 ,
Data 127 , 127 , 127 , 127 , 15 , 0 , 85 , 108 , 93 , 127 , 62 ,
Data 99 , 119 , 119 , 127 , 119 , 127 , 111 , 46 , 126 , 54 , 22 ,
Data 0 , 46 , 54 , 47 , 54 , 53 , 127 , 127 , 62 , 107 , 107 , 55 ,
Data 62 , 59 , 54 , 62 , 93 , 54 , 55 , 54 , 119 , 62 , 1 , 93 ,
Data 126 , 95 , 123 , 62 , 55 , 61 , 53 , 54 , 63 , 126 , 125 , 126 ,
Data 107 , 119 , 46 , 62 , 75 , 0 , 95 , 126 , 111 , 106 , 110 ,
Data 110 , 118 , 106 , 63 , 90 , 111 , 126 , 33 , 110 , 126 , 111 ,
Data 111 , 110 , 107 , 115 , 111 , 106 , 126 , 125 , 125 , 126 ,
Data 117 , 122 , 102 , 62 , 127 , 119 , 99 , 119

Kol5: 'tablica kodów Kol5 dla piątej
'kolumny wyświetlacza
'- kolejność kodów odpowiada
'numerom ASCII
Data 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 ,
Data 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 ,
Data 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 , 127 ,
Data 127 , 127 , 127 , 127 , 127 , 107 , 91 , 92 , 122 , 127 , 127 ,
Data 127 , 107 , 119 , 127 , 119 , 127 , 95 , 65 , 127 , 78 , 57 ,
Data 123 , 49 , 121 , 31 , 73 , 67 , 127 , 127 , 127 , 107 , 119 ,
Data 79 , 65 , 64 , 73 , 93 , 99 , 62 , 63 , 80 , 0 , 127 , 63 , 62 ,
Data 126 , 0 , 0 , 65 , 79 , 66 , 78 , 57 , 63 , 1 , 3 , 1 , 28 , 15 ,
Data 30 , 127 , 43 , 127 , 111 , 126 , 127 , 112 , 113 , 125 , 0 ,
Data 115 , 95 , 65 , 112 , 127 , 127 , 127 , 127 , 112 , 112 , 113 ,
Data 119 , 96 , 119 , 125 , 125 , 96 , 99 , 97 , 110 , 97 , 110 ,
Data 127 , 127 , 127 , 119 , 119 'powrót z podprogramu przerwania[/syntax]

Według mnie powinienem zmienić definicje aliasów C1-C5 na swoje (i tak zrobiłem)
oraz zmienić:

[syntax=basic4gl] 'domyślne
Portd = Portd And &B01111111
Kol_zn = Kol_zn And &B10000000

Portd = Portd Or Kol_zn[/syntax]

na:

[syntax=basic4gl] Portb = Portb And &B01111111
Kol_zn = Kol_zn And &B10000000

Portb = Portb Or Kol_zn[/syntax]
I powinna matryca jakoś chyba migać? No ale tylko świeci. Podejrzewam, że jeszcze trzeba by było odpowiednio przesunąć portb w prawo (żeby zaczynało się od pd.3 a nie pd.0).

Matryca ogólnie działa jak zapalam i gaszę wiersze i kolumny, ale w tym programie działać nie chce.
Może po prostu źle rozumiem działanie programu?

Pozdrawiam

Statystyki: Napisane przez Ficu — 15 gru 2012, o 23:57

]]>