' MCU Tracer Program
' Jack Walton & Martin Hebel


INIT:


!MACR .OBJECTS
' Set as default/startup macro
!DEFS (ME)
' Use DLBCLICK Routine
!USEC ON
' Set analog span
!SPAN  0, 100
' Set max time
!TMAX 400
' Set X label
!XLBL PLATE VOLTAGE
' Set Y Label
!YLBL PLATE CURRENT
' Title plot
!TITL MCUTracer
' Set display information
!DISP D9 G2 A0 S0 B15 R
' Use double-click Routine
!USEC ON


ENDMAC

OBJECTS:
!POBJ Clear
!PPER 70,100

' Set Back Color ******** 
!POBJ oBack=0

'   lblControlPanel -- OLABEL *****
!POBJ oLabel.lblControlPanel=72.,98.,26.,51.,   MCUTracer Control ,1,14,11,1
!POBJ lblControlPanel.F=Lucida Console,11,0,0

'   lblPV -- OLABEL *****
!POBJ oLabel.lblPV=73.,94.,24.,5.,Plate Voltage,,14,9,0
!POBJ lblPV.F=Lucida Console,9,1,0

'   lblVStep -- OLABEL *****
!POBJ oLabel.lblVStep=90.,91.,4.,4.,Step,,14,10,0
!POBJ lblVStep.F=Lucida Console,10,0,0

'   lblGV -- OLABEL *****
!POBJ oLabel.lblGV=73.,80.,24.,5.,Grid Voltage,,14,9,0
!POBJ lblGV.F=Lucida Console,9,1,0

'   lblGVStep -- OLABEL *****
!POBJ oLabel.lblGVStep=89.,77.,6.,4.,Step,,14,10,0
!POBJ lblGVStep.F=Lucida Console,10,0,0

'   lblAMPS -- OLABEL *****
!POBJ oLabel.lblAMPS=76.,66.,15.,11.,Max. Plate Current (mA):,,14,9,0
!POBJ lblAMPS.F=Lucida Console,9,0,0

'   chkRun -- OCHECK *****
!POBJ oCheck.chkRun=53.,52.,15.,5.,chkRun,0,,0,9
!POBJ chkRun.V=0

'   lblGVMin -- OLABEL *****
!POBJ oLabel.lblGVMin=74.,77.,4.,4.,Min,1,14,10,0
!POBJ lblGVMin.F=Lucida Console,10,0,0

'   lblGVMax -- OLABEL *****
!POBJ oLabel.lblGVMax=81.,77.,5.,4.,Max,1,14,10,0
!POBJ lblGVMax.F=Lucida Console,10,0,0

'   lblPVMin -- OLABEL *****
!POBJ oLabel.lblPVMin=73.,91.,5.,3.,Min,1,14,10,0
!POBJ lblPVMin.F=Lucida Console,10,0,0

'   lblPVMax -- OLABEL *****
!POBJ oLabel.lblPVMax=81.,91.,5.,3.,Max,1,14,10,0
!POBJ lblPVMax.F=Lucida Console,10,0,0

'   txtPVMin -- OTEXT *****
!POBJ oText.txtPVMin=74.,87.,5.,4.3,0,15,0,9

'   txtPVMax -- OTEXT *****
!POBJ oText.txtPVMax=82.,87.,6.,4.3,400,15,0,9

'   txtPVStep -- OTEXT *****
!POBJ oText.txtPVStep=90.,87.,5.,4.3,10,15,0,9

'   txtGVMin -- OTEXT *****
!POBJ oText.txtGVMin=74.,73.,5.,4.3,0,15,0,9

'   txtGVMax -- OTEXT *****
!POBJ oText.txtGVMax=82.,73.,6.,4.3,50,15,0,9

'   txtGVStep -- OTEXT *****
!POBJ oText.txtGVStep=90.,73.,5.,4.5,2,15,0,9

'   txtPlateMax -- OTEXT *****
!POBJ oText.txtPlateMax=90.,65.,4.,4.,10,15,0,9
!POBJ txtPlateMax.F=Lucida Console,9,0,0

'   butRun -- OBUTTON *****
!POBJ oButton.butRun=73.,58.,5.,4.,Run,9
!POBJ butRun.F=Lucida Console,9,0,0
'-- Event Code
!POBJ butRun.C=!POBJ chkRun=1(;)
!POBJ Stat = Waiting To Run


