汉字字模生成在线-哪里有汉字点阵字模？

win

tc编译器的超级工具集的点阵字模工具可以使用的,你去下载一个win

tc中文版1.91吧。

从网上下载一个字模文件hzk16,放在c:\hzk16,然后新建一个EXE工程,在Form1上放一个PictureBox,一个Text,一个Hscroll,然后将下列代码复制进去:

Private Sub Form_Load()

= vbWhite

= vbPixels

= True

= 1

= 20

= 2

= "示例文字"

ShowZM , Picture1,

End Sub

Private Sub HScroll1_Change()

ShowZM , Picture1,

End Sub

Private Sub Text1_Change()

ShowZM , Picture1,

End Sub

Sub ShowZM(str As String, oPicBox As PictureBox, isize As Integer)

Dim Hz(0 To 31) As Byte '转换完的32字节的字模数据

For ichar = 1 To Len(str) '依次读取字符串中所有字符

char = Mid(str, ichar, 1)

If Asc(char) > 128 Or Asc(char) < 0 Then '如果是汉字

ascBytes = Asc(char) - &HA1A1

If ascBytes < 0 Then

ascBytes = ascBytes + 65536

End If

C1 = (ascBytes And &HFF00) / 256 '区内码

C2 = (ascBytes And &HFF) '位内码

rec = C1 * 94 + C2

Location = (CLng(rec)) * 32 + 1 '该汉字在16*16点阵字库中字模第一个字节的位置

Else '如果是英文字符

Location = (Asc(char) + 155) * 32 + 1

End If

sTmp = "c:\hzk16"

Open sTmp For Binary Access Read As #1 '根据区位码读取该字符在16点阵字库中的原始字模

Get #1, Location, Hz

Close #1

irow = 1

For i = 1 To 31 Step 2 '每个字节可以表示8个像素,因此16*16汉字点阵需要16*16/8=32个字节,每一行用两个字节表示,第一个字节表示第一行左边8个点的像素,第二个字节表示右边8个点的像素

For j = 1 To 8

If Hz(i - 1) And 2 ^ (8 - j) Then '用AND逐位位运算获得每个像素上是1还是0,如果是1,则在PictureBox上画一个isize*isize大小的红色方块

For k = 0 To isize - 1

For l = 0 To isize - 1

((j + (ichar - 1) * 16) * isize + k, irow * isize + l), vbRed

Next

Next

End If

Next

For j = 9 To 16

If Hz(i) And 2 ^ (16 - j) Then

For k = 0 To isize - 1

For l = 0 To isize - 1

((j + (ichar - 1) * 16) * isize + k, irow * isize + l), vbRed

Next

Next

End If

Next

irow = irow + 1

Next

Next

End Sub

在TC2.0的编程软件WinTC 1.9.1里提供了汉字字模生成功能,它功能比较丰富,可以指定字体和点阵大小,我在考二级和C语言图形编程显示汉字时都用它、。