ver 0.4616 mejoras en 4.0 4.3, no fix completo casi

Author: jmgbsas

Ayuda.txt

@@ -294,8 +294,7 @@
 
 
     IV ) USO VENTANA CONTROL PARA GRABAR EJECUCIONES POR TECLADO MIDI,
-        NOTA: En ciertas situaciones, Cuando se desea Cerrar el Programa podria ser necesario pulsar 
-                  2 veces el cierre en la ventana de Control. 
+       
     1 ) MIDI-IN GRABACION: 
          YA SE PUEDE GRABAR LAS PISTAS DE MIDI-IN grabadas mediante la ejecucion EN UN O CONTROLADOR 
          MIDI EXTERNO  o TECLADO externo  real concectado su salida MIDI-OUT  al MIDI-IN de la PC.
@@ -461,10 +460,17 @@
         Se puede pasar entre tracks simplemente con el tabulador  o clickeando  la pista en la lista en Control. 
         No se ha conseguido el cambio  de focus a la ventanta del grafico que es un thread distinto, pero ya al dar click
         en la lista cambia en el grafico aunque no ese en el foco.
-        -En menu de Control un test b�sico de MIDI-IN: En reprodicur elegir "Reproducir MIDI-IN por MII-OUT"
+        -En menu de Control un test b�sico de MIDI-IN: En reproducir elegir "Reproducir MIDI-IN por MII-OUT"
         Para terminar Usar en el mismo menu "Detener MDI-IN por MIDI-OUT" ..Solo reproduce el sonido
-        del port pro omisi�n y el sonido por omisi�n,,(No elegir otro port de salida pro ahroa cancela es un test)
-         
+        del port por omisi�n y el sonido por omisi�n,,(No elegir otro port de salida por ahroa cancela es un test)
+
+      - CARGAR UN ARCHIVO roll o rtk externo dentro de una Cancion, 
+        ahora funciona mejor ver 0.4616, para esto usar la opcion 4.0 cargar roll o rtk ...,echo esto se 
+        verifica o ajusta el patch y/o el canal dejando solo chequeado la pista incorporada nueva como
+        seleccionad para escucharse. Luego del cambio conviene grabar la cancion con la opcion 3.0 del
+        menu Aachivo. Volver a cargar la cancion,(todavia hay crash o cancelaciones si no se vuelve a cargar
+        la cancion, o cerrar todo y volver a empezar..)
+
       - Para exportar una pista de una cancion a un archivo Roll para editarlo en una instancia libre
         se puede hace con la opcion del menu archivo 4.3 Grabar una pista rtk a roll
         para ello conviene en Roll Grafico situarse en la pista deseada con el tabulador, y en la ventana 

ROLLCTRLEVENTMENU.bi

@@ -40,7 +40,7 @@
 ' 26-02-2022 desarrollo           
           'DESHABILITADO CREO ESTA HACIENDO LIO PROBAR Y SEGUIR
 ' MAS ADELANTE USANDO UNA COPIA DE CANCION PAR NO DESTRUIR LA ACTUAL
