你可以建立一个命令列表的字符串数组,用做命令缓冲 关键是字节数组在VB里可以直接赋值给字符串的。 下面是一点思路,不知有用否在窗体上布置 1个LIST,1个COMMAND ,1个TIMER ========================================== Const 列表中最大命令数 As Long = 1000Dim 命令列表(列表中最大命令数) As String Dim 从串口来的单条命令() As BytePrivate Sub Command1_Click() Me.Timer1.Interval = 2 End SubPrivate Sub Timer1_Timer() Static i As Long '从串口接收数据的函数,下面是模拟。 '----------------- i = i + 1 从串口来的单条命令() = "这是第" & CStr(i) & "条命令。" '-----------------
'以把字节数组接赋值给字符串,以保存命令 命令列表(i) = 从串口来的单条命令 Me.List1.AddItem 命令列表(i) End Sub
楼上地说的电器延时什么意思呢?没遇到过,能说的详细一点么?
关键是字节数组在VB里可以直接赋值给字符串的。
下面是一点思路,不知有用否在窗体上布置 1个LIST,1个COMMAND ,1个TIMER
==========================================
Const 列表中最大命令数 As Long = 1000Dim 命令列表(列表中最大命令数) As String
Dim 从串口来的单条命令() As BytePrivate Sub Command1_Click()
Me.Timer1.Interval = 2
End SubPrivate Sub Timer1_Timer()
Static i As Long '从串口接收数据的函数,下面是模拟。
'-----------------
i = i + 1
从串口来的单条命令() = "这是第" & CStr(i) & "条命令。"
'-----------------
'以把字节数组接赋值给字符串,以保存命令
命令列表(i) = 从串口来的单条命令
Me.List1.AddItem 命令列表(i)
End Sub