Página 2 de 2
Summer 87
Enviado: 16 Abr 2005 13:52
por Rusimar Pessanha Pereira
Blz marbio!!!
Coloquei o Close all no início da Rotina e parou de dar o problema. O q vocês acharam da Rotina q fiz? Ficou blz?
Abraços!!!
Ficou Legal
Enviado: 16 Abr 2005 14:01
por marbio
Boa Tarde!!
Ficou bom, vc poderia melhorar a senha, vc nao precisa usar aqueles comandos que esta la use esta funcao aqui, e vai aparecer asterisco.
Código: Selecionar todos
Function Senha(Lin,Col)
Local wSenha := "",;
wTamanho := 10 ,;
wDigito := "",;
wNroDigitos := 0
Do While .T.
If wNroDigitos=wTamanho
Exit
EndIf
@ Lin,Col Say ""
wDigito=Inkey(0)
Do Case
Case wDigito=13
Exit
Case wDigito=27
Exit
Case wDigito=8
wNroDigitos=wNroDigitos-1
If wNroDigitos<0
wNroDigitos=0
Loop
EndIf
Col=Col-1
@ Lin,Col Say " "
wSenha=Subs(wSenha,1,Len(wSenha)-1)
Loop
EndCase
wNroDigitos = wNroDigitos+1
wsenha = wSenha+Chr(wDigito)
@ Lin,Col Say Chr(254)
Col=Col+1
EndDo
wSenha=Wsenha+Space(wTamanho-Len(wSenha))
Return(Uppe(wSenha))
Entao deu tudo certo, pode contar com o pessoal aqui no forum, o que poder ajudar estamos aqui.
:* -:] :xau
Enviado: 16 Abr 2005 21:17
por Rusimar Pessanha Pereira
blz pessoal!!! Coloquei um Close all antes de começar a função e deu certo!!!!! Será q essa função funcionará bem?
Valeu!!!!
)
Funciona muito bem
Enviado: 17 Abr 2005 10:39
por marbio
Bom dia!!!!!
Eu so essa funcao em todos os meus programas, nunca tive problema.......
:)Pos (A) :-Y
Summer 87
Enviado: 19 Abr 2005 16:52
por Rusimar Pessanha Pereira
Boa tarde Marbio!!!! Valeu vou tentar colocar essa função. Eu tenho que chamar essa função no início do programa e em cada programa que eu for abrir, com o comando
Do Senha. Certo??!!!
Esses comandos
Local wSenha := "",;
wTamanho := 10 ,;
wDigito := "",;
wNroDigitos := 0 são do clipper 5.xxx? Como faço para converter para summer87?
Descupe mas comecei a mexer com o summer87, peguei uns fontes e ia mexendo e compilando, mexendo e compilando até chegar onde cheguei hoje, e agora que eu estou aprendendo legal!!!
Valeu Marbio!! Qualquer coisa te falo!!!!
Abraço.
