Forum: Mikrocontroller und Digitale Elektronik LCD Ausgabe mit Bascom verbessern


von Dennis B. (danrulz81)


Lesenswert?

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?

von Karl H. (kbuchegg)


Lesenswert?

einrücken

gleiche Teile aus dein einzelnen Fällen rausziehen

if then
elseif
endif
verwenden

1
Do
2
  Locate 1 , 1
3
  Lcd "Press Key..."
4
5
  Locate 2 , 1
6
7
  If Pina.0 = 0 Then
8
    Lcd "Key = 0"
9
10
  elseIf Pina.1 = 0 Then
11
    Lcd "Key = 1"
12
13
  elseIf Pina.2 = 0 Then
14
    Lcd "Key = 2"
15
16
  Else
17
    Lcd "Key =  "
18
    Cursor On Blink
19
  End If
20
21
  Waitms 500
22
Loop

Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.