Multiple TC-08 with VB

 
Post new topic   Reply to topic    Pico Technology Forum Index -> VB and VBA (Excel, Access)
Author Message
tre1121
Active User
Active User


Joined: 31 Mar 2008
Posts: 6
Location: Sweden
PostPosted: Wed Apr 30, 2008 12:03 pm    Post subject: Multiple TC-08 with VB Reply with quote
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!
Back to top
markspencer
Site Admin
Site Admin


Joined: 07 May 2003
Posts: 610

PostPosted: Tue May 13, 2008 10:42 am    Post subject: Reply with quote
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.
Back to top
edcv
Newbie


Joined: 04 Sep 2008
Posts: 1

PostPosted: Thu Sep 04, 2008 11:42 pm    Post subject: Reply with quote
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 Very Happy
For example you could make an ok(Cool or something like this.
Back to top
Display posts from previous:   
Post new topic   Reply to topic    Pico Technology Forum Index -> VB and VBA (Excel, Access)
All times are GMT
Page 1 of 1

 


Pico Technology topic RSS feed 
Powered by phpBB © 2001, 2005 phpBB Group