12-17-2002 04:09 PM
01-27-2003 04:37 AM
11-08-2005 12:26 PM
I have all the vi's created to do this, first you tell the anal. to dump it's
plot data into an Xls. file .Then you take the string and and chop it up into
4 arrays of strings of known length containing the numerics. Then it
converts the strings to numerics. Now if I could just figure out how to plot
the numerics in Labview 7.1. Then I would have soft copies of the plots.
03-15-2007 05:09 PM
I have a simlar requirement. Have your example VI's been posted somewhere?
Rich
03-15-2007 07:53 PM - edited 03-15-2007 07:53 PM
Message Edited by Dennis Knutson on 03-15-2007 06:54 PM
03-15-2007 09:59 PM
03-16-2007 09:17 PM
06-24-2009 09:28 AM
I am looking for a simple macro program that once a command button is clicked it will dump the data from the registers of the HP4194a into an excel spreadsheet. This way I am able to create graphs and such from the data. Thanks for any help!
BR,
LJG
06-24-2009 09:47 AM
06-24-2009 02:40 PM
We have a VB6 program for an HP4396A (shown below). I would like to try and keep the same format for a program for the 4194A but I am struggling trying to find equivalent commands for the SA, POIN, OUTPDTRC, and OUTPSWPRM. Is there such commands for the 4194A?
Dim intCount As Integer
lblInfo.Caption = "Downloading....."
frmMain.Refresh
frmMain.MousePointer = vbHourglass
int4396A = Init(gintAddr4396A)
ibclr int4396A
Call SendSCPI(int4396A, "POIN?")
gintNOP = Val(GetSCPI(int4396A))
ReDim gaDumpData(gintNOP)
Call SendSCPI(int4396A, "SA?")
If Val(GetSCPI(int4396A)) Then
gaDumpData(0) = "Frequency (Hz),Data Trace A"
Else
gaDumpData(0) = "Frequency (Hz),Data Trace A, Data Trace B"
End If
Call SendSCPI(int4396A, "FORM4")
For intCount = 1 To gintNOP
Call SendSCPI(int4396A, "OUTPSWPRMP? " & intCount)
gaDumpData(intCount) = GetSCPI(int4396A)
Call SendSCPI(int4396A, "OUTPDTRCP? " & intCount)
gaDumpData(intCount) = gaDumpData(intCount) & "," & GetSCPI(int4396A)
Next intCount
'Pass Control back to the 4396A
ibpct int4396A
'Clear the 4396A
ibclr int4396A
'Clear the NI488 Board
ibclr 0
Call SaveFile
lblInfo.Caption = ""
frmMain.Refresh
frmMain.MousePointer = vbDefault
Any help would be greatly appreciated,
LJG