Witam
Siedzę nad kodem który dekoduje informację bcd na porcie D i gdy wykryje zmianę zmienia wartość zmiennej freq problem w tym, że program na symulatorze dziwnie startuje.
Wykrywa zmianę wartości na porcie ale ma problem z przypisaniem odpowiedniej wartości do zmiennej Freq i ciągle wywala 0 dopiero po chwili zabawy stanami na portach program załapuje i działa tak jak chce
Proszę kod umieścić w znacznikach code.
Robak
Siedzę nad kodem który dekoduje informację bcd na porcie D i gdy wykryje zmianę zmienia wartość zmiennej freq problem w tym, że program na symulatorze dziwnie startuje.
Wykrywa zmianę wartości na porcie ale ma problem z przypisaniem odpowiedniej wartości do zmiennej Freq i ciągle wywala 0 dopiero po chwili zabawy stanami na portach program załapuje i działa tak jak chce
$regfile = "m8def.dat"
$sim
$crystal = 8000000
Dim C As Byte
Dim B As Byte
Dim Freq As Byte
Config Pinc.5 = Input
Config Pinc.4 = Input
Config Pinc.3 = Input
Config Pinc.2 = Input
Set Portc.2
Set Portc.3
Set Portc.4
Set Portc.5
Declare Sub Wart
'S1 Alias Portc.6
'Freq = 123
'C = 0
Do
C = Portc
C = C And &B00111100
Shift C , Right , 2
If C <> B Then
Call Wart
End If
If C = 0 Then Freq = 123
If C = 1 Then Freq = 122
If C = 2 Then Freq = 13
If C = 3 Then Freq = 144
If C = 4 Then Freq = 155
If C = 5 Then Freq = 166
If C = 6 Then Freq = 177
If C = 7 Then Freq = 188
If C = 8 Then Freq = 199
If C = 9 Then Freq = 146
B = C
Loop
End
Sub Wart
Lcd "byla zmiana" '
Waitms 800
Cls
Lcd Freq
Waitms 800
Cls
End Sub
Proszę kod umieścić w znacznikach code.
Robak
