Fluke RUSKA 7750i, Руководство пользователя, Страница: 67 / 106

Remote Operation
Sample Programs
5
5-11
}
/*-------------------------------------------------*/
/* Read pressure status until setpoint is reached. */
/* */
/* MEAS? Read pressure */
/* STAT:OPER:COND? Read status setpoint */
/*-------------------------------------------------*/
while (!kbhit ( ))
{ request_7000 ("MEAS?;:STAT:OPER:COND?\n");
pressure = strtod (buffer, &p);
status = atoi (++p);
if (check_errors ( ))
continue;
if (status & 0x10)
printf ("Pressure = %9.3lf\n", pressure);
if ((status & 2) == 0)
break;
}
/*-------------------------------------------*/
/* Reset 7750 to Measure mode */
/* */
/* OUTP:MODE MEASURE Enter Measure mode */
/*-------------------------------------------*/
write_7000 ("OUTP:MODE MEASURE\n");
check_errors ( );
/*----------------------*/
/* Reset GPIB Interface */
/*----------------------*/
ibonl (device, 0);
}
/*--------------------------------------------------------------------*/
/* 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)
{ printf ("GPIB Status=%4X Error=%d\n");
return 1;
}
/*-----------------------*/
/* Check for 7750 Errors */
/*-----------------------*/
retval = 0;
while (!kbhit ( ))
{ ibrsp (device, &status7); /* Serial poll */
if ((status7 & 4) == 0) /* Check error bit */
break;
retval = 1;
request_7000 ("SYST:ERR?\n"); /* Get error message */
printf (buffer);
}
return retval;
}
/*--------------------------------------------------------------------*/
/* write_7000 : write a command to the 7250 */
/*--------------------------------------------------------------------*/
void write_7000 (char *s)
{
ibwrt (device, s, strlen (s));
}