Reacción A Los Cambios De Estado De Los Led De Señalización Del Panel Control - Siemens SIMATIC CPU 412-2 PCI Manual

Reacción a los cambios de estado de los LED de señalización del Panel Control
La tabla D-5 muestra un ejemplo de un subprograma que lee el estado de los LED de
señalización para el estado operativo RUN, determina el color del LED de señalización y
precisa si el LED de señalización está encendido continuamente o parpadea. Las
constantes declaradas para el subprograma son las máscaras para los valores de las
propiedades del LED de señalización: CpuBusf1, CpuBusf2, CpuExtF, CpuFrce, CpuIntF,
CpuRun y CpuStop.
Tabla D-5 Reacción a los cambios de estado de los LED de señalización del Panel Control
Visual Basic Code
Private Sub S7Panel_UpdateState()
'Estas constantes son las máscaras para las propiedades de los LED de señalización:
Const LED_GREEN = &H2
Const LED_3SEC = &H100
Const LED_ON = &H200
Const LED_05HZ = &H300
Const LED_20HZ = &H400
'En este ejemplo, RunLedColorTxt y RunLedStateTxt son campos de texto:
'RunLedColorTxt muestra un mensaje sobre el color del LED de señalización para el
'estado operativo RUN
'RunLedStateTxt muestra un mensaje sobre el estado (encendido constantemente o
parpadeante)
'del LED de señalización para el estado operativo RUN
If S7Panel.CpuRun = 0 Then
RunLedColorTxt.Caption = "El color del LED de señalización para el estado operativo
RUN
es gris"
RunLedStateTxt.Caption = "RunLED está apagado"
End If
If ((S7Panel.CpuRun And LED_GREEN) = LED_GREEN) Then
RunLedColorTxt.Caption = "El color del LED de señalización para el estado operativo
RUN
es verde"
End If
If ((S7Panel.CpuRun And LED_ON) = LED_ON) Then
RunLedColorTxt.Caption = "El LED de señalización para el estado operativo RUN está
encendido y no parpadea)"
End If
If ((S7Panel.CpuRun And LED_3SEC) = LED_3SEC) Then
RunLedColorTxt.Caption = "El LED de señalización para el estado operativo RUN parpadea
durante 3 segundos"
End If
If ((S7Panel.CpuRun And LED_05SEC) = LED_05HZ) Then
RunLedColorTxt.Caption = "El LED de señalización para el estado operativo RUN parpadea
con intervalos de 5 Hz"
End If
If ((S7Panel.CpuRun And LED_20SEC) = LED_20HZ) Then
RunLedColorTxt.Caption = "El LED de señalización para el estado operativo RUN parpadea
con intervalos de 20 Hz"
End If
End Sub
WinAC Controlling con CPU 412-2 PCI/CPU 416-2 PCI: configuración, instalación y datos de las CPUs, V. 3.2
A5E00161970-04
Panel Control
D-9