Skip to content

Commit a33642c

Browse files
jmgbsasjmgbsas
committed
carga midi plano algo mejor
1 parent add8ea3 commit a33642c

23 files changed

+2884
-1873
lines changed

‎ROLLCONTROLDEC.bi

+1-1
Original file line numberDiff line numberDiff line change
@@ -444,4 +444,4 @@ Dim Shared IndiceInstAlfa(1 to 127) as integer => _
444444
79, _
445445
116, _
446446
14 }
447-
447+

‎ROLLCTRLEVENTGADGET.bi

-93
Large diffs are not rendered by default.

‎ROLLCTRLEVENTMENU.bi

+18-38
Original file line numberDiff line numberDiff line change
@@ -14,10 +14,8 @@
1414
If abrirRoll=0 And NombreCancion > "" Then
1515
abrirRoll=1
1616
cargaCancion=1
17-
Print #1,"SALE A CARGAR ROLL POR 1ERA VEZ ABRIRROLL=1 EXIT DO"
1817
Exit Do
1918
EndIf
20-
' Print #1,"termino 1006 va a abrir Roll"
2119
SetForegroundWindow(hwnd)
2220

2321

@@ -27,7 +25,6 @@
2725
' CADA PISTA SE PODRA LEVANTAR UNA POR UNA CON LA OTRAOPCION
2826
' SOLO DEBO PASAR LOS PARAMETROS...Y SI MODIFICO ALGO
2927
' DEBO GRABAR A DISCO Y ENVIAR ORFEN DE RECARGA DE ESA PISTA EN LA CANCION
30-
Print #1," CASE 10062 abrirRoll=0 And NombreCancion > ", abrirRoll, NombreCancion
3128

3229
CTRL1062 (hmessages )
3330

@@ -63,7 +60,6 @@
6360
' con usarmarcoins=4 indicamos habilitar ESCRITURA MIDI EN EL PLAY
6461

6562
' nombre , hasta, titu, instru ,pid1, usarmarco, nombrecancion
66-
Print #1,"Nombre roll a midi ", nombre
6763

