Per user request, two new scrolling options are added to 3D waterfall

uwNSlope: -45 degree scrolling down from upper left to lower right
uwT2B: Scrolling down from top to bottom

uwNSlope is also available to 2D waterfall

http://www.ultimaserial.com/UWinterface.html

Windaq add-on spectrogram is modified to support these two options

http://www.ultimaserial.com/wdspectrum.html

--- In ultimaserial_group@yahoogroups.com, ultimaserial <no_reply@...>
wrote:
>
> Per user request, two new scrolling options are added to 3D waterfall
>
> uwNSlope: -45 degree scrolling down from upper left to lower right
> uwT2B: Scrolling down from top to bottom
>
> uwNSlope is also available to 2D waterfall
>
> http://www.ultimaserial.com/UWinterface.html
>

I am using VB6 to capture a 60 Hz sine wave at a sample rate of 12288.
I am using a 120V outlet (with a DI-730) for testing. The sampled data
goes through FFT1024 where I get PeakIdx.  With multiples of Peak IDX I
have the targeted hormonic frequencies.  Using the PowerPt at these
indexes I get the FFT value of the frequency.  To convert to dB I
divide by PowerScaler.

V = FFT10241.GetPowerPt(FFT10241.GetPeakIdx * X)/(FFT10241.PowerScaler)

Then I get the actual magnitude of the frequency by unscaling the value
(But I don't know what this value represents. Does anyone know? Can I
convert it to volts? )

A = 10^(V/10)

For THD I use the squareroot of the sum of the squares of each of the
values over the fundamental.

THD% = sqr(A1^2 + A2^2 + A3^3 ...)/A0 * 100

But this seems to be off (by just over 2X), I don't near enough the
same values as measured on a PQ Meter.  I believe I need to compare the
harmonic magnitudes to the fundamental magnitude to get individual
harmonic content.  I would like to get %, magnitude, and phase of the
individual harmonics.  Am I on the right track?  Can anyone help?

To calculate the phase, you can use GetRe and GetIm methods.

BTW, FFT1024 is open source

--- In ultimaserial_group@yahoogroups.com, "wolbie76" <wolbie76@...>
wrote:
>
> I am using VB6 to capture a 60 Hz sine wave at a sample rate of 12288.
> I am using a 120V outlet (with a DI-730) for testing. The sampled data
> goes through FFT1024 where I get PeakIdx.  With multiples of Peak IDX I
> have the targeted hormonic frequencies.  Using the PowerPt at these
> indexes I get the FFT value of the frequency.  To convert to dB I
> divide by PowerScaler.
>
> V = FFT10241.GetPowerPt(FFT10241.GetPeakIdx * X)/(FFT10241.PowerScaler)
>
> Then I get the actual magnitude of the frequency by unscaling the value
> (But I don't know what this value represents. Does anyone know? Can I
> convert it to volts? )
>
> A = 10^(V/10)
>
> For THD I use the squareroot of the sum of the squares of each of the
> values over the fundamental.
>
> THD% = sqr(A1^2 + A2^2 + A3^3 ...)/A0 * 100
>
> But this seems to be off (by just over 2X), I don't near enough the
> same values as measured on a PQ Meter.  I believe I need to compare the
> harmonic magnitudes to the fundamental magnitude to get individual
> harmonic content.  I would like to get %, magnitude, and phase of the
> individual harmonics.  Am I on the right track?  Can anyone help?
>

Thank you for the response,

Do you know the equations for use with the GetRe and GetIm to yield
phase?

I am still trying to learn FFT so that I can use the control to get my
result, any help with how the GetPowerPt result is scaled would also be
appreciated.

Thanks.

Check out the discussion here

http://physics.nyu.edu/grierlab/idl_html_help/signal8.html

--- In ultimaserial_group@yahoogroups.com, "wolbie76" <curtis@...> wrote:
>
> Thank you for the response,
>
> Do you know the equations for use with the GetRe and GetIm to yield
> phase?
>
> I am still trying to learn FFT so that I can use the control to get my
> result, any help with how the GetPowerPt result is scaled would also be
> appreciated.
>
> Thanks.
>

Problem fixed:

Windaq/Excelink's time stamp column overwrites the last data channel

