针对这段程序有2个问题

[qiangshou2301]

Private Sub Timer5_Timer()
    Timer5.Enabled = False
    Dim currentdate As Date
    Dim currentdate1 As Date
    Dim EnStatus As Integer
    Dim EnAlarm As Integer
    currentdate = Now
    currentdate1 = currentdate
    
    Do
        Do
            If Not isStarted Then
                Exit Do
                DoEvents
            Else

                Call DataSend(&HE6, MSComm1)
                DoEvents
                Call Sleep(tE6 * 1000)

                Call DataSend(&HFE, MSComm1)
                DoEvents
                Call Sleep(tFE * 1000)
            End If
            DoEvents
        Loop While Not DateDiff("s", currentdate, Now) > lLoopTime * 60
        
        If Not isStarted Then
            Exit Do
        Else

        Call DataSend(&HD6, MSComm1)
        Call Sleep(tD6 * 1000)

        Call DataSend(&H76, MSComm1)
        Call Sleep(t76 * 1000)

        Call DataSend(&HB6, MSComm1)
        Call Sleep(tB6 * 1000)

        Call DataSend(&H76, MSComm1)
        Call Sleep(t76 * 1000)     
        currentdate = Now
        End If
        DoEvents
    Loop While Not DateDiff("s", currentdate1, Now) > (mLoopTime - 0.5) * 60
    isStarted = False
    Call EndSend
    DoEvents
End Sub

Private Sub Command3_Click()
    If Shape3.BackColor = &HFF Then
                  Shape3.BackColor = &H80FF80
                  Command3.Caption = "结束"         '这个只是界面上显示“结束”字样，想结束，点击它。
                  MSComm1.Settings = "9600,N,8,1"   ' 9600 波特，无奇偶校验，8 位数据，一个筛选结束位。
                  MSComm1.InputLen = 0              ' 当输入占用时，告诉控件读入整个缓冲区。
                  If MSComm1.PortOpen = False Then
                       MSComm1.PortOpen = True
                  End If
                 isStarted = True
                 isEnd = False
                 Timer5.Enabled = True
     Else
                 isStarted = False                   '点击“结束”执行此操作。
     End If
     DoEvents
End Sub

2个问题：
1、点击command3的“结束”，在timer5的任意空行处跳出循环，即执行isStarted = False ；
2、做一个时间条来显示mLoopTime，随着mLoopTime时间的减小，这个时间条逐渐变短，就跟游戏里显示还剩多少血一样，这个表示还剩多少时间。

[贝隆]

关注。。。。

[饭fan有引力]

学习学习···

[lb_bn]

帮顶。。。。。

[饭fan有引力]

[Quote=引用 2 楼 iamduoluo 的回复:]
学习学习···
[/Quote]
在此学习

[qiangshou2301]

请高手指点

[波导终结者]

1.任意空行不可能，加一个变量记录是否按下command3，然后在循环的时候判断这个变量
2.用现成的进度条控件呗，要么搞俩Label互遮，宽度根据数值变不就成了

[qiangshou2301]

还是不懂啊

[qiangshou2301]

怎么将进度条控件与mLoopTime联系起来呢

[qiangshou2301]

自己顶