Dyalog MiServer 3 Sample Site

2 in the range from 1 to 3: 13
0%: 0%100%

:class meterSimple: MiPageSample 
⍝ Control:: _html.meter 
⍝ Description:: Display a gauge for measurement within a given range 
 
    ∇ Compose 
      :Access public 
      (min val max)←+\?3/9 
      Add(val' in the range from 'min' to 'max': 'min) 
      ('value'val)('min'min)('max'max)Add _.meter 
      Add max 
       
      Add _.br 
 
      pct←?0 
      Add(⍕⌊0.5+100×pct),'%: 0%' 
      (⊂'value'pct)Add _.meter 
      Add '100%' 
      
    ∇ 
:endclass 

Controls used on this page: Base HTML: br, meter