汉字滚动显示问题

whiteley

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

chinaebwcom

const   
      WM_MAGNETISM   =   WM_USER   +   10;   
  const   
      MT_CLOSEU   =   1;   
      MT_CLOSED   =   2;   
/ A1 l) _4 m" c. w, r+ {# p; b% C      MT_MOVE     =   5;   
7 H+ M+ n6 p* \. J6 W/ T: ]0 {$ N2 k- s      MT_CREATE   =   6;   
9 V) m' \" B  q) \: h! s      MT_PRIOR     =   7;   
      MT_NEXT     =   8;   
  .......   
$ H$ `# s8 q% |' B1 Y2 q    Y:integer;   
8 F# |; N+ `4 T/ k1 A# I  procedure   TReportMain.FormCreate(Sender:   TObject);   
  begin   
  y:=paintbox1.Height;   
  end;   
  procedure   TReportMain.Timer1Timer(Sender:   TObject);   
8 {" {/ w( R6 B' o; C" \1 C+ a  begin   
" o$ ~9 S/ g8 |6 \  PaintBox1.Canvas.Font.Color   :=   clBlue;   
      PaintBox1.Canvas.TextOut(15,y,'dfdf);   
      PaintBox1.Canvas.TextOut(25,y+16,'fdf');   
      PaintBox1.Canvas.Font.Color   :=   clgreen;   
/ @; M8 Y( J) B      PaintBox1.Canvas.TextOut(35,y+PaintBox1.Canvas.Font.Size+8+22,'ffd');   
      PaintBox1.Canvas.Font.Color   :=   clred;   
      PaintBox1.Canvas.TextOut(5,y+PaintBox1.Canvas.Font.Size+8+40,'gfg');   
5 v! X2 ^5 R0 G# L, {      PaintBox1.Canvas.TextOut(25,y+PaintBox1.Canvas.Font.Size+8+58,'gfg');   
* R8 e0 j, A. M, N+ b0 E      dec(y);   
6 Y5 U6 `- d4 x8 i      if   y<-(PaintBox1.Canvas.Font.Size+8)*2   then   y:=paintbox1.Height+16;   
) ^" g5 D. `2 P& \7 x1 b) s# v. U  end;   
  procedure   TReportMain.PaintBox1Paint(Sender:   TObject);   
  begin   
    PaintBox1.Canvas.Font.Name:='隶书';   
; n* P" L, `0 d% q# {0 ?    PaintBox1.Canvas.Font.Size:=12;   
* |3 {. A, E" y  S' _    PaintBox1.Canvas.Brush.Color   :=clActiveBorder;   
0 {3 s$ x7 z  L7 I    PaintBox1.Canvas.FillRect(Rect(0,0,PaintBox1.Width,         PaintBox1.Height))   
( ?  F. I. ]; z/ ?0 _  end;

lljyes

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

tim2

支持LS,查表的东西 方便

sunypujs

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