Appendix A Gpib Programming Example - Prodigit 3302F Mainframe Operation Manual

62 PRODIGIT

Appendix A GPIB programming Example

C Example Program
/* Link this program with appropriate *cib*.obj. */
/* This application program is written in TURBO C 2.0 for the IBM PC-AT compatible. The
National Instruments Cooperation (NIC) Model PC-2A board provides the interface between
the PC-AT and a PRODIGIT MPAL ELECTRONIC LOAD. The appropriate *cib*.obj file is
required in each program to properly link the NIC board to C LANGUAGE. and include the
<decl.h.> HEADER FILE to C LANGUAGE. */
#include <stdio.h>
#include <dos.h>
#include <math.h>
#include "decl.h" /* NI GPIB CARD HEADER FILE */
main()
{
char ouster[20],rdbuf[15],spec[10];
int i,ch,load;
/* Assign unique identifier to the device "dev5" and store in variable load. check for error. ibfind
error = negative value returned. */
if((load = ibfind("dev5")) < 0)/* Device variable name is load */
{
printf("\r*** INTERFACE ERROR ! ***\a\n");
printf("\r\nError routine to notify that ibfind failed.\n");
printf("\r\nCheck software configuration.\n");
exit(1);
}
/* Clear the device */
if((ibclr(load)) & ERR);
{
printf("INTERFACE ERROR ! \a");
exit(1);
}
clrscr();
/* Clear load error register */
ibwrt(load,"CLR",3);
ibwrt( load,"NAME?",5);
delay(100);
strset(rdbuf,'\0');
strset(spec,'\0');
ibrd(load,spec,20);
if (spec[3] == '9')
printf("\n 3302F series specification error !");
/* Set the channel 1, preset off, current sink 1.0 amps and load on commands to the load. */
/* GPIB address is 5 */
/* Get the 3310F series module load specification */
/* Clear rdbuf string buffer */
/* Clear spec string buffer */