单片机巧用Windows矢量字库.doc

单片机巧用Windows矢量字库 作者:段　峰　段　伟　王耀南　段正华 来源:现代电子技术 摘　要　介绍了单片机利用Windows矢量字库的原理，并给出了VB编程实现的方法。 　　关键词　矢量字库　单片机　VB 1　引　言 　　单片机控制的LED、LCD显示屏均涉及到各种字体的汉字显示。建立单片机汉字字库的传统方法有使用硬件字库或者使用UCDOS的点阵字库。这些字库均非矢量字库，大小固定，字体单一，有较大的局限性。且使用起来需要进行换算，比较麻烦。而Windows环境下提供了大量矢量字库，不但字的大小可任意改变，而且字体多种多样，非常丰富，添加新的字库也比较容易。目前越来越多的显示屏需要显示美观多样的文字，因而利用好 Windows环境下丰富的矢量字库资源具有很高的实用价值。但矢量字库不同于点阵字库，且Windows操作系统本身很复杂，对利用其矢量字库带来一些困难。本文介绍一种巧妙的方法，绕过对矢量字库的直接读取，将各种复杂的操作全部交由Windows操作系统自己解决，用户仅需少量程序代码就能轻松使用 Windows环境下所有矢量字库资源。 2　基本原理 　　要使单片机能利用Windows的矢量字库，关键在于如何获得矢量字库的点阵信息。要在Windows环境下直接读取矢量字库获得其点阵信息，必须对Windows及矢量字库本身有深入的了解，操作起来较困难。但矢量字库最终仍是以点阵形式送给显示缓冲区，因而完全可以不直接读取字库，而从显示缓冲区中获得点阵信息，再通过一定的程序转化成单片机容易使用的点阵格式，从而达到目的。 3　VB编程实现 3．1　总体思路　　 　　利用CommonDialog控件，使用Windows环境下的标准字体选择对话框来选择字体。用一个TextBox控件来输入汉字，一个 PictureBox控件贮存屏幕上的汉字点阵信息。调用API函数BitBlt将TextBox中的汉字以位图形式重绘于PictureBox，再使用 Point函数得到其点阵信息，并将其转化成单片机容易使用的格式。 3．2　具体实现 　　新建一个工程，加入一个CommonDialog控件，一个TextBox控件，一个PictureBox控件，两个CommandButton控件。 ?　添入以下代码： ＇声明API函数BitBlt Private Declare Function BitBlt Lib＂gdi32＂ （ByValhDestDC As Long，ByValx As Long， ByValy As Long，ByValnWidth As Long，ByVal nHeight As Long，ByVal hSrcDC As Long，ByVal xSrc As Long， ByValySrc As Long，ByValdwRop As Long）As Long＇ 初始化 Private Sub Form＿Load（） Text1．Top＝0：Text1．Left＝0 Text1．MaxLength＝2：Text1．BorderStyle＝0 End Sub ＇修改字体 Private Sub Command1＿Click（） ＇设置“取消”为True CommonDialog1．CancelError＝True On Error GoTo ErrHandler ＇设置Flags属性 CommonDialog1．Flags＝cdlCFEffects or cdlCFBoth ＇显示“字体”对话框　　 CommonDialog1．ShowFont Text1．Font．Name＝CommonDialog1．FontName Text1．Font．Size＝CommonDialog1．FontSize Text1．Font．Bold＝CommonDialog1．FontBold Text1．Font．Italic＝CommonDialog1．FontItalic Picture1．Font．Size＝CommonDialog1．FontSize Text1．Width＝2＊Picture1．TextWidth（Text1．Text）Text1．Height＝Picture1．TextHeight（Text1．Text） Exit Sub ErrHandler： ＇用户按了“取消”按钮 Exit SubEnd Sub ＇生成字模 Private Sub Command2＿Click（） Dim Wp（）As Byte ReDim Wp（Picture1．TextWidth（Text1．Text）＊ Picture1．TextWidth（Text1．Text））As Byte Dim Nbyte，Q（7）As Integer Dim Cy，Cx A