Hallo Jürgen

der ATMEGA2560 ist übelst bockig entweder Bascom ist noch voller Fehler oder ich bin zu dumm. Der Code von dir wird ohne Fehler kompiliert soweit alles ok aber ich erhalte keine Reaktion auf meinem LCD Display A=0 wird immer angezeigt.


Die einzigste Kommunikation die ich hinbekomme habe ist eine Bit Auswertung aber eine Zeichenkette/String zu senden ist unmöglich.


Code:
'Diese Anweisung setzt die Fusebits automatisch korrekt (Syntax $PROG LB, FB , FBH , FBX )
$prog , 255 , &B11011001 ,                                  'Quarz an / Teiler aus / Jtag aus

$regfile = "m2560def.dat"


$hwstack = 32
$swstack = 16
$framesize = 40
$crystal = 16000000                                         'Quarzfrequenz


                                          'Ist 1 wenn USB angeschlossen

'Definition USB
Config Com4 = 38400 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0


'Definition für LCD Display 40x4
Config Lcd = 20 * 4
Config Lcdpin = Pin , Db4 = Portb.7 , Db5 = Porth.2 , Db6 = Porth.0 , Db7 = Porte.4 , E = Portb.5 , Rs = Porte.6
Config Lcdbus = 4


Open "com4:" For Binary As #4





Dim A As Byte , S As String * 2

Do



A = Inkey(#4)
If A = 1 Then                                               'we got something
A = Waitkey(#4)                                             'get it
End If

If A = 49 Then  'wenn die 1 auf der tastatur gedrückt wird dann mach was
Sound Portl.4 , 400 , 450
Print #4 , "ASCII code " ; A ; " from serial"
End If



Print #4 , "Test"

Waitms 100

  ' End If

Loop

Wenn ich nur wüßte wie man den Simulator bedient das das Teil gibt mir nur Rätsel auf.

Gruß
Steffen