可以测试vfd屏幕cu20026scpb用的lcd_smartie-5.3.2

狗狗百里游

有人反应20×2的vfd，型号cu20026scpb，用串口驱动，上位机用lcd_smartie不能正常使用。
我修改了lcd_smartie5.3.2版本的程序，添加了选择cu20026scpb，供测试vfd屏幕是否正常工作而已...



lcd_smartie-5.3.2_final-src_YUKI_2010-8-18.rar
更新：
可以调节cu20026scpb亮度。
可以使用5×7的自定字符。


lcd_smartie-5.3.2_final-src_YUKI_2010-8-18.rar (771.13 KB, 下载次数: 635)

2010-8-18 13:59 上传

点击文件名下载附件

wangyonjie

太好了！十分感谢！

wangyonjie

测试完全正常！！太感谢了！！上图

hicool

我想用你的屏做个GPS钟，网上搜到一个类似的东东，可惜和你的屏不太一样（日立的）接上后乱码
http://www.hellocq.net/forum/showthread.php?t=149836&page=1&pp=30

你能帮我改一下原代码吗，只要能适应你这块屏即可，十几年前玩过单片机，都还给老师了，汇编读着很费劲，谢谢！

狗狗百里游

我不用汇编的...汇编项目不好维护。

wangyonjie

我也想用这个屏做那个GPS钟呀！不知上面遇到什莫情况？接上后是乱码吗？波特率设对没？问题解决没有呀？

yleee

弱弱的问一下，不知道点阵屏能用不？

wangyonjie

点阵屏应该不行！期待百里游大侠可以看一下那个GPS钟的程序！我用cu20026scpb做了一个，字符都可以正常显示，就是碰到的问题和此贴开头一样VFD两行都显示相同内容，不知能麻烦您帮忙修改一下吗？其他都正常!只要两行可以分开显示不同内容就OK！

狗狗百里游

你源程序是汇编的，我改不了的。
给个delphi的代码你参考，你可以改成驱动cu20026scpb的单片机c语言驱动库，让汇编调用c语言，或者直接改成汇编的。

1. 
   
2. 
   
3. procedure TLCD_CU.initLCD;
   
4. var
   
5. // g: Cardinal;
   
6.   e1: AnsiString;
   
7.   e2: AnsiString;
   
8. begin
   
9.   if (not bConnected) then Exit;
   
10.   e1 := 'HD44780_4Bit    YUKI';
    
11.   e2 := '1234567890ABCDEFGHIJ';
    
12.   writeDevice($1B); //软件重启VFD，需要等待100ms以上
    
13.   writeDevice($49);
    
14.   Sleep(333);
    
15.   writeDevice($16); //关闭 光标显示下划线/光标闪烁
    
16. //设置当前光标的坐标，Position cursor，第一行 0x00 0x01 ..... 0x13，第二行 0x14 0x15 ..... 0x27
    
17.   writeDevice($1B);
    
18.   writeDevice($48);
    
19.   writeDevice($00);
    
20.   writeDevice(e1); //发送可见字符串
    
21. //设置当前光标的坐标，Position cursor，第一行 0x00 0x01 ..... 0x13，第二行 0x14 0x15 ..... 0x27
    
22.   writeDevice($1B);
    
23.   writeDevice($48);
    
24.   writeDevice($14);
    
25.   writeDevice(e2);
    
26. //writeDevice(0x0D);//Carriage Return 回车
    
27.   Sleep(2000);
    
28.   writeDevice($0E); //Clear Display 清除显示
    
29. end;
    
30. procedure TLCD_CU.setBrightness(level: Integer); //设置亮度
    
31. begin //level=0到255
    
32.   writeDevice($1B);
    
33.   writeDevice($4C);
    
34.   writeDevice(level);
    
35. end;
    
36. procedure TLCD_CU.setPosition(x, y: Integer);
    
37. var b: Byte;
    
38. begin
    
39.   if (41 > x) and (x > 0) then
    
40.     if (3 > y) and (y > 0) then
    
41.     begin
    
42.       writeDevice($1B);
    
43.       writeDevice($48);
    
44.       b := Byte((x - 1) + 20 * (y - 1));
    
