• Replies 2 replies
  • Subscribers 1 subscriber
  • Views 6 views
  • Users 0 members are here
Options
Related

Control Switching Question

Admin
Hello and thank you for your help,

I have a quandary that I cannot find an answer to and am hoping that the forums will be able to help. Here is an example which does not exactly match my situation but is close enough to demonstrate my problem:
I have a site that controls several pieces of equipment on a factory floor with only 1 operator for all the machines in a given area. The operator has 3 different thin clients that they can use to control the equipment in the area. Only 1 of the 3 stations can be actively controlling equipment at any time. I have the process of control switching down fine where if station 2 has control, station 1 and station 3 cannot activate the equipment until station 2 releases control. What I cannot seem to do is this:

When a new station takes control of the machines, I need to open a blank screen on the other 2 stations that has a default message 'control is at another station' or something to that effect. Is it possible to open a screen on the other 2 stations automatically (or forced) when the 3rd station properly verifies and takes control of the machinery?

Thanks for your help and please let me know if you need more information.

(edited for grammar and clarity)
Parents
  • - You can use the graphics script for this.

    - Under the 'Variables with local scope...' section add...
    Dim OldStation
    Dim MyIP
    Dim MyStation

    - In the Graphics_OnStart() subroutine add...
    MyIP = $GetComputerIP() ' Note: this will work as long as you have one fixed IP address for each station

    If MyIP = "192.168.1.1" Then 'Note: use the actual fixed IP address for station 1
    MyStation = 1
    End If

    If MyIP = "192.168.1.2" Then 'Note: use the actual fixed IP address for station 2
    MyStation = 2
    End If

    If MyIP = "192.168.1.3" Then 'Note: use the actual fixed IP address for station 3
    MyStation = 3
    End If

    - In the Graphics_WhileRunning() subroutine add...
    If $ControlStation <> OldStation Then ' Note: $ControlStation is a server tag that used to determine what station has control
    If ((MyStation <> $ControlStation) AND ($ControlStation <> 0)) Then
    $Open("BlankScreen")
    End If
    OldStation = $ControlStation
    End If


    [Edited for missing $, etc.]
Reply
  • - You can use the graphics script for this.

    - Under the 'Variables with local scope...' section add...
    Dim OldStation
    Dim MyIP
    Dim MyStation

    - In the Graphics_OnStart() subroutine add...
    MyIP = $GetComputerIP() ' Note: this will work as long as you have one fixed IP address for each station

    If MyIP = "192.168.1.1" Then 'Note: use the actual fixed IP address for station 1
    MyStation = 1
    End If

    If MyIP = "192.168.1.2" Then 'Note: use the actual fixed IP address for station 2
    MyStation = 2
    End If

    If MyIP = "192.168.1.3" Then 'Note: use the actual fixed IP address for station 3
    MyStation = 3
    End If

    - In the Graphics_WhileRunning() subroutine add...
    If $ControlStation <> OldStation Then ' Note: $ControlStation is a server tag that used to determine what station has control
    If ((MyStation <> $ControlStation) AND ($ControlStation <> 0)) Then
    $Open("BlankScreen")
    End If
    OldStation = $ControlStation
    End If


    [Edited for missing $, etc.]
Children
No Data