Test and Measurement Forum

Multiple TC-08 with VB

Post your VB and VBA discussions here

Multiple TC-08 with VB

Postby tre1121 » Wed Apr 30, 2008 12:03 pm

Are there any kind person out there who could help me.

I'm not good at programming.
I have 4 USB TC-08, 32 thermocouples.

I have tried the VB example providied, but i don't know how to do with multiple units.
Anyone who is willing to share this?

I want a permanent log computer to save the 32 points into a database or eventually store it temporarily into a textfile. And then use php (which i'am familiar to) to pass it on into MySql.

I have tried Linux drivers, no luck, have tried c++ but i have too little experience. I have tried PicoLog but i doesn't find it automatic enough. I don't want to press any buttons, i't should do all the work itself.

Thanx!
/Martin
tre1121
Active User
Active User
 
Posts: 6
Joined: Mon Mar 31, 2008 8:59 am
Location: Sweden

Postby markspencer » Tue May 13, 2008 10:42 am

Hi,

I am sorry that you are experiencing problem. Unfortunately, we are unable to provide individual service on writing you own software, but others on the forum may be able to help you.
Regards,

Mark Spencer
User avatar
markspencer
Site Admin
Site Admin
 
Posts: 598
Joined: Wed May 07, 2003 9:45 am

Postby edcv » Thu Sep 04, 2008 11:42 pm

Hello, if you see the code sample:

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Private Sub Open_Click()
Dim ok As Integer
Dim usbtc08Info As String * 80

If (tc08_handle < 1) Then
txtComments.Text = "Opening TC-08"
txtComments.Refresh
tc08_handle = usb_tc08_open_unit()
If (tc08_handle > 0) Then

ok = usb_tc08_get_unit_info2(tc08_handle, usbtc08Info, 80, 4)
txtComments.Text = "USBTC-08 Opened " + "Serial: " + usbtc08Info

Call usb_tc08_set_mains(tc08_handle, True)
ok = usb_tc08_set_channel(tc08_handle, 0, Asc("K"))
ok = usb_tc08_set_channel(tc08_handle, 1, Asc("K"))
ok = usb_tc08_set_channel(tc08_handle, 2, Asc("K"))
Else
If (tc08_handle = 0) Then
txtComments.Text = "Unable to open TC-08"
Else
txtComments.Text = "Error Code: " & usb_tc08_get_last_error(0)
End If
End If
End If

End Sub

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
I think you can make one if with condition the TC-08 USB serial (usbtc08Info)
I hope all will be diferent :D
For example you could make an ok(8) or something like this.
edcv
Newbie
 
Posts: 1
Joined: Thu Sep 04, 2008 11:28 pm


Return to VB and VBA (Excel, Access)

Who is online

Users browsing this forum: No registered users and 0 guests