45.       writeDevice(b);
    
46.     end;
    
47. //  writeDevice(AnsiChar ($FE)+AnsiChar ('G')+AnsiChar (x)+AnsiChar (y));
    
48.   inherited;
    
49. end;
    
50. procedure TLCD_CU.write(str: AnsiString);
    
51. var
    
52.   i: Cardinal;
    
53. begin
    
54.   for i := 1 to Length(str) do
    
55.   begin
    
56.     case Ord(str[i]) of
    
57.       176: str[i] := AnsiChar(0);
    
58.       158: str[i] := AnsiChar(1);
    
59.       131: str[i] := AnsiChar(2);
    
60.       132: str[i] := AnsiChar(3);
    
61.       133: str[i] := AnsiChar(4);
    
62.       134: str[i] := AnsiChar(5);
    
63.       135: str[i] := AnsiChar(6);
    
64.       136: str[i] := AnsiChar(7);
    
65.     end;
    
66.   end;
    
67.   writeDevice(str);
    
68. end;
    
69. 
    
70. procedure TLCD_CU.customChar(character: Integer; data: array of Byte);
    
71. var
    
72.   a: array[0..7] of Byte; // hd44780格式8个字符
    
73.   b: array[0..4] of Byte; //cu20026scpb格式  5个字符
    
74.   P: array[1..40] of Byte; //自定义字符的字模
    
75.   i, j: Integer;
    
76. begin
    
77.   for i := 0 to 7 do a[i] := data[i];
    
78.   for i := 1 to 40 do
    
79.     P[i] := 0;
    
80.   j := 1;
    
81.   for i := 0 to 7 do //组合自定义字符的字模
    
82.   begin
    
83.     P[j] := (a[i] and $10)div$10;
    
84.     P[j + 1] := (a[i] and $8)div$8;
    
85.     P[j + 2] := (a[i] and $4)div$4;
    
86.     P[j + 3] := (a[i] and $2)div$2;
    
87.     P[j + 4] := (a[i] and $1);
    
88.     j := j + 5;
    
89.   end;
    
90.      //  P[36] := 0;  //不显示下划线
    
91.   j := 1; //从35个像素，分割成5个字节
    
92.   for i := 0 to 4 do
    
93.   begin
    
94.     b[i] := Byte(P[j] + P[j + 1] * 2 + P[j + 2] * 4 + P[j + 3] * 8 + P[j + 4] * 16 + P[j + 5] * 32 + P[j + 6] * 64 + P[j + 7] * 128);
    
95.     b[i] := Byte(P[j] + P[j + 1] * 2 + P[j + 2] * 4 + P[j + 3] * 8 + P[j + 4] * 16 + P[j + 5] * 32 + P[j + 6] * 64 + P[j + 7] * 128);
    
96.     j := j + 8;
    
97.   end;
    
98.   writeDevice($1B);
    
99.   writeDevice($43);
    
100.   writeDevice(Byte(character)); //可以在$00到$FF，没有命令控制字符重复的范围内，定义最多16个字符
     
101.   writeDevice(b[0]);
     
102.   writeDevice(b[1]);
     
103.   writeDevice(b[2]);
     
104.   writeDevice(b[3]);
     
105.   writeDevice(b[4]); Sleep(10);
     
106. end;
     
107. procedure TLCD_CU.writeDevice(byte: Byte);
     
108. begin
     
109. serial.Write_AnsiString(AnsiChar(byte));
     
110. // uart1_putc(AnsiChar(byte));
     
111. end;
     
112. procedure TLCD_CU.writeDevice(buffer: AnsiString);
     
113. begin
     
114. serial.Write_AnsiString(buffer);
     
115. // uart1_putc(buffer);
     
116. end;
     
117. 
     

复制代码

hicool

费了毛大的劲，又重新复习了一下汇编，一行行程序的翻译、跟踪，终于算看懂了GPS钟的输出部分，wangyonjie 可以打开原程序，修改所有CALL S_COM前一句，类似MOV A,#XXX部分，可以输出字符、变量和vfd的控制代码，这块VFD有很多玩法 ，继续研究中。