Skip to content

Commit 9aaf3cf

Browse files
jmgbsasjmgbsas
committed
ROLLMUSIC TICKS, NUEVA VERSION 0.300 CON TICKS EN DESARROLLO
1 parent b66384f commit 9aaf3cf

File tree

135 files changed

+3837
-13011
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

135 files changed

+3837
-13011
lines changed

‎Ayuda.txt

+181-47
Large diffs are not rendered by default.

‎DISTINTOS-F-SF+SF-F.roll

-14.7 KB
Binary file not shown.

‎DISTINTOS_F_SF_SF_F.mid

-140 Bytes
Binary file not shown.

‎ROLLCONTROLDEC.bi

+1-1
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@ Declare Sub EntrarNombrePista(ByRef NombrePista As String, hwndC as Hwnd)
33
Declare Sub EntrarTeclado ()
44
'''''''Declare Sub cerrar(n As integer)
55
Declare Sub seloctava ( ByRef octadesde As Integer, ByRef octahasta As integer)
6-
Declare Sub reproducir()
6+
'Declare Sub reproducir()
77
Declare Sub CrearDirCancion (ByRef NombreCancion As string)
88
Declare Sub cargarDirectorioCancion (ByRef NombreCancion As string)
99
Declare Function sacarNtk (cadena As String) As Integer

‎ROLLCTRLEVENTGADGET.bi

+111
Large diffs are not rendered by default.

‎ROLLCTRLEVENTMENU.bi

+35-2
Original file line numberDiff line numberDiff line change
@@ -15,8 +15,10 @@ On Error Goto errorhandler
1515
If abrirRoll=0 And NombreCancion > "" Then
1616
abrirRoll=1
1717
cargaCancion=1
18+
Print #1,"SALE A CARGAR ROLL POR 1ERA VEZ ABRIRROLL=1 EXIT DO"
1819
Exit Do
1920
EndIf
21+
' Print #1,"termino 1006 va a abrir Roll"
2022
SetForegroundWindow(hwnd)
2123

2224

@@ -26,6 +28,7 @@ On Error Goto errorhandler
2628
' CADA PISTA SE PODRA LEVANTAR UNA POR UNA CON LA OTRAOPCION
2729
' SOLO DEBO PASAR LOS PARAMETROS...Y SI MODIFICO ALGO
2830
' DEBO GRABAR A DISCO Y ENVIAR ORFEN DE RECARGA DE ESA PISTA EN LA CANCION
31+
Print #1," CASE 10062 abrirRoll=0 And NombreCancion > ", abrirRoll, NombreCancion
2932

3033
CTRL1062 (hmessages )
3134

@@ -61,6 +64,7 @@ On Error Goto errorhandler
6164
' con usarmarcoins=4 indicamos habilitar ESCRITURA MIDI EN EL PLAY
6265

6366
' nombre , hasta, titu, instru ,pid1, usarmarco, nombrecancion
67+
Print #1,"Nombre roll a midi ", nombre
6468

