if (check_error(“rst_clr”))
exit(1);
}
/
**************************************************************************
/
void id_scps() /* Check ID of all installed SCPs */
{
int16
scp_addr;
char
scp_id[100];
/* Get SCP identifications of all SCPs */
printf(“\nSCP Identifications:\n\n”);
for (scp_addr = 100; scp_addr <= 156; sc= 8)
{
INST_QUERY(e1413, “SYST:CTYP? (@%d)”, “%s”, scp_addr, scp_id);
printf(“ID for SCP %d is %s\n”, (scp_addr - 100) / 8, scp_id);
}
}
/
**************************************************************************
/
void start_ad() /* Initialize and trigger A/D then take readings. Default EU type is
volts and scan list is LIST1 and is defined as all 64 channels */
{
int16
opc_wait;
/* Enable the Trigger System */
INST_SEND(e1413, “INIT”);
/* Check for module generated errors; exit if errors read */
if (check_error(“start_ad (setup module)”))
exit(1);
/* Trigger the module to start the measurement process */
INST_SEND(e1413, “TRIG”);
/* Check for module generated errors; exit if errors read */
if (check_error(“start_ad (trigger module)”))
exit(1);
}
/
**************************************************************************
/
void get_readng() /* Get the module’s readings */
{
float32
read_data[64];
char
wait_show[2];
/* Wait to view previous screen */
printf(“\n\nPress ’Return’ to continue”);
while(! gets(wait_show));
/* Set format of returned data */
INST_SEND(e1413, “FORMAT REAL,32”);
/* Get readings using FIFO */
INST_QUERY(e1413, “DATA:FIFO:PART? 64”, “”, read_data);
/* Print the readings */
printf(“\n\nFIFO data:\n\n”);
prt_readng(read_data);
/* Wait here to view previous screen */
printf(“\n\nPress ’Return’ to continue”);
while(! gets(wait_show));
/* Get readings stored in the CVT */
INST_QUERY(e1413, “DATA:CVT? (@100:163)”, “”, read_data);
/* Print the readings */
printf(“\n\nCVT Data:\n\n”);
prt_readng(read_data);
printf(“\n\n”);
/* Check for module generated errors; exit if errors read */
if (check_error(“get_readng”))
exit(1);
}
Chapter 1
Getting Started 31
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com