Kod: Zaznacz cały
$regfile = "2313def.dat"
$crystal = 4000000
Config Pinb.3 = Output
Dim Togbit As Byte , Command As Byte , Address As Byte
Command = 1
Togbit = 0
Address = 11
Do
Wait 1
Rc5send Togbit , Address , Command
Togbit = Not Togbit
Loop
End-Fusebit C - 0:Divide Clock by 8 enabled
- Fusebit B - 1:Clock output on CKOUT pin disabled
- Fusebit KLA987 - 010010:Int. RC Osc 4MHz; Start-up time: 14CK + 14CK + 4.1 ms;[CKSEL=0010 SUT=01]
Układ elektroniczny jest sprawny (dioda w odbiorniku miga), ale okrutny AtTiny2313 nie ma ochoty współpracować z poleceniem rc5send w Bascomie AVR. Nie dałem mu żadnego rezonatora, robi na RC. Pomocy...