KEPCO BOP-ME 1KW, Руководство оператора

Страница: 163 / 234

BOP HIPWR 091719
3-87/(3-88 Blank)
FIGURE 3-30. 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 <stdio.h>
#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
}