mikrocontroller.net

Forum: Mikrocontroller und Digitale Elektronik LCD - Ansteuerung in Delphi (über USB)


Autor: Dominik (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Hi,

ich versuche gerade die hier auf der Seite vorgestellte Routine zur
Ansteuerung eines LCD's auf Delphi zu portieren. Das LCD (HD44780) ist
über dem USB - Portbaustein CY7C63001 von Cypress (mit der Modul-Bus -
Software) angeschlossen.
Irgendwie scheiterts schon bei der Initialisierung. Kann mir vielleicht
jemand weiterhelfen?

Die Funktion setport() gibt das byte auf den IO Port des USB Bausteins
aus. Das Display ist wie im Tutorial am Port angeschlossen.

Bin für jede Hilfe dankbar!


Hier der Delphi Quellcode:

function swapx(byte:byte):byte;
  begin
  result:= (($0f and byte)shl 4) or (($f0 and byte) shr 4);
  end;

procedure lcd_enable;
  begin
  setport(temp1 or $20);
  sleep(1);
  setport(temp1 and $df);  end;

procedure lcd_command(cmd:byte);
  begin
  setport($0f and swapx(cmd));
  lcd_enable;
  sleep(1);
  setport($0f and cmd);
  lcd_enable;
  sleep(1);
  end;

procedure lcd_init;
  begin;
  sleep(15);
  setport($03);
  lcd_enable;
  sleep(5);
  lcd_enable;
  sleep(5);
  lcd_enable;
  sleep(5);
  setport($02);
  lcd_enable;
  sleep(5);
  lcd_command($28);
  sleep(1);
  lcd_command($0c);
  sleep(1);
  lcd_command($04);
  sleep(1);
  end;

procedure lcd_clear;
  begin
  lcd_command($01);
  sleep(5)
  end;

Antwort schreiben

Die Angabe einer E-Mail-Adresse ist freiwillig. Wenn Sie automatisch per E-Mail über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.

Wichtige Regeln - erst lesen, dann posten!

  • Groß- und Kleinschreibung verwenden
  • Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang

Formatierung (mehr Informationen...)

  • [c]C-Code[/c]
  • [avrasm]AVR-Assembler-Code[/avrasm]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] - Link zu Artikel
  • Verweis auf anderen Beitrag einfügen: Rechtsklick auf Beitragstitel,
    "Adresse kopieren", und in den Text einfügen




Bild automatisch verkleinern, falls nötig
Bitte das JPG-Format nur für Fotos und Scans verwenden!
Zeichnungen und Screenshots im PNG- oder
GIF-Format hochladen. Siehe Bildformate.
Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt.
Bitte hier nur auf die ursprüngliche Frage antworten,
für neue Fragen einen neuen Beitrag erstellen.

Mit dem Abschicken bestätigst du, die Nutzungsbedingungen anzuerkennen.