Skip to Content

SiePortal

The integrated platform for your product selection, buying and support workflow - bringing together Industry Mall and Online Support.

SiePortalDeutsch

Search

Home
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menu temporary not available
- Menue temporary not available
- {{item.title}}

Products & Services
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
MySiePortal MySiePortal
{{(apiData.MySiePortal | filter:{'rank':1}:true)[0].title}} MySiePortal
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Cart ({{apiData.CartCount}})

Navigation

Connecting with PLC via Vb script

Created by: RaiMahi at: 4/20/2021 7:09 AM (6 Replies)

Rating (0)

Thanks 0

7 Entries

4/20/2021 7:09 AM	Rate (0)
RaiMahi Posts: 47 Rating: (0)	Hello I am trying to connect my IPC277e with two PLCs using device proxy. I have written code in VB script. but VBS does not recognize ChangeConnection function I am using TIA portal RT Professional V 15.1 . The message I get is that this function is not available for this device. Is there any alternative available? Thanx
RaiMahi Posts: 47 Rating: (0)
Suggestion To thank Quote Answer

4/20/2021 10:29 AM	Rate (0)
schufri Gold Member Joined: 10/10/2014 Last visit: 10/24/2024 Posts: 1725 Rating: (210)	Hi RaiMahi If I understand correct you want to switch you PLC connection from one plc to next plc. Is this correct ? Best regards schufri

Suggestion To thank Quote Answer

4/20/2021 12:43 PM	Rate (0)
RaiMahi Posts: 47 Rating: (0)	Hi Schufri Yes, that's what I need. I have successfully implemented this using scripts in a Comfort panel using runtime advanced. But in case of IPC there is no "ChangeConnection" function. Is there any other way of switching? Thanx
RaiMahi Posts: 47 Rating: (0)
Suggestion To thank Quote Answer

4/20/2021 5:00 PM	Rate (0)
schufri Gold Member Joined: 10/10/2014 Last visit: 10/24/2024 Posts: 1725 Rating: (210)	Hi RaiMahi see at SIMATIC WinCC WinCC Engineering V16 – Communication https://support.industry.siemens.com/cs/de/en/view/109773787 2.3.2.6 Setting up switch on/switch off of a connection in Runtime (RT Professional) Skript to swicht the connection // WINCC:TAGNAME_SECTION_START // syntax: #define TagNameInAction "DMTagName" // next TagID : 1 #define TAG_0 "@NeueVerbindung_1@AlternateConnectionAddress" #define TAG_1 "@NeueVerbindung_1@ConnectionEstablishMode" #define TAG_2 "@NeueVerbindung_1@ConnectionState" #define TAG_3 "@NeueVerbindung_1@ForceConnectionAddress" // WINCC:TAGNAME_SECTION_END // WINCC:PICNAME_SECTION_START // syntax: #define PicNameInAction "PictureName" // next PicID : 1 // WINCC:PICNAME_SECTION_END #pragma code("msrtcli.dll") #include "msrtapi.h" #pragma code() #pragma code( "kernel32.dll" ) VOID GetLocalTime(LPSYSTEMTIME lpSystemTime); #pragma code() static int Mld_Main = 0; static int Mld_Res = 0; DWORD ServiceID = 0; static BOOL InitFirst = TRUE; static MSG_RTCREATE_STRUCT MsgCreate; CMN_ERROR Error; if ( InitFirst == TRUE ) { memset( &MsgCreate, 0, sizeof (MSG_RTCREATE_STRUCT) ); MsgCreate.dwMsgState = MSG_STATE_COME; MsgCreate.wTextValueUsed = 1; sprintf( MsgCreate.mtTextValue[0].szText, "NeueVerbindung_1" ); SetTagChar( TAG_0, "IP,142.11.0.124,,0,0,02" ); InitFirst = FALSE; } if ( GetTagDWordWait( TAG_1 ) == 0 ) { Mld_Main = 0; Mld_Res = 0; return 0; } else { GetLocalTime( &MsgCreate.stMsgTime ); MSRTStartMsgService ( &ServiceID, NULL, NULL, MSG_NOTIFY_MASK_ARCHIV, NULL, &Error ); if ( GetTagDWordWait( TAG_2 ) == 0 ) { if ( GetTagDWordWait( TAG_3 ) == 0 ) { if ( Mld_Main == 0 ) { MsgCreate.dwMsgNr = 1012222; MSRTCreateMsg( ServiceID, &MsgCreate, &Error ); Mld_Main = 1; } } else { if ( Mld_Res == 0 ) { MsgCreate.dwMsgNr = 1012224; MSRTCreateMsg( ServiceID, &MsgCreate, &Error ); Mld_Res = 1; } } if ( GetTagDWordWait( TAG_2 ) == 0 ) { if ( GetTagDWordWait( TAG_3 ) == 0 ) { SetTagDWord( TAG_3, 1 ); } else { SetTagDWord( TAG_3, 0 ); } } } else { if ( ( Mld_Main != 0 ) \|\| ( Mld_Res != 0 ) ) { Mld_Main = 0; Mld_Res = 0; if ( GetTagDWordWait( TAG_3 ) == 0 ) { MsgCreate.dwMsgNr = 1012223; MSRTCreateMsg( ServiceID, &MsgCreate, &Error ); } else { MsgCreate.dwMsgNr = 1012225; MSRTCreateMsg( ServiceID, &MsgCreate, &Error ); } } } if ( ServiceID != 0 ) { MSRTStopMsgService ( ServiceID, &Error ); } return 1; } Best regards schufri

Suggestion To thank Quote Answer

4/21/2021 6:00 AM	Rate (0)
RaiMahi Posts: 47 Rating: (0)	Thanx for your response Schufri Can you tell me the connection tag details SetTagChar( TAG_0, "IP,142.11.0.124,,0,0,02" ); This 142.11.0.124 is IP what about other entries? 0,0,02 and there is blank left as well. My PLCs are on rack 0 and rack 1 , slot 3 Regards
RaiMahi Posts: 47 Rating: (0)
Suggestion To thank Quote Answer

9/16/2024 1:15 PM	Rate (0)
Jaikumar sekar Bronze Member Joined: 3/19/2019 Last visit: 10/28/2024 Posts: 104 Rating: (0)	Hi RaiMahi, Did you get the solution for this? Because i'm also facing the same issue. Can you support me for this?
	"If you want the answer - ask the question" Thanks and Regards Jaikumar S
Suggestion To thank Quote Answer

9/20/2024 9:47 AM	Rate (0)
Murof Platinum Expert Joined: 8/3/2009 Last visit: 11/11/2024 Posts: 14143 Rating: (1771)	Jaikumar sekar Hi RaiMahi, Did you get the solution for this? Because i'm also facing the same issue. Can you support me for this? Hello Jaikumar sekar The user RaiMahi has left the forum, so probably you will not get an answer from him. If you give us a fe more information about your usecase and your used Versions, perhaps we can give you also an answer bye Murof
	If this Information really helps, you could use the Rate function
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on