Test semaphore
Test semaphore ( semaforo ) -> Resultado
| Parâmetro | Tipo | Descrição | |
|---|---|---|---|
| semaforo | Text | → | Semáforo a testar |
| Resultado | Boolean | ← | 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