Aninhamento

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
Netavin
Usuário Nível 3
Usuário Nível 3
Mensagens: 306
Registrado em: 28 Fev 2007 08:37
Localização: Cacoal-RO

Aninhamento

Mensagem por Netavin »

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
TK90 / TK95 / APPLE IIe / 286 / 386 / 486 / 586 / AMD Atlhon
" Sem saber que era impossível, foi lá e fez !! "
anacatacombs
Membro Master
Membro Master
Mensagens: 472
Registrado em: 12 Jul 2005 16:53
Localização: Cianorte-Paraná
Contato:

Re: Aninhamento

Mensagem por anacatacombs »

Faça da seguinte forma:

Código: Selecionar todos

When Sinal = 0 .AND. BuscaNo()
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
Avatar do usuário
rochinha
Administrador
Administrador
Mensagens: 4664
Registrado em: 18 Ago 2003 20:43
Localização: São Paulo - Brasil
Contato:

Re: Aninhamento

Mensagem por rochinha »

Amiguinho,

Seguindo o raciocinio da AnaCatacombs voce fará:

Código: Selecionar todos

@ l,c Get var PICT "@!" When ( sinal = 0 .and. Buscano() )
Sendo que as respostas prováveis que voce obterá serão:

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.
Avatar do usuário
Netavin
Usuário Nível 3
Usuário Nível 3
Mensagens: 306
Registrado em: 28 Fev 2007 08:37
Localização: Cacoal-RO

Re: Aninhamento

Mensagem por Netavin »

Bom dia caros amigos!

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 !! "
Responder