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 MessageDisplayByValue1_ValueChanged(sender As Object, e As AdvancedHMI.Controls.ValueChangedEventArgs) Handles MessageDisplayByValue1.ValueChanged
If MessageDisplayByValue1.Value = 1 Then
MessageDisplayByValue1.BackColor = Color.Blue
End If
If MessageDisplayByValue1.Value = 2 Then
MessageDisplayByValue1.BackColor = Color.Yellow
End If
End Sub
Private Sub MessageDisplayByValue1_TextChanged(sender As Object, e As EventArgs) Handles MessageDisplayByValue1.TextChanged
MessageDisplayByValue1.HighlightColor = Color.Yellow
End Sub
Try
Dim MyPLC As New Controller()
Dim MyTag As Tag
MyPLC.IPAddress = "192.168.1.40"
' connect to plc
If MyPLC.Connect()<> ResultCode.E_SUCCESS Then
MessageBox.Show(MyPLC.ErrorString)
Return
End If
' upload tags
If MyPLC.UploadTags()<> ResultCode.E_SUCCESS
MessageBox.Show(MyPLC.ErrorString)
Return
End If
' get program list
Dim programList As ReadOnlyCollection(Of Logix.Program) = MyPLC.ProgramList
' iterate through program
For Each program As Logix.Program in programList
' get list of TagTemplates
Dim templateList As ReadOnlyCollection(Of TagTemplate) = program.TagsItems()
' iterate through all templates in program
For Each item As TagTemplate In templateList
If item.Name = "SomeTag" Then
MyTag = item.ToTag()
End If
Next
Next
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Private Sub DataSubscriber1_DataChanged(sender As Object, e As Drivers.Common.PlcComEventArgs) Handles DataSubscriber1.DataChanged
EthernetIPforCLXCom1.BeginRead("TempDINTArray[0]", 3)
End Sub
Private MyValue As String
Private Sub EthernetIPforCLXCom1_DataReceived(sender As Object, e As Drivers.Common.PlcComEventArgs) Handles EthernetIPforCLXCom1.DataReceived
If e.PlcAddress = "TempDINTArray[0]" Then
MyValue = e.Values(0)
Label3.Text = e.Values(0)
End If
If e.PlcAddress = "TempDINTArray[1]" Then
Label4.Text = e.Values(0)
End If
If e.PlcAddress = "TempDINTArray[2]" Then
Label5.Text = e.Values(0)
End If
End Sub
Private scannedBarcode As String = String.Empty
Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
Select Case keyData
Case Keys.A To Keys.Z
Me.scannedBarcode &= keyData.ToString()
Case Keys.NumPad0 To Keys.NumPad9
Me.scannedBarcode &= keyData.ToString()(6)
Case Keys.D0 To Keys.D9
Me.scannedBarcode &= keyData.ToString()(1)
Case Keys.Return, Keys.Enter
Me.ValidateScannedBarcode()
Me.scannedBarcode = String.Empty
Return True
Case Keys.Back AndAlso scannedBarcode.Length > 0
Me.scannedBarcode = Me.scannedBarcode.Substring(0, scannedBarcode.Length - 1)
'Case Keys.Escape
' Me.Close()
Case Else
'do nothing?
Return MyBase.ProcessCmdKey(msg, keyData)
End Select
End Function
Sub ValidateScannedBarcode()
Dim pattern As String = "[R]{1}[2]{1}[N]{1}[MPW]{1}[A-Z0-9]{4}" '//R2NP1234
Dim regex As Regex = New Regex(pattern)
If (scannedBarcode.Length = 8) AndAlso (regex.IsMatch(scannedBarcode)) Then
If PLCIsConnected Then
EthernetIPforCLXCom1.Write("FromPC.Barcode", scannedBarcode)
End If
Label1.Text = scannedBarcode.ToString()
End If
End Sub
Private Sub MainForm_KeyPress(sender As Object, e As KeyPressEventArgs)
e.KeyChar = Convert.ToChar(e.KeyChar.ToString().ToUpper())
Dim pattern As String = "[R]{1}[2]{1}[N]{1}[MPW]{1}[A-Z0-9]{4}" '//R2NP1234
Dim regex As Regex = New Regex(pattern)
If ((e.KeyChar >= ChrW(48) And e.KeyChar <= ChrW(57)) Or (e.KeyChar >= ChrW(65) And e.KeyChar <= ChrW(90))) Then
If ((barcodeSerial.Length = 0) And (e.KeyChar = "R")) Then
barcodeSerial = barcodeSerial + e.KeyChar.ToString()
Label2.Text = barcodeSerial.ToString()
ElseIf ((barcodeSerial.Length > 0) And (barcodeSerial.Length < 8)) Then
barcodeSerial = barcodeSerial + e.KeyChar.ToString()
Label2.Text = barcodeSerial.ToString()
End If
End If
If ((e.KeyChar = ChrW(8)) And (barcodeSerial.Length > 0)) Then '//if mistake, use the backspace key
barcodeSerial = barcodeSerial.Substring(0, barcodeSerial.Length - 1)
Label2.Text = barcodeSerial.ToString()
End If
If (regex.IsMatch(barcodeSerial)) Then
BasicLabel1.Text = barcodeSerial.ToString()
EthernetIPforCLXCom1.Write("FromPC_Barcode", barcodeSerial)
End If
End Sub
