-
        

Ergebnis 1 bis 6 von 6

Thema: M32 Serielle eingabe auf LCD ausgeben ohne CR LF

  1. #1
    Neuer Benutzer Öfters hier
    Registriert seit
    26.12.2004
    Beiträge
    12

    M32 Serielle eingabe auf LCD ausgeben ohne CR LF

    Anzeige

    SMARTPHONES & TABLETS-bis zu 77% RABATT-Kostenlose Lieferung-Aktuell | Cool | Unentbehrlich
    Brauche hilfe bei meinem code
    er funktioniert ja schon soweit jetzt habe ich das problem das
    ich nur noch das CR LF rausbekommen muss da das auch immer auf dem lcd angezeigt wird
    Code:
    $regfile = "M32def.dat"
    $crystal = 8000000
    $baud = 9600
    
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Porta.1 , Db5 = Porta.2 , Db6 = Porta.3 , Db7 = Porta.4 , E = Porta.5 , Rs = Porta.6
    
    Dim I As Byte
    Dim C As Byte
    
     Echo Off
     Display On
     Cursor Off
     Cls
      I = 1
    
    Do
          C = Inkey()
          If C <> 0 Then
          I = I + 1
          If I = 18 Then
          Locate 2 , 1
          End If
          If I = 34 Then
          Cls
          I = 1
          End If
          If I = 1 Then
          Cls
          Locate 1 , 1
          End If
          If Chr(c) = "*" Then
          I = 1
          Cls
          Else
          Lcd ; Chr(c) ;                                       
          End If
          End If
    
    Loop
    
    End
    CODE-TAG's spendiert (PicNick)

  2. #2
    Erfahrener Benutzer Begeisterter Techniker
    Registriert seit
    18.05.2007
    Beiträge
    329
    teste ob I =10 (LF) oder I = 13 (CR)

    Günter

  3. #3
    Neuer Benutzer Öfters hier
    Registriert seit
    26.12.2004
    Beiträge
    12
    den Dezimalwert 10 und 13 ????

    also mein simple term schreibt Hex <0D> = dezimal 13

    Mario

  4. #4
    Erfahrener Benutzer Begeisterter Techniker
    Registriert seit
    18.05.2007
    Beiträge
    329
    Hallo,

    der ascii - wert von lf ist 10 und von cr ist 13

    also:

    erweitere dein

    If C <> 0 Then

    auf

    If C <> 0 and c <> 10 and c <> 13 Then


    Günter

  5. #5
    Neuer Benutzer Öfters hier
    Registriert seit
    26.12.2004
    Beiträge
    12
    ändert leider nichts daran das er immer noch auch mit den zusätzlichen zeilen
    müll auf dem LCD zeigt

    If C > 0 And C > 10 And C > 13 Then
    Lcd ""
    End If

    Mario

  6. #6
    Neuer Benutzer Öfters hier
    Registriert seit
    26.12.2004
    Beiträge
    12
    ja jetzt geht es danke


    MFG Mario

Berechtigungen

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