|
漢字取模方法
（作者未知） 2009/12/21
（接上頁）n 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) ’整個(gè)流程是由低位向高位移動(dòng),最后湊成一個(gè)字節(jié)
k3 = byteRight((Hz(k4 - i * 2) And bit), 7 - k) ’將字節(jié)中的某位移到最低位
k3 = k3 And &H1 ’屏蔽掉其余7位
Buf1(j * 8 + k) = k2 Or k3
Next i
Next k
Next j
For i1 = 0 To 31 ’將調(diào)整后的漢字字模再裝入原數(shù)組
Hz(i1) = Buf1(i1)
HzAll(LoopAll * 32 + i1) = Buf1(i1)
Next
Next LoopAll
Open TempDestFile For Binary Access Write As #1 ’轉(zhuǎn)換結(jié)果保存到TempDestFile中
Put #1, 1, HzAll
Close #1
MsgBox "OK!"
End Sub
以上程序均在中文VB6專業(yè)版上調(diào)試通過。
以上程序在實(shí)用中取得了很好的效果。此漢字字模轉(zhuǎn)換程序豐富了單片機(jī)系統(tǒng)開發(fā)工具的功能，是包含液晶顯示功能的單片機(jī)系統(tǒng)在系統(tǒng)調(diào)試和開發(fā)過程中不可或缺的功能模塊。
|