Question

VB6.0程序运行后两个label1读取的都是仪表的第一行,另一个label2不能读取仪表的第二行，应该怎么办？

Dim caiji As Boolean '采集状态标志
Dim shezhizhi As Long '设置值
Dim i As Integer '轮循采集仪表代号
Private Sub MSComm1_OnComm()
Dim cmdin() As Byte '接收数据字节变量
Dim HIAL(6) As Single
Dim a As Byte
Dim data1 As String
Dim j, num As Integer
Select Case MSComm1.CommEvent
Case comEvReceive
If MSComm1.InBufferCount = 10 Then
cmdin = MSComm1.Input
For j = 0 To 9
data1 = data1 & " " & cmdin(j)
Next j
HIAL(a) = TwoBytes(cmdin(0), cmdin(1))
Label1.Caption = HIAL(a)
Label2.Caption = HIAL(a)
End If
End Select
End Sub

Answer 1

HIAL(a) = TwoBytes(cmdin(0), cmdin(1))
Label1.Caption = HIAL(a)
Label2.Caption = HIAL(a)

上述代码中的HIAL(a) ，下标a的值是几？

追问

仪表设置是几就是几，手动改，我应该怎么改？？我现在改成这样，但读取的数不对，应该怎么弄？代码其余不变：
Dim a, b As Byte
HIAL(a) = TwoBytes(cmdin(0), cmdin(1))
Label1.Caption = HIAL(a)
HIAL(b) = TwoBytes(cmdin(8), cmdin(4))
Label2.Caption = HIAL(b)

追答

a必须是具体的数值，如你代码那样写，只能是0，即HIAL(0) = TwoBytes(cmdin(0), cmdin(1))

追问

a是具体数值啊，第一行是读取传感器的数值，第二行是设置数值，程序读取这两个数值，第一个实时改变的，第二个是手动改变的，第二行一开始是0，可我现在设置的不是0啊，它应该实时改变成其他数值啊

追答

a是具体数值啊
从你多处的代码未看出，也不见实时改变的代码。

追问

a是测量多少是多少，随着传感器的改变而改变。

追答

仍然未见代码中有获取a值的赋值语句，只能认为a = 0 。

追问

..... a值的赋值语句应该在哪？a就设置仪表时的初始值为0。我就按钮什么没截图上去，应该不是按钮的事，现在我把这些代码复制到主程序上，第一二行都没有反应，是哪的问题？在小程序里还能接受正确第一行了……要不你把邮箱给我我给你发过去帮我看看？行么？

追答

没有LZ的通信协议和接收数据帧结构，神仙也无法解决LZ的问题。

按LZ的贴图代码，a取了初始值0，b也同样取了初始值0。

回顾LZ的几个问帖：

http://zhidao.baidu.com/question/573858665?&oldq=1#answer-1444400740，此帖中的代码：

                Select Case num
                    Case 1
                        HIAL(a) = TwoBytes(cmdin(0), cmdin(1))
                        Label2(num).Caption = HIAL(a)
                    Case 2
                        HIAL(a) = TwoBytes(cmdin(0), cmdin(1))
                        HIAL702(b) = TwoBytes(cmdin(2), cmdin(3))
                        Label2(num).Caption = HIAL(a)
                        Label2(num + 1).Caption = HIAL702(b)
                End Select

HIAL(a) = TwoBytes(cmdin(0), cmdin(1))句中的HIAL(a) 实际是HIAL(0) 

HIAL702(b) = TwoBytes(cmdin(2), cmdin(3))中的HIAL702(b)实际是HIAL702(0)

LZ可以把工程在VBGOOD论坛的VB与电子技术应用板块发问帖求助,记得似乎可以上传工程压缩文件的.

坛址:http://www.vbgood.com/vbf.good