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.


Messages - oqapsking

Pages: 1 [2] 3 4 ... 12
16
Support Questions / Re: how to test the communication between plc and pc
« on: February 09, 2020, 07:28:21 AM »
archie has this code inside the controls

Code: [Select]
#Region "Error Display"
    Private Sub DisplaySubscribeError(ByVal sender As Object, ByVal e As MfgControl.AdvancedHMI.Drivers.Common.PlcComEventArgs)
        DisplayError(e.ErrorMessage)
    End Sub

    '********************************************************
    '* Show an error via the text property for a short time
    '********************************************************
    Private WithEvents ErrorDisplayTime As System.Windows.Forms.Timer
    Private Sub DisplayError(ByVal ErrorMessage As String)
        If Not m_SuppressErrorDisplay Then
            If ErrorDisplayTime Is Nothing Then
                ErrorDisplayTime = New System.Windows.Forms.Timer
                AddHandler ErrorDisplayTime.Tick, AddressOf ErrorDisplay_Tick
                ErrorDisplayTime.Interval = 5000
            End If

            '* Save the text to return to
            If Not ErrorDisplayTime.Enabled Then
                OriginalText = Me.Text
            End If

            ErrorDisplayTime.Enabled = True

            MyBase.Text = ErrorMessage
        End If
    End Sub


    '**************************************************************************************
    '* Return the text back to its original after displaying the error for a few seconds.
    '**************************************************************************************
    Private Sub ErrorDisplay_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ErrorDisplayTime.Tick
        Text = OriginalText

        If ErrorDisplayTime IsNot Nothing Then
            ErrorDisplayTime.Enabled = False
            ErrorDisplayTime.Dispose()
            ErrorDisplayTime = Nothing
        End If
    End Sub
#End Region

is it possible to use it ? and how?

17
Support Questions / Re: how to test the communication between plc and pc
« on: February 09, 2020, 07:22:03 AM »
i did not understand his method

18
Support Questions / how to test the communication between plc and pc
« on: February 08, 2020, 05:00:20 PM »
hello

as in the title how to test the communication between plc and pc

what i need to do is to test the communication between plc and pc using the modbus tcp com
i usually use the bing test
but i wanna use something that constantly shows the communication status

with thanks

19
Ok i will look at it
Thanks for responding

20
hello

in advancedhmi we can use the ini file to write the plc ip address in it and then the advancedhmi read them .
what i need is to make a new form that from it i can modify the addresses and show them
and when i modify them the update in the advancedhmi instead of turning of the software and modify them by notepad then save the file and start the software again

can anyone help me

with thanks

21
thanks it worked i did not notice it  lol

thanks again

22
Support Questions / Re: Delta plc changing port problem
« on: May 27, 2019, 04:43:47 PM »
and i hope this will help others
this method means you can connect any device does not have the option to change the port number

23
Support Questions / Re: Delta plc changing port problem
« on: May 27, 2019, 04:39:26 PM »
as it seams we can change it using the ladder

but it is solved  by


Quote
Originally Posted by Wasan  View Post
You can use many PLC with Modbus TCP on same network. You should config them with seperate IP with same port no. 502 such as

PC: 192.168.1.1
PLC1: 192.168.1.2
PLC2 : 192.168.1.3

[edit] I see your problem maybe you should use VPN for connect data from network or change port to forward with other PLC such as

502 to PLC1 port 502
503 to PLC2 port 502

this what some one in plctalk site talled me to do

so i did as he said and it worked
what i did is when i opened the router to forward the port
i entered 502 for the internal port
and 503 for the external port as in the attached photo

and when i tested it to connect the plc using another internet connection
i used the port 503 and it connected normally


24
the error in the attachment

and the code is in the form load

Code: [Select]

