Table of Contents
Advertisement
clrscr ( );
cprintf ("Zeroing");
gotoxy (1, 5); cprintf ("Pressure Reading");
gotoxy (1, 6); cprintf ("Sensor Temperature");
gotoxy (1, 7); cprintf ("Reference Pressure");
/*-------------------*/
/* Enter Zero Mode
/*
CAL:ZERO:INIT */
/*-------------------*/
write_7000 ("CAL:ZERO:ALL:INIT\n");
/*---------------------------*/
/* Wait for zero to complete */
/*
STAT:OPER:COND?
/*---------------------------*/
do
{ request_7000 ("STAT:OPER:COND?\n");
sscanf (buffer, "%d", &status);
if (check_errors ( ))
return 0;
gotoxy (1, 9);
cprintf ("Zeroing");
}
while ((status & 1) != 0);
gotoxy (1, 9);
cprintf ("Zero Complete");
return 1;
}
/*--------------------------------------------------------------------*/
/* check_errors : display all GPIB and 7750 error messages
/*
return TRUE if any errors were found
/*--------------------------------------------------------------------*/
int check_errors (void)
{
unsigned char status7;
int retval;
/*---------------------------------*/
/* Check for GPIB Interface Errors */
/*---------------------------------*/
if (ibsta & ERR)
{ cprintf ("GPIB Status=%4X Error=%d\r\n", ibsta, iberr);
return 1;
}
/*-----------------------*/
/* Check for 7750 Errors */
/*-----------------------*/
retval = 0;
while (!kbhit ( ))
{ ibrsp (device, &status7);
if ((status7 & 4) == 0)
break;
retval = 1;
request_7000 ("SYST:ERR?\n");
cprintf (buffer);
}
return retval;
}
/*--------------------------------------------------------------------*/
/* write_7000 : write a command to the 7250
/*--------------------------------------------------------------------*/
void write_7000 (char *s)
{
ibwrt (device, s, strlen (s));
}
/*--------------------------------------------------------------------*/
*/
*/
Remote Operation
Sample Programs
*/
*/
/* Serial poll */
/* Check error bit */
/* Get error message */
*/
5
5-13
Advertisement
Table of Contents
