-         

Ergebnis 1 bis 2 von 2

Thema: LCD - String Ausgabe

  1. #1
    Neuer Benutzer Öfters hier
    Registriert seit
    15.09.2007
    Beiträge
    6

    LCD - String Ausgabe

    Anzeige

    SMARTPHONES & TABLETS-bis zu 77% RABATT-Kostenlose Lieferung-Aktuell | Cool | Unentbehrlich
    Hallo Zusammen,

    ich habe ein Problem, welches ich irgendwie nicht gelöst bekomme.

    Ich habe für die LCD ausgabe eine kleine Funktion/Prozedur geschrieben, die mir die Ausgabe von Text und Zahlen auf meinem Display erleichtern soll.

    So sieht mein Code aus:

    Code:
    'Funktion/Prozedur wird deklariert
    Declare Sub Print_(byval b1 As String , Byval B2 As Integer , Byval B3 As Integer , Byval B4 As Integer , Byval B5 As Integer )       ' print_ ("text", 1=seriell ausgeben,1=cls, zeile, spalte)
    
    
    
    'Das ist die eigentliche Funktion/Prozedur 
    Sub Print_(b1 As String , B2 As Integer , B3 As Integer , B4 As Integer , B5 As Integer)
    If B2 = 1 Then Print b1
    If B3 = 1 Then Cls
    Locate B4 , B5
    Lcd b1
    Cursor Off Noblink 'Cursor wird nicht angezeigt
    End Sub
    
    
    
    'Aufruf der Funktion/Prozedur 
    Call Print_( "Hallo Welt" , 1 , 1 , 1 , 1)
    Leider wird kein Text auf dem Display angezeigt. Wenn ich jedoch den Code oben minimal ändere und anstelle von

    Code:
    ...
    Locate B4 , B5
    Lcd b1
    Cursor Off Noblink 'Cursor wird nicht angezeigt
    ...
    folgendes mache

    Code:
    ...
    Locate B4 , B5
    Lcd b4  '<<<<<---b2,b3,b4,b5 ist egal was ######ÄNDERUNG###
    Cursor Off Noblink 'Cursor wird nicht angezeigt
    ...
    dann funktioniert alles. Es wird irgendwie kein String an meine Funktion übergeben. Zahlen hingegen funktionieren wunderbar.


    Jemand eine Idee ??

    Vielen Dank für eure Hilfe und Mühe!


    Grüße
    stoffelll

  2. #2
    Erfahrener Benutzer Roboter Experte
    Registriert seit
    18.05.2007
    Ort
    Berlin
    Alter
    46
    Beiträge
    765
    Versuch mal so.
    Code:
    'Funktion/Prozedur wird deklariert
    Declare Sub Print_(byval b1 As String * 20 , Byval B2 As Integer , Byval B3 As Integer , Byval B4 As Integer , Byval B5 As Integer )       ' print_ ("text", 1=seriell ausgeben,1=cls, zeile, spalte)
    
    
    
    'Das ist die eigentliche Funktion/Prozedur
    Sub Print_(b1 As String * 20 , B2 As Integer , B3 As Integer , B4 As Integer , B5 As Integer)
    
    If B2 = 1 Then Print b1
    If B3 = 1 Then Cls
    Locate B4 , B5
    Lcd b1
    Cursor Off Noblink 'Cursor wird nicht angezeigt
    End Sub
    
    
    
    'Aufruf der Funktion/Prozedur
    Call Print_( "Hallo Welt" , 1 , 1 , 1 , 1)
    Wenn das Herz involviert ist, steht die Logik außen vor! \/

Berechtigungen

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