DOS下的点阵汉字.docVIP

vb实现汉字点阵字模的提取 程序匠人 发表于 2008-2-15 9:50:00 ?阅读全文(806) | 回复(0) | 引用通告(0) | 编辑 对于HZK16字库里的16×16汉字（其实只用到了16×15，即16行15列，最后1列是空白的，但是作为GBK汉字，则使用了最后这一列）来说一共需要256个点来显示一个普通的汉字，那么共需要32个字节才能达到该目的。 首先，一个GB2312汉字是由两个字节编码的，范围为A1A1~FEFE。A1-A9为符号区，B0到F7为汉字区。每一个区有94个字符（当然，这只是编码的许可范围，而不是这些编码都对应有字型，比如符号区就有很多编码空白区域）。所以，当接受到了一个汉字编码譬如“鹿”字，如何在HZK16文件中找到它对应的32个字节的字模数据呢。 计算方法如下：C2H-A1H=21H （33D区，因为汉字编码是从A1区开始的，所以文件最前面就是从A1区开始）B9H-A1H=18H （24D位，道理如上所述，这就是所谓的区位码）21H×5EH+18H=C36H （5EH就是94D，代表一个区有94个字符，C36H就是说这个字符在HZK16里是第C36H个）C36H×20H=186C0H （20H就是32D，代表一个字符占32个字节，这里得到的186C0H就是“鹿”字在HZK16文件中的偏移地址，从这里开始之后的32个字节就是我们要寻找的字符字模） ? Dim zw(1 To 128) As Byte Private Sub Command1_Click()If Len(Text1.Text) 4 ThenMsgBox 输入汉字不足四个！Text1.Text = ElseDim ff As Stringff = CALL_LED(Text1.Text)For I = 1 To 128 Step 1If (Imod8) = 0 ThenText2.Text = Text2.Text 0End IfText2.Text = Text2.Text Hex(zw(I)) HNext IEnd IfEnd Sub Private Function CALL_LED(ledstring As String)For j = 1 To 4 AA = Hex(Asc(Mid(ledstring, j, 1)))bb = (94 * (CLng(H Mid(AA, 1, 2)) - HA1) + (CLng(H Mid(AA, 3, 2)) - HA1)) * 32For I = 1 To 32 Step 1Open C:\Documents and Settings\Administrator\桌面\点阵\HZK16 For Binary As #1Get #1, bb + I, zw(32 * (j - 1) + I)Close #1Next INext jEnd Function Private Sub Command2_Click()EndEnd Sub Private Sub Form_Load()Text1.Text = Text2.Text = End Sub DOS下的点阵汉字　　你是否碰到过用启动盘启动系统后用DIR命令得到一串串莫名其妙的字符？有经验的朋友会告诉你：那是汉字。汉字？你不禁会问：怎么一个我一个也不认识。但那确确实实是汉字，如果你启动UCDOS或其他的汉字系统后，就会看到那是一个个熟悉的汉字。同样是汉字，为什么前后会看到不同的结果？呵呵，其实在电脑硬件中，根本没有汉字这个概念，也没有英文的概念，这铁玩意认识的概念只有——内码。汉字的内码　　点头表示什么？是“对”、“YES”，偏偏有的地方表示的意义却恰恰相反。一个动作，有不同的诠释；一个问题，有不同的答案；而一个符号，却有不同的意义，关键在于：你是如何地理解。在电脑中亦如此，所有的数据都是以0和1保存的，按不同的数据操作，可以得到不同的结果。对于显示英文操作，由于英文字母种类很少，只需要8位（一字节）即可。而对于中文，常用却有5000以上，于是我们的DOS前辈想了一个办法，就是将ASCII表的高128个很少用到的数值以两个为一组来表示汉字，即汉字的内码。而剩下的低128位则留给英文字符使用，即英文的内码。不信，你可以用记事本写一C文件：main(){??? unsigned char *s,*e=ABcd,*c=你好;??? clrscr();??? printf(English char =);??? s=e;??? while(*s!=0) /*C的字符串以0为结束符*/??? {??????? printf(