Question

vb 向串口分段发送数据

要向串口发送text中的内容，每次发送只能最多发送8个字节，但是text里的字节数远大于，如何将text进行分组，然后每8个字节进行一次发送呢？
text的字节数为一个变量
CountStr = n \ 7
If CountStr > 0 Then
If n Mod 7 <> 0 Then
CountStr = CountStr + 1
End If
End If
ReDim resultstr(CountStr) As String
For I = 0 To CountStr
resultstr(I) = Mid$(Text2.Text, I * 7 + 1, 7)
Next I
For I = 0 To CountStr
sc(0) = &H1F
sc(1) = &H8
sc(2) = &H0
sc(3) = &H0

MSComm1.Output = sc
MSComm1.Output = resultstr(I)
delay (1000)
MSComm1.Output = sb

Next I
为什么SC SB循环了，可是resultstr(I)在第一次循环的时候就一块发出去了，没有分开呢？

Answer 1

VB 里 有很多 字符串的 函数
取 字符串 的 子串 有 mid substr right left 等等

多 看看 MSDN 吧

祝你顺利

有 Visual_Basic与_RS-232_串行通信控制 电子文档

需要 可以 联系

VB 调试 很 方便 的 吧？