串口数据采集及曲线动态显示这个程序主要用到了串口通信和曲线画图 一主要控件 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“ ThenMSComm1.CommPort = 1ElseIf Combo1.Text = “COM2“ ThenMSComm1.CommPort = 2ElseIf Combo1.Text = “COM3“ ThenMSComm1.CommPort = 3ElseIf Combo1.Text = “COM4“ ThenMSComm1.CommPort = 4ElseMSComm1.CommPort = 5End If End SubPrivate Sub Command3_Click() 停止采集Timer2.Enabled = FalseMSComm1.PortOpen = FalseCommand2.Caption = “打开串口“ End SubPrivate Sub Form_Load() 初始化MSComm1.Settings = “9600,N,8,1“MSComm1.InputMode = 0MSComm1.RThreshold = 1MSComm1.SThreshold = 0MSComm1.InBufferSize = 1024MSComm1.OutBufferSize = 512MSComm1.InBufferCount = 0MSComm1.OutBufferCount = 0Combo1.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 = 1000Timer2.Interval = 1000Timer2.Enabled = False End SubPrivate Sub Command2_Click()If Command2.Caption = “打开串口“ ThenMSComm1.PortOpen = TrueCommand2.Caption = “关闭串口“ElseIf Command2.Caption = “关闭串口“ ThenMSComm1.PortOpen = FalseCommand2.Caption = “打开串口“End If End SubPrivate Sub MSComm1_OnComm() 触发事件If MSComm1.InBufferCount 0 ThenText4.Text = MSComm1.Inputc = Val(Text4.Text)delay (20)End If End Sub Private Sub draw()Picture1.FontSize = “15“ 设置字体大小Picture1.DrawWidth = 1Picture1.ForeColor = QBColor(12)Picture1.ClsPicture1.Line (-88, -88)-(-88, 88) 纵坐标Picture1.Line (-89, 86)-(-88, 88) 纵坐标箭头及 y 值Picture1.Line (-87, 86)-(-88, 88)Picture1.PSet (-86, 88)Picture1.Print “y“Picture1.Line (-88, 0)-(88, 0) 横坐标Picture1.Line (86, 1)-(88, 0) 横坐标箭头及 x 值Picture1.Line (86, -2)-(88, 0)Picture1.PSet (88, -1)Picture1.Print “x“Picture1.DrawWidth = 4Picture1.FontSize = 8For Y = -80 To 80 Step 10Picture1.PSet (-88, Y)Picture1.Print (Y)Next YT = -88Timer2.Enabled = True End Sub Private Sub Picture1_MouseDOWN(Button As Integer, Shift As Integer, B As Single, A As Single) “光标线读数“Text1.Text = BText2.Text = AEnd Sub Private Sub Command1_Click() 开始采集Call draw End SubPrivate Sub Timer2_Timer() 画图Picture1.DrawWidth = 1Picture1.PSet (T, c), vbGreenT = T + 0.5If T 88 ThenCall drawEnd If End SubPrivate Sub Timer1_Timer() 显示时间Text3.Text = CStr(Time$() End Sub