VB在串口通讯中，如何实现数据的连续采集

带串口的一台电源，功能有设定电流、读取电流、读取电压。
添加了三个按钮，分别对应上述三个功能。按钮分别按下时，情况正常，表示命令使用正常。
现在想实现连续自动的设定、读取，要求每秒一次。应该如何编程？
我这里用了一个1秒的定时器，结果失败了。可能是上面的三个命令几乎同时发送，引起错误。

举报该文章

其他看法

第1个回答 2014-04-21

你每运行一秒就自动设定一次电流值和关闭一次电源。。这两条语句怎么不放在From_load中追问

电源在运行时是不能关闭的，只有到最后，定时器enable=false时才关闭。
因为这里的串口指令是一个个的发送的。发送完了，再发送另外一个。
因为现在用command按钮可以正常操作，所以，我想采用的最笨的方法是模拟按下按钮。在界面上，第1秒按下command5，第1.2秒按下command6... ...这个方法我也不知道怎么能实现？

追答

你是1.2S后自动按下按钮，还是设计成在按下按钮5之前按钮6不能按下
Dim a As Integer'这条语句放在你的程序定义位置一般是程序最开始位置
Private Sub Command5_Click()
Timer3.Enabled = True
Timer3.Interval = 100
T1AmperSet (text4.text)
a = 0 '增加可操作性，每次按下按钮5按钮6都刷新并可以被自动按下
Command6.Enabled = False
End Sub
Private Sub Command6_Click()
T1AmperRead ("08A7AF")
End Sub
Private Sub Form_Load()
Timer3.Enabled = False
Command6.Enabled = False
End Sub
Private Sub Timer3_Timer()
a = a + 1
If a = 12 Then
Timer3.Enabled = False
Command6.Enabled = True '1.2s后按钮6开启
Command6.Value = True ‘1.2S后按钮6自动点击一次
Else
End If
End Sub

本回答被提问者采纳

相似回答

vb 串口通讯问题答：ReadStr = ReadStr & Right("000" & buf(i), 3) gData_Receive = gData_Receive & Right("00" & Hex(buf(i)), 2) & " " '此变量向外输出串口接收到的数据 Next i Else FlushComm End If ReadCommPure = ReadStrhandelpurecom: Exit FunctionEnd Function'向串口写数据Function WriteCOM32(COMStr...

大家正在搜

单片机连续接收串口数据 PIC串口连续接收数据串口如何接收数据通讯串口驱动串口和网口通信 pic串口连续接收单片机接收串口数据串口连续读书通信串口