- ''''' NO HABILITADA   CTRL1007 ()
+           CTRL1007 ()
 
           SetForegroundWindow(hwnd)
            Case 10075 '<======== ARGAR UNA PISTA A ROLL PARA EXPORAR A MIDI

ROLLCTRLSUB.bi

@@ -25,6 +25,9 @@ Sub CTRL100610061 (hMessages As hmenu , Tope As integer)
                   NombreCancion = ""
                   param.encancion=0
                   ResetAllListBox(3)
+                  For i As Integer = 1 To Tope
+                    CheckBox_SetCheck(cbxnum(i),0)
+                  next i 
                   Resetear (pmTk()) 
                   cargarDirectorioCancion(NombreCancion)
                   CANCIONCARGADA=False
@@ -148,6 +151,7 @@ End Sub
 
 Sub CTRL1010(ByRef salida As INTEGER)
            ROLLCARGADO=False 
+           TRACKCARGADO=FALSE
             Dim As String nombreg
 
             getfiles(file,myfilter,"open")
@@ -160,10 +164,10 @@ Sub CTRL1010(ByRef salida As INTEGER)
                nombre=nombreg   
             EndIf
             If NombreCancion > ""  Then 
-               ImportarPistaExterna() ' estoy en cancion importando  una pista rtk
+               ImportarPistaExterna(nombre) ' estoy en cancion importando  una pista rtk
             EndIf   
-          MenuNew=0           
-          carga=1
+          'MenuNew=0           
+          'carga=1
 
 End Sub
 
@@ -827,7 +831,8 @@ Next i
 End Sub
 '' ///////////////////// GADGET //////////////////////////
 
-Sub CTRL_EVENTGADGET ()
+Sub CTRL_EVENTGADGET () '' un case de select es como una sub 
+' tiene su scope
     '   SetForegroundWindow(hwndC)
       ' el codigo anterior que traia de disco esta en notas
 ' TODOS DICEN RUSO Y USA QUE VK_LBUTTON ES 1 PERO CON 1 NO ANDA

ROLLDEC.BI

@@ -128,7 +128,7 @@ Declare Sub ActualizarRollyGrabarPista ()
 Declare Sub GrabarRollaTrack (cambiaext As Integer)
 Declare Sub CargarPistasEnCancion ()
 Declare sub GrabarCopiadePista()
-Declare Sub ImportarPistaExterna()
+Declare Sub ImportarPistaExterna(nombre As string )
 
 Declare sub selport(ByVal tipo As Integer)
 ''Declare sub selport(ByVal tipo As integer)
@@ -880,6 +880,7 @@ Declare Sub RollaTrack(Track() As sec, ntk As Integer,Roll As inst)
 Declare Sub armarescala(ByRef cadena As String, tipoesc As Integer, notaesc As Integer, altera As String, orden As integer )
 Declare Function lugarNota (lugar As integer) As Integer
 Declare Sub metronomo ()
+Declare Sub moverPmtkaPmtk(r as Integer, e As integer)
 
 COMMON Shared As Long eventc, eventM
 Common Shared As hwnd hwndC, hwndListBox, hwndListEjec, hwndPatronEjec

ROLLSUB.BI

@@ -1378,10 +1378,10 @@ EndIf
 End Sub
 '--------
 Sub CargaArchivo(Roll As inst, ByRef ubiroll As integer)
-' PRINCIPALMENTE CARGA ROLL Y LO PASA SIEMPRE A TRACK (0) en otra rutina
-ntk=0 ' Cargar en 2 vectores Roll y carga a pmTk(0)
+' PRINCIPALMENTE CARGA ROLL Y LO PASA SIEMPRE A TRACK (0) 
+ntk=0 ' Cargar en 3 vectores Roll pmTk(0) y Track(0). 
 ' la carga de tracks aislada o la carga de una cancion con sus tracks
-' ira aumentando ntk, es otra rutina no esta..aca se carga a pmTk(0) no a Track
+' ira aumentando ntk, es otra rutina no esta..aca se carga a pmTk(0) y a Track(0)
    '  carga roll
 ' al cargar borro todo el undo    
 abrirRoll=2 ' habilita la carga de una cancion
@@ -1426,14 +1426,15 @@ abrirRoll=2 ' habilita la carga de una cancion
          Sleep 100
 
          Print #1,"lee con control de error.. "
-     If Open (nombre  For Binary Access Read Shared As #ca ) <> 0 Then
-        print #1,"Error open cargaARchivo 1419, nombre ",nombre
-        Exit Sub
-     End If
+         If Open (nombre  For Binary Access Read Shared As #ca ) <> 0 Then
+            print #1,"Error open cargaARchivo 1419, nombre ",nombre
+            Exit Sub
+         End If
 
      ''    Open "temp.roll"  For Binary Access Read As #ca
          ubiroll=0
       EndIf
+
      Dim z (1,1)  As dat
      Dim zLim (1,1) As dat
      Dim z3   (1,1)  As dat ' 04-02-2022 se agregan 48 bytes para info futura 
@@ -1525,26 +1526,29 @@ abrirRoll=2 ' habilita la carga de una cancion
      NA= 11 + (hasta -1)*13
      pmTk(0).notaold = notaold  'notaold es ubyte en pmTk
      pmTk(0).MaxPos = MaxPos
+Print #1,"pmTk(0).MaxPos = MaxPos ";  MaxPos
      pmTk(0).posn = MaxPos -2
 ' cargo estos campos nb na pero se los podria eliminar o usar para otra cosa,,,,
      pmTk(0).NB=NB  
      pmTk(0).NA=NA
      pmTk(0).desde = desde
      pmTk(0).hasta = hasta
-     pmTk(0).posn = MaxPos -2    
+    
 
      'NB => 0 + (desde-1) * 13   ' 27 para 3
      'NA => 11 + (hasta-1) * 13  ' 90 para  7
      ' los 2 vectores deben tener el mismo tamaño ergo si CantTicks
      ' lo agrando trabajo tambien ? mmm no trabajo debe tener el tamaño del disco!
      ' cargamos trabajo datos
-     CantTicks = MaxPos  +1000' jmg 24-09-2021
-     '''ReDim Roll.TRK(1 To cantTicks,NB To NA)
+     CantTicks = MaxPos + 1000 ' jmg 24-09-2021
+     
      pmTk(0).Ticks=CantTicks
      ntk=0
