54255_en-US

liliconcom

Combined and Connected Number Edit Box and Slider Box

Problem

In many situations, when you are using a slider box to control a numeric variable, you also want a editable number display to display the value of the variable, and that allows you to manually set the value of the variable.  

 

The current way to do this is to create two display objects: a Number Edit Box() and a Slider Box().  You have to code this in such a way that they are connected.  In addition, the way the number edit box interacts with changes to manually entered values (using <

 

I often find myself having to take a lot of time reading the scripting guide on how to create these objects and how to connect them. (I wish there were an built in JMP display object like this)

Solution

I have created a function SliderNumberEditBox() that creates an evaluated expression that creates both display boxes together. These display boxes will be connected as described above.  It takes as arguments character strings that define the references to the Number Edit Box, the initial value for the Number Edit Box, the reference to the Slider Box, the upper and lower range for the slider box, the variable that is controlled by the slider box, and optionally, the expression you want to run when the Number Edit Box is updated manually, and the expression you want to run when the Slider Box is changed.  (note that the expressions must be defined as character strings, and the appropriate escape sequences must be used for reserved characters that you want quoted inside the string).  

SliderNumberEditBox = Function( {nebref, nebinitval, sbref, sblower, sbupper, sbvar, nebFunction = "", sbFunction = ""}, 

 Eval(
  Parse(

   "H List Box(" || nebref || " = Number Edit Box(" || nebinitval || ",
  <<SET function=""></SET>

The function uses string concatenation to create the entire string version of the expression for the display boxes, and then parses the string into an expression and returns the evaluated expression.

Syntax

SliderNumberEditBox(string for the reference to the number edit box, string for the initial value of the number edit box, string for the reference to the slider box, string for the lower range of the slider, string for the upper range of the slider, string for the variable controlled by the slider, , )

 

k = 1;
SliderNumberEditBox(
   "_neb1",
   Char( k ),
   "_sb1",
   "0",
   "2",
   "k")

returns the evaluated expression below

H List Box(
 _neb1 = Number Edit Box(
  0.5,
  <<SET function=""></SET>

Example

SliderNumberEditBox = Function( {nebref, nebinitval, sbref, sblower, sbupper, sbvar, nebFunction = "", sbFunction = ""}, 

 Eval(
  Parse(

   "H List Box(" || nebref || " = Number Edit Box(" || nebinitval || ",
  <<SET function=""></SET>

creates a window that looks like this (I changed the slider box to a different value)

Re: Combined and Connected Number Edit Box and Slider Box

I was looking through the Community for some good examples of using Eval/Eval Expr when I came accross this and thought I would share my implementation of the SliderNumberEditBox function that uses expression building rather than string concatenation.

Many of the arguments passed into the function are no longer strings and there is now an option nsName argument for providing the name of the namespace the variables should exist (defaults to global).

SliderNumberEditBox = Function( {nebref, nebinitval, sbref, sblower, sbupper, sbvar, 
    nsName = "global", nebFunction = Expr(), sbFunction = Expr()}, 
  Eval( // evaluate to create the diplay boxes
    Eval Expr( // evaluate everything wrapped with Expr()
      H List Box(
        // Create the Number Edit Box
        // As Scoped() is used when the variable names are to be dynamic
        As Scoped( Expr( nsName ), Expr( nebref ) ) = Number Edit Box(
          Expr( nebinitval ),
          <<SET function=""></SET>

 Anyone interested in more about expression building might check out @ih's post in the JSL Cookbook: Insert one expression into another using Eval Insert, Eval Expr, Parse, and Substitute

Re: Combined and Connected Number Edit Box and Slider Box

I wooder if I should add to the "JMP Wish List" that the Slider Box() have an option to have a connected Number Edit Box(), or that a new display object be created that does this function does.

Re: Combined and Connected Number Edit Box and Slider Box

Cool! You can set the contents of a text box without recreating it, which makes the example easier to read:

k = 1;
_nw = New Window( "Slider Number Edit Box",
 _vlb = V List Box(
  SliderNumberEditBox(
   "_neb1",
   Char( k ),
   "_sb1",
   "0",
   "2",
   "k",
   "_tb << settext(\!"The number is \!" || char(k))",
   "_tb << settext(\!"The number is \!" || char(k))"
  ),
  _tb = Text Box( "The number is " || Char( k ) )
 )
);