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 / _viGTL.au3 < prev    next >
Text File  |  2005-02-06  |  2KB  |  39 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 _viGTL function with a VISA descriptor and with a
  5. ; VISA device handler. We use _viExecCommand first to force the instrument to go
  6. ; into "Remote mode"
  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?",10)
  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 4","Open the instrument connection with _viOpen")
  21. Dim $h_instr = _viOpen(3)
  22. MsgBox(0,"Instrument Handle obtained", "$h_instr = " & $h_instr) ; Show the Session Handle
  23. ; Query the instrument
  24.  
  25. MsgBox(0,"Step 5","Query the instrument using the VISA instrument handle")
  26. $s_answer = _viExecCommand($h_instr,"*IDN?") ; $h_instr is NOT A STRING now!
  27. MsgBox(0,"GPIB QUERY result",$s_answer) ; Show the answer
  28. ; Query again. There is no need to OPEN the link again
  29.  
  30. MsgBox(0,"Step 6","Query again. There is no need to OPEN the link again")
  31. $s_answer = _viExecCommand($h_instr,"*IDN?")
  32. MsgBox(0,"GPIB QUERY result",$s_answer) ; Show the answer
  33.  
  34. MsgBox(0,"Step 7","Go to LOCAL using VISA instrument handle")
  35. _viGTL($h_instr); Go to local (this is optional)
  36.  
  37. MsgBox(0,"Step 8","Close the Instrument connection using _viClose")
  38. _viClose($h_instr) ; Close the instrument connection
  39.