Test semaphore

Test semaphore ( semaforo ) : Boolean

Descrição​

O comando Test semaphore lhe permite provar a existência de um semáforo.

A diferença entre a função Semaphore e Test semaphore é que Test semaphore não cria o semaforo se este não existe. Se o semaforo existe, a função devolve True. Do contrário, devolve False.

Exemplo​

O exemplo a seguir lhe permite conhecer o estado de um processo (em nosso caso, a modificação de um código) sem modificar semaforo:

 $Win:=Open window(x1;x2;y1;y2;-Palette window)
 Repeat
  If(Test semaphore("Código de encriptação"))
    POSIÇAO MENSAGEM($x3;$y3)
    MESSAGE("O código de encriptação está sendo modificado.")
  Else
    POSIÇAO MENSAGEM($x3;$y3)
    MESSAGE("A modificação do código de encriptação for autorizada.")
  End if
 Until(StopInfo)
 CLOSE WINDOW

Ver também​

CLEAR SEMAPHORE
Semaphore

Propriedades​