31
Support Questions / OmronEthernetFINSCom
« on: December 18, 2018, 06:56:05 AM »
Hi, i found with newest version 3.99y beta that OmronEthernetFINSCom driver , option TreatDataAsHex dont give right values in barlevel control.
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.
'***********************************************************
'* If labeled is clicked, pop up a keypad for data entry
'***********************************************************
Dim KeypadText1 As String
Protected Overrides Sub OnClick(e As System.EventArgs)
MyBase.OnClick(e)
Dim ex As MouseEventArgs = e
Dim kordinatax = ex.X
If kordinatax < (Me.Size.Width / 2) Then
KeypadText1 = "xxxxx"
PLCAddressKeypad = "D12000"
ElseIf kordinatax > (Me.Size.Width / 2) Then
KeypadText1 = "yyyyy"
PLCAddressKeypad = "D12001"
End If
If m_PLCAddressKeypad IsNot Nothing AndAlso (String.Compare(m_PLCAddressKeypad, "") <> 0) And Enabled Then
If KeypadPopUp Is Nothing Then
KeypadPopUp = New MfgControl.AdvancedHMI.Controls.Keypad(m_KeypadWidth)
AddHandler KeypadPopUp.ButtonClick, AddressOf KeypadPopUp_ButtonClick
End If
End If
KeypadPopUp.Text = KeypadText1
KeypadPopUp.Value = ""
KeypadPopUp.StartPosition = Windows.Forms.FormStartPosition.Manual
KeypadPopUp.Location = New Point(400, 50)
KeypadPopUp.TopMost = True
KeypadPopUp.Show()
End Sub
Private Sub BarLevel3_MouseClick(sender As Object, e As MouseEventArgs) Handles BarLevel3.MouseClick
kordinatax = e.X
If kordinatax < (Var(3) / 2) Then
BarLevel3.KeypadText = "xxxxxx"
BarLevel3.PLCAddressKeypad = "D12000"
ElseIf kordinatax > (Var(3) / 2) Then
BarLevel3.KeypadText = "yyyyyy"
BarLevel3.PLCAddressKeypad = "D12001"
End If
If m_CenterValue <> value Then
m_CenterValue = value
Invalidate()
End If
now its working like a charm.