home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / SICL / data1.cab / sicl32 / c / samples / misc / errhand2.c < prev    next >
Encoding:
C/C++ Source or Header  |  2001-03-02  |  979 b   |  45 lines
  1. /* errhand2.c
  2.    This program shows how you can install your own
  3.    error handler.
  4. */
  5.  
  6. #include <sicl.h>
  7. #include <stdio.h>
  8. #include <stdlib.h>
  9.  
  10. #if !defined(WIN32)
  11.    #define LOADDS __loadds
  12. #else
  13.    #define LOADDS
  14. #endif
  15.  
  16. void SICLCALLBACK LOADDS err_handler (INST id, int error) {
  17.  
  18.    fprintf (stderr, "Error: %s\n", igeterrstr (error));
  19.    exit (1);
  20. }
  21.  
  22. main () {
  23.    INST dvm;
  24.    double res;
  25.  
  26.    #if defined(__BORLANDC__) && !defined(__WIN32__)
  27.       _InitEasyWin();   // required for Borland EasyWin programs
  28.    #endif
  29.  
  30.    ionerror (err_handler);
  31.    dvm = iopen ("hpib7,16");
  32.    itimeout (dvm, 10000);
  33.    iprintf (dvm, "%s\n", "MEAS:VOLT:DC?");
  34.    iscanf (dvm, "%lf", &res);
  35.    printf ("Result is %f\n", res);
  36.    iclose (dvm);
  37.  
  38. /* For WIN16 programs, call _siclcleanup before exiting to release
  39.    resources allocated by SICL for this application.  This call
  40.    is a no-op for WIN32 programs. */
  41.    _siclcleanup();
  42.  
  43.    return 0;
  44. }
  45.