Please visit http://www.ultimaserial.com/wdspectrum.html to download
Windaq Add-on from UltimaSerial

I'm using a DI-148U.

How do you toggle the digital output channels to high and low? I can't
figure out the syntax.

I set the channels to output:

ultimaserial.SetDIOdir diodir = 0

And all the channels seem to be high...I can't figure out the syntax to
make "ultimaserial.digitaloutput" set these channels to low.

Please check group's file download section

--- In ultimaserial_group@yahoogroups.com, "zjbeatty" <zjbeatty@...>
wrote:
>
> I'm using a DI-148U.
>
> How do you toggle the digital output channels to high and low? I can't
> figure out the syntax.
>
> I set the channels to output:
>
> ultimaserial.SetDIOdir diodir = 0
>
> And all the channels seem to be high...I can't figure out the syntax to
> make "ultimaserial.digitaloutput" set these channels to low.
>

All,

I need some help here.
I have a simple VB app that checks the DI 1 (in fact i have a 12V
between Dig 0 and Dig 1) and if I start the app with nothing connected
all is fine and my chart is starting, if I apply 12 volts then the
level goies lowq and again all good.
The issue is when I start thr app and the 12 volts is connected then
nothing happens. I have a driver error -999
Any ideas?

thank you,
Remi

-999 is generated when 194 stops responding to commands from PC.

12V between Dig 0 and Dig 1? Isn't it too high for 194?

The transient may have reset the micro on 194

--- In ultimaserial_group@yahoogroups.com, rgrandsire <no_reply@...>
wrote:
>
> All,
>
> I need some help here.
> I have a simple VB app that checks the DI 1 (in fact i have a 12V
> between Dig 0 and Dig 1) and if I start the app with nothing connected
> all is fine and my chart is starting, if I apply 12 volts then the
> level goies lowq and again all good.
> The issue is when I start thr app and the 12 volts is connected then
> nothing happens. I have a driver error -999
> Any ideas?
>
> thank you,
> Remi
>

I'm doing some research for a professor, working with equipment that
he purchased and have next to no programming experience.  The
DI-148U-SP is being used to measure sensed signals at unique, discrete
increments.  We are not using the first two channels, which have the
string pots, only channels 3 and 4.  What I need to be able to do is
take X samples over a single second, store it in a variable array,
then write it to a data file, such as a .txt or another type.  Below
is the code I was using.

Private Sub Command1_Click()

UltimaSerial.Device = Val(148)
UltimaSerial.CommPort = Val(USB)
UltimaSerial.AcquisitionMode = NoCondition
UltimaSerial.ChannelCount = 2
UltimaSerial.EventLevel = 2
UltimaSerial.SampleRate = 240
UltimaSerial.Start

End Sub


Private Sub UltimaSerial_NewData(ByVal Count As Integer)

Dim A(240) as integer
Ultimaserial1.GetDataEx A(0), 240

End Sub


But the output A variable was only a 240 x 1 array.  How should I go
about extracting the 240 samples from the 4 channels (even though I
only need channels 3 and 4)?

I'm doing some research for a professor, working with equipment that
he purchased and have next to no programming experience. The
DI-148U-SP is being used to measure sensed signals at unique, discrete
increments. We are not using the first two channels, which have the
string pots, only channels 3 and 4. What I need to be able to do is
take X samples over a single second, store it in a variable array,
then write it to a data file, such as a .txt or another type. Below
is the code I was using.

Private Sub Command1_Click()

UltimaSerial.Device = Val(148)
UltimaSerial.CommPort = Val(USB)
UltimaSerial.AcquisitionMode = NoCondition
UltimaSerial.ChannelCount = 2
UltimaSerial.EventLevel = 2
UltimaSerial.SampleRate = 240
UltimaSerial.Start

End Sub


Private Sub UltimaSerial_NewData(ByVal Count As Integer)

Dim A(240) as integer
Ultimaserial1.GetDataEx A(0), 240

End Sub


But the output A variable was only a 240 x 1 array. How should I go
about extracting the 240 samples from the 4 channels (even though I
only need channels 3 and 4)?

