10-24-2000 04:06 PM
11-14-2000 10:14 PM
12-04-2000 08:52 PM
12-09-2000 09:58 PM
11-06-2007 04:10 PM
11-06-2007 04:33 PM
12-31-2008 12:59 AM
12-31-2008 11:02 AM
08-14-2015 01:55 PM
Here is an example of how to do a screen shot transfer of a Tektronix TDS 3000 Series in Visual Basic 6:
Function capture_trace(gpib_address As String, file_path As String)
On Error GoTo ProcError
Dim sBuffer As String
Dim data_array As Variant
Dim xvalue As Variant
Dim yvalue As Variant
Dim i As Integer
Dim byteData() As Byte
Dim fn As Integer
'check for missing arguments
If gpib_address = "" Then
Err.Raise (448)
End If
Dim ioMgr As VisaComLib.ResourceManager
Dim Equip As VisaComLib.FormattedIO488
Set ioMgr = New VisaComLib.ResourceManager
Set Equip = New VisaComLib.FormattedIO488
'set mouse to hourglass when making measurement
Screen.MousePointer = vbHourglass
Set Equip.IO = ioMgr.Open("GPIB0::" & gpib_address & "::INSTR")
'set timeout
Equip.IO.Timeout = 10000 '100 seconds
'configure hardcopy
Equip.WriteString "HARDCOPY:FORMAT PNG"
Equip.WriteString "HARDCOPY:INKSAVER ON"
Equip.WriteString "HARDCOPY:LANDSCAPE"
Equip.WriteString "HARDCOPY:PORT GPIB"
'perform hardcopy
Equip.WriteString "HARDCOPY START"
'write file
fn = FreeFile()
Open file_path For Binary Lock Read Write As #fn
byteData = Equip.IO.Read(100000)
Put #fn, , byteData
Close #fn
'close equipment
Equip.IO.Close
'set mouse back to default
Screen.MousePointer = vbDefault
Exit Function
ProcError:
MsgBox "The following error occured in ATELIB.DLL TDS module: " & Err.Description
End Function
08-14-2015 02:09 PM
@bhenard wrote:
Here is an example of how to do a screen shot transfer of a Tektronix TDS 3000 Series in Visual Basic 6:
<sarcasm>
Wow, thanks bhenard. We have had this problem for 15 years, with no activity at all in this thread for 7 years. And having VB code in a LabVIEW board is so useful.
</sarcasm>
And in case you still care, here's how to do it in LabVIEW: Screen capture of Tektronix MSO4104B using LabVIEW