/*  Pseudo-Code Agilent 4156C IV */
/*  Bill Tompkins 6/2014         */
/*  Use code at your own risk    */



/* Initial Set Up of the Agilent 4156C */
Write(AddLineFeed("*RST"));						                                            //Reset the 4156
Write(AddLineFeed(":CAL:AUTO ON"));					                                        //Set Auto Calibration
Write(AddLineFeed(":PAGE:CHAN:MODE SWEEP"));			                                    //Sets to Sweep Measurment Mode
Write(AddLineFeed(":PAGE:DISP:MODE GRAP"));                     	                        //Display Mode - Graphics

Write(AddLineFeed(":PAGE:CHAN:SMU1:VNAM " & "'VSMU1'"));		                            //Initial Set Up
Write(AddLineFeed(":PAGE:CHAN:SMU1:INAM " & "'ISMU1'"));
Write(AddLineFeed(":PAGE:CHAN:SMU1:MODE COMM"));

Write(AddLineFeed(":PAGE:CHAN:SMU2:VNAM " & "'VSMU2'"));  		                            //Set Up Channel
Write(AddLineFeed(":PAGE:CHAN:SMU2:INAM " & "'ISMU2'"));
Write(AddLineFeed(":PAGE:CHAN:SMU2:MODE V"));

Write(AddLineFeed(":PAGE:CHAN:SMU3:VNAM " & "'VSMU3'"));  		                            //Set Up Channel
Write(AddLineFeed(":PAGE:CHAN:SMU3:INAM " & "'ISMU3'"));
Write(AddLineFeed(":PAGE:CHAN:SMU3:MODE V"));

Write(AddLineFeed(":PAGE:CHAN:SMU4:VNAM " & "'VSMU4'"));  		                            //Set Up Channel
Write(AddLineFeed(":PAGE:CHAN:SMU4:INAM " & "'ISMU4'"));
Write(AddLineFeed(":PAGE:CHAN:SMU4:MODE COMM"));

Write(AddLineFeed(":PAGE:CHAN:SMU1:FUNC CONS"));                 		                    //Set Up Channel
Write(AddLineFeed(":PAGE:CHAN:SMU2:FUNC CONS"));
Write(AddLineFeed(":PAGE:CHAN:SMU3:FUNC CONS"));
Write(AddLineFeed(":PAGE:CHAN:SMU4:FUNC CONS"));
Write(AddLineFeed(":PAGE:CHAN:SMU2:FUNC VAR1"));
Write(AddLineFeed(":PAGE:MEAS:VAR1:SPAC LIN"));                 		                    //Sweep Mode Linear

Write(AddLineFeed(":PAGE:MEAS:VAR1:STAR 0.0"));                                             //Set Sweep Start 
Write(AddLineFeed(":PAGE:MEAS:VAR1:STOP 1.0"));                    	                        //Set Sweep Stop  
Write(AddLineFeed(":PAGE:MEAS:VAR1:STEP 0.25"));                   	                        //Set Sweep Step
Write(AddLineFeed(":PAGE:MEAS:VAR1:COMP 0.01"));                                            //Set Sweep Complinace

Write(AddLineFeed(":PAGE:MEAS:MSET:SMU1:RANG:MODE FIXED"));                                 //Measurement Range Type
Write(AddLineFeed(":PAGE:MEAS:MSET:SMU1:RANG 1E-3"));                                       //Set Measurment Range  

Write(AddLineFeed(":PAGE:MEAS:MSET:SMU2:RANG:MODE FIXED"));                                 //Measurement Range Type
Write(AddLineFeed(":PAGE:MEAS:MSET:SMU2:RANG 1E-3"));                                       //Set Measurment Range  

Write(AddLineFeed(":PAGE:MEAS:MSET:ITIM SHORT"));                                           //Set Integration Time               
Write(AddLineFeed(":PAGE:MEAS:DEL 0"));                                                     //Measurement Delay (sec)
Write(AddLineFeed(":PAGE:MEAS:HTIM 0"));                                                    //Hold Time (sec)

Write(AddLineFeed(":PAGE:DISP:GRAP:X:NAME " & "'VSMU2'"));                                  //Sets Display X Axis Name
Write(AddLineFeed(":PAGE:DISP:GRAP:Y1:NAME " & "'ISMU2'"));                                 //Sets Display Sets Y1 Axis Name

Write(AddLineFeed(":PAGE:DISP:GRAP:X:SCAL LIN"));                                           //Sets X Axis Scale - Linear
Write(AddLineFeed(":PAGE:DISP:GRAP:Y1:SCAL LIN"));                                          //Sets Y1 Axis Scale - Linear

Write(AddLineFeed(":PAGE:DISP:GRAP:X:MIN 0.0"));                                            //Sets X Min Value
Write(AddLineFeed(":PAGE:DISP:GRAP:X:MAX 1.0"));                                            //Sets X Max Value
Write(AddLineFeed(":PAGE:DISP:GRAP:Y1:MIN -0.001"));                                        //Sets Y1 Min Value
Write(AddLineFeed(":PAGE:DISP:GRAP:Y1:MAX +0.001"));                                        //Sets Y1 Max Value

Write(AddLineFeed(":PAGE:GLIS"));                                                           //Set to Graphic Display
Write(AddLineFeed(":DISP OFF"));                                                            //Update Display 



/* IV Set Up */
Write(AddLineFeed(":PAGE:CHAN:SMU3:DIS"));                                                  //Channel Disable for SMU3
Write(AddLineFeed(":PAGE:CHAN:SMU4:DIS"));                                                  //Channel Disable for SMU4
    
