Multiple TC-08 with VB

Post your VB and VBA discussions here
Post Reply
tre1121
User
User
Posts: 6
Joined: Mon Mar 31, 2008 8:59 am
Location: Sweden

Multiple TC-08 with VB

Post by tre1121 »

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

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

Post by markspencer »

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

edcv
Newbie
Posts: 1
Joined: Thu Sep 04, 2008 11:28 pm

Post by edcv »

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.

Post Reply