Input Screen

[Bob Frazee]

I'm not sure this is what you want, but here is some code I extracted from another program I am working on. Just cut and paste it into the virtual calculator or connectivity kit editor.

Code:

BasePress;BaseTemp;AtmPress;
PipeExpnA1;ElmtExpnA2;

EXPORT InputForm1()
BEGIN

BasePress:=0;BaseTemp:=0;AtmPress:=0;
PipeExpnA1:=0;ElmtExpnA2:=0;

REPEAT
INPUT({{BasePress,[0],{45,30,1}},
             {BaseTemp,[0],{45,30,2}},
             {AtmPress,[0],{45,30,3}},
             {PipeExpnA1,[0],{45,30,4}},  
             {ElmtExpnA2,[0],{45,30,5}}},

       {"Gas Base Properties Setup"},

       {"Base Psia:",
        "Base DegF:",
        "Atm Psia:",
        "Pipe Expansion:",
        "Element Expansion:"},
 
      {"Enter Gas Base Pressure",
        "Enter Gas Base Temperature",
        "Enter Atmospheric Pressure",
        "Enter Pipe Expansion, in/(in−°F)*1E−7",
        "Enter Element Expansion, in/(in−°F)*1E−7"},

       {BasePress,BaseTemp,AtmPress,
        PipeExpnA1,ElmtExpnA2},
       {BasePress,BaseTemp,AtmPress,
        PipeExpnA1,ElmtExpnA2}); 

PipeExpnA1:=BasePress*BaseTemp;
ElmtExpnA2:=BasePress*BaseTemp*AtmPress;

UNTIL BasePress=0;
END;

The 3 inputs are BasePress, BaseTemp, and AtmPress. The 2 outputs are PipeExpnA1 and ElmtExpnA2 which are calculated values. To exit, enter 0 in the "Base Psia" (BasePress) field.
rcf