funkheld
14.09.2010, 09:49
Der RC5-Empfang ist unter Bascom unzuverlässig mit diesem Programm.
Er reagiert manchmal erst auf mehrmaligen drücken der Fernbedienungstaste.
Unter Win-AVR funktioniert dieses umgesetzt Programm präzise.
Habe schon mehrfach hier gelesen, das Bascom da zicken macht.
Auch mit einen verschieden grossen Waitms in der Loop funktioniert es nicht besser.
Wie und was kann mit Geringfügigen verbessern des Code eine Sichere Funktion erreichen?
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 19200
$hwstack = 32
$swstack = 10
$framesize = 40
$lib "mcsbyte.lbx"
Config Rc5 = Pina.0
Enable Interrupts
Dim Address As Byte , Command As Byte
Print "Waiting for RC5..."
Do
Getrc5(address , Command)
If Address = 0 Then
Command = Command And &B01111111
Print Address ; " " ; Command
End If
Loop
End
Er reagiert manchmal erst auf mehrmaligen drücken der Fernbedienungstaste.
Unter Win-AVR funktioniert dieses umgesetzt Programm präzise.
Habe schon mehrfach hier gelesen, das Bascom da zicken macht.
Auch mit einen verschieden grossen Waitms in der Loop funktioniert es nicht besser.
Wie und was kann mit Geringfügigen verbessern des Code eine Sichere Funktion erreichen?
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 19200
$hwstack = 32
$swstack = 10
$framesize = 40
$lib "mcsbyte.lbx"
Config Rc5 = Pina.0
Enable Interrupts
Dim Address As Byte , Command As Byte
Print "Waiting for RC5..."
Do
Getrc5(address , Command)
If Address = 0 Then
Command = Command And &B01111111
Print Address ; " " ; Command
End If
Loop
End