62072_fr-FR

liliconcom

Plus d'aide avec Modal

Salut,

 

J'essaie d'incorporer des zones d'affichage dans du code. J'espérais que la saisie d'un nom de variable, provenant d'un tableau de données, dans la zone d'affichage serait renseignée dans les zones ombrées de la syntaxe ci-dessous. "] dans les zones en surbrillance en vain, est-ce que quelqu'un a des idées ???

 

Names Default To Here( 1 );
Clear Symbols();
 
pb = Page Break Box();
 
 
fileopen = "\\Kate\TIV\JMP Data.jmp";
 
var_name = New Window( "Variable Analysis",
 <<MODAL></MODAL>

Merci à toutes les réponses

 

Re: Plus d'aide avec Modal

Salut,

 

Le code que j'ai collé ce matin doit être modifié pour l'histogramme de Variables (Colonne (As Column (nom))), à Variables (X (As Column (nom))), afin que l'histogramme fonctionne à nouveau. Le code ci-dessous est le code qui a fonctionné lorsque toutes les lignes de référence de l'histogramme étaient correctement en place. Vous ne savez pas pourquoi le changement de code a légèrement perturbé l'histogramme.

Names Default To Here ( 1 );
Clear Symbols ();

pb = Page Break Box(); 


fileopen= "\\cslg1.cslg.net\home\U0053680\home\desktop\Kate\TIV\JMP Data.jmp";

var_name = New Window ("Variable Analysis", << Modal, << Return Result,
   Text Box ("Please enter Variable to analyse"),//Create the display box
   HListBox(
    LineupBox (NCol (2), 
     Text Box ("Enter Variable Name"), nameVar = textEditBox("QA5030 Thiomersal FBV TIV (%w/v)"),
     ), // end of lineupbox
    LineupBox ( NCol (1), ButtonBox ("OK"), ButtonBox ("Cancel"))
   ) // end HlistBox
);

show (var_name, var_name ["nameVar"] );

If (var_name ["Button"] == -1,
 Caption (" Wait...Aborting..."); Wait (3) ; Caption(Remove); Throw());
StatusMsg ("Processing next steps");
RemoveFrom (var_name, NItems(var_name)); // Removes the last item "Button 1" from the assignment list
Eval List(var_name); // the assignment from the display box are run
Show ( var_name, nameVar );

hist_param = New Window ("Histogram Bin Parameters", << Modal, << Return Result,
   Text Box ("Select Histogram Bin Parameters"),//Create the display box
   HListBox(
    LineupBox (NCol (2), 
     Text Box ("Minimum Amount"), miniAmount = numberEditBox(0.0078),
     Text Box ("Maximum Amount"), maxAmount = numberEditBox(0.0122),
     Text Box ("Bins Increase by"), increaseAmount = numberEditBox(0.0002),
    ), // end of lineupbox
    LineupBox ( NCol (1), ButtonBox ("OK"), ButtonBox ("Cancel"))
   ) // end HlistBox
);

show (hist_param, hist_param ["miniAmount"], hist_param ["maxAmount"], hist_param ["increaseAmount"],
  hist_param ["Button"] );

If (hist_param ["Button"] == -1,
 Caption (" Wait...Aborting..."); Wait (3) ; Caption(Remove); Throw());
StatusMsg ("Processing next steps");
RemoveFrom (hist_param, NItems(hist_param)); // Removes the last item "Button 1" from the assignment list
Eval List(hist_param); // the assignment from the display box are run
Show ( hist_param, miniAmount, maxAmount, increaseAmount );

ref_lines = New Window ("Reference Lines on Histogram", << Modal, << Return Result,
   Text Box ("Select where to place Histogram Reference Lines"),//Create the display box
   HListBox(
    LineupBox (NCol (2), 
     Text Box ("LSL"), lowerLimit = numberEditBox(0.008),
     Text Box ("USL"), UpperLimit = numberEditBox(0.0120),
     Text Box ("-3 Standard Deviations"), lesstandDev = numberEditBox(0.008459),
     Text Box ("+3 Standard Devaitions"), maxstandDev = numberEditBox(0.010926),
     Text Box ("Mean"), meanAmount = numberEditBox(0.0097375),
    ), // end of lineupbox
    LineupBox ( NCol (1), ButtonBox ("OK"), ButtonBox ("Cancel"))
   ) // end HlistBox
);

show (ref_lines, ref_lines ["lowerLimit"], ref_lines["UpperLimit"], ref_lines ["lesstandDev"], ref_lines ["maxstandDev"], ref_lines ["meanAmount"],
  ref_lines ["Button"] );

If (ref_lines ["Button"] == -1,
 Caption (" Wait...Aborting..."); Wait (3) ; Caption(Remove); Throw());
StatusMsg ("Processing next steps");
RemoveFrom (ref_lines, NItems(ref_lines)); // Removes the last item "Button 1" from the assignment list
Eval List(ref_lines); // the assignment from the display box are run
Show ( ref_lines, lowerLimit, UpperLimit, lesstandDev, maxstandDev, meanAmount);

Eval(
 Substitute(
   Expr(
    distrib = New Window( namevar,
     Distribution(
      Continuous Distribution(
       Column( As Column( namevar ) ),
       Normal Quantile Plot( 1 ),
       Fit Distribution( Normal( Goodness of Fit( 1 ) ) )
      ),
      SendToReport( Dispatch( {__myvar__}, "", Picture Box( 5 ), {Set Summary Behavior( "Collapse" )} ) )
     )
    ) << Move Window( 634, 43 ) << Size Window( 807, 861 ) << Set Window Icon( "Distrib" )
   ),
  Expr( __myvar__ ), namevar
 )
);


Graph Builder(
 Variables( X( :Name( "QA5030 Thiomersal FBV TIV (%w/v)" ) ) ),
 Elements( Histogram( X, Legend( 2 ) ), Histogram( X, Legend( 3 ) ) ),
 Local Data Filter,
 SendToReport(
  Dispatch( {}, "Histogram", OutlineBox, {Close( 1 )} ),
  Dispatch( {}, "Histogram", Outline Box( 2 ), {Close( 1 )} ),
  Dispatch(
   {},
   "QA5030 Thiomersal FBV TIV (%w",
   ScaleBox,
   {Min( hist_param ["miniAmount"] ), Max(hist_param ["maxAmount"] ), Inc(hist_param ["increaseAmount"] ), Minor Ticks( 0 ),
   Add Ref Line( ref_lines ["lowerLimit"], "Solid", "Blue", "LSL", 1 ),
   Add Ref Line( ref_lines["UpperLimit"], "Solid", "Blue", "USL", 1 ),
   Add Ref Line( ref_lines ["lesstandDev"], "Solid", "Red", "-3SP", 1 ),
   Add Ref Line(ref_lines ["maxstandDev"], "Solid", "Red", "+3SP", 1 ),
   Add Ref Line( ref_lines ["meanAmount"], "Solid", "Green", "Mean", 1 )}
  )
 )
);



Control Chart Builder(
 Size( 1187, 500 ),
 Show Capability( 0 ),
 Variables(
  Subgroup( :Lot Number ),
  Y( :Name( "QA5030 Thiomersal FBV TIV (%w/v)" ) )
 ),
 Chart( Position( 1 ), Limits( Sigma( Moving Range ) ) ),
 Chart( Position( 2 ), Limits( Sigma( Moving Range ) ) ),
 SendToReport(
  Dispatch(
   {},
   "QA5030 Thiomersal FBV TIV (%w",
   ScaleBox,
   {Min( 0.00779755917159763 ), Max( 0.0125370562130178 ), Inc( 0.0005 ),
   Minor Ticks( 0 ), Add Ref Line(
    0.012,
    "Solid",
    "Blue",
    "USL (0.012)",
    1
   ), Add Ref Line( 0.008, "Solid", "Blue", "LSL (0.008)", 1 )}
  )
 )
);

Re: Plus d'aide avec Modal

Salut txnelson,

 

J'ai joint le tableau de données. Il s'agit toujours d'un travail en cours, mais c'est une expérience formidable pour moi de travailler avec JMP pour la première fois et d'apprendre à connaître la syntaxe. Je dois donc pouvoir basculer entre les variables. cas QA5030 et le journal 10 de la même et ont les mêmes produits de rapports, ne suis pas sûr si suis le faire de la bonne façon. à la fin, j'ai besoin de supprimer tous les journaux individuels et de produire un journal complet de la distribution, de l'histogramme et des graphiques de contrôle et de pouvoir produire un fichier PDF. Voici le code jusqu'à présent:

Names Default To Here ( 1 );
Clear Symbols ();

pb = Page Break Box(); 


fileopen= "\\cslg1.cslg.net\home\U0053680\home\desktop\Kate\TIV\JMP Data.jmp";

var_name = New Window ("Variable Analysis", << Modal, << Return Result,
   Text Box ("Please enter Variable to analyse"),//Create the display box
   HListBox(
    LineupBox (NCol (2), 
     Text Box ("Enter Variable Name"), nameVar = textEditBox("QA5030 Thiomersal FBV TIV (%w/v)"),
     ), // end of lineupbox
    LineupBox ( NCol (1), ButtonBox ("OK"), ButtonBox ("Cancel"))
   ) // end HlistBox
);

show (var_name, var_name ["nameVar"] );

If (var_name ["Button"] == -1,
 Caption (" Wait...Aborting..."); Wait (3) ; Caption(Remove); Throw());
StatusMsg ("Processing next steps");
RemoveFrom (var_name, NItems(var_name)); // Removes the last item "Button 1" from the assignment list
Eval List(var_name); // the assignment from the display box are run
Show ( var_name, nameVar );

hist_param = New Window ("Histogram Bin Parameters", << Modal, << Return Result,
   Text Box ("Select Histogram Bin Parameters"),//Create the display box
   HListBox(
    LineupBox (NCol (2), 
     Text Box ("Minimum Amount"), miniAmount = numberEditBox(0.00728),
     Text Box ("Maximum Amount"), maxAmount = numberEditBox(0.0122),
     Text Box ("Bins Increase by"), increaseAmount = numberEditBox(0.0002),
    ), // end of lineupbox
    LineupBox ( NCol (1), ButtonBox ("OK"), ButtonBox ("Cancel"))
   ) // end HlistBox
);

show (hist_param, hist_param ["miniAmount"], hist_param ["maxAmount"], hist_param ["increaseAmount"],
  hist_param ["Button"] );

If (hist_param ["Button"] == -1,
 Caption (" Wait...Aborting..."); Wait (3) ; Caption(Remove); Throw());
StatusMsg ("Processing next steps");
RemoveFrom (hist_param, NItems(hist_param)); // Removes the last item "Button 1" from the assignment list
Eval List(hist_param); // the assignment from the display box are run
Show ( hist_param, miniAmount, maxAmount, increaseAmount );

ref_lines = New Window ("Reference Lines on Histogram", << Modal, << Return Result,
   Text Box ("Select where to place Histogram Reference Lines"),//Create the display box
   HListBox(
    LineupBox (NCol (2), 
     Text Box ("LSL"), lowerLimit = numberEditBox(0.008),
     Text Box ("USL"), UpperLimit = numberEditBox(0.0120),
     Text Box ("-3 Standard Deviations"), lesstandDev = numberEditBox(0.008459),
     Text Box ("+3 Standard Devaitions"), maxstandDev = numberEditBox(0.010926),
     Text Box ("Mean"), meanAmount = numberEditBox(0.009375),
    ), // end of lineupbox
    LineupBox ( NCol (1), ButtonBox ("OK"), ButtonBox ("Cancel"))
   ) // end HlistBox
);

show (ref_lines, ref_lines ["lowerLimit"], ref_lines["UpperLimit"], ref_lines ["lesstandDev"], ref_lines ["maxstandDev"], ref_lines ["meanAmount"],
  ref_lines ["Button"] );

If (ref_lines ["Button"] == -1,
 Caption (" Wait...Aborting..."); Wait (3) ; Caption(Remove); Throw());
StatusMsg ("Processing next steps");
RemoveFrom (ref_lines, NItems(ref_lines)); // Removes the last item "Button 1" from the assignment list
Eval List(ref_lines); // the assignment from the display box are run
Show ( ref_lines, lowerLimit, UpperLimit, lesstandDev, maxstandDev, meanAmount);

Eval(
 Substitute(
   Expr(
    distrib = New Window( namevar,
     Distribution(
      Continuous Distribution(
       Column( As Column( namevar ) ),
       Normal Quantile Plot( 1 ),
       Fit Distribution( Normal( Goodness of Fit( 1 ) ) )
      ),
      SendToReport( Dispatch( {__myvar__}, "", Picture Box( 5 ), {Set Summary Behavior( "Collapse" )} ) )
     )
    ) << Move Window( 634, 43 ) << Size Window( 807, 861 ) << Set Window Icon( "Distrib" )
   ),
  Expr( __myvar__ ), namevar
 )
);

Eval(
 Substitute(
   Expr(
    Graph Builder(
     Variables( Column( As Column( namevar ) ) ),
     Elements( Histogram( X, Legend( 2 ) ), Histogram( X, Legend( 3 ) ) ),
     Local Data Filter,
     SendToReport(
      Dispatch( {}, "Histogram", OutlineBox, {Close( 1 )} ),
      Dispatch( {}, "Histogram", Outline Box( 2 ), {Close( 1 )} ),
      Dispatch(
       {__myvar__},
       " ",
       ScaleBox,
       {Min( hist_param["miniAmount"] ), Max( hist_param["maxAmount"] ), Inc( hist_param["increaseAmount"] ), Minor Ticks( 0 ),
       Add Ref Line( ref_lines["lowerLimit"], "Solid", "Blue", "LSL", 1 ), Add Ref Line(
        ref_lines["UpperLimit"],
        "Solid",
        "Blue",
        "USL",
        1
       ), Add Ref Line( ref_lines["lesstandDev"], "Solid", "Red", "-3SP", 1 ), Add Ref Line(
        ref_lines["maxstandDev"],
        "Solid",
        "Red",
        "+3SP",
        1
       ), Add Ref Line( ref_lines["meanAmount"], "Solid", "Green", "Mean", 1 )}
      )
     )
    )
   ),
  Expr( __myvar__ ), namevar
 )
); 



Eval(
 Substitute(
   Expr(
    Control Chart Builder(
     Size( 1187, 500 ),
     Show Capability( 0 ),
     Variables( Subgroup( :Lot Number ), Y( As Column( namevar ) ) ),
     Chart( Position( 1 ), Limits( Sigma( Moving Range ) ) ),
     Chart( Position( 2 ), Limits( Sigma( Moving Range ) ) ),
     SendToReport(
      Dispatch(
       {},
       __myvar__,
       ScaleBox,
       {Min( 0.00779755917159763 ), Max( 0.0125370562130178 ), Inc( 0.0005 ), Minor Ticks( 0 ),
       Add Ref Line( 0.012, "Solid", "Blue", "USL (0.012)", 1 ), Add Ref Line( 0.008, "Solid", "Blue", "LSL (0.008)", 1 )}
      )
     )
    )
   ),
  Expr( __myvar__ ), namevar
 )
);

Re: Plus d'aide avec Modal

Je ne pense pas pouvoir faire plus, à moins que vous ne me fournissiez un échantillon de votre tableau de données.

Re: Plus d'aide avec Modal

Salut Txnelson,

 

et merci encore une fois, le code a eu un petit problème lorsque j'essaie de l'exécuter, il ne termine pas la construction de l'histogramme, des idées?

 

Merci pour le conseil sur le clic droit et "Reformater le script" pourrait également m'aider pour la mise en forme.

 

J'espère que les références fonctionneront, une fois que tout sera terminé, vous pourrez le voir et obtenir des conseils.

 

Merci encore

Re: Plus d'aide avec Modal

1.  Il y en avait trop ")".  Vous n'avez pas correctement collé le code pour le générateur de graphes et le générateur de diagrammes de contrôle.  Vous pouvez facilement sélectionner les sous-sections de code, par exemple en prenant tout ce qui se trouve dans "Eval" devant le Générateur de graphes, et sélectionner tout le code par le biais du ");" à la fin de la section Eval, cliquez ensuite avec le bouton droit de la souris sur le code sélectionné et sélectionnez "Reformater le script.  Il analysera le code et vous signalera toutes les erreurs détectées.  Cela vous aurait rapidement dit que vous n'avez pas de correspondance "()";

2 Le code pour exécuter les plates-formes était incorrect.  J'ai dû changer quelques éléments de syntaxe pour rendre le code correct.  A titre d’illustration, vous l’aviez spécifié dans le générateur de diagrammes de contrôle

Variables( Subgroup( :Lot Number ), Y( column( As Column( namevar ) ) ) ),

 La colonne "Y (As Column (namevar ..........") "correspond à la syntaxe correcte pour la plate-forme de distribution, mais pas pour la plate-forme Control Chart Builder.  Il n'y a pas de fonction "Column ()".  Donc, le code devait être changé en:

