Código fuente de sonido VB

Si no le importa si hago que esto suene demasiado simple, úselo. Toca la escala. Cree un Comando1 y haga clic en el botón.

El código es el siguiente.

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Const Do0 = 264

Const Re = 297

Const Mi = 330

Const Fa = 352

Const Sol =396

Const La = 440

Const Ti = 495

Const Do1 = 528

Const T4 = 1000

Función de declaración privada Beep Lib "kernel32" (ByVal dwFreq mientras, ByVal dwDuration mientras) Mientras

Subcomando privado1_Click()

Bip Do0, T4

Bip Re, T4

Bip Mi, T4

Bip Fa, T4

Bip Sol, T4

Bip La, T4

Bip Ti, T4

Bip Do1, T4

Fin del subtítulo