home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 January / PCWELT_1_2006.ISO / pcwsoft / autoit-v3-setup.exe / Examples / _viOpen.au3 < prev    next >
Encoding:
Text File  |  2005-02-06  |  1.9 KB  |  43 lines
  1. ;- This assumes that you have instrument set to GPIB address 1
  2. ; It shows how to use the _viExecCommand function in stand alone mode and combined
  3. ; with _viOpen and _viClose.
  4. ; It also shows the _viGTL function
  5. #include <Visa.au3>
  6. Dim $h_session = 0
  7.  
  8. ; Query the ID of the instrument in GPIB address 3
  9. MsgBox(0,"Step 1","Open the instrument connection with _viOpen")
  10. Dim $h_instr = _viOpen("GPIB::3::0")
  11. MsgBox(0,"Instrument Handle obtained", "$h_instr = " & $h_instr) ; Show the Session Handle
  12. ; Query the instrument
  13.  
  14. MsgBox(0,"Step 2","Query the instrument using the VISA instrument handle")
  15. $s_answer = _viExecCommand($h_instr,"*IDN?") ; $h_instr is NOT A STRING now!
  16. MsgBox(0,"GPIB QUERY result",$s_answer) ; Show the answer
  17. ; Query again. There is no need to OPEN the link again
  18.  
  19. MsgBox(0,"Step 3","Query again. There is no need to OPEN the link again")
  20. $s_answer = _viExecCommand($h_instr,"*IDN?")
  21. MsgBox(0,"GPIB QUERY result",$s_answer) ; Show the answer
  22.  
  23. MsgBox(0,"Step 4","Close the instrument connection using _viClose")
  24. _viClose($h_instr) ; Close the instrument connection
  25.  
  26. MsgBox(0,"Step 5","Open the Instrument connection using only the address number")
  27. Dim $h_instr = _viOpen(3)
  28. MsgBox(0,"Instrument Handle obtained", "$h_instr = " & $h_instr) ; Show the Session Handle
  29. ; Query the instrument
  30.  
  31. MsgBox(0,"Step 6","Query the instrument using the VISA instrument handle")
  32. $s_answer = _viExecCommand($h_instr,"*IDN?") ; $h_instr is NOT A STRING now!
  33. MsgBox(0,"GPIB QUERY result",$s_answer) ; Show the answer
  34. ; Query again. There is no need to OPEN the link again
  35.  
  36. MsgBox(0,"Step 7","Query again. There is no need to OPEN the link again")
  37. $s_answer = _viExecCommand($h_instr,"*IDN?")
  38. MsgBox(0,"GPIB QUERY result",$s_answer) ; Show the answer
  39.  
  40. MsgBox(0,"Step 8","Close the instrument connection using _viClose")
  41. _viClose($h_instr) ; Close the instrument connection
  42.  
  43.