- Labornetzteil AliExpress         
Seite 2 von 2 ErsteErste 12
Ergebnis 11 bis 20 von 20

Thema: Universal LCD Menue

Hybrid-Darstellung

Vorheriger Beitrag Vorheriger Beitrag   Nächster Beitrag Nächster Beitrag
  1. #1
    Erfahrener Benutzer Begeisterter Techniker
    Registriert seit
    11.08.2009
    Ort
    Berlin
    Alter
    70
    Beiträge
    348
    Hallo fredred
    hab ich da was überlesen. "In meinen bescheiden Code mache ich es ...", sagst du. Würde es gern mal anschauen.
    achim

  2. #2
    Erfahrener Benutzer Begeisterter Techniker
    Registriert seit
    14.11.2013
    Ort
    Home
    Beiträge
    213
    Hallo Achim,

    nichst überlesen! Habe ja kein Code eingestellt. Sollte doch nur ein Hinweis sein. Natürlich wenn Interesse, werde ich meine Variante zu Verfügung stellen.
    Vorab ein Schnipsel:

    '**** Variable für Anzeigeauswahl ****
    Dim Lcd_aktualisieren As Byte 'Zähler für LCD-Anzeigen
    Gosub Anzeigen
    '************ Bereich für LCD -Anzeigen ***************************
    Anzeigen:

    '****** Startfenster *******
    If Lcd_aktualisieren = 255 Then
    Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte
    Lcd Status ; " ist Startfenster "
    Locate 2 , 1 'Cursor auf 2 Zeile, 1 Spalte
    Lcd " Hallo Achim "
    Locate 3 , 1 'Cursor auf 3 Zeile, 1 Spalte
    Lcd " Datum " ; Date$ ; " "
    Locate 4 , 1 'Cursor auf 4 Zeile, 1 Spalte
    Lcd " Zeit " ; Time$ ; " "
    End If

    '***************************

    'hier zur LCD - Datenanzeige für Funk
    If Lcd_aktualisieren = 254 Then
    Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte
    Lcd Status ; " D0 | D1 | D2 "
    Locate 2 , 1 'Cursor auf 2 Zeile, 1 Spalte
    Lcd "_ " ; D0 ; " _|_ " ; D1 ; " _|_ " ; D2 ; "_ "
    Locate 3 , 1 'Cursor auf 3 Zeile, 1 Spalte
    Lcd " Temp1: " ; Temper1 ; " ßC "
    Locate 4 , 1 'Cursor auf 4 Zeile, 1 Spalte
    Lcd " Temp2: " ; Temper2 ; " ßC "
    End If
    '***************************
    'hier zur LCD - Anzeige für Poti
    If Lcd_aktualisieren = 253 Then
    Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte
    Lcd Status ; " Poti Anzeige "
    Locate 2 , 2 'Cursor auf 2 Zeile, 2 Spalte
    Lcd " *Werte in Volt* "
    Locate 3 , 2 'Cursor auf 3 Zeile, 2 Spalte
    Lcd " Poti0 = " ; W0 ; " "
    Locate 4 , 2 'Cursor auf 4 Zeile, 2 Spalte
    Lcd " Poti1 = " ; W1 ; " "
    End If
    '***************************

    'hier Anzeige Touch-Werte
    If Lcd_aktualisieren = 252 Then
    Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte
    Lcd " Touch Werte lesen "
    Locate 2 , 1 'Cursor auf 2 Zeile, 1 Spalte
    Lcd " Achsen testen "
    Locate 3 , 1 'Cursor auf 3 Zeile, 1 Spalte
    Lcd " X = " ; X ; " " 'die leer Zeichen löschen den Rest
    Locate 4 , 1 'Cursor auf 4 Zeile, 1 Spalte
    Lcd " Y = " ; Y ; " "
    End If
    '***************************

    'hier Anzeige Touch-Panel
    If Lcd_aktualisieren = 0 Then
    Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte
    Lcd " Touch Test "
    Locate 2 , 1 'Cursor auf 2 Zeile, 1 Spalte
    Lcd " ************* "
    Locate 3 , 1 'Cursor auf 3 Zeile, 1 Spalte
    Lcd " * ENTER * " 'die leer Zeichen löschen den Rest
    Locate 4 , 1 'Cursor auf 4 Zeile, 1 Spalte
    Lcd " ************* "
    Wait 1 'für Test anzeigen 3 Sekunden
    End If
    '***************************

    'hier Anzeige Beispiel Temperaturreglung
    If Lcd_aktualisieren = 2 Then
    Locate 1 , 1 'Cursor auf 1 Zeile, 1 Spalte
    Lcd " Temperaturwarnung "
    Locate 2 , 1 'Cursor auf 2 Zeile, 1 Spalte
    Lcd " T1= 3 " ; "ßC" ; " zu hoch "
    Locate 3 , 1 'Cursor auf 3 Zeile, 1 Spalte
    Lcd " Temp1: " ; Tempfehler ; " ßC "
    Locate 4 , 1 'Cursor auf 4 Zeile, 1 Spalte
    Lcd " Temp2: " ; Temper2 ; " ßC "
    Wait 5
    End If
    '***************************
    usw.
    Gruß
    Fred

  3. #3
    Erfahrener Benutzer Begeisterter Techniker
    Registriert seit
    11.08.2009
    Ort
    Berlin
    Alter
    70
    Beiträge
    348
    Hab da doch was überlesen, ist Basic und ich nutze C. Schade
    Danke
    achim

  4. #4
    Benutzer Stammmitglied
    Registriert seit
    04.04.2009
    Ort
    Sangerhausen/OT Grillenberg
    Alter
    59
    Beiträge
    53
    Hallo Fred,

    kannst Du bitte Deinen ganzen Code reinstellen?

    Gruß Andreas

Seite 2 von 2 ErsteErste 12

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •  

12V Akku bauen