clases de ciencias
  CANTO NUEVO
 

PROYECTO CANTO NUEVO

Dedico la presente investigación progresiva a los valientes “Guerreros por la Vida” de SOLCA, sociedad para la lucha contra el cáncer.

Hace mas o menos 15 años, exactamente no recuerdo las fechas pero sí conservo en mi memoria los hechos, sufría yo una enfermedad inusual que me impedía hablar, uno de los especialistas que me atendieron vio en las radiografias una bola blanca atrás de mi nariz, preocupado por el hecho, visité un oncólogo destacado de Guayaquil, quien me dio las siguientes esperanzas: “Si sangra por las narices en los próximos días, es cáncer”.

Fui a SOLCA a examinarme con un equipo especial de resonancia magnética para decidir el diagnostico solamente luego de haberme postrado llorando amargamente delante de Jesús, El Todopoderoso y sentí la urgencia de pactar con el Rey de Reyes. Son justamente los términos acordados ese día, lo que me motiva a escribir por fin los resultados de esta investigación cuyo proceso continúa hasta hoy.

Todo comenzó cuando yo tenía quince años. Estudiaba violín en el conservatorio Antonio Neumane de Guayaquil, había tenido como profesor al Señor Luis Paredes y por esos días me instruía en el violín con el Señor Jorge Molina.

Recuerdo que fue un tiempo de gran aprendizaje para mi. Tuve buenos compañeros con quienes pasé momentos sumamente agradables en el terrado del edificio, donde nos reuníamos para practicar y compartir información, mi admiración por la música alemana se complementaba con el gusto por la música rusa de mi recordado amigo Iván Fabre Fabre.

Iván digitaba el violín con maravillosa rapidez.

Un día, practicando el instrumento, tuve una revelación especial: las combinaciones apropiadas de las notas de cualquiera una de las cuerdas de mi violín me hacían pensar que, extrapolando el proceso a todas las notas definidas y a todas las formas rítmicas, podría obtener una a una, la totalidad de las melodías de la música posible o imposible de escuchar.

Agradecimiento:

Agradezco a Kim Junker, ex compañero del Colegio Alemán de Guayaquil y amigo lejano, muy lejano.

En ese año de 1987, Kim recibió como regalo, una computadora, él quería mostrarmela y yo lo visité con agrado, despues de ver las numerables capacidades del computador, yo le pedí un trabajo para mí: Una lista de números del 11111 al 99999. Diligentemente, Kim usando el computador, imprimió la lista de números en papel continuo y me los llevé a casa.

Ya en casa, confirmé los postulados de la idea que había venido a mí.

Ese año fue un bello año.

Muchos años posteriores, no fueron tan gloriosos para mí.

Lo que mas esperaba cuando escuchaba conciertos grabados de violín eran las cadencias, cuando yo quería imitarlas en mi violín sentía una necesidad de cantar en mi mente lo maravilloso que es el Dios que creó todo lo que hay, aunque en aquel tiempo, reconozco, no lo conocía para nada.

DANIEL GOLEMAN Y LA NEUROLOGÍA.

Hace años, leí el libro “La inteligencia emocional” de Daniel Goleman. El año pasado, 2009, en el supermercado ví otro libro de Daniel Goleman, abrí una página al azar y leí sobre un experimento real con un canario al que se le había trepanado el cráneo para retirarle una porción del cerebro. Luego se le enseñó sistemáticamente diferentes canciones de manera tal, que el canario pudiera aprenderlas. Tiempo después, decía el relato, las funciones cerebrales del canario se habían restablecido.

El autor destacaba el poder del cerebro para restablecer las conexiones neuronales dañadas en otros lugares del hemisferio cerebral remanente.

La música había sido un canal para lograr este milagro.

 

 

LOS ARMONICOS:

http://es.wikipedia.org/wiki/Armónico

http://es.wikipedia.org/wiki/Acústica_musical#Arm.C3.B3nicos.2C_parciales_y_sobretonos

 

