Test semaphore
Test semaphore ( semaforo ) -> Resultado
| Parámetro | Tipo | Descripción | |
|---|---|---|---|
| semaforo | Text | → | Nombre del semáforo a probar |
| Resultado | Boolean | ← | True = el semáforo existe, False = el semáforo no existe |
Descripción
El comando Test semaphore le permite probar la existencia de un semáforo.
La diferencia entre la función Semaphore y Test semaphore es que Test semaphore no crea el semaphore si éste no existe. Si el semaforo existe, la función devuelve True. De lo contrario, devuelve False.
Ejemplo
El siguiente ejemplo le permite conocer el estado de un proceso (en nuestro caso, la modificación de un código) sin modificar semaforo:
$Win:=Open window(x1;x2;y1;y2;-Palette window)
Repeat
If(Test semaphore("Código de encriptación"))
POSICION MENSAJE($x3;$y3)
MESSAGE("El código de encriptación está siendo modificado.")
Else
POSICION MENSAJE($x3;$y3)
MESSAGE("La modificación del código de encriptación ha sido autorizada.")
End if
Until(StopInfo)
CLOSE WINDOW