Write(AddLineFeed(":PAGE:CHAN:SMU1:VNAM " & "'VSMU1'"));
Write(AddLineFeed(":PAGE:CHAN:SMU1:INAM " & "'ISMU1'"));
Write(AddLineFeed(":PAGE:CHAN:SMU1:MODE COMM"));                                            //Set to Common Mode                                               
Write(AddLineFeed(":PAGE:CHAN:SMU1:FUNC CONS"));                                            //Set Function to Constant     

Write(AddLineFeed(":PAGE:CHAN:SMU2:VNAM " & "'VSMU2'"));
Write(AddLineFeed(":PAGE:CHAN:SMU2:INAM " & "'ISMU2'"));
Write(AddLineFeed(":PAGE:CHAN:SMU2:MODE V"));                                              //Set to Voltage Mode
Write(AddLineFeed(":PAGE:CHAN:SMU2:FUNC VAR1"));                                           //Set Function to VAR1  

Write(AddLineFeed(":PAGE:MEAS:VAR1:SPAC LIN"));                                            //Sweep Mode Linear
Write(AddLineFeed(":PAGE:CHAN:MODE SWEEP"));                                               //Sets to Sweep Measurment Mode

Write(AddLineFeed(":PAGE:MEAS:VAR1:STAR 0.0"));                                            //Set Sweep Start 
Write(AddLineFeed(":PAGE:MEAS:VAR1:STOP 1.0"));                                            //Set Sweep Stop  
Write(AddLineFeed(":PAGE:MEAS:VAR1:STEP 0.25"));                                           //Set Sweep Step
Write(AddLineFeed(":PAGE:MEAS:VAR1:COMP 0.01"));                                           //Set Sweep Complinace

Write(AddLineFeed(":PAGE:MEAS:MSET:SMU1:RANG:MODE FIXED"));                                //IV Measurement Range Type
Write(AddLineFeed(":PAGE:MEAS:MSET:SMU1:RANG 10E-12"));                                    //Set Measurment Range  
Write(AddLineFeed(":PAGE:MEAS:MSET:SMU2:RANG:MODE FIXED"));                                //IV Measurement Range Type
Write(AddLineFeed(":PAGE:MEAS:MSET:SMU2:RANG 10E-12"));                                    //Set Measurment Range  

Write(AddLineFeed(":PAGE:MEAS:VAR1:STAR 0"));                                              //Set Sweep Start 
Write(AddLineFeed(":PAGE:MEAS:VAR1:STOP 1"));                                              //Set Sweep Stop  
Write(AddLineFeed(":PAGE:MEAS:VAR1:STEP 0.025"));                                          //Set Sweep Step
Write(AddLineFeed(":PAGE:MEAS:VAR1:COMP 0.01"));                                           //Set Compliance 

Write(AddLineFeed(":PAGE:DISP:GRAP:X:NAME " & "'VSMU2'"));                                 //Sets X Axis Name
Write(AddLineFeed(":PAGE:DISP:GRAP:Y1:NAME " & "'ISMU2'"));                                //Sets Y1 Axis Name
Write(AddLineFeed(":PAGE:DISP:GRAP:X:SCAL LIN"));                                          //Sets X Axis Scale - Linear
Write(AddLineFeed(":PAGE:DISP:GRAP:Y1:SCAL LIN"));                                         //Sets Y1 Axis Scale - Linear

Write(AddLineFeed(":PAGE:DISP:GRAP:X:MIN " & CV.IVDisplayMinVoltage));                     //Sets X Min Value
Write(AddLineFeed(":PAGE:DISP:GRAP:X:MAX " & CV.IVDisplayMaxVoltage));                     //Sets X Max Value
Write(AddLineFeed(":PAGE:DISP:GRAP:Y1:MIN " & CV.IVDisplayMinCurrent));                    //Sets Y1 Min Value
Write(AddLineFeed(":PAGE:DISP:GRAP:Y1:MAX " & CV.IVDisplayMaxCurrent));                    //Sets Y1 Max Value


/* Actual IV Measurement Routine */
Write(AddLineFeed("*ESE 1"))
Write(AddLineFeed("*CLS"))
Write(AddLineFeed(":PAGE:GLIS"));                                                          //Set to Graphic Display
Write(AddLineFeed(":PAGE:SCON:MEAS:SING"));                                                //Trigger Single sweep
Write(AddLineFeed(":DISP ON"));                                                            //Update display 

Write(AddLineFeed("*OPC"));                                                                //Setting Up for SerialPoll 

For(;;){
       Delay(0.1);                                                                         //Delay in mS
       if (SerialPoll() And SRQ_BIT5)
         exitfor;                                                                          //Polling Service Request Bit 5, Command Ready - Sweep Complete
       }

Write(AddLineFeed("*CLS"));                                                                //Clear Buffer
Write(AddLineFeed(":DISP OFF"));                                                           //Update display - Off
Write(AddLineFeed(":FORM:DATA ASC"));                                                      //Format Output Data as ASCII

Write(AddLineFeed(":DATA? 'VSMU2'"));                                                      //Output Voltage Data
RemoveEOL(ReadString(5000));                                                               //Read Input String (5000 Char Max.)
 
Write(AddLineFeed(":DATA? 'ISMU2'"));                                                      //Output Current Data
RemoveEOL(ReadString(5000));                                                               //Read Input String (5000 Char Max.)

Write(AddLineFeed(":SYST:ERR?"));                                                          //Read Error String
RemoveEOL(ReadString(5000));                                                               //Read Input String (5000 Char Max.)