KEPCO BOP 1KW-MG Operator Manual, Firmware Ver.2.01 to 2.37 - Manual (Page 123)

BOP HIPWR 022108
3-63/(3-64 Blank)
FIGURE 3-21. TYPICAL EXAMPLE OF BOP POWER SUPPLY PROGRAM USING SCPI COMMANDS
/**************************************************************************/
/* Sample Program For KEPCO power supply, using National Instruments */
/* GPIB interface card and IBM PC or compatible computer */
/**************************************************************************/
#include
#include "decl.h"
char rd_str[80]; // Input buffer
char dat_str[80]; // Output buffer
int bd,adr;
main() {
adr = ibfind("DEV6"); // Open DEV6 (defined by IBCONF)
bd = ibfind ("GPIB0"); // Open GPIB card
ibsic (bd); // Send Interface Clear
ibsre(bd,1); // Set remote line true
strcpy(dat_str,"VOLT 5;CURR 1"); // Define a set command
strcat(dat_str,"\r\n"); // Append delimiter
ibwrt(adr,dat_str,strlen(dat_str)); // Send string to power supply
strcpy(dat_str,"MEAS:VOLT?;CURR?"); // Define a measure command
strcat(dat_str,"\r\n"); // Append delimiter
ibwrt(adr,dat_str,strlen(dat_str)); // Send string to power supply
strset(rd_str,'\0'); // Clear input buffer
ibrd(adr,rd_str,64); // Read result of measure
printf("received : %s\n",rd_str); // Print voltage and current
}