0

ねえ、私は次のコードを持っています:

Dim totalDistance as Boolean = False

    If totalDistance <= 210 Then
        'red
        If isPlaying = False Then
            isPlaying = True
            WMP.URL = Application.StartupPath + "\red.mp3"
            WMP.controls.stop()
            WMP.controls.play()
            WMP.settings.setMode("loop", True)
        End If

        backupLineRED.Visible = True
        backupLineYELLOW.Visible = False
        backupLineGREEN.Visible = False
    ElseIf totalDistance > 210 And totalDistance <= 670 Then
        'yellow
        WMP.URL = Application.StartupPath + "\yellow.mp3"
        WMP.controls.play()
        backupLineRED.Visible = True
        backupLineYELLOW.Visible = True
        backupLineGREEN.Visible = False
    ElseIf totalDistance > 671 And totalDistance <= 1000 Then
        'green
        WMP.URL = Application.StartupPath + "\green.mp3"
        WMP.controls.play()
        backupLineRED.Visible = True
        backupLineYELLOW.Visible = True
        backupLineGREEN.Visible = True
    End If

次の IF ステートメントに到達するまでサウンドをループさせたいと考えています。ただし、 isPlayingは常にtrue のままであり、別の IF ステートメントに入ったときに false に戻す方法を見つける必要があるため、それを正しくチェックする方法は考えられません。

どんな助けでも素晴らしいでしょう！ありがとう！

4

1 に答える 1

0

ガッチャ...多分これはあなたが必要とすることをするでしょう:

    If totalDistance <= 210 Then
        'red
        If WMP.URL <> Application.StartupPath + "\red.mp3" Then
            WMP.URL = Application.StartupPath + "\red.mp3"
            WMP.controls.stop()
            WMP.controls.play()
            WMP.settings.setMode("loop", True)
        End If

        backupLineRED.Visible = True
        backupLineYELLOW.Visible = False
        backupLineGREEN.Visible = False
    ElseIf totalDistance > 210 And totalDistance <= 670 Then
        'yellow
        If WMP.URL <> Application.StartupPath + "\yellow.mp3" Then
            WMP.URL = Application.StartupPath + "\yellow.mp3"
            WMP.controls.stop()
            WMP.controls.play()
            WMP.settings.setMode("loop", True)
        End If

        backupLineRED.Visible = True
        backupLineYELLOW.Visible = True
        backupLineGREEN.Visible = False
    ElseIf totalDistance > 671 And totalDistance <= 1000 Then
        'green
        If WMP.URL <> Application.StartupPath + "\green.mp3" Then
            WMP.URL = Application.StartupPath + "\green.mp3"
            WMP.controls.stop()
            WMP.controls.play()
            WMP.settings.setMode("loop", True)
        End If

        backupLineRED.Visible = True
        backupLineYELLOW.Visible = True
        backupLineGREEN.Visible = True
    End If
于 2013-11-08T17:28:16.847 に答える