I was introduce to this group
Hi im new here,i would like u guys to help me out..Real thx

Im trying to create a VB program.
basically my DATAQ (Dl-710) was connected to Angle Sensor
( Eletrogoniometry ) & EMG Sensor ( Electromyography )..i created a
VB program (Picture1) which able to monitor the wave produced in
both equipment..everything was fine till part (picture2) where i
must recorded down the form to excel in micro volt (uV) for EMG
Sensor & Degree for Angle Sensor ..but it didnt show a (uV) &
Degree instead showing Count..i suspected error on this codes (given
below)..anyone could troubleshoot it out for me? cos im new in
VB..thx alot and effort spend here will be greatly appreciated..


James

[img]http://i5.photobucket.com/albums/y187/puyo86/stuff/1.jpg[/img]
Picture 1


[img]http://i5.photobucket.com/albums/y187/puyo86/stuff/123_845.jpg
[/img]
Picture2




VB codes:

Private Sub Command3_Click()

v = UltimaSerial.GetDataFrame(Val(Text1.Text))

If CheckReuseSheet.Value = 0 Then
Set oBook = oExcel.Workbooks.Add
Set oSheet = oBook.Worksheets(1)
Else
Set oSheet = oBook.Worksheets(1)
If bClearSheet Then
oSheet.cells.Clear
End If
End If

oSheet.Application.Visible = True


For i = 0 To UltimaSerial.ChannelCount - 1
oSheet.Range(Chr$(Asc("A") + i) + "1").Value = "Chn " +
Format$(i)
oSheet.Range(Chr$(Asc("A") + i) + "2").Value = "Counts"
Next

If CheckTimeStamp.Value = 1 Then
oSheet.Range(Chr$(Asc("A") + i) + "1").Value = Array("Time")
oSheet.Range(Chr$(Asc("A") + i) + "2").Value = Array("sec")
End If

oSheet.Range("A3").Resize(Val(Text1.Text),
UltimaSerial.ChannelCount).Value = oExcel.Worksheetfunction.Transpose
(v)
If CheckTimeStamp.Value = 1 Then
ReDim dataarray(1 To Val(Text1.Text), 1 To 1) As Variant
For i = 1 To Val(Text1.Text)
dataarray(i, 1) = (i - 1) / UltimaSerial.SampleRate
Next
s$ = Chr$(Asc("A") + UltimaSerial.ChannelCount) + "3"
oSheet.Range(s$).Resize(Val(Text1.Text), 1).Value = dataarray
End If


End Sub