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

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

RUSKA 7252
Users Manual
5-12
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 7010 */
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)
{ printf ("GPIB Driver not installed.\n");
return;
}
/*-----------------------------------------------------------*/
/* Initialize RUSKA 7252 Interface */
/* */
/* UNIT %FS Set units to percent of full scale */
/* PRES 20.0 Set control setpoint to 20 %FS */
/* PRES:TOL 0.001 Set control tolerance to 0.001 %FS */
/* OUTP:MODE CONTROL Enter control mode */
/*-----------------------------------------------------------*/
write_7000 ("UNIT %FS;:PRES 20.0;TOL 0.001;:OUTP:MODE CONTROL\n");
if (check_errors ( ))
{ ibonl (device, 0);
return;
}
/*-------------------------------------------------*/
/* 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 RUSKA 7252 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 RUSKA 7252 error messages