R-GPIB Commands Sample Program
GPIBCleanup(scope, "Unable to communicate with Scope");
return 0;
}
Sleep(1000);
/* Recall setup */
sprintf(write_buffer, "%s", "Variable:value \"setup\",\"Recall\"");
status = ibwrt(scope, write_buffer, strlen(write_buffer));
if (ibsta & ERR)
{
GPIBCleanup(scope, "Unable to communicate with Scope");
return 0;
}
return 1;
}
intrun_test(intscope)
{
char write_buffer[100];
char read_buffer[100];
int timer;
sprintf(write_buffer, "%s", "Variable:value \"sequencerState\",\"Sequencing\"");
ibwrt(scope, write_buffer, strlen(write_buffer));
printf("Executing Test...\n");
Sleep(100);
/* Wait for application to come to Ready State */
timer = 1;
while (1)
{
timer++;
if (timer > 90)
{
printf("******Test Time Out ******\n");
146 TDSUSB2 Universal Serial Bus Measurements Package