Clipper Summer87

[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!!!

[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

[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!!!! )

[marbio]

Bom dia!!!!!



Eu so essa funcao em todos os meus programas, nunca tive problema.......



:)Pos (A) :-Y

[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.