汉字滚动显示问题

whiteley

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

chinaebwcom

const   
+ P: j% j& ^2 d( B3 E: E      WM_MAGNETISM   =   WM_USER   +   10;   
  const   
; s7 r, c* X" v' L& t* k6 A2 i      MT_CLOSEU   =   1;   
      MT_CLOSED   =   2;   
8 Y/ W+ `& a. B  g0 V& ]* |* N      MT_MOVE     =   5;   
      MT_CREATE   =   6;   
      MT_PRIOR     =   7;   
      MT_NEXT     =   8;   
+ N9 |, }5 c1 O- k2 ~  .......   
/ p; f/ N& l$ p+ W9 X" }    Y:integer;   
  procedure   TReportMain.FormCreate(Sender:   TObject);   
1 Y9 o9 Q' }) f0 X1 V/ b  begin   
9 k: Y' d! b1 G* I0 l  y:=paintbox1.Height;   
2 Z9 o) U. n% _% g3 Q' j; F* @  end;   
  procedure   TReportMain.Timer1Timer(Sender:   TObject);   
+ s" f' G$ p: U0 ]/ D, l! k- l0 I  begin   
  PaintBox1.Canvas.Font.Color   :=   clBlue;   
      PaintBox1.Canvas.TextOut(15,y,'dfdf);   
      PaintBox1.Canvas.TextOut(25,y+16,'fdf');   
0 g0 E# g1 p! h" A& D% G' M      PaintBox1.Canvas.Font.Color   :=   clgreen;   
      PaintBox1.Canvas.TextOut(35,y+PaintBox1.Canvas.Font.Size+8+22,'ffd');   
      PaintBox1.Canvas.Font.Color   :=   clred;   
' C, g( J( L" U3 }$ D. }! G      PaintBox1.Canvas.TextOut(5,y+PaintBox1.Canvas.Font.Size+8+40,'gfg');   
$ y4 W) y% X% ?' v6 E, `      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;   
  c* n" ]4 R( t  end;   
& c" I9 c( J* ?/ B: ^6 \  procedure   TReportMain.PaintBox1Paint(Sender:   TObject);   
  begin   
    PaintBox1.Canvas.Font.Name:='隶书';   
9 @- S* y" S3 d/ q    PaintBox1.Canvas.Font.Size:=12;   
    PaintBox1.Canvas.Brush.Color   :=clActiveBorder;   
9 D, u% S% C% x# p9 @/ ]: C4 {    PaintBox1.Canvas.FillRect(Rect(0,0,PaintBox1.Width,         PaintBox1.Height))   
  end;

lljyes

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

tim2

支持LS,查表的东西 方便

sunypujs

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