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