Parece ser que las notas musicales de las escalas audibles por el ser humano están formadas por combinaciones de otras notas muy básicas, llamadas “Armónicos”.

Aquí puede tomarse la analogía de la semilla que, aunque desaparecida, da lugar a una pequeña raicilla que permitirá ver sobre el suelo un anuncio de una planta bellamente colorida.

Así, las notas armónicas desaparecen al combinarse para formar sonidos más complejos como los del violín.

Revise atentamente los resultados de la teoría matemática de las series de Fourier para comprender mejor esta idea.

Los Armónicos están a lo largo y ancho de todas las cuerdas del violín.

 

Solo basta tocar una cuerda cualquiera en un punto bien fijo sin apretar, suavemente, casi rozando, como si tocases sin tocarla y como resultado escucharás el espléndido sonido puro de un armónico solo.

Hay un lugar muy especial donde se reunen los armónicos en el violín: Antes de llegar, sobre una de las cuerdas al abismo formado entre el diapasón y el puente que sostiene en su órden a las cuatro cuerdas del violín.

Si miras al violín de cabeza, es la región mas alta en donde aun es posible tocar sonidos fijos.

Mas allá de ese lugar, es decir, por encima del abismo que termina el el puente del violín los sonidos que obtendrás tocando de esta manera, son obscurecidos por un molesto ruido semejante al de una ventisca helada.

Los armónicos puros y definidos, es decir, sin vibrato, son maravillosos.

Cuando cierta melodía que me gustaba se me ha olvidado por completo, voy a esa región del violín y trato de tocar dos o tres notas según lo que me acuerde y no entiendo cómo, no sé porqué ni para qué, pero empiezan a sonar casi involuntariamente, todos los elementos de la pieza que buscaba.

Con certeza, el profesor Daniel Goleman bien pudiera servirse de esta información.

 

 

http://es.wikipedia.org/wiki/Acústica_musical#Arm.C3.B3nicos.2C_parciales_y_sobretonos

 

 

 

 

 

http://es.wikipedia.org/wiki/Violin

 

 

 

 

Quiero contar una circunstancia interesante que ocurrió en algún momento del período de tres años y medio mas o menos que tuve esos extraños síntomas:

Como era notable la extraña distorsión en mi voz, los hermanos asociaron el hecho a mi vicio por fumar cigarrillos: Desde el día que me gradué del Colegio Alemán de Guayaquil hasta el día en que, asistiendo ya a la Iglesia Bautista de Los Ceibos en el Norte de Guayaquil, empecé a conocer la palabra de Dios mi consumo de cigarrillos pasó de un marlborough white a la semana hasta una agrupación de cigarrillos marlbourough con belmonto rubios que en conjunto me salían más baratos que fumar de un solo tipo, creanme que me averguenza informarles que la porción de mis finanzas que destinaba a fumar superaba grandemente el 10% de mis sinceramente escuálidos ingresos como profesor privado. Esa fue la actividad con la que apenas conseguía pagar mis estudios en la Escuela Superior Politécnica del Litoral.

Trabajar y Estudiar atado al cigarrillo era para mí, un dilema de tres caminos que me atormentaba hora tras hora.

Justo antes de los síntomas extraños, mi consumo de cigarrillos sumaban entre 25 y 30 diarios.

Como decía, los hermanos de la congregación a la que entonces asistía estaban preocupados.

Pedía oración y yo mismo oraba como un desesperado sin conseguir resultados, visité, en ese periodo de tres años y medio a seis especialistas: dos otorrinolaringólogos, una psicóloga, un psiquiatra, una fonoaudiologa y el oncólogo mencionado.

El Pastor Alberto Haro, de la congregación, estaba preocupado pero su fe en la palabra de Dios fue sin vacilaciones: Federico leerá la palabra todos los Domingos próximos delante de Toda la congregación en el culto principal.

