Private Sub buildmotordescription()
Dim firsthash As Integer = 0
Dim secondhash As Integer = 0
Dim prodnum As String
Dim tempchar As String = ""
Dim length As Integer
Dim special As Boolean = False
Dim description As String = ""
Dim enter As String = vbCrLf
prodnum = IntrolProductNumberTextBox.Text
Try
'**** FIND THE FIRST HASH ****
tempchar = prodnum.IndexOf("-")
firsthash = tempchar
tempchar = 0
'**** FIND THE SECOND HASH ****
tempchar = prodnum.Substring(prodnum.IndexOf("-") + 1).IndexOf("-")
secondhash = (tempchar + firsthash) + 1
length = Len(prodnum)
If (length - secondhash) > 7 Then
special = True
End If
' **** POPULATE THE ARRAY WITH THE FIRST SECTION OF MOTOR DATA ****
section(STACK_LENGTH) = prodnum.Substring(firsthash - 1, 1)
section(FINISHED_GOOD) = prodnum.Substring(0, 1)
section(SERVOLOC_SERIES) = prodnum.Substring(1, 2)
If firsthash > 6 Then
section(FRAME_SIZE) = prodnum.Substring(3, 3)
Else
section(FRAME_SIZE) = prodnum.Substring(3, 2)
End If
' **** POPULATE THE ARRAY WITH THE SECOND SECTION OF MOTOR DATA ****
section(MOUNTING_OPTION) = prodnum.Substring(secondhash - 1, 1)
section(VOLTAGE) = prodnum.Substring(secondhash - 2, 1)
If (secondhash - firsthash) > 5 Then
section(MOTOR_KE) = prodnum.Substring(firsthash + 1, 3)
Else
section(MOTOR_KE) = prodnum.Substring(firsthash + 1, 2)
End If
' **** POPULATE THE ARRAY WITH THE THIRD SECTION OF MOTOR DATA ****
section(FEEDBACK) = prodnum.Substring(secondhash + 1, 4)
section(TERMINATION) = prodnum.Substring(secondhash + 5, 1)
section(BRAKE_OPTION) = prodnum.Substring(secondhash + 6, 1)
If special = True Then
section(OTHER_OPTIONS) = prodnum.Substring(secondhash + 7, 1)
End If
' **** START ASSEMBLING DESCRIPTION ****
' **** CONVERT FRAME SIZE ****
Select Case section(FRAME_SIZE)
Case "50"
section(FRAME_SIZE) = "2"
Case "80"
section(FRAME_SIZE) = "3"
Case "97"
section(FRAME_SIZE) = "4"
Case "130"
section(FRAME_SIZE) = "6"
Case "180"
section(FRAME_SIZE) = "8"
End Select
' **** CONVERT STACK LENGTH ****
If section(FRAME_SIZE) = 8 Then
Select Case section(STACK_LENGTH)
Case "B"
section(STACK_LENGTH) = "1"
Case "C"
section(STACK_LENGTH) = "1.5"
Case "D"
section(STACK_LENGTH) = "1.75"
Case "G"
section(STACK_LENGTH) = "2"
Case "J"
section(STACK_LENGTH) = "4"
Case "K"
section(STACK_LENGTH) = "Large 8-inch special magnet"
End Select
Else
Select Case section(STACK_LENGTH)
Case "A"
section(STACK_LENGTH) = "1"
Case "B"
section(STACK_LENGTH) = "2"
Case "C"
section(STACK_LENGTH) = "3"
Case "D"
section(STACK_LENGTH) = "4"
'Case "S"
' section(STACK_LENGTH) = "Special"
End Select
End If
' **** CONVERT VOLTAGE ****
Select Case section(VOLTAGE)
Case "G"
section(VOLTAGE) = "24"
Case "H"
section(VOLTAGE) = "48"
Case "I"
section(VOLTAGE) = "115"
Case "J"
section(VOLTAGE) = "230"
Case "K"
section(VOLTAGE) = "450"
'Case "S"
' section(VOLTAGE) = "Special"
End Select
' **** CONVERT MOUNTING OPTION ****
Select Case section(MOUNTING_OPTION)
Case "E"
section(MOUNTING_OPTION) = "English"
Case "M"
section(MOUNTING_OPTION) = "Metric"
'Case "S"
' section(MOUNTING_OPTION) = "Special"
End Select
' **** CONVERT FEEDBACK ****
Select Case section(FEEDBACK)
Case "1000"
section(FEEDBACK) = "1000 PPR communicating Encoder Feedback"
Case "1024"
section(FEEDBACK) = "1024 PPR communicating Encoder Feedback"
Case "2000"
section(FEEDBACK) = "2000 PPR communicating Encoder Feedback"
Case "2048"
section(FEEDBACK) = "2048 PPR communicating Encoder Feedback"
Case "HRES"
section(FEEDBACK) = "Hi-Gain Resolver"
End Select
' **** CONVERT TERMINATION ****
Select Case section(TERMINATION)
Case "M"
section(TERMINATION) = "MS Connector"
Case "N"
section(TERMINATION) = "NPT Connector"
Case "P"
section(TERMINATION) = "Pigtail Connector"
Case "S"
section(TERMINATION) = "Special Connector"
Case "1"
section(TERMINATION) = "18-inch single cord exit w/Conexall connector"
Case "2"
section(TERMINATION) = "wire exit through back plate"
Case "3"
section(TERMINATION) = "side front facing wire exit"
Case "4"
section(TERMINATION) = "side rear facing wire exit"
Case "E"
section(TERMINATION) = "Emerson MG style connector"
Case "D"
section(TERMINATION) = "Emerson DXM"
End Select
' **** CONVERT BRAKE_OPTION ****
Select Case section(BRAKE_OPTION)
Case "B"
section(BRAKE_OPTION) = "24V Brake"
Case "N"
section(BRAKE_OPTION) = "No Brake"
End Select
' ***** START BUILDING DESCRIPTION ****
description = "Introl Product Number " & prodnum & enter
description = description + enter & section(FRAME_SIZE) & "-Inch " & section(MOUNTING_OPTION) & " " & section(STACK_LENGTH) & " Stack"
Catch ex As Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
DescriptionTextBox.Text = prodnum
MessageBox.Show(description)
End Sub