Duvida sobre do while

[ABeltrani]

No exemplo abaixo:

Código: Selecionar todos

function NETUSE(arquivo,modo,segundos) 
local psempre:=(segundos = 0) 
do while (psempre .or. segundos >0) 
   if modo 
      use &arquivo exclusive new
   else 
      use &arquivo shared new
   endif 
    if !neterr() 
       return(.t.) 
    endif 
    segundos--
    inkey(1) 
enddo
return(.f.) 

Alguem poderia me explicar o porque do uso da linha:

do while (psempre .or. segundos >0)

Não poderia usar:

do while segundos >= 0 ?


Não entendí a função da variável psempre.

Grato

[gvc]

Veja:


Segundos é a quantidade de tentativas para tentar abrir o arquivo. Se vc passar o valor 0, vai ficar tentando "eternamente".
Se vc passar um valor maior que zero, 3 p.e., a função vai fazer uma contagem regressiva de tentativas. Quando chegar a zero, sai do loop e retorna .F., indicando que não conseguiu abrir o arquivo solicitado.

Boa sorte. Espero ter ajudado.

[Maligno]

Alguem poderia me explicar o porque do uso da linha:

do while (psempre .or. segundos >0)

Não poderia usar:

do while segundos >= 0 ?

Sua dúvida procede, já que à primeira vista a variável psempre parece estar sobrando. Mas não está. Note que, na medida em que psempre é atribuída, ela passa a ser um simples flag lógico, que não tem nada a ver com o tempo decorrido. Se você fatorasse e usasse segundos >= 0, quando segundos se tornasse zero, aquilo que deveria ser limitado no tempo, passaria a ser infinito, o que seria um erro de lógica. Mas com o uso de psempre não há perigo disso acontecer. Se psempre for FALSE, quando segundos chegar a zero, a malha encerrará, finalizando a função.

[ABeltrani]

Quer dizer entao que se eu nunca for passar o valor de segundos = 0, posso retirar da função todas as declarações de psempre, pois ela só serve para fazer tentativas infinitas

Quer dizer, se eu chamar a função sempre dessa forma por exemplo:

netuse(arquivo,.t.,5) não precisa declarar mais a variavel psempre ?

Maligno, fiz o teste comparando segundos >= 0 e quando segundos checou a -1, saiu do loop. Quer dizer, mesmo quando segundos chega a zero, ele não altera psempre para .T.

[Maligno]

Quer dizer entao que se eu nunca for passar o valor de segundos = 0, posso retirar da função todas as declarações de psempre, pois ela só serve para fazer tentativas infinitas

Exatamente. Se você sempre usará um tempo finito, pode remover psempre.

Maligno, fiz o teste comparando segundos >= 0 e quando segundos checou a -1, saiu do loop. Quer dizer, mesmo quando segundos chega a zero, ele não altera psempre para .T.

Mas se você remove o teste de psempre e usa apenas o teste (segundos >= 0), ele sempre sairá da malha quando segundos se igualar a -1. E de acordo com o código mostrado, o valor de segundos nunca interfere no valor lógico contido em psempre, que é fixado antes de entrar na malha.

[ABeltrani]

Ok Maligno !

Mais uma vez obrigado pelos esclarecimentos.

Abraço.

[Pablo César]

Foi bom colega ABeltrani, você ter toca esse assunto. Eu por exemplo removí o PSEMPRE e coloquei um como ntentativas no lugar e inserí mais dois parâmetros um indicando o númeor da área e outro o modo (se Exclusive ou Compartilhado).