Pascal/Turbo Pascal - Ayuda con función sound

   
Vista:

Ayuda con función sound

Publicado por soulblazer laura-ps00@hotmail.com (19 intervenciones) el 15/03/2013 19:26:54
Necesito hacer un programa que reproduzca sonidos (las notas musicales)

La frecuencia de ciertas notas musicales es en decimales y la función sólo admite parámetros de tipo word. ¿Qué hago para no perder los decimales? ¿O redondeo las frecuencias?

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda con función sound

Publicado por ramon (2072 intervenciones) el 15/03/2013 21:28:52
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
{A ver si esto te ayuda}
 
 uses
    crt;
 
  var
    ct : Integer;
 
 function potencia(p1, p2 : Real) : Real;
  begin
    potencia := exp(p2 * ln(p1));
  end;
 
 function frecuencia(octava, nota : Integer) : Integer;
 begin
   ct := octava - 3;
  if nota > 0 then
    frecuencia := round(440 * potencia(2, ct + ((nota - 10) / 12)))
  else
    frecuencia := 32767;
 end;
 
 begin
    clrscr;
    writeln('   La Frecuencia Es : ',frecuencia(6,12),' Hz');
    readln;
 end.
 {La octava de 0 a 6 y la nota de 1 a 12}
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar