EA DIP 122-5 mit SED1520: Kann Page 2 nicht ansprechen

Jens N. (midibrain) 13.03.2022 19:34 #7002746

Lesenswert?

•

Hallo,

hab hier ein EA-DIP 122-5 von Elctronic Assembly mit zwei SED1520 
Controllern.
Derzeit möchte ich nur EINEN Cotroller ansprechen, also nur eine 
Displayhälfte.

Im init_glcd() versuche ich den Anfang der nachfolgenden 
Schreiboperationen auf die verschiedenen Pages (0-3) zu legen z.B.:

     write_glcd(1,0b10111000,0); für die erste Page.
                           ^
Danach gebe ich in einer Schleife eine Zahl aus z.B:

     write_glcd(1,129 ,1);für die Bitfolge 0b10000001
                   ^
Das klappt auch bei den Pages 0,1,3, die richtigen Pixel werden 
dargestellt
und hintereinander bis zum Ende der Page geschrieben.

Wenn ich aber auf Page 2 schreiben möchte:

     write_glcd(1,0b10111010,0); für die dritte Page.
                          ^
klappt das nicht und statt auf Page 3 (0x10) wird auf die 4te (0x11) 
geschrieben.

Jetzt habe ich schon das Display in Verdacht kaputt zu sein, möchte aber 
hier erst einmal fragen ob vielleicht schon mal jemand so ein Problem 
gehabt hat.

Jens

Angehängte Dateien:

glcd.c (1,71 KB) | Codeansicht
glcd.h (1,11 KB) | Codeansicht

Beitrag melden Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Markierten Text zitieren Antwort Antwort mit Zitat

Jens N. (midibrain) 14.03.2022 17:03 #7003569

Lesenswert?

•

▲
▼

Hat niemand eine Idee oder ist mein Anliegen unverständlich dargelegt?
Jens

Beitrag melden Bearbeiten Löschen Markierten Text zitieren Antwort Antwort mit Zitat

Harry Gast 14.03.2022 18:40 #7003674

Lesenswert?

•

▲
▼

Sprichst du Pascal?

Procedure GraphInit;
    IsCtrlTwo := false;                                  // controller 1
    WriteLCD(%10101111,false);                           // display on
    WriteLCD(%11000000,false);                           // start line 0
    WriteLCD(%10111000,false);                           // page 0
    WriteLCD(%00000000,false);                           // address 0
    IsCtrlTwo := true;                                   // controller 2
    WriteLCD(%10101111,false);                           // display on
    WriteLCD(%11000000,false);                           // start line 0
    WriteLCD(%10111000,false);                           // page 0
    WriteLCD(%00000000,false);                           // address 0
    gClrScr(0);
    gDispRefresh;
  End GraphInit;
UserDevice GraphIOS(Cmd: Byte; Arg: byte);
    If Cmd=0 then                                        // set row addr
      CurRow:=arg;
      IsCtrlTwo:=false;                                  // controller 1
      WriteLCD(%10111000+CurRow,false);                  // page
      WriteLCD(%00000000,false);                         // address 0
      Col:= 0;
    else
      If Col=61                                          // if column = 61 then switch to controller 2
        then
          IsCtrlTwo:=true;                               // controller 2
          WriteLCD(%10111000+CurRow,false);              // page
          WriteLCD(%00000000,false);                     // address 0
          WriteLCD(Arg,true);
          Inc(Col);
        else
          If Col<122
            then                                         // only column 0..121 are valid
              WriteLCD(Arg,true);
              Inc(Col);
            Endif;
        EndIf;
    EndIf;
  End GraphIOS;

Beitrag melden Bearbeiten Löschen Markierten Text zitieren Antwort Antwort mit Zitat

Jens N. (midibrain) 14.03.2022 18:58 #7003705

Lesenswert?

•

▲
▼

Hallo,
wenn ich das richtig sehe fügst Du hier

WriteLCD(%10111000+CurRow,false);

der Page einen Zähler hinzu um auf die nächste Page zu wechseln.

