QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 1801|回复: 4
收起左侧

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

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

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

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

x
最近在写LED显示屏的程序,需要用到汉字滚动显示,显示原理不太清楚,不知哪位大虾能够指教?最好是有C程序例程!谢谢
发表于 2008-1-26 01:33:01 | 显示全部楼层 来自: 中国广西防城港
const   # `, n0 z. h! U3 ^, h" F6 w
      WM_MAGNETISM   =   WM_USER   +   10;   
# x+ {3 {6 z0 Q  Y  j% X6 L  const   
, {: z! n$ H# r: ~. i6 Q      MT_CLOSEU   =   1;   
; o2 n( o1 {1 C' r9 ^      MT_CLOSED   =   2;     h6 I1 s/ R- Z# w
      MT_MOVE     =   5;   9 a" ~3 T0 ?& P$ V$ U4 ~
      MT_CREATE   =   6;   / \* S3 d3 Q) ?2 N3 g0 T' O; K
      MT_PRIOR     =   7;   
; A* B8 ~1 k8 v) j      MT_NEXT     =   8;   
! Q, v5 }$ W  P7 v1 a  .......   ' |  u/ K. u; M" [' s- l5 z& d4 E- E
    Y:integer;   
- A- g' a( \% S: U& u  procedure   TReportMain.FormCreate(Sender:   TObject);   
! j2 e, W2 d* T9 y  begin   
1 @% H& y2 R# P  y:=paintbox1.Height;   
2 C8 O9 c' v# n5 h& u$ k9 d! e  end;   
, n! u  d3 ]+ F! ^6 [  procedure   TReportMain.Timer1Timer(Sender:   TObject);   
, l2 S; x3 P8 }) S; A, F8 L! L  begin   $ q" R6 J; N& A2 D6 D2 {
  PaintBox1.Canvas.Font.Color   :=   clBlue;   7 [0 R  o4 K7 W. c) |1 I
      PaintBox1.Canvas.TextOut(15,y,'dfdf);   ) R, J" p" Q, f; F; i' o+ l' Y
      PaintBox1.Canvas.TextOut(25,y+16,'fdf');   
0 X1 T! {6 W1 r/ F" @( \- @7 l      PaintBox1.Canvas.Font.Color   :=   clgreen;   
# a. r# a* u" J/ ?      PaintBox1.Canvas.TextOut(35,y+PaintBox1.Canvas.Font.Size+8+22,'ffd');   
% q9 [& z, V6 q; t1 [/ O      PaintBox1.Canvas.Font.Color   :=   clred;   
% b- k+ j* T% o1 T( f      PaintBox1.Canvas.TextOut(5,y+PaintBox1.Canvas.Font.Size+8+40,'gfg');   , A; e3 v% R/ R$ p# N# I7 [
      PaintBox1.Canvas.TextOut(25,y+PaintBox1.Canvas.Font.Size+8+58,'gfg');   2 W1 E3 i1 s4 ^' l
      dec(y);   
. [' s. N  {/ d9 _( O      if   y<-(PaintBox1.Canvas.Font.Size+8)*2   then   y:=paintbox1.Height+16;   + }" u6 s# V9 D! F1 q# b
  end;   
1 R0 E$ Z3 Z8 x  procedure   TReportMain.PaintBox1Paint(Sender:   TObject);   / t7 ^5 p9 j1 D% x
  begin   
0 W6 A. a" O5 Z( U: b9 i9 a2 x    PaintBox1.Canvas.Font.Name:='隶书';   5 M9 }/ Q. J/ u3 L9 q
    PaintBox1.Canvas.Font.Size:=12;   
- k- _8 c. S, @2 I1 P& {4 q    PaintBox1.Canvas.Brush.Color   :=clActiveBorder;   % B: O/ B' `2 W/ w. o; j
    PaintBox1.Canvas.FillRect(Rect(0,0,PaintBox1.Width,         PaintBox1.Height))   & m" u) C  g- }6 B" R
  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 )

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