Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.

Criando Gerador de CPF

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Criando Gerador de CPF

Mensagem por korpses em Dom Jan 09, 2011 3:15 pm

Adicione 1 Button e 1 Edit


No evento OnClick do Button, coloque:(Retire o Begin)

[center]
Código:

var
Procode9: Array [1..9] of Char;
Procode1, Procode2: Char;
i, soma, d1, d2: Integer;
begin
for i := 1 to 9 do Procode9[i] := IntToStr(Random(9))[1];

soma := 0;
for i := 10 downto 2 do soma := soma + (i * StrToInt(Procode9[11 - i]));
d1 := soma mod 11;
if ((d1 = 0) or (d1 = 1)) then Procode1 := '0'
else Procode1 := IntToStr(11 - d1)[1];

soma := 0;
for i := 11 downto 3 do soma := soma + (i * StrToInt(Procode9[12 - i]));
soma := soma + (2 * StrToInt(Procode1));
d2 := soma mod 11;
if ((d2 = 0) or (d2 = 1)) then Procode2 := '0'
else Procode2 := IntToStr(11 - d2)[1];

Edit1.Text := String(Procode9 + Procode1 + Pro[/center]code2)
;

korpses
Membro
Membro

Mensagens : 37
Agradecimentos : 18
Data de inscrição : 08/01/2011
Idade : 26
Localização : aloka
Humor : Furioso
0 / 1000 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum