Programación General > Pascal

 Procedure #1. Beep.

(1/2) > >>

_.B._:
Saludos!.
Solo queria compartir algunos de mis codigos, que pienso pueden ser de utilidad para varios.

Beep.


--- Código: Text ---    PROCEDURE Beep (T,D:WORD);      BEGIN        SOUND (T);        DELAY (D);        NOSOUND      END; 
Este es un procedure muy simple, que pueden utilizar por programa, o sumarlo a alguna unidad creada por ustedes.
Simplemente utiliza el Tone y el Delay para emitir un sonido.
Creo que ahorra lineas de codigo.

Enko:
Recomiendo  que cuando utilizes este procedimiento agreges unas lines como estas:
  const
     Do = 54 ;
     Mi  = 82.3 ;
     La = 44 ;

Estas son las frecuencias en Hz de las notas musicales mas graves.
Para obtener una octava mas alta se multiplica las constantes por 2,4,8 etc...

ej
  Mi*2 { mi de la segunda octava}
  La*4{ la de la tercera octava}
   

No tengo todas las constantes de las frecuencias de las notas musicales ahora pero
cuando las consigo las paso en esta discucion. :comp:

Enko:
Aqui las tengo :

Do © = 65.4
Re (D) = 73.4
Mi (E) = 82.4  
Fa (F) = 87.3
Sol (G) = 97.9
La (A) = 55 (no es 44!)
Si (B) = 61.7

Aqui una breve explicacion con teoria musical de las frecuencias de las notas musicales

Las frecuencias escritas en la tablita son las mas graves .
Para obtener una  de una octava mas alta se multiplica la constante pr 2,4,8,16,32 etc..
Asi un La agudo seria 55 * 8 = 440 ( es el la con cual se afina la guitarra)
ejemplo
   
Beep (La,100); { Hace un la durante ( lo que dure el delay 100!)}
Beep(La*8,100) ; { Lo mismo pero mas agudo}
La funcion Beep(T,W:word)  es de .B. asi que el que use estas constantes tendra
que copiar la misma de esta discucion.
Si algiuen no entendio el tema de las notas aviseme a lo mejor no fui muy claro :D   ya que toco guitarra y este tema me resulta facil pero para alguien que no sabe... :whistling:  
En fin cualquier duda NO DUDEN EN AVISARME
Chau :hola:

_.B._:
Saludos!.
Yo utilizo la siguiente tabla para las notas musicales (cada nota y su frecuencia para 5 octavas diferentes):

C (Do)
  131
  262
  523
  1046
  2096

C# / Db
  139
  277
  554
  1108
  2217

D (Re)
  147
  294
  587
  1175
  2349

D# / Eb
  156
  311
  622
  1244
  2489

E (Mi)
  165
  330
  659
  1318
  2637

F (Fa)
  175
  349
  698
  1397
  2794

F# / Gb
  185
  370
  740
  1480
  2960

G (Sol)
  196
  392
  784
  1568
  3136

G# / Ab
  208
  415
  831
  1664
  3322

A (La)
  220
  440
  880
  1760
  3520

A# / Bb
  233
  466
  932
  1866
  3729

B (Si)
  248
  494
  988
  1973
  3951

El La de 440 Hz es el La utilizado para afinar algunos instrumentos.

Bernardo L. :whistling:

TempWin:
Buenas!
Éste es mi primer post en este foro (sí, soy nuevo, aunque espero que dentro de un tiempo eso cambie  :)  )

Muchas gracias a _.B._ y EugenioEnko por la tabla con las frecuencias de las notas musicales :rolleyes: . Está bien saberlas.
Ahora me pondré a hacer experimentos, jeje

Salu2!

Navegación

[0] Índice de Mensajes

[#] Página Siguiente