home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 January / PCWELT_1_2006.ISO / pcwsoft / autoit-v3-setup.exe / Examples / _viSetAttribute.au3 < prev    next >
Encoding:
Text File  |  2005-02-06  |  1.2 KB  |  27 lines
  1. ;- This assumes that you have instrument set to GPIB address 3.
  2. ; If you have an instrument in a different address change "GPIB::3::0" to the
  3. ; corresponding descriptor. Do the same for the call to _viOpen
  4. ; It shows how to use the _viSetAttribute. In this example we use _viSetAttribute
  5. ; instead of _viSetTimeout to set the GPIB timeout of a _viExecCommand operation.
  6.  
  7. #include <Visa.au3>
  8.  
  9. Dim $h_session = 0
  10.  
  11. ; Query the ID of the instrument in GPIB address 3
  12. MsgBox(0,"Step 1","Simple GPIB query with explicit TIMEOUT set")
  13. Dim $s_answer = _viExecCommand("GPIB::3::0","*IDN?",10000) ; 10 secs timeout
  14. MsgBox(0,"GPIB QUERY result",$s_answer) ; Show the answer
  15.  
  16. ; This is the same as using the _viSetAttribute function first:
  17. MsgBox(0,"Step 2","_vOpen + timeout using _viSetAttribute + GPIB query")
  18. Dim $h_instr = _viOpen(3)
  19. ; NOTE - This is the same as: _viSetTimeout($h_instr, 10000) 
  20. _viSetAttribute($h_instr, $VI_ATTR_TMO_VALUE, 10000) ; 10000 ms = 10 secs
  21.  
  22. $s_answer = _viExecCommand($h_instr,"*IDN?") ; No need to set the timeout now
  23. MsgBox(0,"GPIB QUERY result",$s_answer) ; Show the answer
  24.  
  25. MsgBox(0,"Step 3","Close the Instrument connection using _viClose")
  26. _viClose($h_instr) ; Close the instrument connection
  27.