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
>