Make your own free website on Tripod.com

Trabajo FINAL del curso de Algoritmos 2005-1

 

Denominación del trabajo de investigación:

Algoritmos: Discusión, Desarrollo e Inventiva aplicado al campo gráfico y musical

 

Que hemos desarrollado a la FECHA:

1.- Estudio de los ejercicios de la separata con 300 ejercicios  aproximadamente.

2.- Estudio del movimiento de caballo en un tablero de ajedrez

3.- Estudio de la lógica musical  para la conformación de armonías en acordes

4.- Estudio de los SORTS (Ordenamiento)

 

Que nos falta para concluir el CICLO

1.- De la Separata corregir los ejercicios de Arrays que se presentan corregir los que faltan

           

2.- En el campo Musical realizar la siguiente tarea:

 

Investigar el comando PLAY del QBASIC que me permite tocar notas simples

He aquí la literatura del comando

 

Command PLAY

Plays musical notes.

 

PLAY commandstring$

 

    commandstring$    A string expression that contains one or more of the following PLAY

 

commands:

      Octave and tone commands:

        Ooctave    Sets the current octave (0 - 6).

        < or >     Moves up or down one octave.

        A - G      Plays the specified note in the current octave.

A = La,  B= Si, C=Do, D =Re, E=Mi, F=Fa, G=Sol

        Nnote      Plays a specified note (0 - 84) in the seven-octave

                   range (0 is a rest).

 

      Duration and tempo commands:

        Llength    Sets the length of each note (1 - 64). L1 is whole note,

                   L2 is a half note, etc.

                        L1 – Redonda

                        L2 – Blanca

                        L3 – Negra

                        L4 – Corchea

                        L5 – semicorchea….

 

        ML         Sets music legato.

las notas son mas ligadas tan luego termina un sonido inmediatamente empieza otro

        MN        Sets music normal.

Las notas suenan normalmente

        MS        Sets music staccato.

Las Notas duran mas corto de lo normal pero el tiempo de la canción se respeta lo que genera un pequeño silencio entre sonido y sonido

 

        Ppause     Specifies a pause (1 - 64). P1 is a whole-note pause,

                   P2 is a half-note pause, etc.

 

        Ttempo     Sets the tempo in quarter notes per minute (32 - 255).

 

      Mode commands:

        MF          Plays music in foreground.

        MB          Plays music in background.

 

      Suffix commands:

        # or +      Turns preceding note into a sharp.

        -           Turns preceding note into a flat.

        .           Plays the preceding note 3/2 as long as specified.

 

    To execute a PLAY command substring from a PLAY command string,

      use the "X" command:

 

      PLAY "X"+ VARPTR$(commandstring$)

 

Pruebe el siguiente ejemplo en QBASIC

'Toca la escala  en 7 octavas diferentes 

scale$ = "CDEFGAB"

PLAY "L4"

FOR i = 0 TO 6

     PLAY "O" + STR$(i)  ‘STR$() es una función  que convierte un número en texto

     PLAY "X" + VARPTR$(scale$)

NEXT i%

 

Sugerencia del profesor para la solución de ejercicios y su prueba en QBASIC

O sea en vez de usar
Scale$ =”CDEFGAB”   (o sea do re mi fa so la si)
mejor sería 
A$(1) = “C”
A$(2) = “D”
A$(3) = ”E”

A$(1) = “F”
A$(2) = “G”
A$(3) = ”A”

A$(1) = “B”
para luego hacer

 

Scale$ =””  

For x = 1 to 7

   Scale$ = Scale$ + A$(x)

Next

 

Esto me permitirá tener cada nota en un array independiente donde A$(1) contiene la nota “Do” A$(2) contienen la nota “Re” y asi sucesivamente….

 

Ejercicios de Investigación

 

2.1 Dada una secuencia de Notas simples de una canción por ejemplo la cucaracha mostrar cuales serían sus notas en las escalas de:

DO RE MI FA y SOL. Y PROBARLAS EN QBASIC CON AYUDA DEL COMANDO PLAY

2.2 Dada una secuencia de notas simples mostrar contar cuantas veces se repite una nota Y EJECUTARLAS EN EL QBASIC

 

2.3 Dada una secuencia de notas simples extraer a partir de una posición dada las notas que falten para terminar la canción y ejecutar esa porción de canción con el comando PLAY

 

 

Seguramente el alumno se estará preguntando donde se puede aplicar esta tecnología:

Ringtones de Celulares, Alarmas, Secuenciadotes Musicales, Educación Musical, Accesos telefonicos por tonos entre otros…

 

 

LA ENTREGA DE TRABAJOS ES COMO MÁXIMO AL 11 DE JULIO

Los espero el DIA LUNES 11 para fijar su exposición

 

 

Suerte

 

Enrique Barrueto