6 Application Programs
174 Keysight E3633A and E3634A User’s Guide
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");
}
Continued on next page