用VB6.0數(shù)字示波單片機(jī)實(shí)時(shí)監(jiān)測(cè)數(shù)據(jù)的一種方法

　　一．引言
　　
　　單片機(jī)實(shí)時(shí)監(jiān)測(cè)數(shù)據(jù)的圖形顯示一般都借助于數(shù)據(jù)處理能力強(qiáng)大的上位PC機(jī)。VB6.0具有強(qiáng)大的圖形處理功能和良好的界面設(shè)計(jì)功能并且可以利用MsComm控件方便地實(shí)現(xiàn)和單片機(jī)的串行數(shù)據(jù)通信。
　　
　　本文介紹利用VB6.0的窗體對(duì)象、命令按鈕控件對(duì)象、微軟的MsComm控件對(duì)象、數(shù)組和用戶自定義坐標(biāo)系動(dòng)態(tài)、連續(xù)、數(shù)字、波形地顯示單片機(jī)實(shí)時(shí)檢測(cè)數(shù)據(jù)的一種方法。
　　
　　該顯示方法的坐標(biāo)系符合人們看圖習(xí)慣,顯示的實(shí)時(shí)波形隨時(shí)間動(dòng)態(tài)變化并從左向右平移，視覺(jué)效果好且數(shù)值顯示、算法簡(jiǎn)單、實(shí)現(xiàn)容易。
　　
　　二．所用對(duì)象介紹
　　
　　1．窗體
　　
　　窗體是所有控件的容器，是設(shè)計(jì)界面的載體，具有Print、Cls、Line、Scale等方法。
　　
　　窗體容器有一個(gè)坐標(biāo)系，窗體的ScaleTop、ScaleLeft兩個(gè)屬性值形成坐標(biāo)原點(diǎn)且默認(rèn)值為0和0，窗體默認(rèn)坐標(biāo)原點(diǎn)在窗體的左上角，向右和向下為坐標(biāo)軸正方向，屬性ScaleWidth的值和ScaleHeight的值確定窗體實(shí)際可用的寬度和高度（見(jiàn)圖1）。　　
　　窗體的ScaleMode屬性值決定窗體坐標(biāo)的度量單位，共有八種單位形式，當(dāng)值為0時(shí)表示是用戶定義形式。默認(rèn)形式為twip。窗體默認(rèn)坐標(biāo)系不符合人們習(xí)慣。
　　
　　用Scale方法可以方便建立用戶坐標(biāo)系，語(yǔ)法格式為：
　　
　　[窗體].Scale[（xLeft,yTop）-（xRight,yBottom）]
　　
　　其中（xLeft,yTop）表示窗體左上角的坐標(biāo)值,（xRight,yBottom）表示窗體右下角的坐標(biāo)值,則窗體的下述屬性值為:
　　
　　ScaleLeft=xLeft
　　
　　ScaleTop=yTop
　　
　　ScaleWidth=xRight-xLeft
　　
　　ScaleHeight=yBottom-yTop
　　
　　若有語(yǔ)句:Form1.Scale（-10,250）-（220,-15）,則用戶自定義坐標(biāo)系如下圖2:　　
　　2．命令按鈕控件
　　
　　命令按鈕可以接收Click事件。
　　
　　3．MsComm控件
　　
　　完善的串行數(shù)據(jù)發(fā)送和接收控件。通過(guò)屬性設(shè)置、事件驅(qū)動(dòng)方式或查詢方式完成數(shù)據(jù)通信。
　　
　　三．軟件設(shè)計(jì)思想（一個(gè)具體的例）
　　
　　要求：?jiǎn)纹瑱C(jī)每1秒串行發(fā)送給PC一幀十位數(shù)據(jù)，VB6.0波形動(dòng)態(tài)顯示數(shù)據(jù)。
　　
　　設(shè)計(jì)：通過(guò)窗體Load事件程序完成如圖3所示界面設(shè)計(jì)，使得程序一運(yùn)行即出現(xiàn)該界面，單擊"接收數(shù)據(jù)"按鈕，通過(guò)MsComm控件接收串行通信數(shù)據(jù)并波形動(dòng)態(tài)顯示。顯示時(shí)一屏12個(gè)數(shù)據(jù)，每次接收了新數(shù)據(jù)后，數(shù)組中的數(shù)據(jù)依次后移，既a（0）（假設(shè)為數(shù)組a（11））放接收的數(shù)據(jù)，原a（11）中的數(shù)據(jù)被移出而移入原a（10）中的數(shù)。每次有新數(shù)據(jù)移入并且有原數(shù)據(jù)移出時(shí)，先清屏再?gòu)?fù)原背景顯示數(shù)據(jù)，造成數(shù)據(jù)平移視覺(jué)效果。
　　
　　設(shè)計(jì)時(shí)波形一定要從界面zui左端入，從zui右端出，這樣動(dòng)態(tài)平移視覺(jué)效果才好。窗體的AutoRedraw屬性要設(shè)為True.　　
　　四．軟件設(shè)計(jì)源程序（波形參見(jiàn)圖4、圖5）
　　
　　'定義所用變量
　　
　　Dima（11）AsSingle
　　
　　DimdAsInteger
　　
　　DimnAsInteger
　　
　　DimmAsInteger
　　
　　DimBufferAsVariant
　　
　　PrivateSubForm_Load（）
　　
　　'一屏顯示的12個(gè)數(shù)賦初值0
　　
　　Fori=0To11
　　
　　a（i）=0
　　
　　Nexti
　　
　　'定義坐標(biāo)原點(diǎn)
　　
　　Form1.Scale（-10,250）-（220,-15）
　　
　　'畫X、Y軸
　　
　　Line（0,0）-（220,0）
　　
　　Line（0,0）-（0,250）
　　
　　'加坐標(biāo)刻度和數(shù)值
　　
　　CurrentX=200:CurrentY=13:Print"X（s）"
　　
　　CurrentX=5:CurrentY=245:Print"Y（V）"
　　
　　Fori=0To220Step20
　　
　　CurrentX=i:CurrentY=3:Line-（i,0）
　　
　　Ifi<=200ThenCurrentX=i-7ElseCurrentX=i-12
　　
　　CurrentY=0:PrintiMod19
　　
　　Nexti
　　
　　Fori=0To210Step20
　　
　　Ifi<>0Then
　　
　　CurrentX=-14:CurrentY=i:Printi/10
　　
　　CurrentX=230:CurrentY=i:Line-（0,i）
　　
　　EndIf
　　
　　Nexti
　　
　　'mscomm控件初始化
　　
　　MSComm1.CommPort=1
　　
　　MSComm1.Settings="9600,n,8,1"
　　
　　MSComm1.InputMode=comInputModeBinary
　　
　　MSComm1.InputLen=0
　　
　　MSComm1.RThreshold=0
　　
　　EndSub
　　
　　'接收并顯示數(shù)據(jù)
　　
　　PrivateSubCommand1_Click（）
　　
　　'無(wú)條件循環(huán)接收數(shù)據(jù)
　　
　　Do
　　
　　接收數(shù)據(jù)
　　
　　DoUntilMSComm1.InBufferCount=1
　　
　　Loop
　　
　　Buffer=MSComm1.Input
　　
　　Fori=LBound（Buffer）ToUBound（Buffer）
　　
　　d=Buffer（i）
　　
　　Nexti
　　
　　'判是否*屏12個(gè)數(shù)據(jù),設(shè)標(biāo)志量m
　　
　　Ifm<12Then
　　
　　m=m+1
　　
　　EndIf
　　
　　'12個(gè)數(shù)據(jù)放a數(shù)組,a（0）是數(shù)據(jù),原a（11）中的數(shù)移出
　　
　　Fori=11To1Step-1
　　
　　a（i）=a（i-1）
　　
　　Nexti
　　
　　a（0）=d
　　
　　'清零窗體界面、數(shù)據(jù)
　　
　　Form1.Cls
　　
　　'復(fù)原窗體界面
　　
　　Line（0,0）-（230,0）
　　
　　Line（0,0）-（0,250）
　　
　　CurrentX=200:CurrentY=13:Print"X（s）"
　　
　　CurrentX=5:CurrentY=245:Print"Y（V）"
　　
　　Fori=0To220Step20
　　
　　CurrentX=i:CurrentY=3:Line-（i,0）
　　
　　Ifi<=200ThenCurrentX=i-7ElseCurrentX=i-12
　　
　　CurrentY=0:PrintiMod19
　　
　　Nexti
　　
　　Fori=0To210Step20
　　
　　Ifi<>0Then
　　
　　CurrentX=-14:CurrentY=i:Printi/10
　　
　　CurrentX=230:CurrentY=i:Line-（0,i）
　　
　　EndIf
　　
　　Nexti
　　
　　'連點(diǎn)成波形
　　
　　Fori=0Tom-2
　　
　　Line（20*i,230*a（i）/20）-（20*（i+1）,230*a（i+1）/20）,RGB（240,0,0）
　　
　　NextI
　　
　　Loop
　　
　　EndSub