191927_es-ES

liliconcom

Cuadro de edición de número combinado y conectado y cuadro de control deslizante

Estoy produciendo un script JSL que muestra una ventana con una lista de pruebas para que un usuario seleccione y produzca gráficos para los seleccionados.  Cada gráfico debe tener un intervalo establecido por el usuario.  Dado que este ejemplo puede permitir de 1 a 5 pruebas para las cuales producir gráficos, ¿cómo me refiero a los cuadros de edición de números para obtener el valor correcto para la prueba asociada dado que los cuadros de edición de números no tienen nombre? Donde tropiezo es la pregunta en MakeCharts = expr ().  ¿Hay una manera de nombrar de manera única cada Cuadro de Edición de Número en este tipo de escenario?

 

//Create a list of all tests represented in this Data Table to be displayed as vertical check boxes
cbAllTests = Check Box( {"Test1", "Test2", "Test3", "Test4", "Test5"} );

//User Interface for selecting desired test results and charts
New Window( "Enter Capability", << Modal,
 //Window Header
 H Center Box(
  H List Box(
   tbAddCap = Text Box( "Select Tests to Average" ),
   tbAddCap << Set Font( "Arial", 14, "Bold" )
  )
 ),
 //Test List Header
 Spacer Box( Size( 10, 20 ) ),
 H List Box(
  Spacer Box( Size( 35, 20 ) ),
  tbCap = Text Box( "Test"),
  tbCap << Set Font( "Arial", 12, "Bold" )
 ),
 //List of tests from this STR or list of STRs to select from
 H List Box( 
  Spacer Box( Size( 10, 10 ) ),
  cbTest = cbAllTests( i ) 
 ),
 Spacer Box( Size( 10, 20 ) ), 
 //Display new window listing tests selected for Capability Data Entry
 H Center Box( Button Box( "OK", GetChkBoxes ) ) 
);

//Window to Display Number Edit Boxes to enter values for only the tests being requested
CapWindow = New Window( "Enter Capability", 
 //Window Header
 H Center Box(
  H List Box( 
   tbEntVal = Text Box( "Enter Capability Values*" ),
   tbEntVAl << Set Font( "Arial", 14, "Bold" )
  )
 ),
 //List of tests requested for Capability Value entry
 H List Box(
  vlbTests = V List Box()
 ),
 H Center Box( Button Box( "OK", MakeCharts ) ) //WJL - Add procedure to collect values and add selected charts
);

if( N Items( CapTests ) >=1,
 For( i = 1, i <= N Items( CapTests), i++,
  Eval( 
   Expr(
    vlbTests << Append( 
    H List Box(
     Lineup Box( N Col(4),
      tbTest = Text Box( CapTests[i] ),
      tbTest << Set Width( 150 ),
      tbPlMin = Text Box( "+/-" ),
      tbPlMin << Set Font( "Arial", 10 ),
      nebCap = Number Edit Box(0),  
      nebCap << Set Font( "Arial", 10 ),
      tbUnits = Text Box( " %  " ),
      tbUnits << Set Font( "Arial", 10 )
      )
     )
    )
   )
  )
 )
);


GetChkBoxes = Expr(
CapTests =  cbTest << Get Selected();
print( CapTests );
);

MakeCharts = Expr(
 //This is where I need to collect the values in each Number Edit Box
 //How do I reference when they are not uniquely named in the script?
);

Re: Cuadro de edición de número combinado y conectado y cuadro de control deslizante

Aquí hay una manera de manejar el problema.  El puntero al cuadro de edición de números se coloca en una lista, y luego el elemento de la lista se usa para apuntar de nuevo al cuadro de edición de números específico.

//Create a list of all tests represented in this Data Table to be displayed as vertical check boxes
cbAllTests = Check Box( {"Test1", "Test2", "Test3", "Test4", "Test5"} );

// This code needs to be processed before it is called
GetChkBoxes = Expr(
CapTests =  cbTest << Get Selected();
print( CapTests );
);

//User Interface for selecting desired test results and charts
New Window( "Enter Capability", << Modal,
 //Window Header
 H Center Box(
  H List Box(
   tbAddCap = Text Box( "Select Tests to Average" ),
   tbAddCap << Set Font( "Arial", 14, "Bold" )
  )
 ),
 //Test List Header
 Spacer Box( Size( 10, 20 ) ),
 H List Box(
  Spacer Box( Size( 35, 20 ) ),
  tbCap = Text Box( "Test"),
  tbCap << Set Font( "Arial", 12, "Bold" )
 ),
 //List of tests from this STR or list of STRs to select from
 H List Box( 
  Spacer Box( Size( 10, 10 ) ),
  cbTest = cbAllTests( i ) 
 ),
 Spacer Box( Size( 10, 20 ) ), 
 //Display new window listing tests selected for Capability Data Entry
 H Center Box( Button Box( "OK", GetChkBoxes ) ) 
);

//Window to Display Number Edit Boxes to enter values for only the tests being requested
CapWindow = New Window( "Enter Capability", 
 //Window Header
 H Center Box(
  H List Box( 
   tbEntVal = Text Box( "Enter Capability Values*" ),
   tbEntVAl << Set Font( "Arial", 14, "Bold" )
  )
 ),
 //List of tests requested for Capability Value entry
 H List Box(
  vlbTests = V List Box()
 ),
 H Center Box( Button Box( "OK", MakeCharts ) ) //WJL - Add procedure to collect values and add selected charts
);

// create a list to hold the pointers to the different Number Edit Boxes
nebCapList = {};

if( N Items( CapTests ) >=1,
 For( i = 1, i <= N Items( CapTests), i++,
  //Eval( 
   //Expr(
    vlbTests << Append( 
    H List Box(
     Lineup Box( N Col(4),
      tbTest = Text Box( CapTests[i] ),
      tbTest << Set Width( 150 ),
      tbPlMin = Text Box( "+/-" ),
      tbPlMin << Set Font( "Arial", 10 ),
      nebCap = Number Edit Box(0),  
      nebCap << Set Font( "Arial", 10 ),
      tbUnits = Text Box( " %  " ),
      tbUnits << Set Font( "Arial", 10 )
      )
     )
    );
    // add the pointer to the Number Edit Box, to the list
    insert into(nebCapList,nebCap);
   )
  //)
 //)
);

nebCapList[1] << set(55);

MakeCharts = Expr(
 //This is where I need to collect the values in each Number Edit Box
 //How do I reference when they are not uniquely named in the script?
);

Re: Cuadro de edición de número combinado y conectado y cuadro de control deslizante

@txnelson - Disculpe la respuesta tardía, pero finalmente pude poner su sugerencia en acción ... ¡GRACIAS! Ese era el boleto.  ¡Es perfecto!