Test semaphore

4D v16.3

Test semaphore


Test semaphore ( semaforo ) -> Resultado

Parâmetro	Tipo	Descrição
semaforo	String	Semáforo a testar
Resultado	Booleano	True = o semáforo existe, False = o semáforo não existe

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