汉字滚动显示问题

whiteley

最近在写LED显示屏的程序，需要用到汉字滚动显示，显示原理不太清楚，不知哪位大虾能够指教？最好是有C程序例程！谢谢

chinaebwcom

const   
3 s7 x% _% M1 {+ g0 x% Z2 A      WM_MAGNETISM   =   WM_USER   +   10;   
* L9 u2 a' Z( N/ N. ]- q  const   
1 ?% d5 R" s/ A; v      MT_CLOSEU   =   1;   
* {9 M; J  T3 M3 c      MT_CLOSED   =   2;   
      MT_MOVE     =   5;   
' ~( r, t- v- Q1 f2 I      MT_CREATE   =   6;   
$ `1 T/ d4 D  @: N% a9 j: V      MT_PRIOR     =   7;   
0 Y6 X6 n0 y( F      MT_NEXT     =   8;   
# @8 T& a" q5 R7 d- D  .......   
: z/ Z# r3 ~; m& K) ~* x  B  m    Y:integer;   
  procedure   TReportMain.FormCreate(Sender:   TObject);   
% f+ o1 c6 t/ R6 X1 u  begin   
5 J3 b+ [% k$ C8 C' J4 e  y:=paintbox1.Height;   
0 S3 _+ p3 \6 H1 E" _4 B3 Z  end;   
  procedure   TReportMain.Timer1Timer(Sender:   TObject);   
: a, [6 @; \2 X. n+ G  begin   
  PaintBox1.Canvas.Font.Color   :=   clBlue;   
7 N* H* O! i. A; Z/ \4 `      PaintBox1.Canvas.TextOut(15,y,'dfdf);   
      PaintBox1.Canvas.TextOut(25,y+16,'fdf');   
      PaintBox1.Canvas.Font.Color   :=   clgreen;   
      PaintBox1.Canvas.TextOut(35,y+PaintBox1.Canvas.Font.Size+8+22,'ffd');   
      PaintBox1.Canvas.Font.Color   :=   clred;   
, ~0 H& o6 k! u* b0 o. p# m2 q/ {      PaintBox1.Canvas.TextOut(5,y+PaintBox1.Canvas.Font.Size+8+40,'gfg');   
      PaintBox1.Canvas.TextOut(25,y+PaintBox1.Canvas.Font.Size+8+58,'gfg');   
      dec(y);   
      if   y<-(PaintBox1.Canvas.Font.Size+8)*2   then   y:=paintbox1.Height+16;   
, }: ?+ p' I% C/ ?. `+ S  end;   
  procedure   TReportMain.PaintBox1Paint(Sender:   TObject);   
  begin   
    PaintBox1.Canvas.Font.Name:='隶书';   
# m& r% r3 H) d0 b    PaintBox1.Canvas.Font.Size:=12;   
    PaintBox1.Canvas.Brush.Color   :=clActiveBorder;   
    PaintBox1.Canvas.FillRect(Rect(0,0,PaintBox1.Width,         PaintBox1.Height))   
: t' y) G# O* _8 v! @' Z" K  end;

lljyes

用查表法也可以呀,那是单片机可以完成的!

tim2

支持LS,查表的东西 方便

sunypujs

要看你的液晶是点阵式的还是自带字库的，如果是点阵式的话，只要把对应的汉字的显示码以数组形式存放，滚屏时只要将待显示的数据移位就行了。如果是带字库的要稍微麻烦些。也有的液晶本身就带有滚屏功能，可以通过写入命令控制字来完成，具体参见液晶的使用说明书。