按条件循环播放指定声音和代码优化

风的承诺　发表于：2017-12-22 09:41:15 　

各位大神和坛友们，帮忙指导一下使用DO....LOOP当条件为：错误ERROR循环执行播放声音，另优化一下代码

If Me.主料号 = Me.原料盘 Or Me.副料号 = Me.原料盘 Then

Me.Label22.Caption = "正确Right"
Me.Label22.BackColor = vbBlue
Me.判定结果 = "正确Right"

Call PlaySound(CurrentProject.Path & "\OK.WAV")
'8个副料号的识别
ElseIf Me.原料盘 = Me.副料1 Or Me.原料盘 = Me.副料2 Or Me.原料盘 = Me.副料3 Or Me.原料盘 = Me.副料4 Or Me.原料盘 = Me.副料5 Or Me.原料盘 = Me.副料6 Or Me.原料盘 = Me.副料7 Or Me.原料盘 = Me.副料8 Then
Me.Label22.Caption = "正确Right"
Me.Label22.BackColor = vbBlue
Me.判定结果 = "正确Right"
Call PlaySound(CurrentProject.Path & "\OK.WAV")
Else
Me.Label22.Caption = "错误Error"
Me.Label22.BackColor = vbRed
Me.原料盘 = ""
Me.空料盘.SetFocus
Me.原料盘.SetFocus

Call PlaySound(CurrentProject.Path & "\ng.WAV")

End If

各位大神和坛友们，帮忙指导一下使用DO....LOOP当条件为：错误ERROR循环执行播放声音，另优化一下代码

Top

风的承诺发表于：2017-12-22 13:01:31

有没有那位大神和坛友帮帮忙？？？？？

Top

风的承诺发表于：2017-12-23 09:04:01

求哪位老师帮忙解决！

Top

风的承诺发表于：2017-12-25 11:25:26

求哪位老师帮忙解决！

Top

红尘如烟发表于：2017-12-27 16:29:07

封装成函数来调用，把循环放到函数里面去进行。

	If Me.主料号 = Me.原料盘 Or Me.副料号 = Me.原料盘 Then
        Me.Label22.Caption = "正确Right"
        Me.Label22.BackColor = vbBlue
        Me.判定结果 = "正确Right"        

        PlaySoundEx "OK"    

	ElseIf Me.原料盘 = Me.副料1 Or Me.原料盘 = Me.副料2 _
	  Or Me.原料盘 = Me.副料3 Or Me.原料盘 = Me.副料4 _
	  Or Me.原料盘 = Me.副料5 Or Me.原料盘 = Me.副料6 _
	  Or Me.原料盘 = Me.副料7 Or Me.原料盘 = Me.副料8 Then
        Me.Label22.Caption = "正确Right"
        Me.Label22.BackColor = vbBlue
        Me.判定结果 = "正确Right"

        PlaySoundEx "OK"

    Else
        Me.Label22.Caption = "错误Error"
        Me.Label22.BackColor = vbRed
        Me.原料盘 = ""
        Me.空料盘.SetFocus
        Me.原料盘.SetFocus
		
	PlaySoundEx "ng", 3
    End If

重复播放指定声音 N 次
Function PlaySoundEx( _
		Optional SoundName As String = "OK", _
		Optional RepeatCount As Long = 1
)
    Dim lngI As Long
	For lngI = 1 To RepeatCount
		PlaySound CurrentProject.Path & "\" & SoundName & ".WAV"
	Next
End Function

Top

风的承诺发表于：2017-12-28 15:43:44

感谢红尘如烟　大神！

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

按条件循环播放指定声音和代码优化