Martin Hebl
Requires "Channel Monitor" control
12-22-2004
Version 1


INIT:
'Set as default macro
!DEFS (ME)
!MACR .OBJECTS
' Set Queue size
!QSIZ 8471
' Set analog span
!SPAN  0, 250
' Set max time
!TMAX 120
' Set X label
!XLBL Seconds
' Set number of samples
!PNTS 3000
' Shift left at max
!SHFT ON
' Title plot
!TITL Four Channel Monitors
' Set display information
!DISP D9 G2 A0 S0 B15 R

ENDMAC

OBJECTS:
!POBJ Clear
!PPER 65,100

' Set Back Color ******** 
!POBJ oBack=misc\background.jpg
' Timer 0 code and interval ********
!POBJ oTimer0.C=!POBJ Update
!POBJ oTImer0= 0

'   ch0 -- POCX:CHANNEL_MONITOR_OBJ *****
!POBJ CHANNEL_MONITOR_OBJ.ch0=66.,99.,30.,20.,Channel 0,200,1,0
!POBJ ch0.Low Alarm=0
!POBJ ch0.Color=&H000000
!POBJ ch0.Trigger=0
!POBJ ch0.Trigger Interval=5
!POBJ ch0.Max Value=200
!POBJ ch0.PopUp Menu=1
!POBJ ch0.Alarm Value=100
!POBJ ch0.tip=Channel Monitor

'   ch1 -- POCX:CHANNEL_MONITOR_OBJ *****
!POBJ CHANNEL_MONITOR_OBJ.ch1=66.,76.,30.,20.,Channel 1,200,1,1
!POBJ ch1.Low Alarm=0
!POBJ ch1.Color=&HA00000
!POBJ ch1.Trigger=0
!POBJ ch1.Trigger Interval=5
!POBJ ch1.Max Value=200
!POBJ ch1.PopUp Menu=1
!POBJ ch1.Alarm Value=79
!POBJ ch1.tip=Channel Monitor

'   ch2 -- POCX:CHANNEL_MONITOR_OBJ *****
!POBJ CHANNEL_MONITOR_OBJ.ch2=66.,54.,30.,20.,Channel 2,200,1,2
!POBJ ch2.Low Alarm=0
!POBJ ch2.Color=&H408000
!POBJ ch2.Trigger=0
!POBJ ch2.Trigger Interval=5
!POBJ ch2.Max Value=200
!POBJ ch2.PopUp Menu=1
!POBJ ch2.Alarm Value=107
!POBJ ch2.tip=Channel Monitor

'   ch3 -- POCX:CHANNEL_MONITOR_OBJ *****
!POBJ CHANNEL_MONITOR_OBJ.ch3=66.,32.,30.,20.,Channel 3,200,1,3
!POBJ ch3.Low Alarm=0
!POBJ ch3.Color=&H808040
!POBJ ch3.Trigger=0
!POBJ ch3.Trigger Interval=5
!POBJ ch3.Max Value=200
!POBJ ch3.PopUp Menu=1
!POBJ ch3.Alarm Value=80
!POBJ ch3.tip=Channel Monitor

'   butSave -- OBUTTON *****
!POBJ oButton.butSave=68.,10.,12.,5.,Save Settings,8
!POBJ butSave.F=Arial,8,1,0
!POBJ butSave.tip=Saves plot and control settings to registry
'-- Event Code
!POBJ butSave.C=!SSET ch_mon


'   butLoad -- OBUTTON *****
!POBJ oButton.butLoad=82.,10.,12.,5.,Load Settings,8
!POBJ butLoad.F=Arial,8,1,0
!POBJ butLoad.tip=Load plot and control settings from registry
'-- Event Code
!POBJ butLoad.C=!GSET ch_mon


'   butFocus -- OBUTTON *****
!POBJ oButton.butFocus=25.,34.,10.,5.,Obj7,8
!POBJ butFocus.F=Arial,8,0,0

ENDMAC