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!
Multiple TC-08 with VB
Multiple TC-08 with VB
/Martin
- markspencer
- Site Admin
- Posts: 598
- Joined: Wed May 07, 2003 9:45 am
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.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
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.