点阵式液晶任意图片显示的实现

文章摘要：函数s_copyfile()的源程序如下[4]： function s_copyfile(filesou:string;filedes:string):boolean; var FromF, ToF: file; s,t:string; i,j,NumRead, NumWritten: Integer; tem: array[1..62] of Char; Buf: array[1..16] of Char;

点阵式液晶任意图片显示的实现,标签：显示及光电,光电显示技术,http://www.88dzw.com
函数s_copyfile()的源程序如下[4]：
function s_copyfile(filesou:string;filedes:string):boolean;
var
FromF, ToF: file;
s,t:string;
i,j,NumRead, NumWritten: Integer;
tem: array[1..62] of Char;
Buf: array[1..16] of Char;
begin
{$I-}
s_copyfile:=false;
if not fileexists(filesou) then
begin
showmessage('没有发现源文件'+#13+filesou);
exit;
end;
assignfile(fromf,filesou);
assignfile(tof,filedes);
Reset(FromF,1);{ Record size = 1 }
main.Memo1.Clear;
main.Memo3.Clear;
BlockRead(FromF, tem, SizeOf(tem), j);
j:=1;
repeat
s:=' DB ';
t:='';
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
for i:=1 to NumRead do
begin
if main.CheckBox1.Checked then buf[i]:=chr
(255-ord(buf[i]));
appendstr(t,IntToHex(ord(buf[i]),2));
if ord(buf[i])>159 then
AppendStr(s,'0'+IntToHex(ord(buf[i]),2)
+'H,')
else
AppendStr(s,IntToHex(ord(buf[i]),2)
+'H,');
end;
delete(s,length(s),1);
main.memo1.Lines.Append(s);
main.memo3.Lines.Append(t);
inc(j);
until (NumRead = 0);
main.Memo1.Lines.Delete(main.Memo1.Lines.
Capacity-1);
CloseFile(FromF);
CloseFile(ToF);
s_copyfile:=true;
end;
LCD模拟显示

对于如图4所示的一张128 64的BMP图片，其模拟显示如图5所示，反白后显示如图6所示。

有的LCM数据是奇偶行交错的，也可以通过使用隔行来改变。模拟显示的源程序主要是采用在画布上画矩形框的方法，语句如下：

Image1.Canvas.FillRect(rect(16*S_col+4*i,
4*S_row,16*S_col+4*i+3,4*S_row+3));
其中S_col为行坐标（1~64），S_row为列坐标（0~31），每个字节分高4位与低4位分别来画矩形框。当高4位或低4位值为1~F时，对应的i分别如表1所示。

LCD显示控制程序设计

LCM内部带有8K字节的RAM缓存区，往RAM缓存区写入数据，则在LCD 显示屏上产生显示。通过改变显示缓存区首地址可实现屏幕滚动、屏幕换页等功能。

GRAPHIC_DISP:

LCALL CLEAR_GRAPHIC ;清除图形显示RAM单元（GDRAM）
MOV G_ROW, #80H ;设定图形显示起始行单元
MOV G_COLUMN, #80H ;设定图形显示起始列单元

GRA_DISP:

MOV A, #34H ;选择扩充指令集，关闭图形显示
LCALL INPUT
MOV A, G_ROW ;输入图形显示起始行地址
LCALL INPUT
MOV A, G_COLUMN ;输入图形显示起始列地址
LCALL INPUT
MOV A, #30H ;重新选择基本指令集
LCALL INPUT
CLR A
MOVC A, @A+DPTR ;输入显示数据（横向高8位数据）
LCALL DISPL
INC DPTR

上一页  [1] [2] [3]  下一页