'0011.BAS: Optimierter String-Empfang
$regfile = "8515def.dat"
$crystal = 8000000
$Baud = 9600
Config Portb = Output
Dim S As String * 8 At &H60
Dim B(9) As Byte At &H60 Overlay
Dim n As Byte
On URXC OnRxD
Enable URXC
Enable Interrupts
Main:
If N > 7 Then
Portb = s
N = 0
End If
Goto Main
OnRxD:
Incr n
B(n) = Udr
Return
Wenn ich jetzt eine folge "10101111" an den µC schicke will ich das auch
diese LED's leuchten. Aber dass passiert nicht weil s ein string ist und
ich kann keinen sting in eine binärzahl wandeln oder? Wie macht man das
so, das ich ein telegram schikce und dieser bit für bit ausgewertet
werden kann?
bye
holger
Beitrag #6141166 wurde von einem Moderator gelöscht.
Beitrag #6141180 wurde von einem Moderator gelöscht.
Beitrag #6141182 wurde von einem Moderator gelöscht.
Dieser Beitrag ist gesperrt und kann nicht beantwortet werden.