Hallo zusammen,
folgendes ist relativ schnell erklärt. Es tut nicht obwohl es tun 
sollte.
Ich arbeite übrigens mit einem ATMega2561. Ich wäre für einen Hinweis 
dankbar.
| 1 | Config Com2 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8
 | 
| 2 | Open "Com2:" For Binary As #1
 | 
| 3 | On Urxc1 Com2_isr
 | 
| 4 | Enable Urxc1
 | 
| 5 | Enable Interrupts
 | 
| 6 | 
 | 
| 7 | Dim Test As Bit
 | 
| 8 | 
 | 
| 9 | Do
 | 
| 10 |   If Test = 1 Then
 | 
| 11 |     Call Lcd_print("erfolgreich", 10 , 65 , 1 , 1 , 1 , Red , Black)
 | 
| 12 |   End If
 | 
| 13 | 
 | 
| 14 | Loop
 | 
| 15 | End
 | 
| 16 | 
 | 
| 17 | Com2_isr:
 | 
| 18 |   Test = 1
 | 
| 19 | Return
 | 
Nur ein kleiner Hinweis hilft mir weiter
Gruss Daniel