Papy Cop Posted July 30, 2004 Report Share Posted July 30, 2004 Criei uma funcaozinha para testar a respeito do DO/ENDDO sem fim, finalizando ao precionar uma tecla e passei para alguns amigos que estao me ajudando. Com os dois deu certo. Mas comigo Naum. Oque poderia ser??? A funcao de teste que pacei foi a seguinte. FUNCTION DOENDDOSEMFIM() zNumero = 0 lFui = .F. DO WHILE !lFui //.t. zNumero = zNumero + 1 IF lastkey()=27 lFui = .t. //EXIT ENDIF inkey(0.1) ENDDO ? "Volta"+ TRANSFORM(zNumero,"99999") ? "SAIR DO LOOP!!!" RETURN(NIL) Obrigado amigos!!! Brown Macae - RJ Quote Link to comment Share on other sites More sharing options...
karinha Posted July 31, 2004 Report Share Posted July 31, 2004 // Cortesia Especial Para My Friend Mano Brown - Macaé - Rio de Janeiro. // 31/07/2004 - By João Santos - Em São Paulo - Brazil. // // Email: karinhannah@ubbi.com.br // Web..: http://www.gruporibas.com.br/kmt #Include "FiveWin.Ch" // Forever, Forever, Forever! STATIC LSaidaExit := .F. // Estilo Professional Edition FUNCTION BROWN_MACAE_RJ() // While Eterno com ESCAPE... LOCAL nNumero // Variável Para Números. nNumero := 0.00 WHILE !LSaidaExit // Enquanto lSaidaExit Nao For True = .T. Nao Saira! IF( GetKeyState( VK_ESCAPE ) ) // Se Usuario Teclar 27 Saira! LSaidaExit := .T. MsgInfo( "Vou Sair Mano Brown... Tchau Bambino!", ; "Adeus, Amigo FiveWinner!" ) ELSE MsgInfo( "Mostra Número" + ; TRANSFORM( nNumero, "9,999,999.99" ) ) // O Seu Show() ENDIF nNumero++ // Soma Mais 1... Ok?? SysRefresh() // Refresque a Placa do Micro... Senão... Pimba! hehehe! ENDDO RETURN NIL // NAO PERCAM O SEGUNDO ENCONTRO DE FIVEWINNERS EM NOVEMBRO/2004-BREVE! João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
Papy Cop Posted July 31, 2004 Author Report Share Posted July 31, 2004 Muito Obrigado Mano João Santos. Irei testar, e com a serteza de que resolveu minha vida. Brown Macaé - RJ Quote Link to comment Share on other sites More sharing options...
Papy Cop Posted July 31, 2004 Author Report Share Posted July 31, 2004 Muito Obrigado Mano João Santos. Irei testar, e com a serteza de que resolveu minha vida. Brown Macaé - RJ Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.