Keysight Technologies E3641A User Manual

Application Programs 5
E364xA User’s and Service Guide 163
void OpenPort()
{
char GPIB_Address[3];
char COM_Address[2];
char VISA_address[40]; /* Complete VISA address sent to card */
if(bGPIB)
strcpy(GPIB_Address,"5"); /* Select GPIB address between 0 to 30*/
else
strcpy(COM_Address,"1"); /* Set the number to 2 for COM2 port */
if(bGPIB)
{
/* For use with GPIB 7 address, use "GPIB::7::INSTR" address format */
strcpy(VISA_address,"GPIB::");
strcat(VISA_address,GPIB_Address);
strcat(VISA_address,"::INSTR");
}
else
{
/* For use with COM2 port, use "ASRL2::INSTR" address format *
strcpy(VISA_address,"ASRL");
strcat(VISA_address,COM_Address);
strcat(VISA_address,"::INSTR");
}
/* Open communication session with the power supply */
ErrorStatus = viOpenDefaultRM(&defaultRM);
ErrorStatus = viOpen(defaultRM,VISA_address,0,0,&power_supply);
CheckError("Unable to open port");
if(!bGPIB)
SendSCPI("System:Remote");
}
void SendSCPI(char* pString)
{
char* pdest;
strcpy(commandString,pString);
strcat(commandString,"\n");
ErrorStatus = viPrintf(power_supply,commandString);
CheckError("Can’t Write to Driver");
if (bGPIB == 0)
delay(1000); /* Unit is milliseconds */
pdest = strchr(commandString, ’?’); /* Search for query command */
if( pdest != NULL )
{
ErrorStatus = viScanf(power_supply,"%s",&ReadBuffer);
CheckError("Can’t Read From Driver");
strcpy(pString,ReadBuffer);
}
}

Keysight Technologies E3641A Specifications

General

Brand	Keysight Technologies
Model	E3641A
Category	Power Supply
Language	English