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

下载后可任意编辑 串口数据采集及曲线动态显示这个程序主要用到了串口通信和曲线画图一．主要控件Msomm 控 件 一 个 ， 两 个 timer 控 件 ， textbox 控 件 ， combo 控 件 ， picture 控 件 ，command 控件二．实现的功能能 1.串口采集数据 2.用曲线动态显示数据 3. 显示时间 4.鼠标点击读数（确定所点击位置的横纵坐标）三．界面四．程序Dim T As VariantDim c As VariantDim Y As IntegerPrivate Declare Sub Sleep Lib "kernel32 " (ByVal dwMilliseconds As Long) 'API,用 sleep 实现延时'延时函数Function delay(number) Call Sleep(number) DoEventsEnd FunctionPrivate Sub Combo1_Click() '选择端口 If Combo1.Text = "COM1" Then MSComm1.CommPort = 1 ElseIf Combo1.Text = "COM2" Then下载后可任意编辑 MSComm1.CommPort = 2 ElseIf Combo1.Text = "COM3" Then MSComm1.CommPort = 3 ElseIf Combo1.Text = "COM4" Then MSComm1.CommPort = 4 Else MSComm1.CommPort = 5 End IfEnd SubPrivate Sub Command3_Click() '停止采集 Timer2.Enabled = False MSComm1.PortOpen = False Command2.Caption = "打开串口"End SubPrivate Sub Form_Load() '初始化 MSComm1.Settings = "9600,N,8,1" MSComm1.InputMode = 0 MSComm1.RThreshold = 1 MSComm1.SThreshold = 0 MSComm1.InBufferSize = 1024 MSComm1.OutBufferSize = 512 MSComm1.InBufferCount = 0 MSComm1.OutBufferCount = 0 Combo1.AddItem "COM1" Combo1.AddItem "COM2" Combo1.AddItem "COM3" Combo1.AddItem "COM4" Combo1.AddItem "COM5" Picture1.Scale (-100, 100)-(100, -100) Command1.Caption = "采集数据" Command2.Caption = "打开串口" Timer1.Interval = 1000 Timer2.Interval = 1000 Timer2.Enabled = FalseEnd SubPrivate Sub Command2_Click() If Command2.Caption = "打开串口" Then MSComm1.PortOpen = True Command2.Caption = "关闭串口" ElseIf Command2.Caption = "关闭串口" Then下载后可任意编辑 MSComm1.PortOpen = False Command2.Caption = "打开串口" End IfEnd SubPrivate Sub MSComm1_OnComm() '触发事件 If MSComm1.InBufferCount >...