Variables( Subgroup( :Lot Number ), Y( As Column( namevar ) ) )

3  Vous avez plusieurs références à des éléments tels que hist_param ["miniAmount"] et "ref_lines [" lesstandDev "]" que je ne peux pas déterminer si elles seront analysées correctement, car je n'ai pas le code devant les sections Eval ().  Donc, je suppose que vous êtes seul pour cela.

Voici une copie du code modifié.  Assurez-vous de lire la documentation sur la fonction Substitute () afin de comprendre son fonctionnement,

Eval(
 Substitute(
   Expr(
    Graph Builder(
     Variables( Column( As Column( namevar ) ) ),
     Elements( Histogram( X, Legend( 2 ) ), Histogram( X, Legend( 3 ) ) ),
     Local Data Filter,
     SendToReport(
      Dispatch( {}, "Histogram", OutlineBox, {Close( 1 )} ),
      Dispatch( {}, "Histogram", Outline Box( 2 ), {Close( 1 )} ),
      Dispatch(
       {__myvar__},
       " ",
       ScaleBox,
       {Min( hist_param["miniAmount"] ), Max( hist_param["maxAmount"] ), Inc( hist_param["increaseAmount"] ), Minor Ticks( 0 ),
       Add Ref Line( ref_lines["lowerLimit"], "Solid", "Blue", "LSL", 1 ), Add Ref Line(
        ref_lines["UpperLimit"],
        "Solid",
        "Blue",
        "USL",
        1
       ), Add Ref Line( ref_lines["lesstandDev"], "Solid", "Red", "-3SP", 1 ), Add Ref Line(
        ref_lines["maxstandDev"],
        "Solid",
        "Red",
        "+3SP",
        1
       ), Add Ref Line( ref_lines["meanAmount"], "Solid", "Green", "Mean", 1 )}
      )
     )
    )
   ),
  Expr( __myvar__ ), namevar
 )
); 



