Hi,
bekomme die Datenübertraung zwischen dem PC und dem RN-Mega2560 via USB nicht hin, also die String übertragung - einzeln klappt es (mit Inkey und halt Byte für Byte, aber das dauert viel zu lange da ich später USB durch ein Easyradio Modul ersetzen will und definitiv nicht jedes Byte einzeln übertragen möchte)
Will eine ganze Reihe von Bytes auf einmal senden z.B.
"Hello World"
Per inputbin läuft geht das bei mir nicht, finde da auch keine andere Lösung.
Code:
'General Config
$prog , 255 , &B11011001 ,
$regfile = "m2560def.dat"
$hwstack = 82
$framesize = 68
$swstack = 68
$crystal = 16000000
$baud = 19200
'USB Config
Config Com4 = 19200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Open "com4:" For Binary As #4
'Program
Dim Foo(11) As Byte
DO
'Get 11 Bytes
Inputbin #4 , Foo(1) , 11
If Foo(11) <> 0 Then Print #4 , "Data " ; Foo(1) , 11
Loop
Return
Lesezeichen