931003E / 0620
APPENDIX A. LIST MODE
MCBs connected to the computer. This code gets the names out of that list and puts them in the
list box on the form (lstMCBs).
A.3.4.3. START_CLICK
The START_CLICK function is the heart of the data collection. This function is executed in
response to clicking the Start button on the form.
Private Sub 7cmdStart_Click()
Dim i
Dim Version As String
Dim SerialNumber As String
Dim StartTime As Date
Dim StopTime As Date
rtbStatus.Text = “”
rtbStatus.SelStart = 0
rtbStatus.SelLength = 0
For i = 1 To lstMCBs.ListCount
If lstMCBs.Selected(i - 1) Then
Set uConn21(i - 1) = CreateObject(“UMCBI.CONN.2")
lstUMCBI.SelIndex = i
uConn21(i - 1).Address = lstUMCBI.SelAddress
uConn21(i - 1).Open
Version = Trim(uConn21(i - 1).Comm(“SHOW_VERSION”))
SerialNumber = Trim(uConn21(i - 1).Comm(“SHOW_SNUM”))
Version = Left(Version, Len(Version) - 1)
Version = Mid$(Version, 3)
SerialNumber = Mid$(SerialNumber, 3)
rtbStatus.SelText = lstUMCBI.SelName & “ Version = “ & Version & “
Serial Number = “ & SerialNumber
PrepareMCB i - 1
TotalCounts(i - 1) = 0
End If
Next i
‘
‘ sTART ALL
‘
Dim lData As Variant
Open “TestData.bin” For Binary As #1
StartTime = Time()
49
Summary of Contents for ORTEC digiBASE
Page 6: ...vi...
