Fluke RUSKA 7050, User Manual

Page: 57 / 88

Remote Operation
Sample Program
5
5-11
Sample Program
Sample Program - 7050 GPIB (IEEE-488) - Zero Sequence
/*------------------------------------------------------------*/
/* Sample Program 2 - 7050 GPIB (IEEE-488) */
/* */
/* Zero Sequence */
/*------------------------------------------------------------*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <conio.h>
#include "decl.h"
/*------------------------------------------------------------*/
int device; /* GPIB Device descriptor */
char buffer[256]; /* buffer for input/output strings */
double pressure; /* Pressure read from unit */
int status; /* Status register from unit */
int check_errors (void);
int zero (void);
void write_7000 (char *s);
void request_7000 (char *s);
/*------------------------------------------------------------*/
void main (void)
{
char *p;
/*---------------------------*/
/* Initialize GPIB Interface */
/*---------------------------*/
device = ibdev (0, /* First GPIB Board */
4, /* GPIB Address of 7250 */
NO_SAD, /* No secondary addressing */
T1s, /* 1 Second Timeout */
0, /* No automatic EOI for transmit */
REOS+LF); /* Terminate read on Line Feed */
if (ibsta & ERR)
{ cprintf ("GPIB Driver not installed.\n");
return;
}
/*-----------*/
/* Zero 7010 */
/*-----------*/
if (!zero ( ))
{ ibonl (device, 0);
return;
}
/*----------------------*/
/* Reset GPIB Interface */
/*----------------------*/
ibonl (device, 0);
}
/*------------------------------------------------------------*/
/* Zero : perform zero adjust of 7250 */
/*------------------------------------------------------------*/
int zero (void)
{
int cstat, pstat, tstat, rstat;
clrscr ( );
cprintf ("Zeroing");
gotoxy (1, 5); cprintf ("Pressure Reading");
gotoxy (1, 6); cprintf ("Sensor Temperature");
gotoxy (1, 7); cprintf ("Reference Pressure");