-     CambiarDim(0) ' ya tiene calculo NB y NA Redim Roll y Track con CantTicks
-                   ' y carga de pmTk.NB y NA
-
+'' Redim Roll y TRack ya tiene calculo NB y NA con CantTicks y carga de pmTk.NB y NA
+     repro=1
+     Sleep 5
+     CambiarDim(0) 
+     repro=0
      Get #ca, ,z3  (1,1)
 
      canalx  = CInt(z3(1,1).inst) ' canal midi cargado en Global si es un track se pasara a info de trck
@@ -1574,7 +1578,7 @@ abrirRoll=2 ' habilita la carga de una cancion
 
      ReDim compas(1 To CantTicks)
      print #1,"En CargarArchivo NB NA ", NB,NA
-     Dim Trabajo (1 To MaxPos, NB To NA) As dat     
+     Dim Trabajo (1 To MaxPos, NB To NA) As dat     ''' es un Roll
      Get #ca, , Trabajo() ' aca levanta tambien el instrumento que se grabo 
      ' CARGA VECTOR ROLL movemos los datos a Roll Y a track 0
      ' --------------------------------------------
@@ -3001,6 +3005,7 @@ If redi=1 Then
 Else
      ReDim  (Roll.trk ) ( 1 To CantTicks, NB To NA)
      ReDim  (Track(ntk).trk ) (1 To CantTicks, 1 To lim3)
+     print #1,"FIN CAMBIARDIM  else" 
 EndIf   
 ReDim (RollAux.trk) ( 1 To CantTicks,NB To NA )
  desdevector=desde
@@ -3662,13 +3667,16 @@ Next i1
      grabaPos(1,1).pan  = y4
      grabaPos(1,1).pb   = y5
      grabaPos(1,1).nnn = pmTk(ntk).tipoescala
-If NombreCancion > "" Then
+If  ntk >0 Then
      If CheckBox_GetCheck( cbxnum(ntk))= 1 Then ' sonido on/off 16-03-2022
          print #1,"grabo grabaPos(1,1).dur2=1,, ntk", ntk
          grabaPos(1,1).dur2=1
      Else
          grabaPos(1,1).dur2=0
      EndIf
+Else
+         grabaPos(1,1).dur2=1
+
 EndIf   
      '-----------------------
      grabaLim(1,1).nota = CUByte(pmTk(ntk).desde) 
@@ -3733,12 +3741,18 @@ Dim As Integer i,ntkold
   Print #1,"Grabar Cancion   rtk actual   ",ntk
 'SI CARGUE UN RTK DESDE ARCHIVO SIEMPRE USO ROLL A  TRACK PORQUE
 ' SE PUDO EDITAR EL ROLL VISUAL Y ROLL TENDRA LA ULTIMA MODIFICAION
-          GrabarRollaTrack(0) 
-           Sleep 1000           
+' eso solo para el track que esta siendo visto en pantalla pero
+' los que no se ven ya fueron refrescados , o sea debo
+' grabar Track n a disco y al final grabar rolla track solo para
+'el visual
+          GrabarTrack ntk  
+           Sleep 20           
        EndIf
 
   Next i
-  ntk=ntkold
+
+       ''  GrabarRollaTrack(0)
+  'ntk=ntkold ''??
 
 End Sub