TIA Portal Code generation – WinCC Unified V19 Alarms

In our latest video we show how to create Excel spreadsheet to generate TIA Portal tags and alarms. Here is code from our Excel macro:

Generate WinCC Unified tags

‘ Antomatix – Functions Unified
‘Tags
Sub AlarmTags(Row As Integer, name As String, udt As String) ‘ Functions

Sheets("Hmi Tags").Cells(Row, 1).FormulaR1C1 = "DB_Alarms_" + name                                                    
Sheets("Hmi Tags").Cells(Row, 2).FormulaR1C1 = "Alarm"
Sheets("Hmi Tags").Cells(Row, 3).FormulaR1C1 = Sheets("Configuration").Cells(2, 3).Value
Sheets("Hmi Tags").Cells(Row, 4).FormulaR1C1 = "DB_Alarms." + name
Sheets("Hmi Tags").Cells(Row, 5).FormulaR1C1 = udt
Sheets("Hmi Tags").Cells(Row, 6).FormulaR1C1 = udt
Sheets("Hmi Tags").Cells(Row, 7).FormulaR1C1 = ""
Sheets("Hmi Tags").Cells(Row, 8).FormulaR1C1 = "Symbolic access"
Sheets("Hmi Tags").Cells(Row, 9).FormulaR1C1 = "<No Value>"
Sheets("Hmi Tags").Cells(Row, 10).FormulaR1C1 = "<No Value>"
Sheets("Hmi Tags").Cells(Row, 11).FormulaR1C1 = "False"
Sheets("Hmi Tags").Cells(Row, 12).FormulaR1C1 = "<No Value>"
Sheets("Hmi Tags").Cells(Row, 13).FormulaR1C1 = 0
Sheets("Hmi Tags").Cells(Row, 14).FormulaR1C1 = "<No Value>"
Sheets("Hmi Tags").Cells(Row, 15).FormulaR1C1 = "Cyclic in operation"
Sheets("Hmi Tags").Cells(Row, 16).FormulaR1C1 = "T1s"
Sheets("Hmi Tags").Cells(Row, 17).FormulaR1C1 = "None"
Sheets("Hmi Tags").Cells(Row, 18).FormulaR1C1 = "<No Value>"
Sheets("Hmi Tags").Cells(Row, 19).FormulaR1C1 = "None"
Sheets("Hmi Tags").Cells(Row, 20).FormulaR1C1 = "<No Value>"
Sheets("Hmi Tags").Cells(Row, 21).FormulaR1C1 = "False"
Sheets("Hmi Tags").Cells(Row, 22).FormulaR1C1 = 10
Sheets("Hmi Tags").Cells(Row, 23).FormulaR1C1 = 0
Sheets("Hmi Tags").Cells(Row, 24).FormulaR1C1 = 100
Sheets("Hmi Tags").Cells(Row, 25).FormulaR1C1 = 0
Sheets("Hmi Tags").Cells(Row, 26).FormulaR1C1 = "False"
Sheets("Hmi Tags").Cells(Row, 27).FormulaR1C1 = "None"
Sheets("Hmi Tags").Cells(Row, 28).FormulaR1C1 = "False"
Sheets("Hmi Tags").Cells(Row, 29).FormulaR1C1 = "System-wide"

End Sub

Generate WinCC Unified Alarms

‘Alarms
Sub AlarmsFunc(ID As Integer, Row As Integer, Row2 As Integer, name As String, workSht As Worksheet)

Sheets("DiscreteAlarms").Cells(Row, 1).FormulaR1C1 = ID
Sheets("DiscreteAlarms").Cells(Row, 2).FormulaR1C1 = name + "_" + workSht.Cells(Row2, 2).Value
Sheets("DiscreteAlarms").Cells(Row, 3).FormulaR1C1 = name + " " + workSht.Cells(Row2, 3).Value
Sheets("DiscreteAlarms").Cells(Row, 4).FormulaR1C1 = ""
Sheets("DiscreteAlarms").Cells(Row, 5).FormulaR1C1 = "Alarm"
Sheets("DiscreteAlarms").Cells(Row, 6).FormulaR1C1 = "DB_Alarms_" + name + "." + workSht.Cells(Row2, 2).Value
Sheets("DiscreteAlarms").Cells(Row, 7).FormulaR1C1 = "0"
Sheets("DiscreteAlarms").Cells(Row, 8).FormulaR1C1 = "On rising edge"
Sheets("DiscreteAlarms").Cells(Row, 9).FormulaR1C1 = "<no value>"
Sheets("DiscreteAlarms").Cells(Row, 10).FormulaR1C1 = "0"
Sheets("DiscreteAlarms").Cells(Row, 11).FormulaR1C1 = "<no value>"
Sheets("DiscreteAlarms").Cells(Row, 12).FormulaR1C1 = "0"
Sheets("DiscreteAlarms").Cells(Row, 13).FormulaR1C1 = "0"
Sheets("DiscreteAlarms").Cells(Row, 14).FormulaR1C1 = "<no value>"

End Sub

See out video

#TIAPortal #TiaOpenness