Question

VB6.0 串口通讯 如何让电脑自动搜索仪表地址赋给label1？

Private Sub Form_Load()

i = 1
Call InitialPort '设置串口参数
Timer1.Enabled = True
caiji = True
End Sub
Private Sub MSComm1_OnComm()
Dim cmdin() As Byte '接收数据字节变量
Dim Index As Integer
MSComm1.InputLen = 0
Select Case MSComm1.CommEvent
Case comEvReceive '接收事件
If MSComm1.InBufferCount = 10 Then
cmdin = MSComm1.Input
If i = 1 Then
Label1(0).Caption = TwoBytes(cmdin(0), cmdin(1))
Label1(1).Caption = TwoBytes(cmdin(2), cmdin(3))
ElseIf i = 3 Then
Label1(2).Caption = TwoBytes(cmdin(0), cmdin(1))
ElseIf i = 4 Then
Label1(3).Caption = TwoBytes(cmdin(0), cmdin(1))
ElseIf i = 5 Then
MSComm1.Output = cmdout
Label1(4).Caption = TwoBytes(cmdin(0), cmdin(1))
Label2(0).Caption = TwoBytes(cmdin(2), cmdin(3))
ElseIf i = 6 Then
MSComm1.Output = cmdout
Label1(5).Caption = TwoBytes(cmdin(0), cmdin(1))
Label2(1).Caption = TwoBytes(cmdin(2), cmdin(3))
End If
End If
End Select
End Sub
现在我在form里设置i=3 就只能测仪表地址为3的值 设置i=1就只能测试仪表地址为1的值，怎么才能让它同时测不同仪表的数值？

Answer 1

1.您在开始的赋值语句中设置了i=N，就设置为N的地址，说明编制的没有问题；
2.把您的整个过程放到一个循环中就可以了啊。
do while 退出条件（防止锁死，并在关闭窗口时关闭COM口，以免下次不能打开）
for i=1 to 7

您的编程本体 Timer1.Enabled = True caiji = TrueEnd SubPrivate Sub MSComm1_OnComm() Dim cmdin() As Byte '接收数据字节变量 Dim Index As Integer MSComm1.InputLen = 0 Select Case MSComm1.CommEventCase comEvReceive '接收事件 If MSComm1.InBufferCount = 10 Thencmdin = MSComm1.Input If i = 1 Then Label1(0).Caption = TwoBytes(cmdin(0), cmdin(1)) Label1(1).Caption = TwoBytes(cmdin(2), cmdin(3)) ElseIf i = 3 Then Label1(2).Caption = TwoBytes(cmdin(0), cmdin(1)) ElseIf i = 4 Then Label1(3).Caption = TwoBytes(cmdin(0), cmdin(1)) ElseIf i = 5 Then MSComm1.Output = cmdout Label1(4).Caption = TwoBytes(cmdin(0), cmdin(1)) Label2(0).Caption = TwoBytes(cmdin(2), cmdin(3)) ElseIf i = 6 Then MSComm1.Output = cmdout Label1(5).Caption = TwoBytes(cmdin(0), cmdin(1)) Label2(1).Caption = TwoBytes(cmdin(2), cmdin(3)) End If End If End Select

next i
loop

追问

MSComm1_OnComm()事件里elseif下面不用再添加或者删除   MSComm1.Output = cmdout  ？ 我在if i=1 then 上面加了个for i=1 to 7，但是程序报错end if没有块if ，删了这句就显示程序报错if没有块endif ？同样的问题还有End Select跟、loop的。 我应该怎么改？？还有1 to 7 是什么意思？

追答

老，你里面用了I变量，外面我做的就改成其他就行！

追问

不好意思，最近家里有点事一直没能上网。你的意思是在Form_Load()里把i=1改成For i = 1 To 7 ？？MSComm1_OnComm()里按你上面写的来？？For i = 1 To 7 后面不跟next i 么 这不是
For...Next 语句？？

追答

您使用了变量i ，循环也会使用变量i ，当循环进行到i=7 时，变量内部失控，所以不要用i,这个我没注意，呵呵，改成其他如Looptimes之类的都行 for LoopCtimes=1 to 7 next LoopCtimes,另外想看看您改后的过程内全部代码。注意do while

追问

您是说在form里开头写for LoopCtimes=1 to 7  next   LoopCtimes ，是不是还得定义LoopCtimes？把i都变成LoopCtimes？do while是应该在mscomm里写？？我把do while加在了 If i = 1 Then的上面，显示语法错误。应该怎么改？？我现在把dowhile标记了，仪表地址为1就能读，为3就读不到数据。我应该怎么弄？？

追答

这个因为涉及硬件，本人手头没有，但思路应该这样：

1. 如果您问题表述的确实设置不同的i的值就可以设置仪表地址的话，在整个过程体外需要先设置循环

2. 如果您的表每个要占用一个COM的话，要分别编写不同COM口的接受语句

3. 退出过程，应立即关闭该COM口，以便下次可用；

4. mscomm是触发，其触发的是哪一个口要搞清，触发方式编程。

5. 如果用 for 循环则是逐个轮询端口，到底要哪一种，不能混用。

以上思路不知对您解决问题有效否