Hallo, ich möchte den UART auswerten und nach einer bestimmten Länge prüfen, ob ein bestimmter String übergeben wurde. Wenn ja, möchte ich zu einer Anweisung springen. Ich habe mir jetzt aus Codeschnipseln das hier zusammengedacht... Danke für Hilfestellungen.
1 | $regfile = "m8def.dat" |
2 | $Crystal = 3686400 |
3 | $Baud = 9600 |
4 | |
5 | Dim S As String * 11 |
6 | |
7 | On URXC OnRxD |
8 | Enable URXC |
9 | Enable Interrupts |
10 | |
11 | |
12 | Main: |
13 | If Len(s) > 10 Then |
14 | Print s |
15 | s = "" |
16 | |
17 | Select Case S |
18 | |
19 | Case 00000000001 |
20 | Goto Wert1 |
21 | |
22 | Case 00000000002 |
23 | Goto Wert2 |
24 | End Select |
25 | |
26 | End If |
27 | Goto Main |
28 | |
29 | OnRxD: |
30 | s = s + Chr(UDR) |
31 | Return
|
32 | |
33 | |
34 | |
35 | Wert1: |
36 | 'anweisungen etc. |
37 | Return
|
38 | |
39 | Wert2: |
40 | 'anweisungen etc. |
41 | Return
|