KEPCO BOP-MG 1KW Operator's Manual

Also see for BOP-MG 1KW: Operator's manual

Contents

KEPCO BOP-MG 1KW Operator's Manual Manual pdf 114 page image

3-46 BOP HIPWR 111315FIGURE 3-16. PROGRAMMING EXAMPLE TO VERIFY PREVIOUS COMMAND HAS COMPLETED3.5.3 REMOTE MODE SETUPWhen either of the two interface ports are in use, PAR’s 3.5.3.1 (GPIB), 3.5.3.2 and (RS 232)describe how to configure the port to meet the user’s requirements.The BOP can be substituted for a standard BOP that is currently being used with one of Kepco’sBIT cards, however there are differences in operation (see PAR. 3.5.3.4 and 3.5.3.5.The SYSTem:SET and SYSTem:LANGuage commands can be used to configure the BOP tooperate in a manner similar to earlier models of Kepco’s 100W, 200W and 400W BOP powersupplies.#include #include #include #include /*Overhead for the use of a NATIONAL INSTRUMENTS gpib interface */int unit_desc; // handle for the national instruments controllerint GPIbus=0; // GPIB card 0int adr=6; // Power Supply addresschar status_byte; // status byte from the power supply#define MAV 0x10 /* bit 4 of the status byte is the Message AVailable bit by 488.2 specification *//* Function Send_with_waitINPUT: string to be sent to power supplyDescription: adds the *OPC? query and performs serial polls to wait for the command to be completed.*/int Send_with_wait(char *command);char snd[501]; // data to be sent to the power supplychar rcv [10]; // data from power supplyint j;sprintf(snd,”%s;:*OPC?,command); // Add *OPC? to the command// so there is a response from the// power supplySend(GPIbus, adr, snd, strlen(snd), 2); // Send the data to the power supplyfor (j=0;j<500;j++)( // loop until ready (5 seconds max)Delay(.05); // Wait for command to completeibrsp(unit_desc,&status_byte); // get status byteif ((status_byte& 0x10) ==0x10) break;) // by looking for data in stringReceive (GPIbus, adr, rev, rev_buf_size,10); // so the error queue will not receive a 410 error}main( // test code to show operation of function.unit_desc=ibdev(GPIbus,adr,adr/256,T100ms,1,0x40a);Delay(.005);Send (GPIbus,adr,”VOLT 10;curr .01”,sizeof(“VOLT 10;curr .01”),NLEND;Send_with_wait(“*SAV 10”);}