分布式單片機(jī)蔬菜大棚溫度檢測系統(tǒng)的上位機(jī)設(shè)計(jì)與調(diào)試分析案例目錄TOC\o"1-3"\h\u26457分布式單片機(jī)蔬菜大棚溫度檢測系統(tǒng)的上位機(jī)設(shè)計(jì)與調(diào)試分析案例 120199第1章上位機(jī)設(shè)計(jì)與仿真調(diào)試 1240761.1VB上位機(jī)界面設(shè)計(jì) 179691.2上位機(jī)軟件設(shè)計(jì)及調(diào)試 24234第5章實(shí)物安裝與調(diào)試 5240042.1PCB電路板設(shè)計(jì) 549662.2實(shí)物仿真 5第1章上位機(jī)設(shè)計(jì)與仿真調(diào)試1.1VB上位機(jī)界面設(shè)計(jì) VB的特點(diǎn)是面向?qū)ο蟮恼Z言，操作簡單，且具有可視化的圖形界面，可直接生成EXE文件，作為上位機(jī)編程軟件具有較大優(yōu)勢。此次設(shè)計(jì)的對象窗口中的主要控件有（1）MSComm控件，可以通過串口傳輸和接收數(shù)據(jù)實(shí)現(xiàn)串行通訊功能。常見屬性為Comport,用于返回端口號；PortOpen,用于打開和關(guān)閉串口，True時(shí)為打開串口；Input,用于從緩沖區(qū)接收字符；InputLen,表示從緩沖區(qū)讀取的字符數(shù)，缺省值是0，此時(shí)接收緩沖區(qū)中的全部內(nèi)容；Settings，用于設(shè)置并返回波特率、奇偶校驗(yàn)、數(shù)據(jù)位、停止位，缺省值為9600、N、8、1，即波特率為9600bit/s,無奇偶校驗(yàn)，數(shù)據(jù)位為8位，停止位1位；InBufferCount用于表示緩沖區(qū)等待的字符數(shù)。（2）Picture控件，該控件可用于繪制曲線。常見屬性為ScaleHeight,ScaleWidth返回或設(shè)置對象內(nèi)部的水平或垂直度時(shí)單位；Line,用于繪制從一點(diǎn)至另一點(diǎn)的直線。 （3）Checkbox控件，用于建立控件數(shù)組，在按鈕單擊事件里進(jìn)行循環(huán)判斷每個(gè)復(fù)選框的狀態(tài)。常見屬性為AddItem，用于將項(xiàng)目添加到ComboBox控件。 （4）Text控件，主要用于顯示文本或者輸入文字。常見屬性有Text屬性，用來顯示文本框中的文本內(nèi)容。 （5）Timer控件，可以有規(guī)律地間隔一段時(shí)間執(zhí)行一次代碼。主要屬性有Interval屬性，用于設(shè)置間隔時(shí)間，有效值在0至65535ms之間。 （6）Label控件，用于顯示字符串。 對象窗口界面如圖4-1所示：圖4-1上位機(jī)界面1.2上位機(jī)軟件設(shè)計(jì)及調(diào)試軟件設(shè)計(jì)如下：（1）PrivateSubForm_Load()'初始界面MSComm1.InputLen=4'串口每次讀取2個(gè)字符Combo1.AddItem"COM1"'COM1、COM2、COM3、COM4、COM5加入Combo1控件Combo1.AddItem"COM2"Combo1.AddItem"COM3"Combo1.AddItem"COM4"Combo1.AddItem"COM5"Combo1.ListIndex=0'默認(rèn)顯示COM1口Shape1.BackColor=RGB(222,222,222)'串口指示燈的設(shè)為灰色Shape2.BackColor=RGB(222,222,222)'溫度過高指示燈的設(shè)為灰色Shape3.BackColor=RGB(222,222,222)'溫度過低指示燈的設(shè)為灰色AlarmTempLow=5'溫度報(bào)警下限默認(rèn)為5度AlarmTempHig=25'溫度報(bào)警上限默認(rèn)為25度Picture1.ScaleHeight=800'將溫度的Y軸70等分Picture1.ScaleWidth=500'將溫度的X軸50等分X_Pos=0'曲線從x=0開始繪制Picture1.Line(0,378)-(5,378),RGB(128,0,255)'10度線Picture1.Line(0,278)-(5,278),RGB(128,0,255)'20度線 ……EndSub（2）PrivateSubCommand1_Click()'打開串口按鍵OnErrorGoToErr'程序執(zhí)行出錯(cuò)時(shí)，跳到err處執(zhí)行IfCommand1.Caption="打開串口"Then'如果串口還未打開MSComm1.CommPort=Combo1.ListIndex+1'獲取串口號MSComm1.PortOpen=True'打開串口Shape1.BackColor=RGB(0,255,0)'打開串口指示燈Command1.Caption="關(guān)閉串口"'將按鈕標(biāo)題改為“關(guān)閉串口”Else'如果串口已經(jīng)打開MSComm1.PortOpen=False'關(guān)閉串口Shape1.BackColor=RGB(222,222,222)'將串口指示燈置為灰色Command1.Caption="打開串口"'將按鈕標(biāo)題改為“關(guān)閉串口”EndIfExitSubErr:'打開錯(cuò)誤的串口，則進(jìn)行錯(cuò)誤提醒MsgBox"串口號不存在！",vbOKOnly,"錯(cuò)誤"EndSub（3）PrivateSubTimer1_Timer()DimstrAsStringIfMSComm1.InBufferCount>=3Then'如果串口緩沖區(qū)的內(nèi)容超出3個(gè)，讀取串口數(shù)據(jù)str=MSComm1.InputIfVal(str)<>0ThenText2.Text=Val(str)EndIfIfX_Pos=0Then'開始繪制曲線X_Pos=1ElsePicture1.PSet(X_Pos,478-Val(Text2.Text)*10),RGB(128,0,255)'畫點(diǎn)X_Pos=X_Pos+1'在溫度曲線到達(dá)圖形控件最右側(cè)時(shí)把曲線清除并從左側(cè)重新繪制IfX_Pos=500ThenPicture1.ClsX_Pos=0EndIfEndIf'如果溫度超過報(bào)警上限，則警示燈亮If(Val(Text2.Text))*10>(AlarmTempHig)*10ThenShape2.BackColor=RGB(255,0,0)ElseShape2.BackColor=RGB(222,222,222)EndIf'如果溫度低于報(bào)警下限，則警示燈亮If(Val(Text2.Text))*10<(AlarmTempLow)*10ThenShape3.BackColor=RGB(255,0,0)ElseShape3.BackColor=RGB(222,222,222)EndIfEndIf（4）PrivateSubCommand4_Click()'按下溫度上限加一按鈕后，觸發(fā)此程序buff(0)=&H3'串口發(fā)送03，溫度上限加一MSComm1.Output=buffText2.Text=Val(Text2.Text)+1EndSub調(diào)試界面如圖4-2所示：圖4-2上位機(jī)運(yùn)行界面第5章實(shí)物安裝與調(diào)試2.1PCB電路板設(shè)計(jì) 在設(shè)計(jì)中加入程序下載