汉字通过字模用点阵显示的问题（附代码），达人们请帮忙看一下

Question

我用Vb写了个读取字模点阵显示汉字的程序，但显示出来的汉字很奇怪，不正确，我用的是ucdos的hzk16字模。下面是程序，请帮忙看一下
/////////////////////////////////
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
  Dim TempFile As String
Private Sub CmdCnt_Click()
  Dim TempSrcFile As String
    Dim TempDestFile As String
    Dim HzFile As String
    Dim To61202(32) As Integer
    Dim p(1 To 2) As Byte
    Dim C1, C2
    Dim rec As Integer
    Dim Location As Long '汉字在字库中的位置
    Dim Hz(0 To 31) As Byte '转换完的32字节的字模数据
    Dim HzAll() As Byte  '存放全部字模数据的动态数组
    Dim LoopAll As Integer
    Dim bit, k2, k3 As Byte
    Dim i, j, i1, k, k1, k4, k5, k6 As Integer
    Dim i2, i3, i4, HzChar As Integer
    Dim CharTo2 As String
    Dim HzCol%, HzRow%
    Form1.Cls
    DestTxt.Text = "" 'DestTxt是目标文本框，存放转换后的16进制数据
    Flag = 0
    TempDestFile$ = App.Path + "\" + "TempDest.txt"
    If SrcTxt.Text = "" Then '汉字输入框内无汉字则退出
    MsgBox "没有可以转换的字模源文件！"
    Exit Sub
    End If
    HzNum = Len(SrcTxt.Text) '获得汉字的个数
    ReDim HzAll(0 To HzNum * 32 - 1) '重新定义动态数组的上界
    Open TempFile For Output As #1
    Print #1, SrcTxt.Text
    Close #1    For LoopAll = 0 To HzNum - 1
    Open TempFile For Binary Access Read As #1 '按二进制方式打开
    Get #1, 2 * LoopAll + 1, p
    Close #1    C1 = CStr(p(1)) - &HA1 '区内码
    C2 = CStr(p(2)) - &HA1 '位内码
    rec = C1 * 94 + C2
    Location = CLng(rec) * 32 + 1 '该汉字在16*16点阵字库中字模第一个字节的位置    HzFile = App.Path + "\" + "hzk16.txt"
    Open HzFile For Binary Access Read As #1 '读取该汉字在16点阵字库中的原始字模
    Get #1, Location, Hz
    Close #1
    
    ''''''''''''''''''''''''''''''''''
       HzCol% = Form1.ScaleLeft
       HzRow% = 0
       For i4 = 0 To 15 '字模垂直方向16行点      For i2 = 0 To 1 '每行16个点对应的两个字节      'HzChar = Asc(Mid$(Hz, i4 * 2 + i2 + 1, 1)) '每个字节的ASCII值
      HzChar = Asc(Hz(i4 * 2 + i2))
      
      CharTo2 = Ten2Two(HzChar) '转为二进制（字符串格式)
      
      For i3 = 0 To 7 '每个字节的8位
      
      'If (HzChar(2 & (7 - i3))) And &H1 Then   '若该位是1
      If (Val(Mid(CharTo2, i3 + 1, 1))) And &H1 Then '若该位是1
         Form1.PSet ((i2 * 8 + i3) * 100, i4 * 100), RGB(Red, 0, 0)
      End If      Next i3      Next i2      Next i4      HzCol% = HzCol% + 16 '将光标置于下一个字符的左上角    
    Next LoopAll    Open TempDestFile For Binary Access Write As #1 '转换结果保存到TempDestFile中    Put #1, 1, HzAll    Close #1    MsgBox "OK!"
End SubPrivate Sub Form_Load()
   Dim LocaleID As Long
     LocalID = GetSystemDefaultLCID
     
      TempFile = App.Path + "\" + "TempSrc.txt"
     
End SubPrivate Sub SrcTxt_Change()
    Static SStr As String
    
     Dim LocaleID As Long
     LocalID = GetSystemDefaultLCID
     
    Dim i As Integer'    Dim TempFile, TempFileBinary As String
     Dim TempFileBinary As String    TotalNum = 0    l = Len(SrcTxt.Text)    For i = 1 To l    'tmpStr = StrConv(Mid$(SrcTxt.Text, i, 1),vbWide, 2052)
        If Asc(Mid$(SrcTxt.Text, i, 1)) < 0 Then    TotalNum = TotalNum + 1    SStr = SrcTxt.Text    Else    MsgBox "写入的不是汉字！"    SrcTxt.Text = Left(SrcTxt.Text, Len(SrcTxt.Text) - 1)    Exit Sub    End If    Next i    LblNum.Caption = Str$(TotalNum) + "个汉字"  
    'TempFileBinary = App.Path + "\" + "TempSrcBinary.txt"    Open TempFile For Output As #1    Print #1, SrcTxt.Text    Close #1
End Sub
Public Function Ten2Two(ByVal varNum As Integer)
'将十进制数转化为定长8位的二进制串
'输入参数可以为&h类的十六进制
Dim returnString As String, ModNum As Integer
If varNum > 0 Then
  Do While varNum > 0
    ModNum = varNum Mod 16
    varNum = Fix(varNum / 16)
    returnString = Trim(Str(ModNum)) + returnString
  Loop  Dim i As Integer
  For i = 1 To 8 - Len(returnString)
    '不足8位时，在前面补上0
    returnString = 0 & returnString
  Next
  Ten2Two = returnString
ElseIf varNum < 0 Then
  Do While Abs(varNum) > 0
    ModNum = Abs(varNum) Mod 16
    varNum = Fix(varNum / 16)
    returnString = Trim(Str(ModNum)) + returnString
  Loop  Dim j As Integer
  For j = 1 To 8 - Len(returnString) - 1
    '不足8位时，在前面补上0
    returnString = 0 & returnString
  Next
  
  Ten2Two = 1 & returnString
End If
End Function

Answer 1

  'HzChar = Asc(Mid$(Hz, i4 * 2 + i2 + 1, 1)) '每个字节的ASCII值
      HzChar = Asc(Hz(i4 * 2 + i2))
      
      CharTo2 = Ten2Two(HzChar) '转为二进制（字符串格式)
//不知为啥要转还？？
      
    For i3 = 0 To 7 '每个字节的8位
      
      'If (HzChar(2 & (7 - i3))) And &H1 Then   '若该位是1
      If (Val(Mid(CharTo2, i3 + 1, 1))) And &H1 Then '若该位是1
//CharTo2 类型改为字节数组更处理好吧
         Form1.PSet ((i2 * 8 + i3) * 100, i4 * 100), RGB(Red, 0, 0)
      End If
    
从字库取出的字节数组按下列顺序排列各位的值显示出来就应改是汉字的（假设取得的数组位TempBuff）
TempBuff（0）,TempBuff（1） 
TempBuff（2）,TempBuff（3） 
TempBuff（4）,TempBuff（5） 
TempBuff（6）,TempBuff（7） 
TempBuff（8）,TempBuff（9） 
TempBuff（10）,TempBuff（11） 
TempBuff（12）,TempBuff（13） 
TempBuff（14）,TempBuff（15） 不知能否有帮助？

Answer 2

你可以参考TC里面DOS下显示汉字程序

Answer 3

你是参考这个写的吧：
http://tech.sina.com.cn/c/754.html看看下面这段话：
与在西文DOS中显示汉字不同的是，图形点阵液晶并不是简单地用画点的方式来描出汉字。以常用的HD61202图形点阵液晶显示控制模块为例，它能控制64×64点阵液晶的显示，其显示RAM共64行，分8页，每页8行，每一页的数据寄存器分别对应液晶屏幕上的8行点，对显示RAM的一个字节单位赋值就是对当前列的8行(一页)的像素点是否显示进行控制。连续16列和相邻的2页的32字节显示RAM就可以控制一个汉字的显示区域。对这些显示RAM赋以相应的值就可以显示出一个汉字。
HD61202图形点阵液晶显示控制模块的汉字字模的排列实际上是标准汉字字模排列形式旋转而成的。对标准汉字字模转换的目的就是在单片机系统的数据存储器中(如E2PROM)存储经过调整的连续32字节的16进制数。

Answer 4

BigFatBear(笨熊)，你好
我那句
    'HzChar = Asc(Mid$(Hz, i4 * 2 + i2 + 1, 1)) '每个字节的ASCII值
      HzChar = Asc(Hz(i4 * 2 + i2))
      
      CharTo2 = Ten2Two(HzChar) '转为二进制（字符串格式)
之所以要转换是因为HzChar = Asc(Hz(i4 * 2 + i2))得到的值与前面注释掉的一句'HzChar = Asc(Mid$(Hz, i4 * 2 + i2 + 1, 1))的结果不同
并且这一句 If (HzChar(2 & (7 - i3))) And &H1 括号里的操作我看不懂，您能解释一下吗？谢谢