Eval(
 Substitute(
   Expr(
    Control Chart Builder(
     Size( 1187, 500 ),
     Show Capability( 0 ),
     Variables( Subgroup( :Lot Number ), Y( As Column( namevar ) ) ),
     Chart( Position( 1 ), Limits( Sigma( Moving Range ) ) ),
     Chart( Position( 2 ), Limits( Sigma( Moving Range ) ) ),
     SendToReport(
      Dispatch(
       {},
       __myvar__,
       ScaleBox,
       {Min( 0.00779755917159763 ), Max( 0.0125370562130178 ), Inc( 0.0005 ), Minor Ticks( 0 ),
       Add Ref Line( 0.012, "Solid", "Blue", "USL (0.012)", 1 ), Add Ref Line( 0.008, "Solid", "Blue", "LSL (0.008)", 1 )}
      )
     )
    )
   ),
  Expr( __myvar__ ), namevar
 )
);

Re: Plus d'aide avec Modal

Salut txnelson,

 

Cela a fonctionné comme une gâterie, une dernière question, en utilisant votre réponse comme modèle ne devrait pas aussi fonctionner comme suit ??

 

Eval ( 
  Substitute ( 
      Expr (
      Graph Builder(
      Variables( Column ( As Column (namevar) ) ) ),
      Elements( Histogram( X, Legend( 2 ) ), Histogram( X, Legend( 3 ) ) ),
      Local Data Filter,
      SendToReport(
      Dispatch( {}, "Histogram", OutlineBox, {Close( 1 )} ),
      Dispatch( {}, "Histogram", Outline Box( 2 ), {Close( 1 )} ),
      Dispatch( { __myvar__ }, " ",
      ScaleBox,
      {Min( hist_param ["miniAmount"] ), Max(hist_param ["maxAmount"] ), Inc(hist_param ["increaseAmount"] ), Minor Ticks( 0 ),
      Add Ref Line( ref_lines ["lowerLimit"], "Solid", "Blue", "LSL", 1 ),
      Add Ref Line( ref_lines["UpperLimit"], "Solid", "Blue", "USL", 1 ),
      Add Ref Line( ref_lines ["lesstandDev"], "Solid", "Red", "-3SP", 1 ),
      Add Ref Line(ref_lines ["maxstandDev"], "Solid", "Red", "+3SP", 1 ),
      Add Ref Line( ref_lines ["meanAmount"], "Solid", "Green", "Mean", 1 )}
      Expr ( __myvar__ ), namevar
   ) ) )
  )
 )
);