*I am sorry, but I think accidentally deleted a good post from an user
replying to this post when I was deleting spam posts :(

--- In ultimaserial_group@yahoogroups.com, e.marken <no_reply@...> wrote:
>
> I'm doing some research for a professor, working with equipment that
> he purchased and have next to no programming experience. The
> DI-148U-SP is being used to measure sensed signals at unique, discrete
> increments. We are not using the first two channels, which have the
> string pots, only channels 3 and 4. What I need to be able to do is
> take X samples over a single second, store it in a variable array,
> then write it to a data file, such as a .txt or another type. Below
> is the code I was using.
>
> Private Sub Command1_Click()
>
> UltimaSerial.Device = Val(148)
> UltimaSerial.CommPort = Val(USB)
> UltimaSerial.AcquisitionMode = NoCondition
> UltimaSerial.ChannelCount = 2
> UltimaSerial.EventLevel = 2
> UltimaSerial.SampleRate = 240
> UltimaSerial.Start
>
> End Sub
>
>
> Private Sub UltimaSerial_NewData(ByVal Count As Integer)
>
> Dim A(240) as integer
> Ultimaserial1.GetDataEx A(0), 240
>
> End Sub
>
>
> But the output A variable was only a 240 x 1 array. How should I go
> about extracting the 240 samples from the 4 channels (even though I
> only need channels 3 and 4)?
>

Found it, here it is:

I think you would use the PChannel to set up just channels 3 & 4 of
the 148.

http://www.ultimaserial.com/standard.html

For DI-148/158/710/715 Users:

Please use PChannel, PGain property to change the channel and gain
allocation table

Found under UltimaSerial Properties and Methods.

Ron

--- In ultimaserial_group@yahoogroups.com, ultimaserial <no_reply@...>
wrote:
>
> *I am sorry, but I think accidentally deleted a good post from an user
> replying to this post when I was deleting spam posts :(
>
> --- In ultimaserial_group@yahoogroups.com, e.marken <no_reply@> wrote:
> >
> > I'm doing some research for a professor, working with equipment that
> > he purchased and have next to no programming experience. The
> > DI-148U-SP is being used to measure sensed signals at unique, discrete
> > increments. We are not using the first two channels, which have the
> > string pots, only channels 3 and 4. What I need to be able to do is
> > take X samples over a single second, store it in a variable array,
> > then write it to a data file, such as a .txt or another type. Below
> > is the code I was using.
> >
> > Private Sub Command1_Click()
> >
> > UltimaSerial.Device = Val(148)
> > UltimaSerial.CommPort = Val(USB)
> > UltimaSerial.AcquisitionMode = NoCondition
> > UltimaSerial.ChannelCount = 2
> > UltimaSerial.EventLevel = 2
> > UltimaSerial.SampleRate = 240
> > UltimaSerial.Start
> >
> > End Sub
> >
> >
> > Private Sub UltimaSerial_NewData(ByVal Count As Integer)
> >
> > Dim A(240) as integer
> > Ultimaserial1.GetDataEx A(0), 240
> >
> > End Sub
> >
> >
> > But the output A variable was only a 240 x 1 array. How should I go
> > about extracting the 240 samples from the 4 channels (even though I
> > only need channels 3 and 4)?
> >
>

Hopefully some kind soul can recover it or answer it. :)

--- In ultimaserial_group@yahoogroups.com, ultimaserial <no_reply@...>
wrote:
>
> *I am sorry, but I think accidentally deleted a good post from an user
> replying to this post when I was deleting spam posts :(
>
> --- In ultimaserial_group@yahoogroups.com, e.marken <no_reply@> wrote:
> >
> > I'm doing some research for a professor, working with equipment that
> > he purchased and have next to no programming experience. The
> > DI-148U-SP is being used to measure sensed signals at unique, discrete
> > increments. We are not using the first two channels, which have the
> > string pots, only channels 3 and 4. What I need to be able to do is
> > take X samples over a single second, store it in a variable array,
> > then write it to a data file, such as a .txt or another type. Below
> > is the code I was using.
> >
> > Private Sub Command1_Click()
> >
> > UltimaSerial.Device = Val(148)
> > UltimaSerial.CommPort = Val(USB)
> > UltimaSerial.AcquisitionMode = NoCondition
> > UltimaSerial.ChannelCount = 2
> > UltimaSerial.EventLevel = 2
> > UltimaSerial.SampleRate = 240
> > UltimaSerial.Start
> >
> > End Sub
> >
> >
> > Private Sub UltimaSerial_NewData(ByVal Count As Integer)
> >
> > Dim A(240) as integer
> > Ultimaserial1.GetDataEx A(0), 240
> >
> > End Sub
> >
> >
> > But the output A variable was only a 240 x 1 array. How should I go
> > about extracting the 240 samples from the 4 channels (even though I
> > only need channels 3 and 4)?
> >
>

Any suggestions on the taking just 240 samples in a second and stop
taking measurements, and then store those 240 values in an array for
those channels?  The GetDataEx routine I was using oes not seem to
like me.

--- In ultimaserial_group@yahoogroups.com, ultimaserial <no_reply@...>
wrote:
>
> Found it, here it is:
>
> I think you would use the PChannel to set up just channels 3 & 4 of
> the 148.
>
> http://www.ultimaserial.com/standard.html
>
> For DI-148/158/710/715 Users:
>
> Please use PChannel, PGain property to change the channel and gain
> allocation table
>
> Found under UltimaSerial Properties and Methods.
>
> Ron
>
> --- In ultimaserial_group@yahoogroups.com, ultimaserial <no_reply@>
> wrote:
> >
> > *I am sorry, but I think accidentally deleted a good post from an user
> > replying to this post when I was deleting spam posts :(
> >
> > --- In ultimaserial_group@yahoogroups.com, e.marken <no_reply@> wrote:
> > >
> > > I'm doing some research for a professor, working with equipment that
> > > he purchased and have next to no programming experience. The
> > > DI-148U-SP is being used to measure sensed signals at unique,
discrete
> > > increments. We are not using the first two channels, which have the
> > > string pots, only channels 3 and 4. What I need to be able to do is
> > > take X samples over a single second, store it in a variable array,
> > > then write it to a data file, such as a .txt or another type. Below
> > > is the code I was using.
> > >
> > > Private Sub Command1_Click()
> > >
> > > UltimaSerial.Device = Val(148)
> > > UltimaSerial.CommPort = Val(USB)
> > > UltimaSerial.AcquisitionMode = NoCondition
> > > UltimaSerial.ChannelCount = 2
> > > UltimaSerial.EventLevel = 2
> > > UltimaSerial.SampleRate = 240
> > > UltimaSerial.Start
> > >
> > > End Sub
> > >
> > >
> > > Private Sub UltimaSerial_NewData(ByVal Count As Integer)
> > >
> > > Dim A(240) as integer
> > > Ultimaserial1.GetDataEx A(0), 240
> > >
> > > End Sub
> > >
> > >
> > > But the output A variable was only a 240 x 1 array. How should I go
> > > about extracting the 240 samples from the 4 channels (even though I
> > > only need channels 3 and 4)?
> > >
> >
>

UltimaSerial.EventLevel = 480

Take a closer look at the VB samples that comes with the installation

Also see NewEvent, EventLevel, GetData & Stop



--- In ultimaserial_group@yahoogroups.com, e.marken <no_reply@...> wrote:
>
> Any suggestions on the taking just 240 samples in a second and stop
> taking measurements, and then store those 240 values in an array for
> those channels?  The GetDataEx routine I was using oes not seem to
> like me.
>
> --- In ultimaserial_group@yahoogroups.com, ultimaserial <no_reply@>
> wrote:
> >
> > Found it, here it is:
> >
> > I think you would use the PChannel to set up just channels 3 & 4 of
> > the 148.
> >
> > http://www.ultimaserial.com/standard.html
> >
> > For DI-148/158/710/715 Users:
> >
> > Please use PChannel, PGain property to change the channel and gain
> > allocation table
> >
> > Found under UltimaSerial Properties and Methods.
> >
> > Ron
> >
> > --- In ultimaserial_group@yahoogroups.com, ultimaserial <no_reply@>
> > wrote:
> > >
> > > *I am sorry, but I think accidentally deleted a good post from
an user
> > > replying to this post when I was deleting spam posts :(
> > >
> > > --- In ultimaserial_group@yahoogroups.com, e.marken <no_reply@>
wrote:
> > > >
> > > > I'm doing some research for a professor, working with
equipment that
> > > > he purchased and have next to no programming experience. The
> > > > DI-148U-SP is being used to measure sensed signals at unique,
> discrete
> > > > increments. We are not using the first two channels, which
have the
> > > > string pots, only channels 3 and 4. What I need to be able to
do is
> > > > take X samples over a single second, store it in a variable array,
> > > > then write it to a data file, such as a .txt or another type.
Below
> > > > is the code I was using.
> > > >
> > > > Private Sub Command1_Click()
> > > >
> > > > UltimaSerial.Device = Val(148)
> > > > UltimaSerial.CommPort = Val(USB)
> > > > UltimaSerial.AcquisitionMode = NoCondition
> > > > UltimaSerial.ChannelCount = 2
> > > > UltimaSerial.EventLevel = 2
> > > > UltimaSerial.SampleRate = 240
> > > > UltimaSerial.Start
> > > >
> > > > End Sub
> > > >
> > > >
> > > > Private Sub UltimaSerial_NewData(ByVal Count As Integer)
> > > >
> > > > Dim A(240) as integer
> > > > Ultimaserial1.GetDataEx A(0), 240
> > > >
> > > > End Sub
> > > >
> > > >
> > > > But the output A variable was only a 240 x 1 array. How should
I go
> > > > about extracting the 240 samples from the 4 channels (even
though I
> > > > only need channels 3 and 4)?
> > > >
> > >
> >
>

More info can be found in: http://ultimaserial.com/bonus.html

--- In ultimaserial_group@yahoogroups.com, ultimaserial <no_reply@...>
wrote:
>
>
>
> Download 710 Record Scheduler
> <http://www.ultimaserial.com/uscheduler.EXE>
>
> Here it is again:
>
> 1) Support Stand alone 710, 715B, 718B, 718bx
> 2) Support both USB and Ethernet -based devices
>
>
> Daily record mode is removed temporary due to firmware restriction
>

What are the port settings for the DI 194

and what are the trigger commands?

I was trying to use

http://www.dataq.com/support/techinfo/dataform.htm

Null, C, 0

but I didn't get much data back

The trigger mode for 194 is done inside ultimaserial, it is not part
of 194's native commands

--- In ultimaserial_group@yahoogroups.com, "golubcu" <golubcu@...> wrote:
>
> What are the port settings for the DI 194
>
> and what are the trigger commands?
>
> I was trying to use
>
> http://www.dataq.com/support/techinfo/dataform.htm
>
> Null, C, 0
>
> but I didn't get much data back
>

I did an upgrade from microsoft that required me to re-install
ultimaserial.  So I went with the latest on the web.  Now my
application captures "Cells(3, 5) = UltimaSerial.DigitalInput(0)" as a
1 regardless of the actual condition and even with no leads on any of
the D's.  I didn't use SetDIODir in the past and all defaulted to
input.  Is there something differant now?  In the past I asked about
the syntax of SetDIODir and example command to set all to input, but
never got past the binary thing.  Can anyone post a command within " "
that will set all to input within VBA in Excel?  Or, do I have a
differant problem?

Hello everyone.  I'm currently using UltimaSerial 3 in VB.Net with my
DI-148U, and am running into a bit of trouble.  Now, I'm not a
programmer by any stretch of the imagination, so I'm sure my methods
could be done simpler and shorter, but anyways…

Long story short, I want to read in Analog samples as fast as
possible.  The strange thing is, even though my ChannelCount is set to
1, the EventLevel is set to 1, and the SampleRate set to 240 (which I
am assuming is maximum for the DI-148U box), I appear to only be
getting 50-60 samples per second.

Even using the very straight-forward sample VB.Net project from the
UltimaSerial website, that is as fast as it will go.  Any ideas on
what may be causing the slowdown?  Or am I wrong in assuming that the
NewData sub starts every time a new data point is read in when the
EventLevel is set to 1?

Thanks again for your time!

You may have walked into the VBA trap:

http://ultimaserial.com/exd.html


Personally, I prefer this approach

http://ultimaserial.com/exd2.html


--- In ultimaserial_group@yahoogroups.com, "throrope" <throrope@...>
wrote:
>
> I did an upgrade from microsoft that required me to re-install
> ultimaserial.  So I went with the latest on the web.  Now my
> application captures "Cells(3, 5) = UltimaSerial.DigitalInput(0)" as a
> 1 regardless of the actual condition and even with no leads on any of
> the D's.  I didn't use SetDIODir in the past and all defaulted to
> input.  Is there something differant now?  In the past I asked about
> the syntax of SetDIODir and example command to set all to input, but
> never got past the binary thing.  Can anyone post a command within " "
> that will set all to input within VBA in Excel?  Or, do I have a
> differant problem?
>

148U can run much faster than 240 s/s

NewData event is fired when there at least <EventLevel> amount of
data,  you may be getting 50-60 events, but each event has more than 1
data point


--- In ultimaserial_group@yahoogroups.com, "drake_ns" <drake_ns@...>
wrote:
>
> Hello everyone.  I'm currently using UltimaSerial 3 in VB.Net with my
> DI-148U, and am running into a bit of trouble.  Now, I'm not a
> programmer by any stretch of the imagination, so I'm sure my methods
> could be done simpler and shorter, but anyways…
>
> Long story short, I want to read in Analog samples as fast as
> possible.  The strange thing is, even though my ChannelCount is set to
> 1, the EventLevel is set to 1, and the SampleRate set to 240 (which I
> am assuming is maximum for the DI-148U box), I appear to only be
> getting 50-60 samples per second.
>
> Even using the very straight-forward sample VB.Net project from the
> UltimaSerial website, that is as fast as it will go.  Any ideas on
> what may be causing the slowdown?  Or am I wrong in assuming that the
> NewData sub starts every time a new data point is read in when the
> EventLevel is set to 1?
>
> Thanks again for your time!
>

Can Ultimaserial be used with a DI-700 usb device?

My apologies for such a delay in replying, but I suffered a recent
hard disk crash and have had to spend the last week recovering.
Anyways...

This is becoming a larger problem than I expected.  I'll
elaborate a bit more into what I want to do.  For simple testing
purposes, I have the 148 tied into a simple circuit, and the Analog
inputs are just reading in the voltage that is changed by the
DigitalOutput.  Eventually the circuitry will
become more complex, but I want to keep it simple until I have the
software side working perfectly.  In short, I want:

1. Change the Digital Output
2. Immediately take in a single "new" Analog Sample

Each and every time I change the DigitalOutput, I need to get a new,
fresh AnalogInput.  The NewData sub doesn't seem like it will cut it,
if it sometimes triggers when there is more than <EventLevel> samples
present.  I guess I don't know enough about the device and how it
acquires samples to really know how to accomplish this.  Is there some
way to set a trigger for when there is one and only one new sample
available?

My apologies if this seems confusing or ignorant.  Again, thank you
for your time.

--- In ultimaserial_group@yahoogroups.com, ultimaserial <no_reply@...>
wrote:
>
> 148U can run much faster than 240 s/s
>
> NewData event is fired when there at least <EventLevel> amount of
> data,  you may be getting 50-60 events, but each event has more than 1
> data point
>
>
> --- In ultimaserial_group@yahoogroups.com, "drake_ns" <drake_ns@>
> wrote:
> >
> > Hello everyone.  I'm currently using UltimaSerial 3 in VB.Net with my
> > DI-148U, and am running into a bit of trouble.  Now, I'm not a
> > programmer by any stretch of the imagination, so I'm sure my methods
> > could be done simpler and shorter, but anyways…
> >
> > Long story short, I want to read in Analog samples as fast as
> > possible.  The strange thing is, even though my ChannelCount is set to
> > 1, the EventLevel is set to 1, and the SampleRate set to 240 (which I
> > am assuming is maximum for the DI-148U box), I appear to only be
> > getting 50-60 samples per second.
> >
> > Even using the very straight-forward sample VB.Net project from the
> > UltimaSerial website, that is as fast as it will go.  Any ideas on
> > what may be causing the slowdown?  Or am I wrong in assuming that the
> > NewData sub starts every time a new data point is read in when the
> > EventLevel is set to 1?
> >
> > Thanks again for your time!
> >
>

No

--- In ultimaserial_group@yahoogroups.com, "throrope" <throrope@...>
wrote:
>
> Can Ultimaserial be used with a DI-700 usb device?
>