home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 February / PCWorld_2006-02_cd.bin / software / vyzkuste / triky / triky.exe / autoit-v3-setup.exe / Examples / _viExecCommand.au3 < prev    next >
Text File  |  2005-02-06  |  2KB  |  44 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 in stand alone mode and combined
  5. ; with _viOpen and _viClose.
  6. ; It also shows the _viGTL function
  7.  
  8. #include <Visa.au3>
  9.  
  10. Dim $h_session = 0
  11.  
  12. ; Query the ID of the instrument in GPIB address 3
  13. MsgBox(0,"Step 1","Simple GPIB query using a VISA Descriptor")
  14. Dim $s_answer = _viExecCommand("GPIB::3::0","*IDN?",10000) ; 10 secs timeout
  15. MsgBox(0,"GPIB QUERY result",$s_answer) ; Show the answer
  16.  
  17. MsgBox(0,"Step 2","Go to LOCAL using VISA Descriptor")
  18. _viGTL("GPIB::1::0") ; Go to local (exit remote control mode)
  19.  
  20. MsgBox(0,"Step 3","Simple GPIB query using a VISA address shortcut")
  21. $s_answer = _viExecCommand("1","*IDN?") ; The address MUST BE A STRING
  22. MsgBox(0,"GPIB QUERY result",$s_answer) ; Show the answer
  23. MsgBox(0,"Info","Now let's use _viOpen and _viClose")
  24.  
  25. MsgBox(0,"Step 4","Open the instrument connection with _viOpen")
  26. Dim $h_instr = _viOpen(3)
  27. MsgBox(0,"Instrument Handle obtained", "$h_instr = " & $h_instr) ; Show the Session Handle
  28. ; Query the instrument
  29.  
  30. MsgBox(0,"Step 5","Query the instrument using the VISA instrument handle")
  31. $s_answer = _viExecCommand($h_instr,"*IDN?") ; $h_instr is NOT A STRING now!
  32. MsgBox(0,"GPIB QUERY result",$s_answer) ; Show the answer
  33. ; Query again. There is no need to OPEN the link again
  34.  
  35. MsgBox(0,"Step 6","Query again. There is no need to OPEN the link again")
  36. $s_answer = _viExecCommand($h_instr,"*IDN?")
  37. MsgBox(0,"GPIB QUERY result",$s_answer) ; Show the answer
  38.  
  39. MsgBox(0,"Step 7","Go to LOCAL using VISA instrument handle")
  40. _viGTL($h_instr); Go to local (this is optional)
  41.  
  42. MsgBox(0,"Step 8","Close the Instrument connection using _viClose")
  43. _viClose($h_instr) ; Close the instrument connection
  44.