Programación General > Pascal

 Sonidos En Pascal

(1/1)

NextorJoc:
:P  Hola, como les va?, mi pregunta es como puedo hacer para producir por Pascal las notas musicales, por ejemplo Do, Re, Mi, etc, Espero que me puedan responder cuanto antes desde ya gracias.  ;)


NEXTOR  B)

Amilius:
Esta es la forma básica, son 84 notas musicales de 0 a 83, 7 octavas + 5 semitonos por cada octava


--- Código: Text --- FUNCTION ELEVAR(BASE,EXPONENTE:REAL):REAL;BEGIN ELEVAR:=EXP(LN(BASE)*EXPONENTE) END; PROCEDURE INICIAR_NOTAMUSICAL(nota:byte);BEGIN IF nota<84 THEN SOUND(ROUND(ELEVAR(2,nota/12)*64{Modificar este valor, la frecuencia más baja, para calibrar la escala})) END;{OJO TIENES QUE LLAMAR A NOSOUND PARA DETENER EL SONIDO}  

Navegación

[0] Índice de Mensajes