Código de informe de tiempo de voz en vb

End Sub

Private Sub Timer1_Timer()

vhora = Hora(hora)

vminuto = Minuto(hora)

vsegundo = Segundo(tiempo)

Si vminuto = Minuto(tiempo)

vsegundo = Segundo(tiempo) WindowsMediaPlayer1.URL = App.Path & "/ " & vhour & ".mp3"

WindowsMediaPlayer1.Controls.play

Fin. Reproducir

End If

End Sub

En lugar de usar el control del micrófono, use el control del Reproductor de Windows Media. Todos tienen una computadora (sistema XP, extraiga los componentes). hasta el final)

Coloca un WindowsMediaPlayer1 y un temporizador1 en la ventana

Necesitas preparar dos de los sonidos. Deberías poder entender el código, ¿verdad? Prepare el sonido y el sonido de 0:00 a 11:00 p. m. La ruta de la aplicación solo debe ser la carpeta debajo del programa. Puede guardar el proyecto y luego colocar la música en la carpeta. /p>

Aquí uso la hora en lugar del nombre de la música, por lo que el nombre de la música a las 0:00 debería ser "0.mp3" y a la 1:00 p.m. debería ser "1.mp3". A las 11 de la noche es "23.mp3", y así sucesivamente. Además, mi QQ no ha sido probado. Ya no tengo paciencia para esperar.