- 3D-Druck Einstieg und Tipps         
Ergebnis 1 bis 4 von 4

Thema: LCD problem

  1. #1

    LCD problem

    Anzeige

    Praxistest und DIY Projekte
    hi,
    bevor ich mich an Assembler wage wolte ich mein LCD erstmal mit Bascom testen...ich habe folgenden Code genommen:


    Code:
    $regfile = "m32def.dat"
    $crystal = 16000000
    $lib "lcd4e2.lbx"
    
     Config Lcd = 40 * 4
     Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , E2 = Portd.6 , Rs = Portd.4
     Config Lcdbus = 4
    
    Dim ___lcde As Byte
    
    ___lcde = 0
    Initlcd
    Cursor Off
    Cls
    Locate 1 , 1
    Lcd "Zeile 1"
    Locate 2 , 1
    Lcd "Zeile 2"
    
    ___lcde = 1
    Initlcd
    Cursor Off
    Cls
    Locate 1 , 1
    Lcd "Zeile 3"
    Locate 2 , 1
    Lcd "Zeile 4"
    
    End
    Aber nix geht...2 scchwarze balken...wenn ich nur die Oberen Zeilen Ansteuere gehts wunderbar...

  2. #2
    Neuer Benutzer Öfters hier
    Registriert seit
    17.02.2006
    Beiträge
    29
    Hast du es schon mal mit einer anderen Lib versucht ?
    z.B. lcd4.lbx

  3. #3
    nein das würde doch aber auch nix bringen, da ich ja 2 Controller habe...

  4. #4
    bei Mikrocontroller hat einer eine Lößung gefiunden:


    $regfile = "m32def.dat"
    $crystal = 16000000


    Config Lcd = 40 * 4
    Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 ,
    Db7 = Portd.3 , E = Portd.5 , E2 = Portd.6 , Rs = Portd.4

    Config Lcdbus = 4

    Dim ___lcdno As Byte

    ___lcdno = 0
    Initlcd
    Cls
    ___lcdno = 1
    Initlcd
    Cls

    ___lcdno = 0
    Cursor Off
    Cls
    Locate 1 , 1
    Lcd "Zeile 1"
    Locate 2 , 1
    Lcd "Zeile 2"

    ___lcdno = 1
    Cursor Off
    Cls
    Locate 1 , 1
    Lcd "Zeile 3"
    Locate 2 , 1
    Lcd "Zeile 4"

    End

Berechtigungen

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

Solar Speicher und Akkus Tests