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

Страница: 58 / 88

RUSKA 7050, 7050i & 7050LP
Users Manual
5-12
/*-------------------*/
/* 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);
gotoxy (20, 6);
if (tstat == 0) cprintf ("Stable");
else if (tstat < 0) cprintf ("Out of Range");
else if (tstat > 0) cprintf ("Unstable (%2d minutes)", tstat);
gotoxy (20, 7);
if (rstat == 0) cprintf ("Stable");
else if (rstat < 0) cprintf ("Out of Range");
else if (rstat > 0) cprintf ("Unstable (%2d seconds)", rstat);
}
while (pstat != 0 || tstat != 0 || rstat != 0);
/*-------------------*/
/* Start Zero Adjust */
/* CAL:ZERO:RUN */
/*-------------------*/
write_7000 ("CAL:ZERO:RUN\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 7250 error messages */
/* return TRUE if any errors were found */
/*------------------------------------------------------------*/
int check_errors (void)