Keysight E3633A - Page 175

Application Programs 6
Keysight E3633A and E3634A User’s Guide 175
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);
}
}
void ClosePort()
{
/* Close the communication port */
viClose(power_supply);
viClose(defaultRM);
}
void CheckError(char* pMessage)
{
if (ErrorStatus VI_SUCCESS)
{
printf("\n %s",pMessage);
ClosePort();
exit(0);
}
}
void delay(clock_t wait)
{
clock_t goal;
goal = wait + clock();
while( goal > clock() ) ;
}
End of program