6569
usarmarcoins=4
6670
Shell (" start RollMusic.exe "+ Str(desde) +" "+ Str(hasta) + _
@@ -89,12 +93,16 @@ On Error Goto errorhandler
8993

9094
If result = -1 Then
9195

96+
Print #1, "error conv a archivo.mid"
9297
Else
98+
Print #1, "ok conv a archivo.mid "
9399
End If
100+
Print #1, "Exit code midiconv: "; result
94101

95102

96103
Case 1010 '<================ Cargar Pista externa a cancion
97104

105+
' Print #1,"entro a 1010 Cargar Pista externa a cancion"
98106

99107
CTRL1010 (salida )
100108
If salida =1 Then
@@ -105,7 +113,9 @@ On Error Goto errorhandler
105113
SetForegroundWindow(hwnd)
106114
'-----------------------------------------------------------------------
107115
Case 1011 ' <======= Grabar una Pista de la Cancion con modificaciones, que son tracks
116+
' print #1,"entro a 1011 esto lo hace menu de Roll tambien" '' jmg probar es nuevo...
108117
' copiamos logica Rolla Track
118+
' print #1, "Click Grabando a disco pista modif con GrabarRollaTrack ",nombre
109119
Dim As String nombreg
110120
ROLLCARGADO=FALSE
111121
If NombreCancion > "" Then
@@ -116,6 +126,7 @@ On Error Goto errorhandler
116126
SetForegroundWindow(hwnd)
117127
'-----------------------------------------------------------------------
118128
Case 1012 ' <====== Grabar Pista Como, Copia una pista a otra nueva nueva
129+
' print #1,"entro a 1012 Grabar Pista Como, Copia una pista a otra nueva nueva"
119130

120131
CTRL1012 (SALIDA)
121132

@@ -154,6 +165,7 @@ Print 1,"GRABA MIDI IN EN CASE 1015 "
154165
Exit Select
155166
'-----------------------------------------------------------------------
156167
Case 1017 'renombrar pista ejecucion y borrado
168+
Print #1,"Case 1017 "
157169
' If PISTASEJECSELECCIONADA=0 Then
158170
' Exit Select 'ASEGURAMOS UNA SELECCION SINO TOMARA SIEMPRE LA PISTA 1
159171
' EndIf
@@ -165,17 +177,21 @@ Print 1,"GRABA MIDI IN EN CASE 1015 "
165177
Dim As Integer nroPista
166178
nroPista=GetItemListBox(PISTASEJECUCIONES) +1 ' DEVUELVE A PARTIR DE CERO
167179

180+
Print #1,"Case 1017 nroPista ";nroPista
168181
nomPista = InputBox("Nombre de Pista " ,"Entre un nuevo Nombre ",nomPista)
169182
nompista=Trim(nompista)
170183
'aca falta que si nompista es "" borrar la pista y mover todo hacia arriba
171184
' si la pista estaba en el medio,,,FALTA
172185
If Len (nompista) > 0 Then
186+
Print #1,"Case 1017 calcula len ";
173187
SetListBoxItemText(PISTASEJECUCIONES,nompista,nroPista-1) ' i1-1
174188
Dim As String nombreviejo
175189
nombreviejo=tocaparam(nroPista).nombre
190+
Print #1,"nombreviejo "; nombreviejo
176191
tocaparam(nroPista).nombre=nompista
177192
Dim tocap As ejecparam = tocaparam(nroPista)
178193
ReDim toc.trk(1 To tocap.maxpos)
194+
Print #1,"tocap.maxpos ";tocap.maxpos
179195
For j As Integer =1 To tocap.maxpos
180196
toc.trk(j).modo=Toca(nroPista).trk(j).modo
181197
toc.trk(j).nota=Toca(nroPista).trk(j).nota
@@ -199,15 +215,21 @@ Print 1,"GRABA MIDI IN EN CASE 1015 "
199215
Else
200216
NewName = nompista
201217
EndIf
218+
Print #1,"Case 1017 OldName ";OldName
219+
Print #1,"Case 1017 NewName ";NewName
202220

221+
Print #1,DirEjecSinBarra+"\"+"("+doscifras(nroPista)+")"+OldName, DirEjecSinBarra+"\"+"("+doscifras(nroPista)+")"+NewName
203222
result = Name( DirEjecSinBarra+"\"+"("+doscifras(nroPista)+")"+OldName, DirEjecSinBarra+"\"+"("+doscifras(nroPista)+")"+ NewName )
204223
Sleep 100
205224
If 0 <> result Then
225+
Print #1, "error renaming " & oldname & " to " & newname, result
206226
Else
207227

208228
' Var RTA= Kill (DirEjecSinBarra+"\"+"("+doscifras(nroPista)+")"+OldName)
209229
' If RTA > 0 Then
230+
' Print #1, "error BORRANDO ";DirEjecSinBarra+"\"+OldName
210231
' Else
232+
' Print #1,"BORRO OLDNAME ";DirEjecSinBarra+"\"+OldName
211233
GrabarMidiIn(pgmidi,nroPista)
212234
' EndIf
213235

@@ -216,6 +238,7 @@ Print 1,"GRABA MIDI IN EN CASE 1015 "
216238
If Len (nompista) = 0 Then
217239
'borrar pista y comprimir lista de ejecs si quedo un hueco..
218240
DeleteListBoxItem(PISTASEJECUCIONES, nroPista-1)
241+
Print #1,"comprimir listas ejec"
219242
''no hace falta lalista comprime automaticamente!!
220243
'' solo hay que borar de disco y renombrar!!!
221244
comprimirListaEjecs(nroPista)
@@ -334,9 +357,11 @@ Print 1,"GRABA MIDI IN EN CASE 1015 "
334357
Roll.trk(1,NA).inst= CUByte(instru)
335358
Track(ntk).trk(1,1).nnn=CUByte(instru)
336359
' grabar la pistacomo en 1011
360+
print #1, "Click Grabando inst a disco pista con GrabarRollaTrack(0) ",nombre
337361
Dim As String nombreg
338362
If CANCIONCARGADA =TRUE Or TRACKCARGADO =TRUE Then
339363
If (NombreCancion > "" Or TRACKCARGADO =TRUE) And MAxPos > 2 Then
364+
Print #1,"VOY A GrabarRollaTrack(0) DESDE CTRL1040"
340365
GrabarRollaTrack(0)
341366
Sleep 100
342367
EndIf
@@ -373,6 +398,7 @@ Print 1,"GRABA MIDI IN EN CASE 1015 "
373398
Roll.trk(1,NA).inst= CUByte(instru)
374399
Track(ntk).trk(1,1).nnn =CUByte(instru)
375400
' grabar el track
401+
' print #1, "Click Grabando inst a disco pista con GrabarRollaTrack(0) ",nombre
376402
Dim As String nombreg
377403

378404
If CANCIONCARGADA =TRUE Or TRACKCARGADO =TRUE Then
@@ -605,14 +631,17 @@ SetGadgetstate(BTN_ROLL_PARAR, BTN_LIBERADO)
605631
' PERO DEBO INDICAR AL PROGRAM QUE SALTEE ESTA COLUMNA CREO CON TENER NOTA=181 Y DUR181
606632
' PODRI AINDICAR ESO DEBO PROBARLO Y USAR LSO DEMAS CAMPOS PARA INTRODUCIR ALGUN CAMBIO
607633
''' Roll.trk(1,NA).vol= CUByte(tipoescala + 127) ' a partir de 128
634+
'' Print #1,"Roll.trk(1,NA).vol ",Roll.trk(1,NA).vol
608635
'' END
609636
'' Track(ntk).trk(1,1).vol=CUByte(tipoescala + 127)
610637
' grabar el track
611638
'' NOTA: LA VARIABLES DE ESCALA DE TODA LA SECUENCIA TIENEN SUBFIJOS _STR O _NUM
612639
'' LAS QUE SON PARA USO DE ESCLAS EN POSICIONES NO LO TIENEN
640+
' Print #1,"tipo de escala seleccionado ", tipoescala_num_ini
613641

614642
' -------cadena de escala, construye dsde C hay que hacer las otras esclas
615643
' C,D,E,F,G,A,B,Bb,Ab,Gb ver las debo pedir escala y 1er nota desde donde empieza uff
644+
' Print #1,"armarescla desde 1106"
616645
cadenaes_inicial=""
617646
armarescala(cadenaes_inicial,tipoescala_num_ini, notaescala_num_ini,alteracion,1)
618647
' --------------------------
@@ -622,6 +651,8 @@ SetGadgetstate(BTN_ROLL_PARAR, BTN_LIBERADO)
622651
pasozona1=0
623652
selNotaEscala (notaescala_num_ini)
624653

654+
' Print #1, "seleccion de Nota de la escala num ",notaescala_num
655+
' Print #1,"armarescla desde 1107"
625656
cadenaes_inicial=""
626657
armarescala(cadenaes_inicial,tipoescala_num_ini, notaescala_num_ini,alteracion,1)
627658

@@ -634,6 +665,7 @@ SetGadgetstate(BTN_ROLL_PARAR, BTN_LIBERADO)
634665
SetStateMenu(hmessages,1109,0)
635666
' si hay nombre de archivo grabar sino no
636667
'' GrabarArchivo()
668+
' Print #1,"armarescla desde 1108"
637669
cadenaes_inicial=""
638670
armarescala(cadenaes_inicial,tipoescala_num_ini, notaescala_num_ini,alteracion,1)
639671

@@ -644,6 +676,7 @@ SetGadgetstate(BTN_ROLL_PARAR, BTN_LIBERADO)
644676
alteracion="bem" ' grabado en grabaLim(1,1).pan = CUByte(2)
645677
SetStateMenu(hmessages,1108,0)
646678
SetStateMenu(hmessages,1109,3)
679+
' Print #1,"armarescla desde 1109"
647680
cadenaes_inicial=""
648681
armarescala(cadenaes_inicial,tipoescala_num_ini, notaescala_num_ini,alteracion,1)
649682

@@ -730,7 +763,7 @@ SetGadgetstate(BTN_ROLL_PARAR, BTN_LIBERADO)
730763
Case 1206 'Cerrar Puertos MIDI-OUT de ejecucion play por el usuario
731764
CTRL1206()
732765

733-
Case 1207 ' CONVERTIR EJECS SELECCIONADA EN TRK
766+
Case 1207 ' CONVERTIR EJECS SELECCIONADA EN TRK en desarrollo para ticks
734767
threadG = ThreadCreate (@CTRL1207)
735768

736769
Case 2000
@@ -814,4 +847,4 @@ SetGadgetstate(BTN_ROLL_PARAR, BTN_LIBERADO)
814847

815848
End Select
816849

817-
850+

‎ROLLCTRLGUI.bi

+3-2
Original file line numberDiff line numberDiff line change
@@ -373,7 +373,7 @@ Menubar(MenName8)
373373
MenuItem(1204,MenName8,"Seleccion de Puerto MIDI-OUT Ejecucion")
374374
MenuItem(1205,MenName8,"Abrir Puertos MIDI-OUT Ejecucion")
375375
MenuItem(1206,MenName8,"Cerrar Puertos MIDI-OUT Ejecucion")
376-
Menuitem(1207,MenName8,"Convertir ejecucion o archivo cargado de *.ejec a *.trk ")
376+
Menuitem(1207,MenName8,"No usar En desarrollo para ticks:Convertir ejecucion o archivo cargado de *.ejec a *.trk ")
377377

378378
MenuItem(2000,MenName10,"Acerca de")
379379
MenuItem(2001,MenName10,"Cuadro Ayuda TEMPO por nombres, Lento,adagio etc y control fino")
@@ -446,11 +446,12 @@ End Select
446446
SetStateMenu(hmessages,1009,1)
447447
'' sin seleccionar portin y portout no se permite abrir midiin teclado
448448

449+
' Print #1,"deshabilita 1092 y 1093 al inicio >>>>>>>>>>>>>"
449450
SetStateMenu(hmessages,1092,1)
450451
SetStateMenu(hmessages,1093,1)
451452

452453
SetStateMenu(hmessages,2500,1)
453454
SetStateMenu(hmessages,2501,1)
454455

455456

456-
End If
457+
End If

0 commit comments

Comments
 (0)