Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Private Sub SendProgramToFunaceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendProgramToFunaceToolStripMenuItem.Click
Dim CodeLabels = {CodeLabel1, CodeLabel2, CodeLabel3, CodeLabel4, CodeLabel5, CodeLabel6, CodeLabel7, CodeLabel8, CodeLabel9, CodeLabel10, CodeLabel11, CodeLabel12, CodeLabel13, CodeLabel14, CodeLabel15, CodeLabel16, CodeLabel17, CodeLabel18, CodeLabel19, CodeLabel20, CodeLabel21, CodeLabel22, CodeLabel23, CodeLabel24, CodeLabel25, CodeLabel26, CodeLabel27, CodeLabel28, CodeLabel29, CodeLabel30, CodeLabel31, CodeLabel32, CodeLabel33, CodeLabel34, CodeLabel35, CodeLabel36, CodeLabel37, CodeLabel38, CodeLabel39, CodeLabel40, CodeLabel40}
Dim CodeValueLabels = {CodeValueLabel1, CodeValueLabel2, CodeValueLabel3, CodeValueLabel4, CodeValueLabel5, CodeValueLabel6, CodeValueLabel7, CodeValueLabel8, CodeValueLabel9, CodeValueLabel10, CodeValueLabel11, CodeValueLabel12, CodeValueLabel13, CodeValueLabel14, CodeValueLabel15, CodeValueLabel16, CodeValueLabel17, CodeValueLabel18, CodeValueLabel19, CodeValueLabel20, CodeValueLabel21, CodeValueLabel22, CodeValueLabel23, CodeValueLabel24, CodeValueLabel25, CodeValueLabel26, CodeValueLabel27, CodeValueLabel28, CodeValueLabel29, CodeValueLabel30, CodeValueLabel31, CodeValueLabel32, CodeValueLabel33, CodeValueLabel34, CodeValueLabel35, CodeValueLabel36, CodeValueLabel37, CodeValueLabel38, CodeValueLabel39, CodeValueLabel40, CodeValueLabel40}
Dim StepLabels = {Label1, Label2, Label3, Label4, Label5, Label6, Label7, Label8, Label9, Label10, Label11, Label12, Label13, Label14, Label15, Label16, Label17, Label18, Label19, Label20, Label21, Label22, Label23, Label24, Label25, Label26, Label27, Label28, Label29, Label30, Label31, Label32, Label33, Label34, Label35, Label36, Label37, Label38, Label39, Label40, Label40}
Dim BatchNumber As String
OkToSend = True
CodeValueLabelValidation()
If OkToSend = True Then
If ConnToSLC = False And ConnToCLX = True Then
BatchNumber = InputBox("Enter Batch Number: ", "Batch Number")
Dim C As Integer
C = 0
Try
If BatchNumber <> "" Then
EthernetIPforCLXCom1.Write("HMI_BATCH_NUMBER_IN_BUFFER", BatchNumber)
EthernetIPforCLXCom1.Write("HMI_CODE[0]", inc + 1)
Else
MsgBox("You Did Not Enter A Batch Number!")
Exit Try
End If
ProgBarForm.Show()
For C = 0 To 39
ProgBarForm.ProgressLabel.Text = C + 1
ProgBarForm.ProgressBar1.PerformStep()
EthernetIPforCLXCom1.Write("HMI_CODE[" & C + 41 & "]", CInt(d(CodeLabels(C).Text)))
EthernetIPforCLXCom1.Write("HMI_CODE_VALUE[" & C + 41 & "]", CodeValueLabels(C).Text)
System.Threading.Thread.Sleep(25)
Next
ProgBarForm.Close()
Catch ex As Exception
MsgBox(ex)
ProgBarForm.Close()
End Try
ElseIf ConnToSLC = True And ConnToCLX = False Then
BatchNumber = InputBox("Enter Batch Number: ", "Batch Number")
Dim C As Integer
C = 0
Try
If BatchNumber <> "" Then
EthernetIPforPLCSLCMicroCom1.Write("ST10:0", BatchNumber)
EthernetIPforPLCSLCMicroCom1.Write("N7:40", inc + 1)
Else
MsgBox("You Did Not Enter A Batch Number!")
Exit Try
End If
ProgBarForm.Show()
For C = 0 To 39
ProgBarForm.ProgressLabel.Text = C + 1
ProgBarForm.ProgressBar1.PerformStep()
EthernetIPforPLCSLCMicroCom1.Write("N7:" & C + 41 & "", CInt(d(CodeLabels(C).Text)))
EthernetIPforPLCSLCMicroCom1.Write("F8:" & C + 41 & "", CSng(CodeValueLabels(C).Text))
System.Threading.Thread.Sleep(25)
Next
ProgBarForm.Close()
Catch ex As Exception
MsgBox(ex)
ProgBarForm.Close()
End Try
End If
Else
MsgBox("Did not send program due to bad Opcode or Values! Please Try Again.")
End If
End Sub Sub ConnState()
If ConnToCLX = False Then
EthernetIPforCLXCom1.DisableSubscriptions = True
ElseIf ConnToCLX = True Then
EthernetIPforCLXCom1.DisableSubscriptions = False
End If
If ConnToSLC = False Then
EthernetIPforPLCSLCMicroCom1.DisableSubscriptions = True
ElseIf ConnToSLC = True Then
EthernetIPforPLCSLCMicroCom1.DisableSubscriptions = True
End If
End Sub