1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
|
PROCEDURE Surveillance(NbItems,TabItemName,Value,Quality,TimeStamp)
Tab_Def est un entier
AffichOK est un booléen
pos est un tableau de 2 entiers sur 1 octet
vTab_Def0 est un tableau de 64 variants
index est un entier
POUR index=1 A NbItems
SELON TabItemName[index]
CAS "OPC.Infos.Bit_ResultOK" : AffichOK=Value[index] // Récuperation
Sans problème
CAS "OPC.PositionVar.Pos_PFAIBLE": pos[1]=Value[index]//Récuperation
Sans problème
CAS "OPC.PositionVar.Pos_PFORT": pos[2]=Value[index] // Récuperation
Sans problème
CAS "OPC.Defauts.essai" :
SI Value[index]<>Null ALORS //Récuperation Impossible
Tab_Def=Value[index]
Info(VariantConvertit(Tab_Def0[1],Tab_Def0[2],Tab_Def0[3])
FIN
FIN
FIN |
Partager