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


von Dominik (Gast)


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;

Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.