Desactivar el código fuente del sonido

Nota: Sólo se admite el formato MP3. Otros formatos requieren un reproductor multimedia. Pero la idea es la misma.

Código:

Versión 2

. Se hizo clic en subrutina_button1_.

Si (Botón 1. Título = "Reproducir")

Si es Verdadero (Cuadro de edición 2. Contenido = " ")

Cuadro de información ("Por favor, rellene en la posición de la música ", 0,)

Return()

Si realmente terminó.

. Si es verdadero (es un número entero (cuadro de edición 1. contenido) ≤ 0)

Cuadro de información ("Complete el tiempo de reproducción retrasada", 0,)

Regresar()

Si realmente se acabó.

Reloj 1. Período de reloj = a un número entero (cuadro de edición 1. Contenido) × 1000.

Botón 1. Título = "Detener"

En caso contrario.

Reloj 1. período de reloj = 0.

Detener reproducción()

Botón 1. Título = "Reproducir"

Si finaliza

Subrutina_Reloj 1_Evento periódico

. if (checkbox1.checked)

Reproducir MP3 (-1, editbox2.content)

si no.

Reproducir MP3 (, cuadro de edición 2. Contenido)