Hallo zusammen,
ich hab ein bisschen rumexperimentiert, dabei ist folgender Code
entstanden:
1 | Do
|
2 |
|
3 | Locate 1 , 1
|
4 | Lcd "Press Key..."
|
5 | If Pina.0 = 0 Then
|
6 | Locate 2 , 1
|
7 | Lcd "Key = 0"
|
8 | Waitms 500
|
9 | Else
|
10 | Locate 2 , 1
|
11 | Lcd "Key = "
|
12 | Cursor On Blink
|
13 | End If
|
14 | If Pina.1 = 0 Then
|
15 | Locate 2 , 1
|
16 | Lcd "Key = 1"
|
17 | Waitms 500
|
18 | Else
|
19 | Locate 2 , 1
|
20 | Lcd "Key = "
|
21 | Cursor On Blink
|
22 | End If
|
23 | If Pina.2 = 0 Then
|
24 | Locate 2 , 1
|
25 | Lcd "Key = 2"
|
26 | Waitms 500
|
27 | Else
|
28 | Locate 2 , 1
|
29 | Lcd "Key = "
|
30 | Cursor On Blink
|
31 | End If
|
32 | Loop
|
Jetzt ist dieser natürlich nicht sehr schön, und das Ergebnis lässt auch
zu wünschen übrig, da die Ausgabe nicht sehr schön ist. Wie kann ich den
Code denn noch verbessern?