Code:
If USR.RXC = 1 Then  'Wenn Byte empfangen...
    i = UDR            'Byte aus UART auslesen
    Select Case i
    Case "H"
      Print "Hallo AVR"
    Case "h"
      Print "hallo avr"
    Case Else
      Print "Unbekannter Befehl"
    End Select
  End If
funktioniert überhaupt nicht da der ATMEGA2560 andere Register oder Flags hat oder was auch immer.


Ich habe jetzt schon mal die Portnummer mit angegeben aber es funzt trotzdem nicht.

Code:
Open "com4:" For Binary As #4                               'USB Port    

If Ischarwaiting(#4) = 1 Then 
Bb = Waitkey(#4) 

Select Case Bb 
Case "do-something" 
Sound Portl.4 , 400 , 450 ' Beep when Ischarwaiting(#4) = 1 
Case Else 
End Select 
End If
Die Port Nummer die das USB verwendet ist 4 aber es kommt trotzdem wieder ein Fehler : "Label not found [_ISKEY4 ] in file ...."

Ich verstehe es einfach nicht und es funzt nicht


Gruß
Steffen