Czy ktoś mógłby mi przesłać jakiś prosty programik ze sterowaniem multipleksowym wyświetlaczy LED pod AVR??? Zaczynam sie dopiero w to "bawić" i nie wiem jak zacząć. Proszę o pomoc. Pozdrawiam
Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam$regfile = "m8def.dat"
$crystal = 8000000
Config Portd = Output
Config Pinb.0 = Output
Config Pinb.1 = Output
Config Timer0 = Timer , Prescale = 256
Declare Sub Pobr_znaku(cyfra As Byte)
On Timer0 Mult_wysw
Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim Wart As Byte
Dim Nr_wysw As Byte
W1 Alias Portb.0
W2 Alias Portb.1
Enable Interrupts
Enable Timer0
Load Timer0 , 125
C = 0
Do
Wart = C
Wart = Makebcd(wart)
B = Wart And &B00001111
Shift Wart , Right , 4
A = Wart
Wait 1
C = C + 1
If C > 99 Then
C = 0
End If
Loop
End 'end program
Sub Pobr_znaku(cyfra As Byte)
Portd = Lookup(cyfra , Kody7seg)
End Sub
Mult_wysw:
Load Timer0 , 125
Set W1
Set W2
Select Case Nr_wysw
Case 0:
Call Pobr_znaku(a)
Reset W1
Case 1:
Call Pobr_znaku(b)
Reset W2
End Select
Incr Nr_wysw
If Nr_wysw = 2 Then
Nr_wysw = 0
End If
Return
Kody7seg:
Data &B11000000 , &B11111001 , &B10100100 , &B10110000 , &B10011001,
Data &B10010010 , &B10000010 , &B11111000 , &B10000000 , &B10010000