6864
usarmarcoins=4
6965
Shell (" start RollMusic.exe "+ Str(desde) +" "+ Str(hasta) + _
@@ -92,16 +88,12 @@
9288

9389
If result = -1 Then
9490

95-
Print #1, "error conv a archivo.mid"
9691
Else
97-
Print #1, "ok conv a archivo.mid "
9892
End If
99-
Print #1, "Exit code midiconv: "; result
10093

10194

10295
Case 1010 '<================ Cargar Pista externa a cancion
10396

104-
' Print #1,"entro a 1010 Cargar Pista externa a cancion"
10597

10698
CTRL1010 (salida )
10799
If salida =1 Then
@@ -112,9 +104,7 @@
112104
SetForegroundWindow(hwnd)
113105
'-----------------------------------------------------------------------
114106
Case 1011 ' <======= Grabar una Pista de la Cancion con modificaciones, que son tracks
115-
' print #1,"entro a 1011 esto lo hace menu de Roll tambien" '' jmg probar es nuevo...
116107
' copiamos logica Rolla Track
117-
' print #1, "Click Grabando a disco pista modif con GrabarRollaTrack ",nombre
118108
Dim As String nombreg
119109
ROLLCARGADO=FALSE
120110
If NombreCancion > "" Then
@@ -125,7 +115,6 @@
125115
SetForegroundWindow(hwnd)
126116
'-----------------------------------------------------------------------
127117
Case 1012 ' <====== Grabar Pista Como, Copia una pista a otra nueva nueva
128-
' print #1,"entro a 1012 Grabar Pista Como, Copia una pista a otra nueva nueva"
129118

130119
CTRL1012 (SALIDA)
131120

@@ -179,24 +168,25 @@ DeleteListBoxItem(LISTA_DE_EJECUCIONES,GetItemListBox(LISTA_DE_EJECUCIONES))
179168
EndIf
180169
Next i1
181170
'-----------------------------------------------------------------------
182-
Case 1018 ' cargar archivo midi plano con fracturacion
183-
If abrirRollCargaMidi =0 Then
184-
CANCIONCARGADA=False
185-
''cargaCancion=0
186-
param.encancion=0
187-
EstaBarriendoPenta=1
188-
threadloop= ThreadCreate (@RollLoop,CPtr(Any Ptr, p1))
189-
End if
190-
''RollLoop ( param)
191-
abrirRollCargaMidi=1 'solo una vez levanta roll grafico
192-
Sleep 100
193-
nombre=""
194-
Dim As Integer confrac=1 ' con fracturacion
195-
cargarMidiPlano (confrac)
196-
repro=0
197-
SetForegroundWindow(hwnd)
171+
' Case 1018 ' cargar archivo midi plano con fracturacion
172+
' NOSE USA PRO AHORA
173+
' If abrirRollCargaMidi =0 Then
174+
' CANCIONCARGADA=False
175+
' ''cargaCancion=0
176+
' param.encancion=0
177+
' EstaBarriendoPenta=1
178+
' threadloop= ThreadCreate (@RollLoop,CPtr(Any Ptr, p1))
179+
' End if
180+
' ''RollLoop ( param)
181+
' abrirRollCargaMidi=1 'solo una vez levanta roll grafico
182+
' Sleep 100
183+
' nombre=""
184+
' Dim As Integer confrac=1 ' con fracturacion
185+
' cargarMidiPlano (confrac)
186+
' repro=0
187+
' SetForegroundWindow(hwnd)
198188

199-
Exit Select
189+
' Exit Select
200190
'-----------------------------------------------------------------------
201191
Case 10181 ' cargar archivo midi plano sin fracturacion
202192
If abrirRollCargaMidi =0 Then
@@ -281,11 +271,9 @@ DeleteListBoxItem(LISTA_DE_EJECUCIONES,GetItemListBox(LISTA_DE_EJECUCIONES))
281271
Roll.trk(1,NA).inst= CUByte(instru)
282272
Track(ntk).trk(1,1).nnn=CUByte(instru)
283273
' grabar la pistacomo en 1011
284-
print #1, "Click Grabando inst a disco pista con GrabarRollaTrack(0) ",nombre
285274
Dim As String nombreg
286275
If CANCIONCARGADA =TRUE Or TRACKCARGADO =TRUE Then
287276
If (NombreCancion > "" Or TRACKCARGADO =TRUE) And MAxPos > 2 Then
288-
Print #1,"VOY A GrabarRollaTrack(0) DESDE CTRL1040"
289277
GrabarRollaTrack(0)
290278
Sleep 100
291279
EndIf
@@ -322,7 +310,6 @@ DeleteListBoxItem(LISTA_DE_EJECUCIONES,GetItemListBox(LISTA_DE_EJECUCIONES))
322310
Roll.trk(1,NA).inst= CUByte(instru)
323311
Track(ntk).trk(1,1).nnn =CUByte(instru)
324312
' grabar el track
325-
' print #1, "Click Grabando inst a disco pista con GrabarRollaTrack(0) ",nombre
326313
Dim As String nombreg
327314

328315
If CANCIONCARGADA =TRUE Or TRACKCARGADO =TRUE Then
@@ -549,17 +536,14 @@ SetGadgetstate(BTN_ROLL_PARAR, BTN_LIBERADO)
549536
' PERO DEBO INDICAR AL PROGRAM QUE SALTEE ESTA COLUMNA CREO CON TENER NOTA=181 Y DUR181
550537
' PODRI AINDICAR ESO DEBO PROBARLO Y USAR LSO DEMAS CAMPOS PARA INTRODUCIR ALGUN CAMBIO
551538
''' Roll.trk(1,NA).vol= CUByte(tipoescala + 127) ' a partir de 128
552-
'' Print #1,"Roll.trk(1,NA).vol ",Roll.trk(1,NA).vol
553539
'' END
554540
'' Track(ntk).trk(1,1).vol=CUByte(tipoescala + 127)
555541
' grabar el track
556542
'' NOTA: LA VARIABLES DE ESCALA DE TODA LA SECUENCIA TIENEN SUBFIJOS _STR O _NUM
557543
'' LAS QUE SON PARA USO DE ESCLAS EN POSICIONES NO LO TIENEN
558-
' Print #1,"tipo de escala seleccionado ", tipoescala_num_ini
559544

560545
' -------cadena de escala, construye dsde C hay que hacer las otras esclas
561546
' C,D,E,F,G,A,B,Bb,Ab,Gb ver las debo pedir escala y 1er nota desde donde empieza uff
562-
' Print #1,"armarescla desde 1106"
563547
cadenaes_inicial=""
564548
armarescala(cadenaes_inicial,tipoescala_num_ini, notaescala_num_ini,alteracion,1)
565549
' --------------------------
@@ -569,8 +553,6 @@ SetGadgetstate(BTN_ROLL_PARAR, BTN_LIBERADO)
569553
pasozona1=0
570554
selNotaEscala (notaescala_num_ini)
571555

572-
' Print #1, "seleccion de Nota de la escala num ",notaescala_num
573-
' Print #1,"armarescla desde 1107"
574556
cadenaes_inicial=""
575557
armarescala(cadenaes_inicial,tipoescala_num_ini, notaescala_num_ini,alteracion,1)
576558

@@ -583,7 +565,6 @@ SetGadgetstate(BTN_ROLL_PARAR, BTN_LIBERADO)
583565
SetStateMenu(hmessages,1109,0)
584566
' si hay nombre de archivo grabar sino no
585567
'' GrabarArchivo()
586-
' Print #1,"armarescla desde 1108"
587568
cadenaes_inicial=""
588569
armarescala(cadenaes_inicial,tipoescala_num_ini, notaescala_num_ini,alteracion,1)
589570

@@ -594,7 +575,6 @@ SetGadgetstate(BTN_ROLL_PARAR, BTN_LIBERADO)
594575
alteracion="bem" ' grabado en grabaLim(1,1).pan = CUByte(2)
595576
SetStateMenu(hmessages,1108,0)
596577
SetStateMenu(hmessages,1109,3)
597-
' Print #1,"armarescla desde 1109"
598578
cadenaes_inicial=""
599579
armarescala(cadenaes_inicial,tipoescala_num_ini, notaescala_num_ini,alteracion,1)
600580

‎ROLLCTRLGUI.bi

+2-4
Original file line numberDiff line numberDiff line change
@@ -259,9 +259,7 @@ MenuItem(1015,MenName1, "5.0 MIDI-IN Grabar Pistas ejecucion")
259259
MenuItem(1016,MenName1, "5.1 MIDI-IN Cargar Pistas ejecucion")
260260
MenuItem(1017,MenName1, "5.2 Renombrar Pista ejecucion seleccionada")
261261

262-
MenName19=OpenSubmenu(MenName1, "5.3 INEXACTO Cargar un archivo plano midi")
263-
MenuItem(1018 ,MenName19, "INEXACTO Con Fracturacion automatica ")
264-
MenuItem(10181,MenName19, "INEXACTO Sin Fracturacion automatica ")
262+
MenuItem(10181,MenName1,"5.3 Cargar un archivo plano midi(puede no ser exacto)")
265263

266264
Menubar(MenName1)
267265
MenuItem(1019,MenName1, " Salir")
@@ -389,4 +387,4 @@ MenuItem(2002,MenName10,"Cuadro de Figuras de duracion de notas")
389387
' PARECE QUE NO ES RGB SINO BGR
390388
' O SEA USA BGR NO RGB ,BGR EXISTE
391389

392-
End If
390+
End If

0 commit comments

Comments
 (0)