balash
Member
ok, i found few more syntax error so not describe what and where i'll summarize the changes and you can compare differences:
Sub Main()
'Declare variables
Dim Var1 As String * 20
Dim Operator_Entry As String * 20
Dim Screen_Location As String * 80
Dim Index_Number As Integer
Dim Letter As String * 20
Dim Max_Index_Number As Integer
'Initialize values and Get Values from HMI
Max_Index_Number = 16
Operator_Entry = PointGet("PRODUCT_CODE_ENTRY")
'When Letter is equal to F1
Letter = "F1"
For Index_number = 1 To Max_Index_Number
GoSub Check_Test
Next Index_number
Check_Test:
Var1 = PointGet(Letter & "_PRODUCT_CODES" & "[" & Index_number & "]")
If Var1 = Operator_Entry Then
Screen_Location = Letter & " Manifold"
PointSet "SCREEN_LOCATION_HMI",Screen_Location
PointSet "INDEX_NUMBER_HMI",Index_Number
GoTo Found_Match
End If
Found_Match:
PointSet "SEARCH_BUTTON",0
End Sub
Sub Main()
'Declare variables
Dim Var1 As String * 20
Dim Operator_Entry As String * 20
Dim Screen_Location As String * 80
Dim Index_Number As Integer
Dim Letter As String * 20
Dim Max_Index_Number As Integer
'Initialize values and Get Values from HMI
Max_Index_Number = 16
Operator_Entry = PointGet("PRODUCT_CODE_ENTRY")
'When Letter is equal to F1
Letter = "F1"
For Index_number = 1 To Max_Index_Number
GoSub Check_Test
Next Index_number
Check_Test:
Var1 = PointGet(Letter & "_PRODUCT_CODES" & "[" & Index_number & "]")
If Var1 = Operator_Entry Then
Screen_Location = Letter & " Manifold"
PointSet "SCREEN_LOCATION_HMI",Screen_Location
PointSet "INDEX_NUMBER_HMI",Index_Number
GoTo Found_Match
End If
Found_Match:
PointSet "SEARCH_BUTTON",0
End Sub