So habe ich das auch schon probiert, kann aber nicht die Row 3 - also 
die Page 3- erreichen, mit den anderen Pages(Rows)geht das aber.

Beitrag melden Bearbeiten Löschen Markierten Text zitieren Antwort Antwort mit Zitat

Harry Gast 14.03.2022 21:25 #7003866

Lesenswert?

•

▲
▼

Hallo,

ich sehe, da fehlt noch was

Procedure WriteLCD(Arg: Byte; IsData: Boolean);
  Var Mask : Byte;
    If IsData
      then
        Mask:=$14;                                       // Daten
      else
        Mask:=$10;                                       // Befehl
      EndIf;
    TWIOut(PCA9555,$02,Arg);                             // Output arg
    If IsCtrlTwo
      then
        TWIOut(PCA9555,$03,(Mask or $08));               // Controller 2
      else
        TWIOut(PCA9555,$03,(Mask or $01));               // Controller 1
      EndIf;
    TWIOut(PCA9555,$03,Mask);
  End WriteLCD;

Ich habe das Display via PCA9555 über I2C verwendet, aber das spielt 
keine Rolle.
Hast du auch nach der Page-Adresse die Startadresse wieder auf 0 
gesetzt?

WriteLCD(%10111000+CurRow,false);                  // page
      WriteLCD(%00000000,false);                         // address 0


Und ja so funktioniert es.

Harry

Beitrag melden Bearbeiten Löschen Markierten Text zitieren Antwort Antwort mit Zitat

Jens N. (midibrain) 14.03.2022 22:38 #7003939

Lesenswert?

•

▲
▼

Hallo Harry,

ja, die Sartadresse ist auch auf Null gesetzt, ich lass die Row gleich 
nach dem Init beschreiben, da ist die Strartadresse(column) sowieso 
Null.
Jens

Beitrag melden Bearbeiten Löschen Markierten Text zitieren Antwort Antwort mit Zitat

Crazy Harry (crazy_h) 15.03.2022 16:36 #7004547

Lesenswert?

•

▲
▼

Hi Jens,

ich hab noch 2 von den Displays rum liegen, allerdings mit I2C-Platine 
drunter ..... falls Interesse besteht. Sind die sw mit gelbgrüner 
Beleuchtung.

Harry (mal angemeldet)

Beitrag melden Bearbeiten Löschen Markierten Text zitieren Antwort Antwort mit Zitat

Jens N. (midibrain) 16.03.2022 20:10 #7005582

Lesenswert?

•

▲
▼

Hallo Harry,

ich habe hier auch noch einige EA DIP 122-5, allerdings aus einer 
Charge.
Da ich gern mal probieren würde ob Displays aus einer anderen Charge 
auch nicht auf die Page 3 gehen hätte ich schon interesse an Deinen 
Displays wenn die I²C Platine nicht angelötet ist.
Jens

Beitrag melden Bearbeiten Löschen Markierten Text zitieren Antwort Antwort mit Zitat

Crazy Harry (crazy_h) 18.03.2022 08:09 #7007037

Lesenswert?

•

▲
▼

Hi Jens,

doch die sind fertig zusammen gebaut mit PCA und Erzeugung der negativen 
Kontrastspannung.

Harry

Beitrag melden Bearbeiten Löschen Markierten Text zitieren Antwort Antwort mit Zitat

Jens N. (midibrain) 05.12.2022 23:26 #7276077

Lesenswert?

•

▲
▼

ist schon lange her...

Am Ende ist das Display kaputt gewesen.
Ich hab mir ein PCB mit Buchsenleisten gemacht und einige weitere LCDs 
aufgesteckt und überprüft. Die sind alle in Ordnung, das erste Display 
dann wohl kaputt.

Jens

Beitrag melden Bearbeiten Löschen Markierten Text zitieren Antwort Antwort mit Zitat

EA DIP 122-5 mit SED1520: Kann Page 2 nicht ansprechen

Antwort schreiben