QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
1天前
查看: 1804|回复: 4
收起左侧

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

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

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

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

x
最近在写LED显示屏的程序,需要用到汉字滚动显示,显示原理不太清楚,不知哪位大虾能够指教?最好是有C程序例程!谢谢
发表于 2008-1-26 01:33:01 | 显示全部楼层 来自: 中国广西防城港
const   
/ E4 E; ~9 q, M# _* w. T3 f$ W3 Y1 g      WM_MAGNETISM   =   WM_USER   +   10;   
! i9 j' ~4 ]+ b6 C2 t9 M  const   . c/ K2 ~; o; h" M. _6 E3 i4 Q5 E
      MT_CLOSEU   =   1;   
3 x0 n2 L: U  F$ N  c* _6 t      MT_CLOSED   =   2;   
$ C3 C: T: A- i2 j9 a2 d# g5 z! [      MT_MOVE     =   5;   1 E, t7 }: Z: K7 K
      MT_CREATE   =   6;   
0 e! ^. e& P, c8 b. q1 L0 n      MT_PRIOR     =   7;   # e2 y2 j& e- O) z0 ~' q
      MT_NEXT     =   8;   
/ A. h. Y; r% }9 z/ [) o. k  .......   
( I+ U2 h' L- F- }1 u  G    Y:integer;   7 X$ Q8 [- C( z( K
  procedure   TReportMain.FormCreate(Sender:   TObject);   6 d5 n2 \' f! h# `
  begin   7 v8 s' M6 f) f' f6 N
  y:=paintbox1.Height;   ! p2 |: K/ s" u- V" X
  end;   0 K3 ~: s$ E! L1 p. [
  procedure   TReportMain.Timer1Timer(Sender:   TObject);   
, V6 |; @2 k1 _  begin   
, Q8 O# Y+ B; o3 m$ L, r7 F  PaintBox1.Canvas.Font.Color   :=   clBlue;   3 z- K  K; h# h% [6 i  ^4 z. z
      PaintBox1.Canvas.TextOut(15,y,'dfdf);   
; E7 q, i; k3 W# H' {      PaintBox1.Canvas.TextOut(25,y+16,'fdf');     p' n$ C; r; j5 U: B# J
      PaintBox1.Canvas.Font.Color   :=   clgreen;   0 ~7 g8 `* \2 a0 {
      PaintBox1.Canvas.TextOut(35,y+PaintBox1.Canvas.Font.Size+8+22,'ffd');   ' P7 `: [1 y9 J/ d- F4 D7 T
      PaintBox1.Canvas.Font.Color   :=   clred;   
/ K+ i9 G. F4 r5 m4 g% c      PaintBox1.Canvas.TextOut(5,y+PaintBox1.Canvas.Font.Size+8+40,'gfg');   
; i# C( o( [) ?: }% ~0 y3 [      PaintBox1.Canvas.TextOut(25,y+PaintBox1.Canvas.Font.Size+8+58,'gfg');   ) E8 Y2 Z& r/ Y3 U
      dec(y);   0 t5 h" v' {6 {/ l, u
      if   y<-(PaintBox1.Canvas.Font.Size+8)*2   then   y:=paintbox1.Height+16;   & \6 m( a+ }  i
  end;   4 {4 z3 r1 P9 E3 _
  procedure   TReportMain.PaintBox1Paint(Sender:   TObject);   9 C* [7 x& U9 S4 F9 C! S
  begin   $ Q/ Z# u2 A/ {% p# w) U  ?. s0 M& L
    PaintBox1.Canvas.Font.Name:='隶书';   
0 F/ ]9 s$ X* }9 R; H1 Q% k    PaintBox1.Canvas.Font.Size:=12;   
% ^4 F. _  z' ], r8 O    PaintBox1.Canvas.Brush.Color   :=clActiveBorder;   
7 S. j8 R& i8 o9 r1 T' b# i    PaintBox1.Canvas.FillRect(Rect(0,0,PaintBox1.Width,         PaintBox1.Height))   
5 s/ B" {. k/ g* a  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 )

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