Yo estuve perfectamente de Acuerdo y me trajo nuevas esperanzas. Pero poco tiempo pasó antes de un grupo de personas argumentaran que esto era una humillación innecesaria para mi lamentable humanidad, lo decían con buenas intenciones porque a decir verdad, mi voz se escuchaba como la de un borrego a medio morir.

 

Otro grupo también argumentó que esto era una afrenta a la dignidad de la gloriosa palabra de Dios y que mejor era poner a otro a leerla.

 

Finalmente, cuando abortaron todos los consejos, y como el necio mas desesperado que fuere posible imaginar, me acerqué a pactar con el Rey de Reyes.

 

El Pastor Alberto Haro tuvo la sabia discreción de no conversarme estos dilemas sino hasta mucho tiempo despues de ocurrido el milagro de la recuperación de mi voz.

No conozco tampoco los nombres de los miembros de aquellos dos grupos.

Lo cierto es que mi voz nunca mas fue igual.

A veces, en la calle me topo con señoras y señoritas que luego de que me oyen hablar me dicen: ¿No es Usted el Locutor de la radio tal y cual?

Un apreciado Pastor de una congregación Mennonita en la ciudadela atarazana me dijo antes de conocer de este asunto: “Federico, tú tienes un ministerio oculto”.

¿Cuál, que no lo sé?

El ministerio en la radio. Le conversé este asunto y nos reímos un rato juntos.

 

Isaac es el nombre del hijo preferido de Abraham que fue anunciado en persona por Jehová sentados Abraham y Jehová a la mesa, comiendo juntos cosas sabrosas y atendidos por la anciana Sara.

Digo “preferido” porque es razonable que un anciano prefiera al hijo tenido en su vejez.

 

Isaac significa literalmente “Dios me ha hecho reir y quien quiera que lo oyere, se reirá conmigo”.

 

Esta manifestación gloriosa de haber recuperado la capacidad de hablar, ocurrió mas o menos cinco días después de haber acordado mis votos delante de la presencia de Dios en aquel templo bautista.

 

NESSUN DORMA

Quisiera agradecer públicamente la consejería espiritual del ahora Pastor Carlo Dormi quien era entonces consejero de Jóvenes. No me dejó hasta que Dios hizo esta operación extraña extirpando definitivamente el brutal enemigo que me atormentaba dia tras dia.

Liliana Mazón, una mujer que pertenecía a la congregación de jóvenes y durante una noche de oración del grupo en el templo pidió como mirando al invisible, de rodillas ante La Presencia (y al lado de ella estaba yo, desesperado) que el vicio del cigarrillo sea quitado de mí.

Desde la mañana siguiente, hasta el día de hoy, ese enemigo no se levantó más.

¿Cómo huirían 1000 y saldrían despavoridos 10000 si Jehová no los hubiera entregado?

Así, tengo la certeza que huyeron de los bolsillos de los fabricantes de cigarrillos, unos $1000 o $10000 dólares de las cuentas y expectativas a futuro de las fábricas de esta tubular diversión en los próximos 50 años.

Nessun Dorma es un célebre canto romántico italiano de la obra Turandot de Giacomo Puccini.

 

http://it.wikipedia.org/wiki/Nessun_Dorma

 

 

 

 

 

LA CUERDA MI DEL VIOLIN:

Se la llama Cantino y puede ser de acero o de Oro.

Propongo que el violín es un instrumento que entona música para los reyes, como prueba de ello, “La resina con la que se prepara el arco para entonar música en el instrumento se la llama Pez de Castilla.”

Es interesante que un violín 4/4 para adultos mide de largo 14 pulgadas.

Las tablas del 7: 7 + 7 = 14

 

 

 

 

 

Cuando tenía 15 años, me acostaba en una hamaca a escuchar a Beethoven, Bach, Brahms o Schumann, especialmente sus sinfonías para orquesta o sus conciertos de violín.

Mi mente asociaba esa música con los conflictos ocultos, entre los reyes de Europa. Me parecía ver como en ensoñaciones, las representaciones de esos conflictos y batallas. En esos momentos, sentía correr de mi interior, ríos como de electricidad, semejantes al fluir lento de la sangre hacia las manos, pero yo no estaba atando mis venas, era electricidad en verdad.

 

Esta observación la he guardado celosamente y la comunico a los médicos que quisieran ayudar a los niños enfermos.

Una enfermedad terminal ¿No es semejante a una batalla o a un conflicto en el organismo?


 

 En este espacio quisiera apuntar el código que funcionó primero del sistema Canto Nuevo. Vi que era bueno en gran manera. Especialmente para sanarme de algunos golpes que da la vida y los procesos de muerte:
Todo esto lo he guardado desde mi juventud pero ahora quisiera añadir que es mejor usarlo máximo una semana. Antes de empezar a cantar como se debe: De corazón. 


Proyecto1 CANTO NUEVO V 0.0.1

_______________________________________

 

Type=Exe

Reference=*G{00020430-0000-0000-C000-000000000046}#2.0#0#..WINDOWSsystem32stdole2.tlb#OLE Automation

Reference=*G{00025E04-0000-0000-C000-000000000046}#3.5#0#..Archivos de programaArchivos comunesMicrosoft SharedDAODAO2535.TLB#Microsoft DAO 2.5/3.51 Compatibility Library

Form=Form1.frm

Form=Form3.frm

Form=Form4.frm

Form=Form5.frm

Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; comdlg32.ocx

Form=Form6.frm

IconForm="Form1"

Startup="Form3"

HelpFile=""

ExeName32="ASISTENTE PARA APRENDER A LEER PARTITURAS.exe"

Command32=""

Name="Proyecto1"

HelpContextID="0"

CompatibleMode="0"

MajorVer=1

MinorVer=0

RevisionVer=0

AutoIncrementVer=0

ServerSupportFiles=0

VersionCompanyName="drive[thru"

CompilationType=0

OptimizationType=0

FavorPentiumPro(tm)=0

CodeViewDebugInfo=0

NoAliasing=0

BoundsCheck=0

OverflowCheck=0

FlPointCheck=0

FDIVCheck=0

UnroundedFP=0

StartMode=0

Unattended=0

Retained=0

ThreadPerObject=0

MaxNumberOfThreads=1

 

[MS Transaction Server]

AutoRefresh=1

 

----------------------------------------------------------

 

VERSION 5.00

