上位機溫度采集含源程序

1、VB程序Option ExplicitDim NowX As Integer Dim MaxPlotNo As Long Dim PreValue As Single Private Sub cmbCOM_Click() If cmbCOM.ListIndex + 1 = MSComm1.CommPort Then Exit Sub Timer1.Enabled = False TimeDelay 100 If MSComm1.PortOpen ThenMSComm1.PortOpen = False End If lblMsg.Caption = "已停止檢測并關(guān)閉通訊端口&quo

2、t; cmdOpenCOM.Enabled = True End SubPrivate Sub cmdEnd_Click() EndEnd SubPrivate Sub cmdOpenCOM_Click() If cmbCOM.ListIndex >= 0 And cmbCOM.ListIndex <= 16 Then MSComm1.CommPort = cmbCOM.ListIndex + 1 Else MsgBox "指定通信端口時發(fā)生錯誤！", vbCritical + vbOKOnly, "系統(tǒng)信息" Exit Sub End If

3、 On Error GoTo comErr MSComm1.Settings = "9600,n,8,1" MSComm1.PortOpen = True cmdOpenCOM.Enabled = False cmdStart.Enabled = True lblMsg.Caption = "可單擊【開始檢測】按鈕，執(zhí)行檢測的工作。" Exit SubcomErr: MsgBox "打開通信端口時發(fā)生錯誤！請確定通信端口存在且正常。", vbCritical + vbOKOnly, "系統(tǒng)信息"End SubPri

4、vate Sub cmdStart_Click() Timer1.Enabled = Not Timer1.Enabled If Timer1.Enabled Then cmdStart.Caption = "停止檢測" Else cmdStart.Caption = "開始檢測" lblMsg.Caption = "已停止檢測" End IfEnd SubPrivate Sub Form_Load() Dim i% MaxPlotNo = 100 cmbCOM.Clear cmbCOM.AddItem "COM1"

5、; cmbCOM.AddItem "COM2" cmbCOM.AddItem "COM3(USB)" cmbCOM.AddItem "COM4(USB)" cmbCOM.AddItem "COM5" cmbCOM.AddItem "COM6" cmbCOM.AddItem "COM7" cmbCOM.AddItem "COM8" cmbCOM.AddItem "COM9" cmbCOM.AddItem "COM10"

6、 cmbCOM.AddItem "COM11" cmbCOM.AddItem "COM12" cmbCOM.AddItem "COM12" cmbCOM.AddItem "COM14" cmbCOM.AddItem "COM15" cmbCOM.AddItem "COM16" cmbCOM.ListIndex = 0 cmdStart.Enabled = False '以下設(shè)定繪圖范圍，(Xmin,YMax)-(XMax,YMin) picVoltage.Scale

7、(0, 50)-(MaxPlotNo, 0) picVoltage.DrawWidth = 2 '使用兩個像素寬度的畫筆End SubPrivate Sub Label2_Click()End SubPrivate Sub lblValue_Click()End SubPrivate Sub MSComm1_OnComm()End SubPrivate Sub Timer1_Timer() Dim Buf$, ValueStr As Single, Pos1% Buf$ = Buf$ + MSComm1.Input TimeDelay 2150 ValueStr = Val(Mid(Buf, Pos1 + 1, 7) lblValue.Caption = Format(ValueStr, "00.0000") & "" If NowX = 0 Then picVoltage.Cls picVoltage.PSet (0, ValueStr) Else If ValueStr > PreValue + 0.01 Then picVoltage.Line -(NowX, ValueStr), RGB(255, 0, 0) Else picVoltage.Line -(No