Witam!
Zrobiłem nadajnik Rc5 na attiny 2313. Po zaprogramowaniu i podłączeniu do obiegu układu scalonego pojawia się jeden błąd. Otóż, gdy dam zasilanie dioda nadawcza się cały czas pali i dopiero, gdy nacisnę switcha to zaczyna gasnąć. Poniżej podaję program:
Zrobiłem nadajnik Rc5 na attiny 2313. Po zaprogramowaniu i podłączeniu do obiegu układu scalonego pojawia się jeden błąd. Otóż, gdy dam zasilanie dioda nadawcza się cały czas pali i dopiero, gdy nacisnę switcha to zaczyna gasnąć. Poniżej podaję program:
$regfile = "attiny2313.dat"
Config Pinb.3 = Output
Config Pind.0 = Input
Config Pind.1 = Input
Config Pind.2 = Input
Config Pind.3 = Input
$crystal = 4000000
Set Portd.0
Set Portd.1
Set Portd.2
Set Portd.3
Gora Alias Pind.0
Dol Alias Pind.1
Zegarek Alias Pind.2
Wlaczwylacz Alias Pind.3
Dim Togbit As Byte , Command As Byte , Address As Byte
Do
Debounce Gora , 0 , Rc5 , Sub
Debounce Dol , 0 , Rc51 , Sub
Debounce Zegarek , 0 , Rc52 , Sub
Debounce Wlaczwylacz , 0 , Rc53 , Sub
Loop
End
Rc5:
Command = 10
Togbit = 0
Address = 0
Do
Rc5send Togbit , Address , Command
Waitms 200
Loop Until Gora = 1
Return
Rc51:
Command = 11
Togbit = 0
Address = 0
Do
Rc5send Togbit , Address , Command
Waitms 200
Loop Until Dol = 1
Return
Rc52:
Command = 12
Togbit = 0
Address = 0
Do
Rc5send Togbit , Address , Command
Waitms 200
Loop Until Zegarek = 1
Return
Rc53:
Command = 13
Togbit = 0
Address = 0
Do
Rc5send Togbit , Address , Command
Waitms 200
Loop Until Wlaczwylacz = 1
Return