Begin VB.Form Form1 

   AutoRedraw      =   -1  'True

   BackColor       =   &H00400000&

   Caption         =   "CANTO  NUEVO"

   ClientHeight    =   6810

   ClientLeft      =   60

   ClientTop       =   345

   ClientWidth     =   6540

   BeginProperty Font 

      Name            =   "MS Sans Serif"

      Size            =   8.25

      Charset         =   0

      Weight          =   700

      Underline       =   0   'False

      Italic          =   0   'False

      Strikethrough   =   0   'False

   EndProperty

   FontTransparent =   0   'False

   LinkTopic       =   "Form1"

   ScaleHeight     =   6810

   ScaleWidth      =   6540

   StartUpPosition =   3  'Windows Default

   WindowState     =   2  'Maximized

   Begin VB.Timer T1 

      Interval        =   250

      Left            =   600

      Top             =   3240

   End

   Begin VB.CommandButton Command5 

      BackColor       =   &H00FFFFC0&

      Caption         =   "REPETIR"

      Height          =   855

      Left            =   6480

      Style           =   1  'Graphical

      TabIndex        =   6

      Top             =   4200

      Width           =   2895

   End

   Begin VB.CommandButton Command1 

      BackColor       =   &H00C0FFFF&

      Caption         =   "VARIACIONES"

      Height          =   975

      Left            =   6480

      Style           =   1  'Graphical

      TabIndex        =   5

      Top             =   5160

      Width           =   2895

   End

   Begin VB.PictureBox PAR 

      AutoRedraw      =   -1  'True

      BackColor       =   &H00FFFFFF&

      FillStyle       =   0  'Solid

      Height          =   1575

      Left            =   2160

      ScaleHeight     =   26.723

      ScaleMode       =   6  'Millimeter

      ScaleWidth      =   128.323

      TabIndex        =   0

      Top             =   1440

      Width           =   7335

   End

   Begin VB.PictureBox NOTA 

      AutoRedraw      =   -1  'True

      BackColor       =   &H00FFFFFF&

      FillStyle       =   0  'Solid

      Height          =   495

      Left            =   2160

      ScaleHeight     =   7.673

      ScaleMode       =   6  'Millimeter

      ScaleWidth      =   128.323

      TabIndex        =   1

      Top             =   3120

      Width           =   7335

   End

   Begin VB.CommandButton Command4 

      BackColor       =   &H00FFC0C0&

      Caption         =   "SALIR"

      Height          =   495

      Left            =   3480

      Style           =   1  'Graphical

      TabIndex        =   4

      Top             =   6840

      Width           =   2295

   End

   Begin VB.CommandButton Command3 

      BackColor       =   &H00C0FFC0&

      Caption         =   "LIMPIAR"

      Height          =   495

      Left            =   3480

      Style           =   1  'Graphical

      TabIndex        =   3

      Top             =   6240

      Width           =   2295

   End

   Begin VB.CommandButton Command2 

      BackColor       =   &H00C0FFC0&

      Caption         =   "GENERAR"

      BeginProperty Font 

         Name            =   "MS Sans Serif"

         Size            =   12

         Charset         =   0

         Weight          =   700

         Underline       =   0   'False

         Italic          =   0   'False

         Strikethrough   =   0   'False

      EndProperty

      Height          =   1455

      Left            =   2280

      Style           =   1  'Graphical

      TabIndex        =   2

      Top             =   4440

      Width           =   3975

   End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Explicit

 Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

 Const SND_ASYNC = &H1         '  reproducción asíncrona

 Const SND_NODEFAULT = &H2     '  silencio no predeterminado, si no se encuentra sonido

 

Private ret As Integer

 

 

Dim X1, X2, Y1, Y2, u, I, J, A, K, ERR, DN(12) As Integer

Dim SN(8, 3) As String

Dim TI As Variant

Dim AA As Double

Dim N(12), UB(12), NI(12), Z(3), D(12) As Integer

Dim NOTAS(7) As String

Dim F As Date

 

Private Sub Command1_Click() 'TOCA VARIACIONES MUSICALES

 

 

 

 

Randomize

 

For J = 1 To 12

D(J) = Int(Rnd() * 3 + 1)

Next J

 

 

TI = 0

Call T1_Timer

 

 

 

 

End Sub

 

 

 

Private Sub Command2_Click() 'GENERAR MUSICA

 

For I = 1 To 12

N(I) = 0

D(I) = 0

Next I

 

 

Randomize

 

For I = 1 To 12

N(I) = Int(Rnd() * 7)

Next I

 

For J = 1 To 12

D(J) = Int(Rnd() * 3 + 1)

Next J

 

 

TI = 0

 

 

PAR.Visible = True

PAR.Cls

NOTA.Cls

 

PAR.FillColor = &H0&

 

 

 

Command2.Enabled = False

Command3.Enabled = True

Command4.Enabled = True

 

 

X1 = 0

'REINICIALIZA LOS ARRAY

For I = 1 To 12

    NI(I) = 0

    UB(I) = 0

Next I

 

 

 

'DIBUJA EL PENTAGRAMA

X1 = 0

Y1 = 10

X2 = 130

Y2 = 10

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

'PINTA EL SIMBOLO DE LA CLAVE DE SOL

X1 = 3

AA = 3.1416

 

PAR.FontBold = True

PAR.DrawWidth = 2

PAR.Circle (X1, 17), 1, RGB(0, 0, 0), 1.5 * AA, 0.5 * AA

PAR.Circle (X1, 16), 2, RGB(0, 0, 0), 0.5 * AA, 1.5 * AA

