汉字滚动显示问题

whiteley

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

chinaebwcom

const   
9 m+ Z3 B2 E9 j* K      WM_MAGNETISM   =   WM_USER   +   10;   
* m% W. U0 F; K3 K$ w" L( a  const   
      MT_CLOSEU   =   1;   
% e: P8 B' \. z      MT_CLOSED   =   2;   
8 n# U9 \. J0 N1 u; s+ q0 \      MT_MOVE     =   5;   
' m5 L8 V; b) ?  g3 ^" c6 U      MT_CREATE   =   6;   
+ m2 l" c+ S: f, T' e; z' j      MT_PRIOR     =   7;   
+ \1 t9 E6 J; Y, V4 w- ]6 d      MT_NEXT     =   8;   
  .......   
    Y:integer;   
* {2 F! |! ~' y2 u5 U: B  B7 }+ l  e  procedure   TReportMain.FormCreate(Sender:   TObject);   
  begin   
/ ?8 T5 k( a  ^! j) B  y:=paintbox1.Height;   
  end;   
  procedure   TReportMain.Timer1Timer(Sender:   TObject);   
3 V$ v# R/ o8 i% \  begin   
  PaintBox1.Canvas.Font.Color   :=   clBlue;   
0 x. h6 x1 w  j& K3 M* a5 R" U      PaintBox1.Canvas.TextOut(15,y,'dfdf);   
      PaintBox1.Canvas.TextOut(25,y+16,'fdf');   
/ b9 S, h' d2 V5 ^2 c- n6 B      PaintBox1.Canvas.Font.Color   :=   clgreen;   
* ^: C( k& d2 _: A& ^      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');   
      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;   
7 E3 `8 C& W7 l2 q4 M( C  end;   
( T4 V6 U) `2 h  procedure   TReportMain.PaintBox1Paint(Sender:   TObject);   
  begin   
    PaintBox1.Canvas.Font.Name:='隶书';   
+ l$ ]. D. n6 w3 D4 h    PaintBox1.Canvas.Font.Size:=12;   
    PaintBox1.Canvas.Brush.Color   :=clActiveBorder;   
  U& m& ]- {+ ]+ D% ^/ _- o. U    PaintBox1.Canvas.FillRect(Rect(0,0,PaintBox1.Width,         PaintBox1.Height))   
  end;

lljyes

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

tim2

支持LS,查表的东西 方便

sunypujs

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