Eval ( 
  Substitute ( 
      Expr (
      Control Chart Builder(
      Size( 1187, 500 ),
      Show Capability( 0 ),
      Variables(
      Subgroup( :Lot Number ),
      Y( Column ( As Column (namevar) ) )
      ),
      Chart( Position( 1 ), Limits( Sigma( Moving Range ) ) ),
      Chart( Position( 2 ), Limits( Sigma( Moving Range ) ) ),
      SendToReport(
      Dispatch( { __myvar__ }, " ",
      ScaleBox,
      {Min( 0.00779755917159763 ), Max( 0.0125370562130178 ), Inc( 0.0005 ),
      Minor Ticks( 0 ), Add Ref Line(
      0.012,
      "Solid",
      "Blue",
      "USL (0.012)",
      1
      ), Add Ref Line( 0.008, "Solid", "Blue", "LSL (0.008)", 1 )}
      Expr ( __myvar__ ), namevar
  ) ) ) )
 )
);

C'est pour un histogramme et une carte de contrôle, mais je n'arrive pas à le faire fonctionner.

 

 

Merci beaucoup

Re: Plus d'aide avec Modal

Merci pmroz, vous ne vous êtes pas trompé, ma mise en forme est affreuse et une chose sur laquelle je dois travailler, je n'ai pas utilisé le bouton car je voulais mettre en évidence quelque chose dans le code et utiliser le bouton ne me laissait pas surligner!!!!

