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