VB自动画曲线的问题

2019-03-24 17:06发布

我在采集温度画实时曲线的时候,始终不能把原点设置在我想设的位置,还请各位大神帮帮忙
如下图 QQ截图20180201171617.png 每一个方格的距离是500,纵坐边为时间(S)

If MSComm1.CommEvent = comEvReceive Then
        For i = 2 To 5
            temp = temp * 10 + val(Mid(indata, i, 1)) '分析数据,mid(,,)取字符串中特定数量的的字符,可指定开始获取位置和长度
        Next i
        temp1 = temp / 2
      
        Picture2(1).Line (temp_bufx, temp_bufy)-(time_temp * 50 + 500, 3500 - temp1), vbRed
'根据得到的数据值和当前的时间以及原有的数据画出一条直线
        temp_bufx = time_temp * 50 + 500        '存储当前数据,以方便下次使用
        temp_bufy = 3500 - temp1
        time_temp = time_temp + 1           '时间值增加1
    End If[/code]
友情提示: 此问题已得到解决,问题已经关闭,关闭后问题禁止继续编辑,回答。
该问题目前已经被作者或者管理员关闭, 无法添加新回复
7条回答
kevin1588112
1楼-- · 2019-03-25 18:10
谢谢各位 问题已经解决  初值问题

一周热门 更多>