Fluke RUSKA 7252, Руководство пользователя

Страница: 86 / 128

RUSKA 7252
Users Manual
5-14
void main (void)
{
char *p;
/*---------------------------*/
/* Initialize GPIB Interface */
/*---------------------------*/
device = ibdev (0, /* First GPIB Board */
4, /* GPIB Address of RUSKA 7252 */
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 RUSKA 7252
*/
/*--------------------------------------------------------------------*/
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");
/*-------------------*/
/* Enter Zero Mode */
/* CAL:ZERO:INIT */
/*-------------------*/
write_7000 ("CAL:ZERO:INIT\n");
/*-------------------------------------------------*/
/* Wait for calibration values to be within limits */
/* CAL:ZERO:INIT? */
/*-------------------------------------------------*/
do
{ if (kbhit ( ))
{ getch ( );
break;
}
request_7000 ("CAL:ZERO:INIT?\n");
sscanf (buffer, "%d,%d,%d,%d", &cstat, &pstat, &tstat, &rstat);
if (check_errors ( ))
return 0;
gotoxy (20, 5);
if (pstat == 0) cprintf ("Stable ");
else if (pstat < 0) cprintf ("Out of Range ");
else if (pstat > 0) cprintf ("Unstable (%2d seconds)", pstat);