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)?
> > > >
> > >
> >
>