1) I assume you are seeing the correct waveform on VB samples?
2) Can you use DQChart to display waveform in VBA of Excel? Can you
add a display lable to display the value?

--- In ultimaserial_group@yahoogroups.com, "teamtwf8" <p.raap@w...>
wrote:
>
> OK, when I use VB 6.0 (so no Excel) the sample is working fine.
> Also ultimapanel works fine if I add 158 as device and also COM 0
> for USB.
>
> I Did not changed anything and now only have Excel openend.
>
> So then back to Excel 2000 and the sample.
> When all performed as stated at the page I hit the RUN for the
macro
> button.
> The macro is started and you see the cells be filled in Excel.
> Only the data in collum A should be filled with data from channel 1
> but only says 0,00 in each cell. The time collums are nicely filled
> each second.
> For some reason the voltage at channel 1 is not streamed to excel.
>
> Now you say VB 6.0 works so stick with it.
> I have no skills in VB6.0. I can make a frontpanel, I can add
> activeX controls. But I cant link the data from the channels to the
> active xcontrols. If I can that I still mis the link to stream the
> data to Excel.
>
> So for me as newbie I rather work with Excel as I know how to work
> there with Xcontrols so I have live readings by the graphs and can
> stream the data directly to cells in Excel.
> But then first I have to get the VB excel sample to work! :-)
>
> Any suggestion in the right direction would be nice.
>
> Thanks in advance.
>
> --- In ultimaserial_group@yahoogroups.com, "teamtwf8" <p.raap@w...>
> wrote:
> >
> > 1] Correct I use excel 2000.
> > 2] No old version was installed as far as I know.
> > First I installed ultimaserial.exe and then ultimaserial3.exe
> > All dowloaded after 25 -11-05
> > 3] I will try to use a time to start the data aquisition.
> >
> > I let you know my progress,
> >
> > Thanks for the support this got get working.
> >
> > Paco
> >
> >
> > --- In ultimaserial_group@yahoogroups.com, "ultimaserial"
> > <ultimaserial@y...> wrote:
> > >
> > > It seems you are using VBA from Excel?
> > >
> > > If so, you'd better take a look at the Excel lessons
> > >
> > > 1) The sample VB programs may not work in VBA without
> > modification,
> > > see below.
> > > 2) If you had older version of Ultimaserial installed on this
pc
> > > before, you need to clean up the exd files
> > > 3) Under certain configuration, Excel doesn't accept
> > ultimaserial's
> > > new data event. If this is the case, use IETimer, see the
sample
> > > codes in Excel lesson, and call AvailableData in the loop
> > >
> > > --- In ultimaserial_group@yahoogroups.com, "teamtwf8"
> > <p.raap@w...>
> > > wrote:
> > > >
> > > > Thanks for the suggestions.
> > > > 1] I set com port back to 0
> > > > 2] Cheked for the ultimaserial.ocx file and it says 11
> November
> > 2005
> > > > 3] Made sure only excel is open no ther programs.
> > > > I hooked a fixed 2.50 volt signal on diferential input 1
> > > > Nothing happens when I hit the command1 but that should start
> > the
> > > > reading.
> > > >
> > > > This is what is in the VBE section
> > > > Private Sub Command1_Click()
> > > > UltimaSerial1.Device = 158 'This tells the control that we
> are
> > > > using DI-158
> > > > UltimaSerial1.CommPort = 0 'on COM 0 USB
> > > > UltimaSerial1.ChannelCount = 1 'with 1 channel
> > > > UltimaSerial1.SampleRate = 10 'at 240Hz
> > > > UltimaSerial1.EventLevel = 1 'So that we can use NewData
> event
> > > > UltimaSerial1.Start 'Run!
> > > > End Sub
> > > >
> > > >
> > > > Private Sub Command2_Click()
> > > > UltimaSerial1.Stop 'Stop
> > > > End Sub
> > > >
> > > >
> > > > Private Sub UltimaSerial1_NewData(ByVal Count As Integer)
> > > > DQChart1.Chart UltimaSerial1.GetData() 'Fetch and plot the
> > data
> > > > End Sub
> > > >
> > > > Am I really missing something here? :-)
> > > >
> > > > Kind regards,
> > > >
> > > > Paco Raap
> > > > --- In ultimaserial_group@yahoogroups.com, "ultimaserial"
> > > > <ultimaserial@y...> wrote:
> > > > >
> > > > > 1) Check the date of ultimaserial.ocx under
Windows\system32
> > > > > directory, and make sure it is dated Nov, 2005
> > > > >
> > > > > 2) UltimaSerial1.CommPort should be 0 for USB-based devices
> > > > >
> > > > > 3) Make sure Windaq is not running when you try out the VB
> > > sample,
> > > > > you can't interface to 158 from two different applications.
> > > > >
> > > > > --- In ultimaserial_group@yahoogroups.com, "teamtwf8"
> > > > <p.raap@w...>
> > > > > wrote:
> > > > > >
> > > > > > After reading some more FAQ's I changed to following but
> no
> > > > avail.
> > > > > > Private Sub Command1_Click()
> > > > > > UltimaSerial1.Device = 158 'This tells the control that
we
> > are
> > > > > > using DI-194
> > > > > > UltimaSerial1.CommPort = 3 'on COM 1
> > > > > > UltimaSerial1.ChannelCount = 1 'with 1 channel
> > > > > > UltimaSerial1.SampleRate = 240 'at 240Hz
> > > > > > UltimaSerial1.EventLevel = 1 'So that we can use NewData
> > event
> > > > > > UltimaSerial1.Start 'Run!
> > > > > > End Sub
> > > > > >
> > > > > > In hardware systemsetting of XP I found that the comport
> for
> > > the
> > > > > USB
> > > > > > was COM3. I saw somewhere in the propertie setting of
> > > > ultimaserial
> > > > > > that USB was port named 0.
> > > > > > So I changed this setting to com 3.
> > > > > > I hooked up a 200mv on channel 1.
> > > > > > But notthing to view when hitting F5 in the Dqchart.
> > > > > > What goes wrong? HELP.....
> > > > > >
> > > > > > Thanks in advance,
> > > > > >
> > > > > > Paco Raap
> > > > > >
> > > > > >
> > > > > > --- In ultimaserial_group@yahoogroups.com, "teamtwf8"
> > > > <p.raap@w...>
> > > > > > wrote:
> > > > > > >
> > > > > > > Hi there,
> > > > > > >
> > > > > > > I am in the procress of building a 3.5 ccm model car
> dyno
> > > that
> > > > > > needs
> > > > > > > 4 different sensors (2 x rpm) and 2x temp)
> > > > > > > All data needs to be displayed and also be stored some
> > graphs
> > > > of
> > > > > > > power and torque can be made while running and
> afterwards.
> > > > > > >
> > > > > > > I do not like to invent the wheel again so if someone
> has
> > a
> > > > ready
> > > > > > > made project of can guide me in the right direction let
> me
> > > > know.
> > > > > > >
> > > > > > > On my pc I have visual basic 6.0 and excel.
> > > > > > >
> > > > > > > More info about the current project can be found here.
> > > > > > > http://www.twf8.ws/php/index.php?
> > > > > > > option=com_content&task=view&id=60&Itemid=186
> > > > > > >
> > > > > > > I was adviced to go here for some help as I really need
> it.
> > > > > > > People offered help on our engine dyno project but all
> > bailed
> > > > > > out :-(
> > > > > > > So I have to do it all myselve from no experience with
> VB.
> > > > > > >
> > > > > > > I used the ultimaserial sample found here to see if I
> > could
> > > > get
> > > > > > the
> > > > > > > 158 to work
> > > > > > > http://www.ultimaserial.com/vbtutor.html
> > > > > > > But instead of DI-195 I use a DI-158USB
> > > > > > > I changes the setting from the sample as below to my
> > > knowledge.
> > > > > > >
> > > > > > > Private Sub Command1_Click()
> > > > > > > UltimaSerial1.Device = 158 'This tells the control
that
> > we
> > > > are
> > > > > > > using DI-194
> > > > > > > UltimaSerial1.CommPort = 0 'on COM 1
> > > > > > > UltimaSerial1.ChannelCount = 1 'with 1 channel
> > > > > > > UltimaSerial1.SampleRate = 240 'at 240Hz
> > > > > > > UltimaSerial1.EventLevel = 1 'So that we can use
> > NewData
> > > > event
> > > > > > > UltimaSerial1.Start 'Run!
> > > > > > > End Sub
> > > > > > >
> > > > > > > Private Sub Command2_Click()
> > > > > > > UltimaSerial1.Stop 'Stop
> > > > > > > End Sub
> > > > > > >
> > > > > > > Private Sub DQChart1_ChartChanged(ByVal Min As Long,
> ByVal
> > > Max
> > > > As
> > > > > > > Long)
> > > > > > >
> > > > > > > End Sub
> > > > > > >
> > > > > > > Private Sub UltimaSerial1_NewData(ByVal Count As
Integer)
> > > > > > > DQChart1.Chart UltimaSerial1.GetData() 'Fetch and
> plot
> > the
> > > > data
> > > > > > > End Sub
> > > > > > >
> > > > > > > Hence but nothing happens on the DATAqchart.
> > > > > > > I checked if a signal was comming in by starting
> > Windaqlite.
> > > > > > > Here channel 1 nicely shows a steady voltage signal I
> > supply
> > > > to
> > > > > > the
> > > > > > > analog input 1.
> > > > > > > Windaqlite and windaq/XL are working fine.
> > > > > > >
> > > > > > > Any help or guidance in the right direction would be
> nice.
> > > > > > >
> > > > > > > BTW happy new year.
> > > > > > >
> > > > > > > Paco Raap
> > > > > > >
> > > > > >
> > > > >
> > > >
> > >
> >
>