Do moderatora : jak wstawić kod w znaczniki "Code". [c_p]??? w które miejsce należy skopiować listing ?
Ad1: zmiennej Wart , wywaliłem ją , działa



dzięki psoova
Ad2 : co do konfiguracji pinów i portów korzystam z pomocy książki M. Wiązani i manuala bascoma w tłumaczeniu ZbeeGin
jeśli nie ma dla was tajemnic, zaproponujcie jak wyświetlać za pomoca dwóch zmiennych R "red" i G "green" zamiast ośmiu "A - H"
przeszukałem elektrodę ale to co znalazłem nie potrafię jeszcze zaaplikować do mojego układu
zdjęcie nr3
listing na 8 wyświetlaczy:
"Code". [ '-------------------------------------------------------------
' M8535.BAS
' sterowanie multipleks wyswietlacza
'-------------------------------------------------------------
$crystal = 16000000
$regfile = "m8535.dat"
Config Porta = Output
Config Pinc.0 = Output 'wyswietlacz nr 1
Config Pinc.1 = Output 'wyswietlacz nr 2
Config Pinc.2 = Output 'wyswietlacz nr 3
Config Pinc.3 = Output 'wyswietlacz nr 4
Config Pinc.4 = Output 'wyswietlacz nr 5
Config Pinc.5 = Output 'wyswietlacz nr 6
Config Pinc.6 = Output 'wyswietlacz nr 7
Config Pinc.7 = Output 'wyświetlacz nr 8
Config Timer0 = Timer , Prescale = 8
Declare Sub Pobr_znaku(cyfra As Byte)
On Timer0 Mult_wysw
Dim A As Byte ,
Dim B As Byte ,
Dim C As Byte ,
Dim D As Byte ,
Dim E As Byte
Dim F As Byte ,
Dim G As Byte ,
Dim H As Byte
Dim Nr_wysw As Byte
Dim Wart As Byte
W1 Alias Portc.0
W2 Alias Portc.1
W3 Alias Portc.2
W4 Alias Portc.3
W5 Alias Portc.4
W6 Alias Portc.5
W7 Alias Portc.6
W8 Alias Portc.7
Enable Interrupts
Enable Timer0
Load Timer0 , 1
Do
A = 4
B = 6
C = 9
D = 1
E = 1
F = 0
G = 8
H = 2
Loop
End
Sub Pobr_znaku(cyfra As Byte)
If Cyfra < 10 Then
Porta = Lookup(cyfra , Kody7seg)
Else
Porta = 0
End If
End Sub
Mult_wysw:
Load Timer0 , 125
Reset W1
Reset W2
Reset W3
Reset W4
Reset W5
Reset W6
Reset W7
Reset W8
Select Case Nr_wysw
Case 0:
Call Pobr_znaku(a)
Set W1
Case 1:
Call Pobr_znaku(b)
Set W2
Case 2:
Call Pobr_znaku(c)
Set W3
Case 3:
Call Pobr_znaku(d)
Set W4
Case 4:
Call Pobr_znaku(e)
Set W5
Case 5:
Call Pobr_znaku(f)
Set W6
Case 6:
Call Pobr_znaku(g)
Set W7
Case 7:
Call Pobr_znaku(h)
Set W8
End Select
Incr Nr_wysw
If Nr_wysw = 8 Then
Nr_wysw = 0
End If
Return
Kody7seg:
Data 192 , 249 , 164 , 176 , 153 , 146 , 130 , 248 , 128 , 144p]