FCAP BASIC Pogram Example

REM ** EXAM_20.PRO **

REM New Parameter w FCAP-list and Basic functions

SetFileTypes ListModeFile, "FCLM", "TEXT", "SFWF"
SelectFile ListModeFile, "First LM file (4 par)"
SelectFile ListModeFile, "Second 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

Click here to Download FCAP BASIC Examples

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