Re: Plus d'aide avec Modal

Le problème principal que vous rencontrez est que deux endroits où vous souhaitez utiliser votre variable appelée "nameVar" doivent être spécifiés de manière à ce que JMP les analyse correctement.  

Dans la référence 

distrib = New Window( namevar,

Vous ne faites que traiter avec un élément de chaîne, et JMP gérera simplement le nom de variable ...... tant que le contenu de la variable nameVar est une chaîne, cela fonctionnera.

Dans la référence

Column( As Column( namevar ) ),

Vous devez indiquer à JMP de traiter la variable nameVar comme une référence de colonne, ce qui peut simplement être effectué à l'aide de la fonction As Column ().

Votre dernier problème est plus difficile.  JMP n'évaluera pas le SendToReport.  Il suppose qu'il s'agit simplement d'un code correct et ne fera aucune évaluation de variable.  Par conséquent, la fonction Substitution () peut être utilisée pour effectuer l'évaluation, puis transmettre le code à JMP à exécuter.

Eval(
 Substitute(
   Expr(
    distrib = New Window( namevar,
     Distribution(
      Continuous Distribution(
       Column( As Column( namevar ) ),
       Normal Quantile Plot( 1 ),
       Fit Distribution( Normal( Goodness of Fit( 1 ) ) )
      ),
      SendToReport( Dispatch( {__myvar__}, "", Picture Box( 5 ), {Set Summary Behavior( "Collapse" )} ) )
     )
    ) << Move Window( 634, 43 ) << Size Window( 807, 861 ) << Set Window Icon( "Distrib" )
   ),
  Expr( __myvar__ ), namevar
 )
);

Voici le script complet

Names Default To Here( 1 );
Clear Symbols();

pb = Page Break Box(); 

fileopen = "\\Kate\TIV\JMP Data.jmp";

var_name = New Window( "Variable Analysis",
 <<MODAL></MODAL>

Re: Plus d'aide avec Modal

Tu y es presque.  Essayez ce code.  J'ai remplacé votre fichier par Big Class parce que je n'avais pas votre jeu de données.

Names Default To Here( 1 );

//fileopen = "\\Kate\TIV\JMP Data.jmp";
fileopen = "$sample_data\Big Class.jmp";
dt = open(fileopen);

var_name = New Window( "Variable Analysis", <<MODAL></MODAL>

BTW il serait utile lors de la publication du code si vous utilisez le bouton .  Le formatage ne ferait pas de mal non plus!