PAR.Circle (X1, 12), 2, RGB(0, 0, 0), 1.5 * AA, 0.5 * AA, 2

PAR.Line (X1, 10)-(X1, 20)

PAR.Line (X1, 20)-(X1 - 1, 20)

PAR.PSet (X1 + 3, 15), RGB(0, 0, 0)

PAR.PSet (X1 + 3, 17), RGB(0, 0, 0)

PAR.FontBold = False

PAR.DrawWidth = 1

 

X1 = 0

 

 

'NOTAS

Randomize

 

For I = 1 To 12

        u = Int(Rnd() * 8 + 13)

        PAR.FillStyle = 0

        PAR.FillColor = &H0&

        Select Case u

              

                 

        Case 20

         'do

                PAR.CurrentX = X1 + 10

                PAR.CurrentY = 22

                N(I) = 1

                UB(I) = PAR.CurrentX

        X1 = X1 + 10

        Y1 = 20

        PAR.Circle (X1, Y1), 1, RGB(0, 0, 0)

        PAR.Line (X1 + 1, Y1)-(X1 + 1, Y1 -

        PAR.Line (X1 - 2, Y1)-(X1 + 2, Y1)

        

        Case 19

        're

                PAR.CurrentX = X1 + 10

                PAR.CurrentY = 22

                N(I) = 2

                UB(I) = PAR.CurrentX

        X1 = X1 + 10

        Y1 = 19

        PAR.Circle (X1, Y1), 1, RGB(0, 0, 0)

        PAR.Line (X1 + 1, Y1)-(X1 + 1, Y1 -

 

        Case 18

        'MI

                PAR.CurrentX = X1 + 10

                PAR.CurrentY = 22

                N(I) = 3

                UB(I) = PAR.CurrentX

        X1 = X1 + 10

        Y1 = 18

        PAR.Circle (X1, Y1), 1, RGB(0, 0, 0)

        PAR.Line (X1 + 1, Y1)-(X1 + 1, Y1 -

        

        Case 17

        'fa

                PAR.CurrentX = X1 + 10

                PAR.CurrentY = 22

                  N(I) = 4

                  UB(I) = PAR.CurrentX

        X1 = X1 + 10

        Y1 = 17

        PAR.Circle (X1, Y1), 1, RGB(0, 0, 0)

        PAR.Line (X1 + 1, Y1)-(X1 + 1, Y1 -

        

        Case 16

        'sol

                PAR.CurrentX = X1 + 10

                PAR.CurrentY = 22

                  N(I) = 5

                  UB(I) = PAR.CurrentX

 

        X1 = X1 + 10

        Y1 = 16

        PAR.Circle (X1, Y1), 1, RGB(0, 0, 0)

        PAR.Line (X1 + 1, Y1)-(X1 + 1, Y1 -

        

        Case 15

        'la

                PAR.CurrentX = X1 + 10

                PAR.CurrentY = 22

                  N(I) = 6

                  UB(I) = PAR.CurrentX

        X1 = X1 + 10

        Y1 = 15

        PAR.Circle (X1, Y1), 1, RGB(0, 0, 0)

        PAR.Line (X1 + 1, Y1)-(X1 + 1, Y1 -

        

        Case 14

        'si

                PAR.CurrentX = X1 + 10

                PAR.CurrentY = 22

                  N(I) = 7

                  UB(I) = PAR.CurrentX

 

        X1 = X1 + 10

        Y1 = 14

        PAR.Circle (X1, Y1), 1, RGB(0, 0, 0)

        PAR.Line (X1 - 1, Y1)-(X1 - 1, Y1 +

        

        Case 13

        'do

                PAR.CurrentX = X1 + 10

                PAR.CurrentY = 22

                  N(I) = 8

                  UB(I) = PAR.CurrentX

        X1 = X1 + 10

        Y1 = 13

        PAR.Circle (X1, Y1), 1, RGB(0, 0, 0)

        PAR.Line (X1 - 1, Y1)-(X1 - 1, Y1 +

        

       

        Case Else

        MsgBox "PROBLEMAS EN EL SISTEMA", vbCritical

        Exit Sub

        

        

        End Select

         

Next I

 

 

 

 

End Sub

 

Private Sub Command3_Click() 'limpiar

K = 0

A = 0

'BORRA LO ALMACENADO EN LOS ARRAYS UBICADOR Y NOTAS

For I = 1 To 12

    N(I) = 0

    NI(I) = 0

    UB(I) = 0

Next I

 

 

 

PAR.FillColor = &H0&

PAR.ForeColor = RGB(0, 0, 0)

 

 

Command2.Enabled = True

Command3.Enabled = False

Command4.Enabled = True

 

PAR.Cls

 

X1 = 0

Y1 = 10

X2 = 130

Y2 = 10

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

'SEGUNDA LINEA

 

X1 = 0

Y1 = 10 + 20

X2 = 130

Y2 = 10 + 20

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

'TERCERA PENTA

 

X1 = 0

Y1 = 10 + 40

X2 = 130

Y2 = 10 + 40

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

 

'CUARTO PENTA

X1 = 0

Y1 = 10 + 60

X2 = 130

Y2 = 10 + 60

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

'QUINTO PENTA

X1 = 0

Y1 = 10 + 80

X2 = 130

Y2 = 10 + 80

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

NOTA.Cls

 

 

 

End Sub

 

Private Sub Command4_Click()

Form3.Show

Form1.Hide

End Sub

 

 

Private Sub Command5_Click()

TI = 0

Call T1_Timer

 

End Sub

 

Private Sub Form_Load()

TI = 0

 

Z(1) = 1000

Z(2) = 500

Z(3) = 250

 

 

 

SN(1, 1) = "C:CANTO NUEVONOTASDO 1.wav"

SN(1, 2) = "C:CANTO NUEVONOTASDO 1-2.wav"

SN(1, 3) = "C:CANTO NUEVONOTASDO 1-4.wav"

 

SN(2, 1) = "C:CANTO NUEVONOTASRE 1.wav"

SN(2, 2) = "C:CANTO NUEVONOTASRE 1-2.wav"

SN(2, 3) = "C:CANTO NUEVONOTASRE 1-4.wav"

 

SN(3, 1) = "C:CANTO NUEVONOTASMI 1.wav"

SN(3, 2) = "C:CANTO NUEVONOTASMI 1-2.wav"

SN(3, 3) = "C:CANTO NUEVONOTASMI 1-4.wav"

 

SN(4, 1) = "C:CANTO NUEVONOTASFA 1.wav"

SN(4, 2) = "C:CANTO NUEVONOTASFA 1-2.wav"

SN(4, 3) = "C:CANTO NUEVONOTASFA 1-4.wav"

 

SN(5, 1) = "C:CANTO NUEVONOTASSOL 1.wav"

SN(5, 2) = "C:CANTO NUEVONOTASSOL 1-2.wav"

SN(5, 3) = "C:CANTO NUEVONOTASSOL 1-4.wav"

 

SN(6, 1) = "C:CANTO NUEVONOTASLA 1.wav"

SN(6, 2) = "C:CANTO NUEVONOTASLA 1-2.wav"

SN(6, 3) = "C:CANTO NUEVONOTASLA 1-4.wav"

 

SN(7, 1) = "C:CANTO NUEVONOTASSI 1.wav"

SN(7, 2) = "C:CANTO NUEVONOTASSI 1-2.wav"

SN(7, 3) = "C:CANTO NUEVONOTASSI 1-4.wav"

 

SN(8, 1) = "C:CANTO NUEVONOTASDOa 1.wav"

SN(8, 2) = "C:CANTO NUEVONOTASDOa 1-2.wav"

SN(8, 3) = "C:CANTO NUEVONOTASDOa 1-4.wav"

 

 

 

'CARGA EL PENTAGRAMA

 

 

 

Command2.Enabled = True

Command3.Enabled = False

Command4.Enabled = True

 

 

 

 

 

 

NOTAS(1) = "DO"

NOTAS(2) = "RE"

NOTAS(3) = "MI"

NOTAS(4) = "FA"

NOTAS(5) = "SOL"

NOTAS(6) = "LA"

NOTAS(7) = "SI"

 

 

 

X1 = 0

Y1 = 10

X2 = 130

Y2 = 10

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

'SEGUNDA LINEA

 

X1 = 0

Y1 = 10 + 20

X2 = 130

Y2 = 10 + 20

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

'TERCERA PENTA

 

X1 = 0

Y1 = 10 + 40

X2 = 130

Y2 = 10 + 40

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

 

'CUARTO PENTA

X1 = 0

Y1 = 10 + 60

X2 = 130

Y2 = 10 + 60

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

'QUINTO PENTA

X1 = 0

Y1 = 10 + 80

X2 = 130

Y2 = 10 + 80

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

Y1 = Y1 + 2

Y2 = Y2 + 2

PAR.Line (X1, Y1)-(X2, Y2)

 

'INICIALIZA LOS ARRAYS DE NOTAS E INTENTOS Y UBICACIONES

For I = 1 To 12

    N(I) = 0

    NI(I) = 0

    UB(I) = 0

Next I

 

'BLANQUEA PICTUREBOX

NOTA.Cls

A = 0

 

K = 0

 

End Sub

 

 

Private Sub T1_Timer()

Dim S As Integer

TI = TI + T1.Interval

 

If TI = 500 Then

ret = sndPlaySound(SN(N(1), D(1)), SND_ASYNC Or SND_NODEFAULT)

End If

 

S = 500 + Z(D(1))

 

If TI = S Then

ret = sndPlaySound(SN(N(2), D(2)), SND_ASYNC Or SND_NODEFAULT)

End If

 

S = S + Z(D(2))

 

If TI = S Then

ret = sndPlaySound(SN(N(3), D(3)), SND_ASYNC Or SND_NODEFAULT)

End If

 

S = S + Z(D(3))

 

If TI = S Then

ret = sndPlaySound(SN(N(4), D(4)), SND_ASYNC Or SND_NODEFAULT)

End If

 

S = S + Z(D(4))

 

If TI = S Then

ret = sndPlaySound(SN(N(5), D(5)), SND_ASYNC Or SND_NODEFAULT)

End If

 

S = S + Z(D(5))

 

If TI = S Then

ret = sndPlaySound(SN(N(6), D(6)), SND_ASYNC Or SND_NODEFAULT)

End If

 

S = S + Z(D(6))

 

If TI = S Then

ret = sndPlaySound(SN(N(7), D(7)), SND_ASYNC Or SND_NODEFAULT)

End If

 

S = S + Z(D(7))

 

If TI = S Then

ret = sndPlaySound(SN(N(8), D(8)), SND_ASYNC Or SND_NODEFAULT)

End If

 

S = S + Z(D(8))

 

If TI = S Then

ret = sndPlaySound(SN(N(9), D(9)), SND_ASYNC Or SND_NODEFAULT)

End If

 

S = S + Z(D(9))

 

If TI = S Then

ret = sndPlaySound(SN(N(10), D(10)), SND_ASYNC Or SND_NODEFAULT)

End If

 

S = S + Z(D(10))

 

If TI = S Then

ret = sndPlaySound(SN(N(11), D(11)), SND_ASYNC Or SND_NODEFAULT)

End If

 

S = S + Z(D(11))

 

If TI = S Then

ret = sndPlaySound(SN(N(12), D(12)), SND_ASYNC Or SND_NODEFAULT)

End If

 

S = S + Z(D(12))

 

 

 

If TI >= S Then

End If

 

 

 

End Sub

 

 

 

 

 

 

 

 
   
 
=> ¿Desea una página web gratis? Pues, haz clic aquí! <=