titom59280
XLDnaute Junior
bonjour a tous j'aimerai savoir si c'est possible de faire retentir un son aprés l'execution d'une ligne de code.
voici le code que j'ai :
Function Roulement()
Do While boucle
DoEvents: d = Timer
Do While f - d < 1: f = Timer: DoEvents: Loop
niveau.Text = "1"
If LTemps.Caption = "00:00" Then
LTemps.Caption = temps
If niveau.Text = "" Then
niveau.Text = "1"
ElseIf CLng(niveau.Text) < 20 Then
niveau.Text = CLng(niveau.Text) + 1
End If
ElseIf LTemps.Caption = "00:01" Then
LTemps.Caption = "00:00"
Else
d = CDate("00:" & LTemps.Caption)
LTemps.Caption = Right(DateAdd("s", -1, d), 5)
End If
Loop
End Function
mon but c'est qu'une fois que le temps arrive a zero un son retenti mais je ne sais pas comment faire.
merci pour votre aide
voici le code que j'ai :
Function Roulement()
Do While boucle
DoEvents: d = Timer
Do While f - d < 1: f = Timer: DoEvents: Loop
niveau.Text = "1"
If LTemps.Caption = "00:00" Then
LTemps.Caption = temps
If niveau.Text = "" Then
niveau.Text = "1"
ElseIf CLng(niveau.Text) < 20 Then
niveau.Text = CLng(niveau.Text) + 1
End If
ElseIf LTemps.Caption = "00:01" Then
LTemps.Caption = "00:00"
Else
d = CDate("00:" & LTemps.Caption)
LTemps.Caption = Right(DateAdd("s", -1, d), 5)
End If
Loop
End Function
mon but c'est qu'une fois que le temps arrive a zero un son retenti mais je ne sais pas comment faire.
merci pour votre aide