Boa tarde caros amigos!
Agradeceria se os amigos me ajudassem a codificar a linha abaixo de forma que eu possa utilizar "When" por duas vezes.
@ l,c Get var PICT "@!" When sinal = 0 When Buscano()
Só focará o get acima quando sinal for "0" e, satisfeita esta condição, seguir para o próximo "When" .
Um abraço fraterno a todos e meu agradecimento.
[]´s
Netavin
Aninhamento
Moderador: Moderadores
Aninhamento
TK90 / TK95 / APPLE IIe / 286 / 386 / 486 / 586 / AMD Atlhon
" Sem saber que era impossível, foi lá e fez !! "
" Sem saber que era impossível, foi lá e fez !! "
-
anacatacombs
- Membro Master

- Mensagens: 472
- Registrado em: 12 Jul 2005 16:53
- Localização: Cianorte-Paraná
- Contato:
Re: Aninhamento
Faça da seguinte forma:
Apenas lembrando que sua função BuscaNo deverá retornar um valor lógico, que eu imagino que será .T., mas vai depender do objetivo da função.
[]'s
Ana
Código: Selecionar todos
When Sinal = 0 .AND. BuscaNo()
[]'s
Ana
- rochinha
- Administrador

- Mensagens: 4664
- Registrado em: 18 Ago 2003 20:43
- Localização: São Paulo - Brasil
- Contato:
Re: Aninhamento
Amiguinho,
Seguindo o raciocinio da AnaCatacombs voce fará:
Sendo que as respostas prováveis que voce obterá serão:
Seguindo o raciocinio da AnaCatacombs voce fará:
Código: Selecionar todos
@ l,c Get var PICT "@!" When ( sinal = 0 .and. Buscano() )
Código: Selecionar todos
...
? ( .t. .and. .t.),; // .T.
( .f. .and. .t.),; // .F.
( .f. .and. .f.),; // .F.
( .t. .and. .f.) // .F.
...
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Re: Aninhamento
Bom dia caros amigos!
Quero agradecer pelas informações. Foi de grande ajuda.
[]´s
Netavin
Quero agradecer pelas informações. Foi de grande ajuda.
[]´s
Netavin
TK90 / TK95 / APPLE IIe / 286 / 386 / 486 / 586 / AMD Atlhon
" Sem saber que era impossível, foi lá e fez !! "
" Sem saber que era impossível, foi lá e fez !! "
