PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WX (Windev, Webdev e Windev Mobile) - Comunicação com Equipamento SIEMENS SIMATIC S7-1200
WX (Windev, Webdev e Windev Mobile) - Comunicação com Equipamento SIEMENS SIMATIC S7-1200
Iniciado por Boller, abr., 14 2021 12:26 PM - Sem resposta
Membro registado
3.289 mensagems
Popularité : +89 (91 votes)
Publicado em abril, 14 2021 - 12:26 PM
Hi,

SIEMENS SIMATIC S7-1200 can be flexibly adapted to your needs with Windev

The extended communication functions of the SIEMENS SIMATIC S7-1200 allow for a comprehensive and improved data transfer!

gautServer is object Automation CLIENT_OPC_AUTOMATION
gpautGroup is object Automation dynamic
gpautItem is object Automation dynamic

OPCServerConnection()
//..............

PROCEDURE OPCServerConnection()
WHEN EXCEPTION IN

gautServer>>Connect((sOPCServer),(sMachineName))

DO

RegLog(ID_Servidor_Opc,"SRV01","Erro de Ligação ao servidor",“Unable to connect, check the connection parameters”)

END

// create the group of accesses
gpautGroup = gautServer>>OPCGroups>>Add(NAME_GROUP)

IF gpautGroup = Null THEN

RegLog(ID_Servidor_Opc,"GRP01","Erro de Grupo",“Não foi possível criar o grupo ”+NAME_GROUP)
RETURN

END

Valor is real
dtDate is DateTime

gpautItem = gpautGroup>>OPCItems>>AddItem((ValTag),1)
nErrorCode is int = gpautItem>>Read(1)

IF nErrorCode<>0 THEN

RegLog(ID_Servidor_Opc,"ITM01","Erro de criação de Tag","Não foi possível criar a Tag " + ValTag)

END
//Valor da Tag
Valor = gpautItem>>Value

// Qualidade do Registo
Var_Quality = sGetQuality(gpautItem>>Quality)

// DateTime do Registo
dtDate = gpautItem>>TimeStamp


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/