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

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

这个程序主要用到了串口通信和曲线画图

一． 主要控件

Msomm 控 件 一 个 ， 两 个 timer 控 件 ， textbox 控 件 ， combo 控 件 ， picture 控 件 ，

command 控件

二．实现的功能能

1.串口采集数据

2.用曲线动态显示数据

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 = 4

Else

MSComm1.CommPort = 5

End If

End Sub

Timer2.Enabled = False

MSComm1.PortOpen = False

Command2.Caption = "打开串口"

End Sub

Private Sub Form_Load() '初始化

MSComm1.InBufferCount = 0

MSComm1.OutBufferCount = 0

Combo1.AddItem "COM1"

Combo1.AddItem "COM2"

Combo1.AddItem "COM3"

Combo1.AddItem "COM4"

Combo1.AddItem "COM5"

Command1.Caption = "采集数据"

Command2.Caption = "打开串口"

Timer1.Interval = 1000

Timer2.Interval = 1000

Timer2.Enabled = False

End Sub

Private Sub Command2_Click()

If Command2.Caption = "打开串口" Then

MSComm1.PortOpen = True

Private Sub MSComm1_OnComm() '触发事件

If MSComm1.InBufferCount > 0 Then

Text4.Text = MSComm1.Input

c = Val(Text4.Text)

End Sub

Private Sub draw()

Picture1.FontSize = "15" '设置字体大小

Picture1.DrawWidth = 1

Picture1.ForeColor = QBColor(12)

Picture1.Line (-88, -88)-(-88, 88) '纵坐标

Picture1.Line (-89, 86)-(-88, 88) '纵坐标箭头及 y 值

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.FontSize = 8

For Y = -80 To 80 Step 10

Picture1.PSet (-88, Y)

Picture1.Print (Y)

Next Y

T = -88

Timer2.Enabled = True

End Sub

Private Sub Picture1_MouseDOWN(Button As Integer, Shift As Integer, B As Single, A As

Single) '"光标线读数"