
' read back the data with :TRAC:DATA? command
strBuffer = ":TRAC:DATA?"

Private Sub Form_Load()
    Label3.Caption = "* Enter a command into the Command textbox." & vbCrLf _
    & "* Press Execute to send the command to the DMM." & vbCrLf _
    & "* Data returned from the DMM will be displayed in DMM Output textbox."
    
    ' populate list box with commands
lstCmds.AddItem "*RST"      'Clear registers)
lstCmds.AddItem "*CLS"       'Clear Model 2000
lstCmds.AddItem ":INIT:CONT OFF;:ABORT"    'Init off
lstCmds.AddItem ":SENS:FUNC 'VOLT:DC'"       'DCV volts
lstCmds.AddItem ":SYST:AZER:STAT ON"        'Auto zero on
lstCmds.AddItem ":SENS:VOLT:DC:AVER:STAT OFF"    'Filter off
lstCmds.AddItem ":SENS:VOLT:DC:NPLC 1"        'NPLC = 1
lstCmds.AddItem ":SENS:VOLT:DC:RANG 1"       '1V range
lstCmds.AddItem ":SENS:VOLT:DC:DIG 7"       '6.5 digit
lstCmds.AddItem ":FORM:ELEM READ, CHAN"    'Send Reading and Chan in results
lstCmds.AddItem ":TRIG:COUN 1"           'Trig count 1
lstCmds.AddItem ":SAMP:COUN 4"             'Sample count 4
lstCmds.AddItem ":TRIG:DEL 0"              'No trigger delay
lstCmds.AddItem ":TRIG:SOUR IMM"           'Immediate trigger
lstCmds.AddItem ":ROUT:SCAN:INT (@1,2,3,4)"    'Set scan list
lstCmds.AddItem ":ROUT:SCAN:LSEL INT"       'Internal scan
lstCmds.AddItem ":TRAC:CLE"               'Clear buffer"
lstCmds.AddItem ":TRAC:POIN 4"          'Sample count 4
lstCmds.AddItem ":TRAC:FEED SENS"             'Feed
lstCmds.AddItem ":TRAC:FEED:CONT NEXT"
lstCmds.AddItem ":INIT"      'Start each scan"


    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ' When the Demo form is unloaded, Reset the DMM, set it to LOCAL
    ' and then unload the Instruction form
   
    MSComm1.PortOpen = True
    MSComm1.Output = "*RST" & Chr(13)
    MSComm1.Output = ":SYSTEM:LOCAL" & Chr(13)
    MSComm1.PortOpen = False
    Unload frmInstruct

End Sub

*RST
*CLS
:INIT:CONT OFF;:ABORT
:SENS:FUNC 'VOLT:DC
:SYST:AZER:STAT ON
:SENS:VOLT:DC:AVER:STAT OFF
:SENS:VOLT:DC:NPLC 1
:SENS:VOLT:DC:RANG 1
:SENS:VOLT:DC:DIG 7
:FORM:ELEM READ, CHAN
:TRIG:COUN 1
:SAMP:COUN 4
:TRIG:DEL 0
:TRIG:SOUR IMM
:ROUT:SCAN:INT (@1,2)
:ROUT:SCAN:LSEL INT
:TRAC:CLE
:TRAC:POIN 4
:TRAC:FEED SENS
:TRAC:FEED:CONT NEXT
:INIT

*RST\r\n*OPT?\r\n:Sens:Func\s'Fres'\r\n:Stat:Meas:Enab\s512;*CLS\r\n:Trig:Sour\sTim;Count\s10;Del\s0;Tim\s0.25;:Sample:Count\s1\r\n:Route:Scan:Int\s(@1:2);Lsel\sInt\r\n:Trace:Feed\sSens;Points\s10;Feed:Cont\sNext\r\n:Init\r\n*STB?\r\n*STB?\r\n*STB?\r\n*STB?\r\n*STB?\r\n:Stat:Meas:Event?\r\n:Format:Elem\sRead;:Trace:Data?\r\n*RST\r\n:Sens:Fresistance:Dig\s7\r\n:Sens:Fresistance:Aver:Count\s10;Tcon\sREP;Stat\s0\r\n:Sens:Fresistance:Range\s1000\r\n:Sens:Fresistance:NPLC\s1\r\n:Sens:Func\s'Fresistance'\r\nRead?\r\nRead?\r\n:Init:Cont\sOff;:Abort\r\n:Trig:Sour\sTim;Tim\s0.5\r\n:Trig:Count\s10\r\n:Trace:Clear;Points\s10;Feed\sSens\r\n:Trace:Feed:Control\sNext\r\n*CLS\r\n:Init\r\n:Stat:Meas:Event?\r\n:Stat:Meas:Event?\r\n:Stat:Meas:Event?\r\n:Stat:Meas:Event?\r\n:Stat:Meas:Event?\r\n:Stat:Meas:Event?\r\n:Format:Elem\sRead;:Trace:Data?\r\n:Init:Cont\soff;:Abort;:trig:sour\sImm\r\n:Trig:Count\s1\r\n*RST\r\n