Some times the sequence of the units are different.
This makes problem because the unit index (0-3) is also used for my other equipment (oven, power supply) index.
I thought I solve the problem by using the function
"usb_tc08_get_unit_info" or "usb_tc08_get_formatted_info"
and set then explicit the index of the units.
But unfortunally the functions dosn`t work!!!!
For example by run my software first time:
Unit0 Serialno: GJY30/137
Unit1 Serialno: GJY30/142
Unit2 Serialno: GJY30/143
Unit3 Serialno: GJY30/158
For example by run my software for x th time:
Unit0 Serialno: GJY30/142
Unit1 Serialno: GJY30/158
Unit2 Serialno: GJY30/143
Unit3 Serialno: GJY30/137
For opening 4 units i use VB6 structure:
-----------------------------------------------------------------
Sub Init_TempLog()
Dim ok As Integer
i = 0
Do While 1 = 1
tc08_handle(i) = usb_tc08_open_unit()
If tc08_handle(i) <= 0 Then Exit Do
If (tc08_handle(i) > 0) Then
Call usb_tc08_set_mains(tc08_handle(i), 0)
ok = usb_tc08_set_channel(tc08_handle(i), 1, Asc("K"))
ok = usb_tc08_set_channel(tc08_handle(i), 2, Asc("K"))
ok = usb_tc08_set_channel(tc08_handle(i), 3, Asc("K"))
ok = usb_tc08_set_channel(tc08_handle(i), 4, Asc("K"))
ok = usb_tc08_set_channel(tc08_handle(i), 5, Asc("K"))
ok = usb_tc08_set_channel(tc08_handle(i), 6, Asc("K"))
ok = usb_tc08_set_channel(tc08_handle(i), 7, Asc(" "))
ok = usb_tc08_set_channel(tc08_handle(i), 8, Asc("X"))
Else
Hinweis = MsgBox("Unable to open DataLogger" & i, vbOKOnly, Message)
End If
TempLogUnits = i
i = i + 1
Loop
End Sub
"usb_tc08_get_unit_info" or "usb_tc08_get_formatted_info" does not run at VB6
also
"usb_tc08_get_unit_info" declaration is missing in VB6 modul
[quote="Joerg"]Some times the sequence of the units are different.
This makes problem because the unit index (0-3) is also used for my other equipment (oven, power supply) index.
I thought I solve the problem by using the function
"usb_tc08_get_unit_info" or "usb_tc08_get_formatted_info"
and set then explicit the index of the units.
But unfortunally the functions dosn`t work!!!!
For example by run my software first time:
Unit0 Serialno: GJY30/137
Unit1 Serialno: GJY30/142
Unit2 Serialno: GJY30/143
Unit3 Serialno: GJY30/158
For example by run my software for x th time:
Unit0 Serialno: GJY30/142
Unit1 Serialno: GJY30/158
Unit2 Serialno: GJY30/143
Unit3 Serialno: GJY30/137
For opening 4 units i use VB6 structure:
-----------------------------------------------------------------
Sub Init_TempLog()
Dim ok As Integer
i = 0
Do While 1 = 1
tc08_handle(i) = usb_tc08_open_unit()
If tc08_handle(i) <= 0 Then Exit Do
If (tc08_handle(i) > 0) Then
Call usb_tc08_set_mains(tc08_handle(i), 0)
ok = usb_tc08_set_channel(tc08_handle(i), 1, Asc("K"))
ok = usb_tc08_set_channel(tc08_handle(i), 2, Asc("K"))
ok = usb_tc08_set_channel(tc08_handle(i), 3, Asc("K"))
ok = usb_tc08_set_channel(tc08_handle(i), 4, Asc("K"))
ok = usb_tc08_set_channel(tc08_handle(i), 5, Asc("K"))
ok = usb_tc08_set_channel(tc08_handle(i), 6, Asc("K"))
ok = usb_tc08_set_channel(tc08_handle(i), 7, Asc(" "))
ok = usb_tc08_set_channel(tc08_handle(i), 8, Asc("X"))
Else
Hinweis = MsgBox("Unable to open DataLogger" & i, vbOKOnly, Message)
End If
TempLogUnits = i
i = i + 1
Loop
End Sub[/quote]