【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。

    网学会员整理了VB开源代码-VB上位机温度采集(含源程序代码) - 基础科学的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

VB 程序Option ExplicitDim NowX As IntegerDim MaxPlotNo As LongDim PreValue As SinglePrivate Sub cmbCOM_Click If cmbCOM.ListIndex 1 MSComm1.CommPort Then Exit Sub Timer1.Enabled False TimeDelay 100 If MSComm1.PortOpen Then MSComm1.PortOpen False End If lblMsg.Caption 已停止检测并关闭通讯端口 cmdOpenCOM.Enabled TrueEnd SubPrivate Sub cmdEnd_Click EndEnd SubPrivate Sub cmdOpenCOM_Click If cmbCOM.ListIndex 0 And cmbCOM.ListIndex PreValue 0.01 Then picVoltage.Line -NowX ValueStr RGB255 0 0 Else picVoltage.Line -NowX ValueStr RGB0 0 255 End If End If PreValue ValueStr NowX NowX 1 If NowX MaxPlotNo Then NowX 0End Sub