ukážka programovania časovača:

Dim oTepl
Set oTepl = pMe.Pm("../Data/#vars/teplota")
If oTepl.Value >= 100 Then
oTepl.Value = 0
Else
oTepl.Value = oTepl.Value + 3
End If
Pm.Debug "Aktuálny čas: " & now

ukážka programovania KEY:

Dim oData, i, oAlm
Set oData = pMe.Pm("../Data")
For i=1 To 3
oData.Item("tlak_" & i).Value = rnd * 100
' oData.Item(i + 2).Value = rnd * 100
Next
Set oAlm = pMe.Pm("../Alarms")
If oData.Item("tlak_1").Value < 10 Then
oAlm.ActivateNew "tlak_1_ll", "alarm0", "Kotol č. 1", _
"Príliš nízky tlak 1", _
"Tlak " & oData.Item("tlak_1").Value
Else
oAlm.Inactivate "tlak_1_ll"
End If
Pm.Methods.Sucet 1.25, 3.14159
Pm.Debug "Klavesa Key: " & Pm.Methods.Sucet(2.3, 1.4), 2

ukážky panelu obrazov....