I connected an nokia 3310 lcd to my lpt port using this
howto
It worked great with LCDinfo but now I'm trying to write my own code. But I don't seem to get it working. I think my problems is in the initialization part.
I hope one of you guy's can find my fault.
here's my code is delphi:
Code:
procedure PortOut(Port : Word; Data : Byte); stdcall; external 'io.dll';
function PortIn(Port:Word):Byte; stdcall; external 'io.dll';
function writeport(dc:integer;db:integer):integer;
var
databyte:integer;
begin
databyte:=32+4+2*db+16 ;
PortOut(888,databyte);
//sleep(10);
PortOut(888,databyte+1);
//sleep(10);
PortOut(888,databyte);
// sleep(10);
end;
function dataport(dc:integer;db7:integer;db6:integer;db5:integer;db4:integer;db3:integer;db2:integer;db1:integer;db0:integer):integer;
begin
writeport(dc,db7);
writeport(dc,db6);
writeport(dc,db5);
writeport(dc,db4);
writeport(dc,db3);
writeport(dc,db2);
writeport(dc,db1);
writeport(dc,db0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
PortOut(888,63);
sleep(20);
PortOut(888,59);
sleep(250);
PortOut(888,63);
sleep(20);
PortOut (888,54);
sleep(10);
dataport(0,0,0,1,0,0,0,0,1);
dataport(0,1,0,0,1,0,0,0,0);
dataport(0,0,0,1,0,0,0,0,0);
dataport(0,0,0,0,0,1,1,0,0);
dataport(1,0,0,0,1,1,1,1,1);
dataport(1,0,0,0,1,1,1,1,1);
dataport(1,0,0,0,1,1,1,1,1);
dataport(1,0,0,0,1,1,1,1,1);
PortOut(888,56);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
PortOut (888,00);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
end;
end.
[/code]