home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 January / PCWELT_1_2006.ISO / pcwsoft / autoit-v3-setup.exe / Examples / _viSetTimeout.au3 < prev    next >
Encoding:
Text File  |  2005-02-06  |  1.1 KB  |  25 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 _viExecCommand function with a timeout or how to 
  5. ; call _viSetTimeout instead.
  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 _viSetTimeout function first:
  17. MsgBox(0,"Step 2","_vOpen + timeout using _viSetTimeout + GPIB query")
  18. Dim $h_instr = _viOpen(3)
  19. _viSetTimeout($h_instr, 10000) ; 10000 ms = 10 secs
  20. $s_answer = _viExecCommand($h_instr,"*IDN?") ; No need to set the timeout now
  21. MsgBox(0,"GPIB QUERY result",$s_answer) ; Show the answer
  22.  
  23. MsgBox(0,"Step 3","Close the Instrument connection using _viClose")
  24. _viClose($h_instr) ; Close the instrument connection
  25.