FCAP BASIC Pogram Example

REM ** EXAM_06.PRO **

REM Two New Parameters

SetFileTypes ListModeFile, "FCLM", "TEXT", "SFWF"
SelectFile ListModeFile, "First LM file (4 par)"
SelectFile ListModeFile, "Second LM file (4 par)"
SelectFile ListModeFile, "Third LM file (4 par)"

OpenLMFile "", "First LM file (4 par)"
DEF FNRatio( @x,@y ) = "@x/@y"
NewParameter "Ratio", FNratio( @x=@P3, @y=@P4 ), LIN, 1024, 0, 10
NewHgr 1, 2, "All[FS,SS]" of All
NewHgr 1, 5, "All[FS,Ratio]" of All
NewHgr 5, "Red[Ratio]" of Red
NewHgr 5, "Green[Ratio]" of Green
ShowHgr "Green[Ratio]", 0.7, 5.3, 33.3, 33.3, LP
ShowHgr "Red[Ratio]", 34.6, 5.3, 33.3, 33.3, LP
ShowHgr "All[FS,Ratio]", 0.7, 41.3, 33.3, 33.3, DP
ShowHgr "All[FS,SS]", 34.6, 41.3, 33.3, 33.3, DP
NewGate "All[FS,SS]", "G1", Red, ( 183,146; 183,29; 576,8; 614,117; 229,188; 183,146 )
NewGate "All[FS,SS]", "G2", Red, ( 271,221; 614,133; 823,296; 681,455; 434,434; 271,221 )
SetGateColor "All[FS,SS]", "G2", Green
Classify

CloseLMFile
Def FNsum (@x,@y)="@x+@y"
OpenLMFile "", "Second LM file (4 par)"
NewParameter "Sum", FNsum( @x=@P3, @y=@P4 ), LIN, 1024, 0, 2000
NewHgr 1, 2, "All:[FS,SS]" of All
NewHgr 1, 5, "All:[FS,Sum]" of All
NewHgr 5, "Red[Sum]" of Red
NewHgr 5, "Green[Sum]" of Green
ShowHgr "Green[Sum]", 0.7, 5.3, 33.3, 33.3, LP
ShowHgr "Red[Sum]", 34.6, 5.3, 33.3, 33.3, LP
ShowHgr "All:[FS,Sum]", 0.7, 41.3, 33.3, 33.3, DP
ShowHgr "All:[FS,SS]", 34.6, 41.3, 33.3, 33.3, DP
NewGate "All:[FS,SS]", "G1", Red, ( 183,146; 183,29; 576,8; 614,117; 229,188; 183,146 )
NewGate "All:[FS,SS]", "G2", Green, ( 271,221; 614,133; 823,296; 681,455; 434,434; 271,221 )
Classify

CloseLMFile
OpenLMFile "", "Third LM file (4 par)"
NewParameter "Sum", FNsum( @x=@P3, @y=@P4 ), LIN, 1024, 0, 2000
NewParameter "Ratio", FNratio( @x=@P3, @y=@P4 ), LIN, 1024, 0, 10
NewHgr 1, 2, "All![FS,SS]" of All
NewHgr 1, 5, "All![FS,Sum]" of All
NewHgr 5, "Red![Sum]" of Red
NewHgr 5, "Green![Sum]" of Green
NewHgr 6, "Red![Ratio]" of Red
NewHgr 6, "Green![Ratio]" of Green

ShowHgr "Green![Sum]", 0.7, 5.3, 33.3, 33.3, LP
ShowHgr "Red![Sum]", 34.6, 5.3, 33.3, 33.3, LP
ShowHgr "All![FS,Sum]", 0.7, 41.3, 33.3, 33.3, DP
ShowHgr "All![FS,SS]", 34.6, 41.3, 33.3, 33.3, DP
ShowHgr "Green![Ratio]", 0.7, 5.3, 33.3, 33.3, LP
ShowHgr "Red![Ratio]", 34.6, 5.3, 33.3, 33.3, LP
NewGate "All![FS,SS]", "G1", Red, ( 183,146; 183,29; 576,8; 614,117; 229,188; 183,146 )
NewGate "All![FS,SS]", "G2", Green, ( 271,221; 614,133; 823,296; 681,455; 434,434; 271,221 )
Classify

Click here to Download FCAP BASIC Examples

Click here to Copy FCAP BASIC Examples from this CD-ROM