VB模拟LCD显示字母和汉字

最新推荐文章于 2021-02-02 01:44:21 发布

Newmaxwell

最新推荐文章于 2021-02-02 01:44:21 发布

阅读量426

点赞数

CC 4.0 BY-SA版权

分类专栏： VB编程文章标签：小程序经验分享

本文链接：https://blog.csdn.net/weixin_40321660/article/details/110665142

本文通过实例代码分享了使用VB进行LCD模拟显示字母和汉字的方法，包括效果图展示和具体代码实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

先上效果图：
在这里插入图片描述
再上代码：

Private Sub Command1_Click()
  Dim i As Long, j As Long, k As Long, str As String
  Dim str1 As String, c1() As String, n1() As Long
  Dim str2 As String, c2() As String, n2() As Long
  Dim str3 As String, c3() As String, n3() As Long
  Dim str4 As String, c4() As String, n4() As Long
  ''字母大小24*48，汉字大小48*48，阴码，逐行式
  str1 = "00,00,00,00,00,00,00,00,00,00,00,00," & _
           "00,00,00,00,00,00,00,00,00,00,00,00," & _
           "FE,01,7F,78,00,1C,70,00,0C,70,00,0C," & _
           "70,00,0C,F0,00,04,E0,00,04,E0,00,06," & _
           "E0,00,06,E0,00,02,C0,01,02,C0,01,03," & _
           "C0,01,01,C0,01,01,80,03,01,80,83,01," & _
           "80,83,00,80,83,00,00,87,00,00,C7,00," & _
           "00,47,00,00,47,00,00,4F,00,00,6E,00," & _
           "00,2E,00,00,2E,00,00,3E,00,00,3C,00," & _
           "00,1C,00,00,1C,00,00,1C,00,00,08,00," & _
           "00,08,00,00,00,00,00,00,00,00,00,00," & _
           "00,00,00,00,00,00,00,00,00,00,00,00"
   c1 = Split(str1, ",", -1, vbBinaryCompare)
   
   str2 =