admin 管理员组文章数量: 1087139
2024年3月19日发(作者：都有哪些网站)
vb程序实现串口通信，将接到的数据动态保存，并可以图表绘制曲线（X：时间，Y：数据）
将接到的数据赋值于全局变量,通过ADO数据控件连接数据库及表,用以下代码保存数据:
Private Sub Timer1_Timer()
If n <> CStr(Time$) Then
n = Time$
sum_zj = sum_zj + 1
Text3 = sum_zj
'校准
If sum_zj >= 3 Then
sum_zj1 = sum_zj1 + 1
sum_zj = sum_zj - 3
Text4 = sum_zj1
'每3秒记录一组数据
set(0) = shiYAnH
set(1) = Mid(Time$, 1, 2) & Mid(Time$, 4, 2) & Mid(Time$, 7, 2) '记录time
set(2) = record_jm(0) '记录数据
set(3) = record_jm(1) '记录数据
set(4) = record_jm(2) '记录数据
set(5) = record_jm(3) '记录数据
set(6) = record_jm(4) '记录数据
set(7) = record_jm(5) '记录数据
set(8) = record_jm(6) '记录数据
set(9) = record_jm(7) '记录数据
set(10) = record_jm(8) '记录数据
set(11) = record_jm(9) '记录数据
set(12) = record_jm(10) '记录数据
set(13) = record_jm(11) '记录数据
End If
End If
End Sub
Private Sub Timer2_Timer()
yle = 0
以下代码绘制实时曲线(6点):
dth = 3 ' = dash
(sum_z1 * 18 + 500, record_jm(0) * -150 + 7900)-(sum_z1 * 18 + 500,
record_jm(2) * -150 + 7900), vbRed ', BF
(sum_z1 * 18 + 500, record_jm(1) * -150 + 7900)-(sum_z1 * 18 + 500,
record_jm(3) * -150 + 7900), vbCyan ', BF
(sum_z1 * 18 + 500, record_jm(2) * -150 + 7900)-(sum_z1 * 18 + 500,
record_jm(4) * -150 + 7900), vbBlack ', BF
(sum_z1 * 18 + 500, record_jm(3) * -150 + 7900)-(sum_z1 * 18 + 500,
record_jm(5) * -150 + 7900), vbMagenta ', BF
(sum_z1 * 18 + 500, record_jm(4) * -150 + 7900)-(sum_z1 * 18 + 500,
record_jm(6) * -150 + 7900), vbGreen ', BF
(sum_z1 * 18 + 500, record_jm(5) * -150 + 7900)-(sum_z1 * 18 + 500,
record_jm(7) * -150 + 7900), vbBlue ', BF
End Sub
Private Sub Timer3_Timer()
If Label32 <> CStr(Time$) Then 'n
n = Time$
sum_z = sum_z + 1
Text31 = sum_z
'校准
If sum_z >= 5 Then
sum_z = sum_z - 5
sum_z1 = sum_z1 + 1
Text30 = sum_z1
End If
End If
End Sub
以下代码绘制曲线的坐标:
Private Sub Form_Load()
With Adodc1
tionString = "Provider=.4.0;Data Source=" & &
";Persist Security Info=False"
Source = "select * form car_bm"
End With
Text1 = ""
Text2 = "": Text3 = "": Text4 = "":
Text5 = "": Text6 = "": Text7 = "": Text12 = ""
Text8 = "": Text9 = "": Text10 = "": Text11 = ""
Text13 = "": Text14 = "": Text15 = "": Text16 = ""
'Load frmMain
colvb = vbBlack
xx = 100
yy = 150
txt = "℃"
wp = xp(colvb, xx, yy, txt)
xx = 200
yy = 350
txt = "50"
wp = xp(colvb, xx, yy, txt)
xx = 200
yy = 1850
版权声明：本文标题：vb程序实现串口通信,将接到的数据动态保存,并可以图表绘制曲线(X:时 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1710853491a576362.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论