SRS Labs SR715 User Manual

REMOTE PROGRAMMING
4-18
void main(void)
{
int i, b;
double rmeas, q;
char string[80];
InitGpib(); /* init GPIB controller */
TxGpib (lcr, "*RST;MMOD1;PMOD1;BCLR"); /* reset LCR, triggered mode, measure R and Q,
clear all bins */
/* set up the bins */
Clear(); /* clear screen */
printf ("Bin values for the LCR:\n\n");
printf (" Bin # Nominal value Tolerances\n");
for (i=0;i<8;i++)
{
/* send nominal bin value, upper and lower limits to LCR */
sprintf (string, "BNOM%d,%lf;BLIM0,%d,%lf;BLIM1,%d,%lf\n", i, nom[i], i, ulim[i], i, llim[i]);
TxGpib (lcr, string); /* send nominal, upper and lower limit of bin i */
/* print limits on the screen also */
printf (" %d %7.1lf +%2.1lf/%2.1lf\n", i, nom[i], ulim[i], llim[i]);
}
/* Now send nominal QDR fail value to the LCR and the screen*/
sprintf (string, "BNOM8,%lf", nom[8]);
TxGpib (lcr, string);
printf("\nQDR fail value = %7.5lf\n", nom[8]);
GetSpace();
TxGpib(lcr, "BING1"); /* turn on binning */
Clear(); /* clear screen */
/* measurement cycle */
while (1)
{
Printxy (2,0,0, "Insert resistor into the LCR fixture ('q'to quit).\n");
GetSpace();
Erase(2,1);
printf ("Measuring...\n");
TxGpib (lcr, "STRT;*WAI;XALL?"); /* start a measurement, wait until finished, query the
results */
GetGpib (lcr); /* get resistance, q, and bin values */
sscanf (recv, "%lf,%lf,%d", &rmeas, &q, &b); /* scan received string for values */
Erase(10,2);
sprintf (string, "Resistor measures %7.2lf ohms. Q = %7.5lf\n", rmeas,q);
Printxy(10,0,0,string);
if (b==9) printf ("Resistance out of bin tolerances! FAILED. \n");
else if (b==8) printf ("Q is out of tolerance\n");
else printf ("Value falls into bin %d.\n", b);
bin[b]++; /* increment number of elements in that bin */
/* Now print out updated table of bins */
Gotoxy (20,0);

SRS Labs SR715 Specifications

General

Brand	SRS Labs
Model	SR715
Category	Measuring Instruments
Language	English