Question

vb中，怎样按一定的时间间隔向串口发送一组数据

当一个按钮按下时，就向串口发送一串数据1，隔几秒钟再发一串数据2，隔几秒钟再发一串数据1，隔几秒钟再发一串数据3，隔几秒钟再发一串数据1，隔几秒钟再发一串数据4……,大概发送到第10次，就停止发送，直到再次按下此按钮。在发送过程中按钮是无效的

Answer 1

可以使用Timer控件来达到按一定的时间间隔向串口发送一组数据。

Timer 控件

通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。

Interval 属性

返回或设置对 Timer 控件的计时事件各调用间的毫秒数。

MSComm 控件

MSComm 控件通过串行端口传裤旦输和接收数据，为应用程序提供串行通讯功能。

Output 属性

往传输缓冲区写数据流。该属性在设计时无效，在运行时为只读。

具体实施代码：

Option Explicit
    Dim strSj As String

Private Sub Form_Load()
    Timer1.Interval = 1000 '以每秒为间隔
    Timer1.Enabled = True
    strSj = "按一定的时间间隔向串口发送一组数据"
    MSComm1.CommPort 态辩= 1
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.PortOpen = True
End Sub

Private Sub Timer1_Timer()
    胡闭扰MSComm1.Output = strSj
End Sub

 

Answer 2

用timer控件,默认未激活,点一销链次按渣嫌钮就激活了,然后发如斗手一次,计数1次,直到计数10次的时候,把用timer的事件,关闭timer

Answer 3

增加timer1,间隔颂清自缓樱档己设

dim str(9) as string
dim i as integer
sub command1_click()
i=0
comm1.output str(0)
timer1.enable=true

end sub

sub timer1_timer()
i=i+1
comm1.output str(i)
if i>扰乱9 then timer1.enable=false
end sub