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