Dim pnnn As New AdvancedHMIDrivers.IniParser("ipcamurL.INI")
  phwo2.Text = pnnn.GetSetting("meare", "typem")



        If phwo2.Text = "Flo1" Then

            ToolStripStatusLabel.Text = "الطابق الاول"

            ActiveMdiChild.Dispose()

            Dim ChildForm As New floor1

            ChildForm.MdiParent = Me
            ChildForm.WindowState = FormWindowState.Maximized
            ChildForm.FormBorderStyle = FormBorderStyle.None
            ChildForm.ControlBox = False
            ChildForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
            ChildForm.MaximizeBox = False
            ChildForm.MinimizeBox = False
            ChildForm.ControlBox = False
            ChildForm.WindowState = System.Windows.Forms.FormWindowState.Normal
            ChildForm.Dock = DockStyle.Fill
            ChildForm.AutoScroll = True

            Cursor = Cursors.Default
            ResumeLayout()
            ChildForm.Show()
            Grbtn.ForeColor = System.Drawing.Color.DodgerBlue
            F2btn.ForeColor = System.Drawing.Color.DodgerBlue
            F1btn.ForeColor = System.Drawing.Color.Red
            Outbtn.ForeColor = System.Drawing.Color.DodgerBlue
            F1btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
            Grbtn.FlatStyle = System.Windows.Forms.FlatStyle.Standard
            F2btn.FlatStyle = System.Windows.Forms.FlatStyle.Standard

            Outbtn.FlatStyle = System.Windows.Forms.FlatStyle.Standard

        End If
        If phwo2.Text = "2" Then

            ToolStripStatusLabel.Text = "OutSide"
            Dim ChildForm As New OUT

            ChildForm.MdiParent = Me
            ChildForm.WindowState = FormWindowState.Maximized
            ChildForm.FormBorderStyle = FormBorderStyle.None
            ChildForm.ControlBox = False
            ChildForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
            ChildForm.MaximizeBox = False
            ChildForm.MinimizeBox = False
            ChildForm.ControlBox = False
            ChildForm.WindowState = System.Windows.Forms.FormWindowState.Normal
            ChildForm.Dock = DockStyle.Fill
            ChildForm.AutoScroll = True

            Cursor = Cursors.Default


            ChildForm.Show()
            Grbtn.ForeColor = System.Drawing.Color.DodgerBlue
            F2btn.ForeColor = System.Drawing.Color.DodgerBlue
            F1btn.ForeColor = System.Drawing.Color.DodgerBlue
            Outbtn.ForeColor = System.Drawing.Color.Red
            F1btn.FlatStyle = System.Windows.Forms.FlatStyle.Standard
            Grbtn.FlatStyle = System.Windows.Forms.FlatStyle.Standard
            F2btn.FlatStyle = System.Windows.Forms.FlatStyle.Standard

            Outbtn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        End If

25
am trying to read the sitting from the ini file

but it is not working
the code
Code: [Select]
Dim pnnn As New AdvancedHMIDrivers.IniParser("ipcamurL.INI")

        phwo2.Text = pnnn.GetSetting("meare", "typem")

the inside of the ini file

Code: [Select]
[meare]
typem = Flo1

i don`t know how to do it


26
it worked with me as like this

Code: [Select]
Private Sub CloseDownbtn_Click(sender As Object, e As EventArgs) Handles CloseDownbtn.Click
        Dim PassCodeKeypad As New MfgControl.AdvancedHMI.Controls.Keypad(300) With {
            .PasswordChar = True,
            .ForeColor = Color.Red,
            .Text = "ENTER PASSCODE"
        }
        Dim dr As DialogResult = PassCodeKeypad.ShowDialog()
        If dr = DialogResult.Cancel Then Exit Sub
        If PassCodeKeypad.Value <> "1234" Then
            MsgBox("INVALID PASSCODE!")
        Else
            eGroundTCP.BeginWrite("02080", 1, New String() {"1"})
            eGroundTCP.BeginWrite("02082", 1, New String() {"1"})

            eF1TCP.BeginWrite("02080", 1, New String() {"1"})
            eF1TCP.BeginWrite("02082", 1, New String() {"1"})
            eF22TCP.BeginWrite("02080", 1, New String() {"1"})



        End If
    End Sub

i opened the basicbutton.vb
and used the toggle code

thanks for your help

27
Support Questions / Re: Delta plc changing port problem
« on: May 24, 2019, 08:58:26 PM »
No one knows about it??

28
Thank you very much
It seems exactly as i need i will try it when am on the pc and will tell you about it

And with a pass code :) thats great

Thanks

29
OK CAN YOU GIVE ME THE CODE I SHOULD USE ?
BUT I NEED THE CODE TO USE THE PLC ADDRESS AND IP AND TCPIP PORT
CAUSE THE I NEED TO CLOSE MULTI DOORS
EACH DOOR IS CONNECTED TO A DIFFERENT PLC

SO I NEED A GLOBAL CODE AND THEN I WILL REWRITE IT FOR MULTI PLCS
BY THE WAY AM USING THE DRIVER ModbusTCPCom AND THE BUTTON IS IN TOGGLE MODE

30
Am gonna use a windows tablet
And am gonna install a remote control app on the phone and the computer
I home some day i will be able to make it as an app

Pages: 1 [2] 3 4 ... 12