还是前段时间的老问题：大循环套小循环，各个循环与各个发送命令时间能设定--即调用Text的设定时间。同时非常感谢前段时间一直帮助我的关注我的网友们！

[qiangshou2301]

66 7E 66 7E 66 7E 66 7E.... 67 6A 6C 67-->66 7E 66 7E 66 7E 66 7E ....67 6A 6C 67-->66 7E 66 7E 66 7E 66 7E ......67 6A 6C 67-->66 7E 66 7E 66 7E 66 7E .....67 6A 6C 67 67 7E（大循环完成最后是67 7E）
相关说明：
1、比如发送66采用

    buff_out6(0) = &HAA 
    buff_out6(1) = &HAA 
    buff_out6(2) = &HFF 
    buff_out6(3) = &H5 
    buff_out6(5) = &H66 
    buff_out6(6) = &H0 
    buff_out6(7) = &H0 
    buff_out6(8) = &HFF 

这样的协议，其他的7E、6A等等都是一样的。
2、调用Text设定的时间举例：

                If Dir("15.txt") <> "" Then
                   Dim Temp15 As String
                   Open App.Path & "\15.txt" For Input As #15
                   Line Input #15, Temp15
                   Close #15
                End If

这个就是调用15.txt设置的时间，记为Temp15，其他的类似。
时间控制的这样的：66 7E分别要控制，66 7E 这个小循环时间需要控制，然后是67 6A 6C 67分别要控制 整个大循环到 67 7E完成需要控制。
非常感谢各位！一直没有调出来。

[qiangshou2301]

请教高手啊

[linc_M]

沙发坐了也就算了，还要把板凳也坐上，55~~~~闪~

[qiangshou2301]

LS无语 建议销毁

[qiangshou2301]

急啊 高手在哪里啊 高手在哪里

[qiangshou2301]

自己顶下

[qiangshou2301]

上面少了2句：
发送命令的程序是：

                       Dim buff_out6() As Byte
                       buff_out6(0) = &HAA
                    buff_out6(1) = &HAA
                    buff_out6(2) = &HFF
                    buff_out6(3) = &H5
                    buff_out6(4) = &H66
                    buff_out6(5) = &H0
                    buff_out6(6) = &H0
                    buff_out6(7) = &H0
                    buff_out6(8) = &HFF
                    MSComm1.Output = buff_out6

所有的这些都在一个command7里的“开”里，“关”完成循环结束的67、7E完成：

Private Sub Command7_Click()
                If Shape5.BackColor = &HFF Then
                    Shape5.BackColor = &H80FF80
                    Command7.Caption = "关"  '实际上command7的状态是开启，只是显示可以关闭
                    .....'大循环
                Else
                    Shape5.BackColor = &HFF
                    Command7.Caption = "开"'实际上command7的状态是关闭，只是显示可以开启
                    .....'67、7E
                End If
End Sub