'   butSTOP -- OBUTTON *****
!POBJ oButton.butSTOP=81.,58.,6.,4.,STOP!,9
!POBJ butSTOP.F=Lucida Console,9,0,0
'-- Event Code
!POBJ butSTOP.C=!POBJ ChkRun=0(;)
!POBJ Stat = Waiting To Stop(;)



'   butClear -- OBUTTON *****
!POBJ oButton.butClear=90.,58.,6.,4.,Clear,9
!POBJ butClear.F=Lucida Console,9,0,0
'-- Event Code
!POBJ butClear.C=!RSET(CR)!CLRC(;)
!POBJ Stat=Cleared(;)



'   txtName -- OTEXT *****
!POBJ oText.txtName=72.,46.,12.,5.,ECC83,15,0,10
!POBJ txtName.F=Lucida Console,10,0,0

'   txtDT -- OTEXT *****
!POBJ oText.txtDT=72.,39.,26.,4.2,12/21/03 21:34:52,15,0,10
!POBJ txtDT.F=Lucida Console,10,0,0

'   Obj12 -- OLABEL *****
!POBJ oLabel.Obj12=72.,27.,26.,25.,Interface,9,14,14,1
!POBJ Obj12.F=Lucida Console,14,1,0

'   lblCom -- OLABEL *****
!POBJ oLabel.lblCom=74.,22.,10.,4.,Com Port:,,14,10,0
!POBJ lblCom.F=Lucida Console,10,0,0

'   drpCOM -- ODROP *****
!POBJ oDrop.drpCOM=84.,23.,6.,3.7,8,1,2,3,4,5,6,7,8,9,10,1
!POBJ drpCOM.F=Lucida Console,8,0,0
'-- Event Code
!POBJ drpCOM.C=!PORT ((ME))(;)
!POBJ chkConnect=0


'   chkConnect -- OCHECK *****
!POBJ oCheck.chkConnect=75.,18.,15.,3.7,Connect,0,9,14,10
!POBJ chkConnect.F=Lucida Console,10,0,0
'-- Event Code
!POBJ chkConnect.C=!PLOT ((ME))(;)
!CONN ((ME))


'   butSave -- OBUTTON *****
!POBJ oButton.butSave=73.,8.,16.,5.,Take Snapshot,9
!POBJ butSave.F=Lucida Console,9,0,0
'-- Event Code
!POBJ butSave.C=!FORM ON(;)
!SNAP (txtName)(;)
!APPA (SNAP)


'   butCurrDT -- OBUTTON *****
!POBJ oButton.butCurrDT=72.,33.,26.,5.,Set Current Date-Time,10
!POBJ butCurrDT.F=Lucida Console,10,0,0
'-- Event Code
!POBJ butCurrDT.C=!POBJ txtDT=(PRDT)


'   btnSave -- OBUTTON *****
!POBJ oButton.btnSave=92.,46.,6.,5.,Save,9
!POBJ btnSave.tip=Save setting under device name
!POBJ btnSave.F=Lucida Console,9,0,0
'-- Event Code
!POBJ btnSave.C=!SSET (txtName)(;)
!POBJ txtStat = Settings Saved


'   btnLoad -- OBUTTON *****
!POBJ oButton.btnLoad=85.,46.,6.,5.,Load,9
!POBJ btnLoad.tip=Load Settings under device name
!POBJ btnLoad.F=Lucida Console,9,0,0
'-- Event Code
!POBJ btnLoad.C=!GSET (txtName)(;)
!POBJ txtStat = Settings Loaded(;)



'   txtText -- OTEXT *****
!POBJ oText.txtText=73.,13.,24.,4.2,Double-Click Plot to Place Text,15,0,8
!POBJ txtText.F=Lucida Sans Unicode,8,0,0

'   Stat -- OLABEL *****
!POBJ oLabel.Stat=73.,53.,23.,4.,Status,14,1,9,1
!POBJ Stat.F=Lucida Console,9,1,0

'   Obj34 -- OBUTTON *****
!POBJ oButton.Obj34=58.,31.,10.,5.,Obj34,8
!POBJ Obj34.V=0

ENDMAC

DBLCLICK:


@TEXT (XR),(YR),0.9A,9,(txtText)


ENDMAC