Multiple TC-08 with VB

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!

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.

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
For example you could make an ok(8) or something like this.