ok.
Here it is:
you can see that VaComm1.... is the component i use to controll the serial port.
Note: It DOES work, i CAN control other non-CF LCD's with it, and also made a program to send data to other computers with that component
Here it is:
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
VaComm1.Baudrate:=br19200;
VaComm1.PortNum:=StrToInt(edit5.text); //<-- number of the port
VaComm1.Open;
VaComm1.writeChar(Chr(14)); //<--backlight
VaComm1.writeChar(Chr(100));
VaComm1.writeChar(Chr(15)); //<--contrast
VaComm1.writeChar(Chr(60));
VaComm1.WriteChar(chr(17)); //<--setpos (1,1)
VaComm1.WriteChar(chr(1));
VaComm1.WriteChar(chr(1));
VaComm1.WriteText(edit1.text);
VaComm1.WriteChar(chr(17)); //<--setpos (1,2)
VaComm1.WriteChar(chr(1));
VaComm1.WriteChar(chr(2));
VaComm1.WriteText(edit2.text);
VaComm1.WriteChar(chr(17)); //<--setpos (1,3)
VaComm1.WriteChar(chr(1));
VaComm1.WriteChar(chr(2));
VaComm1.WriteText(edit3.text);
VaComm1.WriteChar(chr(17)); //<--setpos (1,4)
VaComm1.WriteChar(chr(1));
VaComm1.WriteChar(chr(3));
VaComm1.WriteText(edit4.text);
Vacomm1.Close;
end;
Note: It DOES work, i CAN control other non-CF LCD's with it, and also made a program to send data to other computers with that component
Looking for additional LCD resources? Check out our LCD blog for the latest developments in LCD technology.
Last edited: