1　引　言

單片機(jī)控制的LED、LCD顯示屏均涉及到各種字體的漢字顯示。建立單片機(jī)漢字字庫(kù)的傳統(tǒng)方法有使用硬件字庫(kù)或者使用UCDOS的點(diǎn)陣字庫(kù)。這些字庫(kù)均非矢量字庫(kù)，大小固定，字體單一，有較大的局限性。且使用起來(lái)需要進(jìn)行換算，比較麻煩。而Windows環(huán)境下提供了大量矢量字庫(kù)，不但字的大小可任意改變，而且字體多種多樣，非常豐富，添加新的字庫(kù)也比較容易。目前越來(lái)越多的顯示屏需要顯示美觀多樣的文字，因而利用好 Windows環(huán)境下豐富的矢量字庫(kù)資源具有很高的實(shí)用價(jià)值。但矢量字庫(kù)不同于點(diǎn)陣字庫(kù)，且Windows操作系統(tǒng)本身很復(fù)雜，對(duì)利用其矢量字庫(kù)帶來(lái)一些困難。本文介紹一種巧妙的方法，繞過(guò)對(duì)矢量字庫(kù)的直接讀取，將各種復(fù)雜的操作全部交由Windows操作系統(tǒng)自己解決，用戶僅需少量程序代碼就能輕松使用 Windows環(huán)境下所有矢量字庫(kù)資源。

2　基本原理

要使單片機(jī)能利用Windows的矢量字庫(kù)，關(guān)鍵在于如何獲得矢量字庫(kù)的點(diǎn)陣信息。要在Windows環(huán)境下直接讀取矢量字庫(kù)獲得其點(diǎn)陣信息，必須對(duì)Windows及矢量字庫(kù)本身有深入的了解，操作起來(lái)較困難。但矢量字庫(kù)最終仍是以點(diǎn)陣形式送給顯示緩沖區(qū)，因而完全可以不直接讀取字庫(kù)，而從顯示緩沖區(qū)中獲得點(diǎn)陣信息，再通過(guò)一定的程序轉(zhuǎn)化成單片機(jī)容易使用的點(diǎn)陣格式，從而達(dá)到目的。

3　VB編程實(shí)現(xiàn)

3．1　總體思路　　

利用CommonDialog控件，使用Windows環(huán)境下的標(biāo)準(zhǔn)字體選擇對(duì)話框來(lái)選擇字體。用一個(gè)TextBox控件來(lái)輸入漢字，一個(gè) PictureBox控件貯存屏幕上的漢字點(diǎn)陣信息。調(diào)用API函數(shù)BitBlt將TextBox中的漢字以位圖形式重繪于PictureBox，再使用 Point函數(shù)得到其點(diǎn)陣信息，并將其轉(zhuǎn)化成單片機(jī)容易使用的格式。

3．2　具體實(shí)現(xiàn)

新建一個(gè)工程，加入一個(gè)CommonDialog控件，一個(gè)TextBox控件，一個(gè)PictureBox控件，兩個(gè)CommandButton控件。

添入以下代碼：

＇聲明API函數(shù)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（）
＇設(shè)置“取消”為T(mén)rue
CommonDialog1．CancelError＝True
On Error GoTo ErrHandler
＇設(shè)置Flags屬性
CommonDialog1．Flags＝cdlCFEffects or cdlCFBoth
＇顯示“字體”對(duì)話框　　
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，F(xiàn)orm1．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）
＇得到該點(diǎn)的顏色信息
If　Z＜BrightV　Then　
  　　Q（Dot）＝1＇該點(diǎn)為黑
Else
    Q（Dot）＝0?。г擖c(diǎn)為白　
 End If
If Dot＝7 Then
   ＇將8個(gè)點(diǎn)的信息存入一個(gè)字節(jié)中　
　　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

本程序一次得到兩個(gè)漢字的點(diǎn)陣信息，存于字節(jié)數(shù)組WP中。

由于大多數(shù)LED、LCD均為黑白二進(jìn)制顯示形式，沒(méi)有灰度等級(jí)，而Windows環(huán)境，特別是Windows 2000的某些字庫(kù)顯示時(shí)有灰度變化，因而必須合理選擇BrightV的值，才能使生成的點(diǎn)陣信息與屏幕所見(jiàn)的基本一致。本程序采用從右至左，從下到上的掃描方式生成字模，符合一般LED、LCD的顯示掃描方式，有利于單片機(jī)的編程。

4　結(jié)束語(yǔ)

實(shí)踐證明本文所介紹的方法能方便地得到Windows環(huán)境下矢量字庫(kù)的字模，滿足了單片機(jī)顯示系統(tǒng)的需要。這種方法不但可以用來(lái)生成漢字字模，還可以用來(lái)生成各種圖形點(diǎn)陣信息。只需將各種圖片輸入PictureBox即可，從而使單片機(jī)可以利用Windows中眾多的圖形制作軟件，顯示更加豐富多彩的圖形畫(huà)面。

參考文獻(xiàn):
1　李玉東，李罡，李雷．VisualBasic 6．0中文版控件大全．北京：電子工業(yè)出版社，2000
2　壽建霞．建立單片機(jī)系統(tǒng)漢字字庫(kù)的一種通用方法．微型電腦應(yīng)用，1999