TemVar = TemVar And &HFE '反之将第一位置0(其它位不变)

　　End If

　　Case 3

　　If (TemVar And &H4) = &H4 Then '操作与上面相同

　　TemVar = TemVar Or &H2

　　Else

　　TemVar = TemVar And &HFD

　　End If

　　Case 4

　　If (TemVar And &H8) = &H8 Then

　　TemVar = TemVar Or &H4

　　Else

　　TemVar = TemVar And &HFB

　　End If

　　Case 5

　　If (TemVar And &H10) = &H10 Then

　　TemVar = TemVar Or &H8

　　Else

　　TemVar = TemVar And &HF7

　　End If

　　Case 6

　　If (TemVar And &H20) = &H20 Then

　　TemVar = TemVar Or &H10

　　Else

　　TemVar = TemVar And &HEF

　　End If

　　Case 7

　　If (TemVar And &H40) = &H40 Then

　　TemVar = TemVar Or &H20

　　Else

　　TemVar = TemVar And &HDF

　　End If

　　Case 8

　　If (TemVar And &H80) = &H80 Then

　　TemVar = TemVar Or &H40

　　Else

　　TemVar = TemVar And &HBF

　　End If

　　If TemVar1 = &H1 Then '移完第八位后,如果TemVar1是1(即第一位是1)

　　TemVar = TemVar Or &H80 '则将TemVar的第八位置1

　　Else

　　TemVar = TemVar And &H7F '反之置0

　　End If

　　End Select

　　Next Y

　　Next X

　　byteRight = TemVar '将TemVar的值返回给函数名

　　End Function

　　尤其需要注意的是当把二进制数据写入文件中时，必须使用Byte数据类型的数组变量，而不是 String 变量。 String 被认为包含的是字符，而二进制型数据可能无法正确地存在 String 变量中。

　　五、一个实际应用案例

　　图形点阵液晶在现代单片机系统中是一种十分常用的显示设备，BP机、手机上的显示屏就是图形点阵液晶。它能显示汉字和图形，与行列式键盘组成了单片机系统中最常用的人机交互界面。但是直接从中文系统汉字字库中提取的汉字字模并不能直接在液晶上显示，通常都必须经过格式上的调整和转换。

　　1、图形点阵液晶的汉字字模

　　与在西文DOS中显示汉字不同的是，图形点阵液晶并不是简单地用画点的方式来描出汉字。以常用的HD61202图形点阵液晶显示控制模块为例，它能控制64×64点阵液晶的显示，其显示RAM共64行，分8页，每页8行，每一页的数据寄存器分别对应液晶屏幕上的8行点，对显示RAM的一个字节单位赋值就是对当前列的8行(一页)的像素点是否显示进行控制。连续16列和相邻的2页的32字节显示RAM就可以控制一个汉字的显示区域。对这些显示RAM赋以相应的值就可以显示出一个汉字。

　　HD61202图形点阵液晶显示控制模块的汉字字模的排列实际上是标准汉字字模排列形式旋转而成的。对标准汉字字模转换的目的就是在单片机系统的数据存储器中(如E2PROM)存储经过调整的连续32字节的16进制数。

　　2、实际源程序

　　以下这段程序是放置在汉字源文本输入框(SrcTxt)的Change事件中。通过判断输入在文本框内的字符的ASCII码是否小于零，就能判断输入的字符是不是汉字。这段程序还能计算汉字字符串的长度。同时把输入的汉字存储在一个临时文件TempSrc.txt中。由于这段代码是放在文本框的Change事件中，它能立即更新汉字个数的显示。

　　Private Sub SrcTxt_Change( )

　　Static SStr As String

　　Dim i As Integer

　　Dim TempFile, TempFileBinary As String

　　TotalNum = 0

　　L = Len(SrcTxt.Text)

　　For i = 1 To L

　　tmpStr = StrConv(Mid$(SrcTxt.Text, i, 1), vbWide)

　　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) + "个汉字"

　　TempFile = App.Path + "\" + "TempSrc.txt"

　　'TempFileBinary = App.Path + "\" + "TempSrcBinary.txt"

　　Open TempFile For Output As #1

　　Print #1, SrcTxt.Text

　　Close #1

　　End Sub

　　在实例中选用了UCDOS 5.0汉字系统中的16点阵字库Hzk16作为提取汉字字模的标准字库。

　　Private Sub CmdCnt_Click( )

　　Dim TempSrcFile As String

　　Dim TempDestFile As String

　　Dim TempFile 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 Buf1(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

　　DestTxt.Text = "" 'DestTxt是目标文本框，存放转换后的16进制数据

　　Flag = 0

　　TempDestFile$ = App.Path + "\" + "TempDest.txt"

　　If FileExists(TempDestFile$) Then Kill TempDestFile 'FileExists是一个检查文件是否存在的自定义函数

　　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"

　　Open HzFile For Binary Access Read As #1 '读取该汉字在16点阵字库中的原始字模

　　Get #1， Location， Hz

　　Close #1

　　'以下是将UCDOS字库的存储格式调整为HD61202的规范格式

　　For j = 0 To 3

　　If j = 0 Then k4 = 14

　　If j = 1 Then k4 = 15

　　If j = 2 Then k4 = 30

　　If j = 3 Then k4 = 31

　　For k = 0 To 7

　　bit = &H80

　　bit = byteRight((bit), (k))

　　For i = 0 To 7

　　k2 = byteleft(Buf1(j * 8 + k), 1) '整个流程是由低位向高位移动,最后凑成一个字节

　　k3 = byteRight((Hz(k4 - i * 2) And bit), 7 - k) '将字节中的某位移到最低位

　　k3 = k3 And &H1 '屏蔽掉其余7位

　　Buf1(j * 8 + k) = k2 Or k3

　　Next i

　　Next k

　　Next j

　　For i1 = 0 To 31 '将调整后的汉字字模再装入原数组

　　Hz(i1) = Buf1(i1)

　　HzAll(LoopAll * 32 + i1) = Buf1(i1)

　　Next

　　Next LoopAll

　　Open TempDestFile For Binary Access Write As #1 '转换结果保存到TempDestFile中

　　Put #1, 1, HzAll

　　Close #1

　　MsgBox "OK!"

　　End Sub

　　以上程序均在中文VB6专业版上调试通过。

　　以上程序在实用中取得了很好的效果。此汉字字模转换程序丰富了单片机系统开发工具的功能，是包含液晶显示功能的单片机系统在系统调试和开发过程中不可或缺的功能模块。