LCD Ausgabe mit Bascom verbessern

Dennis B. OP #1917072
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?
Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden
Karl H. #1917099
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
Antwort Zitieren Bearbeiten Löschen Beitrag melden
Thread beobachten

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

Bestehender Account

oder

Mit Google-Account einloggen

Noch kein Account?

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren