HP VXI 75000 C Series, User'S And Scpi Programming Manual

Page: 394 / 438

394 Example Program Listings Appendix G
char alg[6]; /* Temporary algorithm name */
(void) sprintf(alg, "ALG%d", alg_num);
INST_SEND(e1415, "alg:def %S, %*B\n", alg,
strlen(algorithm) + 1, algorithm);
/* Check for algorithm errors */
INST_QUERY(e1415,"syst:err?\n", "%d,%S", &error, string);
if (error) {
(void) printf("While loading file %s, syst:err %d,%s\n",
argv[alg_num], error, string);
exit(1);
}
}
/* Free the malloc’ed memory */
free(algorithm);
+; /* Next algorithm */
}
(void) printf("All %d algorithm(s) loaded without errors\n\n", alg_num-1);
#else /* Download algorithms with in-line code */
INST_SEND(e1415,"alg:def ’alg1’,’PIDB(I116,O100,O141.B0)’\n");
#endif
/* Preset Algorithm variables */
INST_SEND(e1415,"alg:scal ’alg1’,’Setpoint’,%f\n", 3.0);
INST_SEND(e1415,"alg:scal ’alg1’,’P_factor’,%f\n", 0.0001);
INST_SEND(e1415,"alg:scal ’alg1’,’I_factor’,%f\n", 0.00025);
INST_SEND(e1415,"alg:upd\n");
/* Initiate Trigger System - start scanning and running algorithms */
INST_SEND(e1415,"init\n");
/* Alter run-time variables and Retrieve Data */
while( 1 ) {
float32 setpoint = 0, process_info[4];
int i;
/* type in -100 to exit */
printf("Enter desired setpoint: ");
scanf( "%f",&setpoint );
if ( setpoint == -100.00 ) break;
INST_SEND(e1415,"alg:scal ’alg1’,’Setpoint’,%f\n", setpoint );
INST_SEND(e1415,"alg:upd\n");
for ( i = 0; i < 10 ; i++ ) { /* read CVT 10 times */
/* ALG1 has elments 10-13 in CVT */
INST_QUERY( e1415, "data:cvt? (@10:13)","%f",&process_info );
printf("Process variable: %f, %f, %f, %f\n",process_info[0],
process_info[1],process_info[2],process_info[3]);
}
#if 0 /* Set to 1 if using User interactive commands to E1415 */
/* Call this function if you want to be able to type SCPI commands and
* see their responses. NOTE: switch to FORM,ASC to retrieve
* ASCII numbers during interactive mode.