单片机巧用Windows矢量字库

日期:2012-02-06 12:41:23   浏览次数:5140   作者:[email protected]

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 As Integer
Dim Dot As Integer
Dim ZAs Long
Dot=0:Nbyte=0
BrightV=16000000
Z=BitBlt(Picture1.hDC,0,0,300,300,Form1.hDC,1,1,&HCC0020)Picture1.Refresh
For Cy=Picture1.TextHeight(Text1.Text)To 0 Step-1For Cx=Picture1.TextWidth(Text1.Text)To 0 Step-1
Z=Picture1.Point(Cx,Cy)
'得到该点的颜色信息
If Z<BrightV Then 
    Q(Dot)=1'该点为黑
Else
    Q(Dot)=0 '该点为白 
 End If
If Dot=7 Then
   '将8个点的信息存入一个字节中 
  Wp(Nbyte)=Q(7)*128+Q(6)*64+Q(5)*32+Q(4)
*16+Q(3)*8+Q(2)*4+Q(1)*2+Q(0)*1 
    Nbyte=Nbyte+1   
End If 
    Dot=Dot+1 
  If Dot=8 Then Dot=0 
 Next Cx
Next CyEnd Sub
  本程序一次得到两个汉字的点阵信息,存于字节数组WP中。
  由于大多数LED、LCD均为黑白二进制显示形式,没有灰度等级,而Windows环境,特别是Windows 2000的某些字库显示时有灰度变化,因而必须合理选择BrightV的值,才能使生成的点阵信息与屏幕所见的基本一致。本程序采用从右至左,从下到上的扫描方式生成字模,符合一般LED、LCD的显示扫描方式,有利于单片机的编程。
4 结束语
  实践证明本文所介绍的方法能方便地得到Windows环境下矢量字库的字模,满足了单片机显示系统的需要。这种方法不但可以用来生成汉字字模,还可以用来生成各种图形点阵信息。只需将各种图片输入PictureBox即可,从而使单片机可以利用Windows中众多的图形制作软件,显示更加丰富多彩的图形画面。