vb串口数据采集及曲线动态显示.docVIP

串口数据采集及曲线动态显示 这个程序主要用到了串口通信和曲线画图 主要控件 Msomm控件一个，两个timer控件，textbox控件，combo控件，picture控件，command控件 二．实现的功能能 1.串口采集数据 2.用曲线动态显示数据 3. 显示时间 4.鼠标点击读数（确定所点击位置的横纵坐标） 三．界面 四．程序 Dim T As Variant Dim c As Variant Dim Y As Integer Private Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long) API,用sleep实现延时 延时函数 Function delay(number) Call Sleep(number) DoEvents End Function Private Sub Combo1_Click() 选择端口 If Combo1.Text = COM1 Then MSComm1.CommPort = 1 ElseIf Combo1.Text = COM2 Then MSComm1.CommPort = 2 ElseIf Combo1.Text = C