这种文字说起来很简单,就是普通LED显示器上的字体,我们在银行经常看见这样的LED显示屏。
我要问的是,如何在电脑上模拟实现LED显示字体呢?我这里有一个小程序(不完整,但不影响看到效果),请问它是如何实现的呢?这个程序的地址是:
http://vip.6to23.com/zgj67/abcprj.exe请给出答案:[email protected]
我要问的是,如何在电脑上模拟实现LED显示字体呢?我这里有一个小程序(不完整,但不影响看到效果),请问它是如何实现的呢?这个程序的地址是:
http://vip.6to23.com/zgj67/abcprj.exe请给出答案:[email protected]
解决方案 »
- 开发或专业做过验证码识别的高手,进来帮帮忙了!
- Embarcadero公布RAD Studio Roadmap! 2010-5-10更新
- 为何不能移动窗体?
- str:shortstring;
- jpyc (九品御厨-为delphi学ASP.NE)新版主,解决问题先!
- 地址报错的问题
- 有没有使程序“自杀”(最好是彻底删除)的方法?
- 在状态栏中,怎么动态显示当前时间?
- 安装程序的BDE问题?
- 救火:从一个表中截取一个字段拆成两个值,与其它字段一起插入另一表,请高手会诊。
- delphi中怎么提示储存过程中raiserror回的错误,并回滚事务?
- fastreport的世纪巨难问题,,,,,,,,,,,,,,,,,,难道只有等FR的老总出马?
{$R *.DFM}
var
dis_number:integer;procedure Tform1.display_LED(number:integer);
var
I:integer;
digital:array[0..5]of integer;
begin
{限制显示位数小于6位}
if number>999999 then number:=0;
for I:=0 to 5 do digital[I]:=0;
{分离数字位}
I:=0;
while (number)>0 do
begin
digital[I]:=number mod 10;
number:=number div 10;
I:=I+1;
end;
{显示数字} for I:=5 downto 0 do
imagelist1.draw(paintbox1.canvas, (5-I)*54,0,digital[I]);
end;5.在Form1窗体的OnCreated 事件中输入语句:dis_number:=0; ,使显示的初始值为0。在画板元件的On Paint 事 件中输入语句:display_LED(dis_number); ,此语句非常重要,它可以在初始启动时显示初值0,在窗口本身被覆 盖后又恢复到前台时仍可显示正常的数值。至此已完成了显示函数的程序编制。在需要显示数字的程序中调用 display_LED 函数就能将数字显示在LED 的仿真显示板上。本举例程序只显示6位以下的数字。 6.为了测试显示效果,我们在窗体上增加一个编辑框元件Edit1,和一个按钮元件button1。用鼠标双击按钮元 件跳转到Click事件编辑窗口,输入如下语句: dis_number:=strTOint(Edit1.text);
display_LED(dis_number);
完成后按F9键编译并运行程序。在运行窗口的编辑框中输入6位以下的整数数字,点击按钮,编辑框中的数字就 显示在LED仿真显示板上。
本人前幾天做的一個LED模擬器!
http://www.yueyang.net/hewin/soft/LEDdemo.exe 它支持漢字,而且支持繁,簡體(取決于你的系統)!
有八種進入方式,八種退出方式,和兩種顯示方式,及八種速度調整 它能完全模擬
RS-232 protocols: 96,N,8,1** 做這東西的關鍵是取得漢字的點陣. 取得點陣有很多的方法,其一是讀取自己的字庫,還有就是用windows自帶的字庫 , 我當然是選用后者