SBP ' ************************************************************************* ' * METER.SBP Meter Program done with form on the fly. ' * ' * Marc Pellus - (08/20/93) ' *************************************************************************  ÿÿmain() ÿƒCreateMeter(1517,1034,"Processing records, Please Wait...",8,13,1) ÿ›a%%ÿ1ÿq15 ÿƒUpdateMeter(1517,1034,a%%,15) ÿÏÿ›.3 ÿ±a%% ÿƒRemoveMeter(1517,1034) ÿ’ÿÿ ' ************************************************************************* ' * CreateMeter() - This procedure uses form on the fly to create the ' * meter window ' * AxisX%% - X location of the meter ' * AxisY%% - Y location of the meter ' * MergeText$ - Text to be placed on the meter box ' * TextSize%% - Point size of text 8 or 10 ' * GaugeColor%% - Refer to Superbase color ref. on set form fg ' * GaugeRaised%% - Use raised effect on the gauge 0=no, 1=yes ' * ' * Example : CALL CreateMeter (1517,1034,"Processing records, Please wait...",8,13,1) ' * Result : The meter window be placed at x,y location with the text. ' ************************************************************************* ÿÿCreateMeter(AxisX%%,AxisY%%,MergeText$,TextSize%%,GaugeColor%%,GaugeRaised%%) ÿÊÿœÿs3 ÿ¡ÿœÿ""ÿpÿ‰ÿœ"METERZ",7999,10558 ÿÊÿœÿÑ8,1ÿÖ388,16,1,0,2 ÿ|ÿœ1,AxisX%%,AxisY%%,3967,667 ÿÊÿœÿÖ516 ÿ|ÿœ1,AxisX%%ÿ200,AxisY%%ÿ233,3567,234 ÿÊÿœÿÑ0ÿÖ0 ÿ–"SET FORM TEXT ~MS Sans Serif,"ÿÿH(ÿ(TextSize%%))ÿ",0,34,0~" ÿ|ÿœ5,AxisX%%ÿ148,AxisY%%ÿ25,3867,167,MergeText$ ÿ|ÿœ5,AxisX%%ÿ1960,AxisY%%ÿ483,309,167,"0 %" GaugeRaised%%ÿÿ¡(GaugeRaised%%ÿ0,0,260) ÿÊÿœÿÑGaugeColor%%,GaugeColor%%ÿÖGaugeRaised%%,16,1,0,2 ÿ|ÿœ1,AxisX%%ÿ233,AxisY%%ÿ266,10,167 ÿÊÿœÿÑ1 ÿ|ÿœ5,AxisX%%ÿ163,AxisY%%ÿ25,3867,167,MergeText$ ÿ|ÿœ5,AxisX%%ÿ1975,AxisY%%ÿ483,309,167,"0 %" ÿœ ÿ’ÿÿ ' ************************************************************************* ' * UpdateMeter() - This procedure uses form on the fly to update the % ' * of the job. ' * AxisX%% - X location of the meter ' * AxisY%% - Y location of the meter ' * VMin%% - Minimum number of the meter ' * VMax%% - Maximum number of the meter ' * ' * Example : CALL UpdateMeter (1517,1034,1,5) ' * Result : Updates the meter bar ' ************************************************************************* ÿÿUpdateMeter(AxisX%%,AxisY%%,VMin%%,VMax%%) ÿ®ÿœ1,AxisX%%ÿ233,AxisY%%ÿ266,AxisX%%ÿ233,AxisY%%ÿ266,(3500ÿVMax%%)ÿVMin%%,167 ÿ®ÿœ5,AxisX%%ÿ1975,AxisY%%ÿ483,AxisX%%ÿ1975,AxisY%%ÿ483,379,167,ÿH(ÿF(ÿ((100ÿVMax%%)ÿVMin%%,3,0)))ÿ" %" ÿ®ÿœ5,AxisX%%ÿ1960,AxisY%%ÿ483,AxisX%%ÿ1960,AxisY%%ÿ483,379,167,ÿH(ÿF(ÿ((100ÿVMax%%)ÿVMin%%,3,0)))ÿ" %" ÿœ ÿ’ÿÿ ' ************************************************************************* ' * RemoveMeter() - This procedure removes the meter box from the form ' * AxisX%% - X location of the meter ' * AxisY%% - Y location of the meter ' * ' * Example : CALL RemoveMeter (1517,1034) ' * Result : Removes the meter from the screen ' ************************************************************************* ÿÿRemoveMeter(AxisX%%,AxisY%%) ÿ¡ÿœÿ"METERZ"ÿpÿ†ÿœ:ÿ’ÿÿ ÿ¾ÿœ1,AxisX%%,AxisY%% ÿ¾ÿœ1,AxisX%%ÿ200,AxisY%%ÿ233 ÿ¾ÿœ5,AxisX%%ÿ148,AxisY%%ÿ25 ÿ¾ÿœ5,AxisX%%ÿ1960,AxisY%%ÿ483 ÿ¾ÿœ1,AxisX%%ÿ233,AxisY%%ÿ266 ÿ¾ÿœ5,AxisX%%ÿ163,AxisY%%ÿ25 ÿ¾ÿœ5,AxisX%%ÿ1975,AxisY%%ÿ483 ÿœ ÿ’ÿÿ