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：
＇用戶按了“取消”按鈕[page]
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中衆多的圖形制作軟件，顯示更加豐富多彩的圖形畫面。
參考文獻
1 李玉東，李罡，李雷．VisualBasic 6．0中文版控件大全．北京：電子工業出版社，2000
2 壽建霞．建立單片機系統漢字字庫的一種通用方法．微型電腦應用，1999