QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
3天前
查看: 1807|回复: 4
收起左侧

[讨论结束] 汉字滚动显示问题

 关闭 [复制链接]
发表于 2008-1-26 01:22:15 | 显示全部楼层 |阅读模式 来自: 中国陕西西安

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
最近在写LED显示屏的程序,需要用到汉字滚动显示,显示原理不太清楚,不知哪位大虾能够指教?最好是有C程序例程!谢谢
发表于 2008-1-26 01:33:01 | 显示全部楼层 来自: 中国广西防城港
const   
! J; ]! N) X+ E+ f      WM_MAGNETISM   =   WM_USER   +   10;   + v0 w4 _' w& A; T( N4 Z1 e
  const   
: v* e  i( C* b      MT_CLOSEU   =   1;   
3 u7 A% j! s- y9 w      MT_CLOSED   =   2;   
/ e0 Z+ i% D. J$ o2 j; }" e7 u" e$ e      MT_MOVE     =   5;   
2 ?0 P7 J' _2 l" P      MT_CREATE   =   6;   
3 U& H* d1 [% Z1 x6 q( F      MT_PRIOR     =   7;   
8 Q* n7 Q  Y& j: D& \      MT_NEXT     =   8;   
4 l! P, m7 C  U" U7 `( |+ i. ?  .......   
9 M( n9 m# g' {+ n& c" y    Y:integer;   , _: [. P& g6 ^( \$ V- S( O
  procedure   TReportMain.FormCreate(Sender:   TObject);   
! ~: b) I1 M2 o3 I) Q4 w4 W  ]  begin   
3 ?' a: N1 Z5 _  y:=paintbox1.Height;   
* ^5 s+ t( Z& r1 y, ]! ]) E  end;     n, @- o, C" _4 y
  procedure   TReportMain.Timer1Timer(Sender:   TObject);   
  C; b1 [- {* V! i) T  begin   ) ~" r$ n; q6 \; j
  PaintBox1.Canvas.Font.Color   :=   clBlue;   ' K7 n3 C: r; B9 V; z2 d
      PaintBox1.Canvas.TextOut(15,y,'dfdf);   
: L$ b( ~: {; m3 ~, Z      PaintBox1.Canvas.TextOut(25,y+16,'fdf');   
5 q/ x+ w$ r0 |* L9 [/ j' F      PaintBox1.Canvas.Font.Color   :=   clgreen;   ( v2 y9 a0 n  W
      PaintBox1.Canvas.TextOut(35,y+PaintBox1.Canvas.Font.Size+8+22,'ffd');   
0 J2 F" i9 M" S5 d      PaintBox1.Canvas.Font.Color   :=   clred;   8 f4 }- C* }# Z" w( O7 c
      PaintBox1.Canvas.TextOut(5,y+PaintBox1.Canvas.Font.Size+8+40,'gfg');   / s! F# t+ `0 h
      PaintBox1.Canvas.TextOut(25,y+PaintBox1.Canvas.Font.Size+8+58,'gfg');   
2 S3 }  G( D# i1 n0 a+ E- J      dec(y);   5 Q- j( z" G5 G& @* z, A
      if   y<-(PaintBox1.Canvas.Font.Size+8)*2   then   y:=paintbox1.Height+16;   , j: {& L8 T8 a( v$ _2 w
  end;   
! n+ h# z: r: V" e* G" [  H  procedure   TReportMain.PaintBox1Paint(Sender:   TObject);   
) P7 M7 m, Q& R: r; ]* {$ X: a& ]  begin   
# t. C$ n; z" G' D2 w( X    PaintBox1.Canvas.Font.Name:='隶书';   * _0 \: v6 c( x& i7 f0 g
    PaintBox1.Canvas.Font.Size:=12;   
9 D# f  p/ \+ n    PaintBox1.Canvas.Brush.Color   :=clActiveBorder;   9 T; V7 o: E; E1 A# u" G* \
    PaintBox1.Canvas.FillRect(Rect(0,0,PaintBox1.Width,         PaintBox1.Height))   0 b9 e+ |) F# A# G5 k
  end;

评分

参与人数 1三维币 +5 收起 理由
bdblbyq + 5 应助

查看全部评分

发表于 2008-1-26 11:35:37 | 显示全部楼层 来自: 中国广东广州
用查表法也可以呀,那是单片机可以完成的!

评分

参与人数 1三维币 +5 收起 理由
bdblbyq + 5 应助

查看全部评分

发表于 2008-1-26 12:28:17 | 显示全部楼层 来自: 中国四川成都
支持LS,查表的东西 方便
发表于 2008-7-13 21:34:22 | 显示全部楼层 来自: 中国江苏常州
要看你的液晶是点阵式的还是自带字库的,如果是点阵式的话,只要把对应的汉字的显示码以数组形式存放,滚屏时只要将待显示的数据移位就行了。如果是带字库的要稍微麻烦些。也有的液晶本身就带有滚屏功能,可以通过写入命令控制字来完成,具体参见液晶的使用说明书。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表