seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^

Você não está conectado. Conecte-se ou registre-se

 » Programação Desktop » Pascal / Delphi » [tutorial] criando geradores randomico de cpf

[tutorial] criando geradores randomico de cpf

Ir em baixo  Mensagem [Página 1 de 1]

Kodo no Kami

avatar
master
master
bom galera esse vai ser um tutorial basico de como criar geradores de cpf ou outro documento, para deixar o programa com visual melhor eu vou salvar uma imagem de cpf para usar ela no programa, a imagem foi essa

[Você precisa estar registrado e conectado para ver esta imagem.]

o nosso programa vai gerar o nome da pessoa (nome + sobrenome), o codigo (de forma randomica), e data de nascimento, agente poderia fazer um programa mais complexo como um exemplo de programas q da para escolher se vai ser sexo masculino ou feminino, os nomes ser carregado de uma lista de palavras etc (no caso o nosso vai ser por uma simples array com poucos nomes), bom vamos la com delphi aberto agente coloca um componete image da aba addittion, nos atributos da imagem em align colocamos alclient e no  strecth colocamos true e em picture damos dois click e carregamos a imagem do cpf  (so to usando a imagem para deixa com visual melhor mais isso e opcional), depois disso redimesionamos o form para um tamanho bom

[Você precisa estar registrado e conectado para ver esta imagem.]

criamos 3 edits da aba standard e colocamos em cima do nome, do codigo e a data, tambem criamos um button para gerar

[Você precisa estar registrado e conectado para ver esta imagem.]

vamos gerar o codigo do cpf primeiro, para isso damos dois clicks no botao criamos 4 variaveis do tipo integer q eu chamei de n1,n2,n3,n4

Código:
procedure TForm1.Button1Click(Sender: TObject);
var n1, n2, n3, n4: integer;
begin
end;
na variavel n1 ate n3 temos q gerar numeros randomico de 0 a 999 e na n4 de 0 a 99, para gerar numeros randomico usamos RandomRange passamos como argumento o numero inicial e o final

Código:
procedure TForm1.Button1Click(Sender: TObject);
var n1, n2, n3, n4: integer;
begin
   n1 := RandomRange(0,999);
   n2 := RandomRange(0,999);
   n3 := RandomRange(0,999);
   n4 := RandomRange(0,99);
end;
agora criamos uma variavel do tipo string nela vamos atribuir os 4 juntos (temos q usar inttostr para converter para ) com um formato de cpf e depois exibir na edit do codigo

Código:
procedure TForm1.Button1Click(Sender: TObject);
var n1, n2, n3, n4: integer;
    n5: string;
begin
   n1 := RandomRange(0,999);
   n2 := RandomRange(0,999);
   n3 := RandomRange(0,999);
   n4 := RandomRange(0,99);
   n5 := inttostr(n1) + '.' + inttostr(n2) + '.' + inttostr(n3) + '-' + inttostr(n4);
   Edit1.Text := n5;
end;
agora geramos a data de nascimento para isso criamos mais 3 variaveis tipo int colocamos uma para gerar 1 a 28, outra gerado 1 a 12 e outro 1970 ate 1995

Código:
procedure TForm1.Button1Click(Sender: TObject);
var n1, n2, n3, n4: integer;
    n5: string;
    d1, d2, d3 : integer;
    d4 : string;
begin
   n1 := RandomRange(0,999);
   n2 := RandomRange(0,999);
   n3 := RandomRange(0,999);
   n4 := RandomRange(0,99);
   n5 := inttostr(n1) + '.' + inttostr(n2) + '.' + inttostr(n3) + '-' + inttostr(n4);
   Edit1.Text := n5;
   d1 := RandomRange(1,28);
   d2 := RandomRange(1,12);
   d3 := RandomRange(1970,1995);
   d4 :=  inttostr(d1) + '/' + inttostr(d2) + '/' +inttostr(d3);
   Edit3.Text := d4;
end;
nome vai ser mais chato vamos criar duas array uma vai se nome e a outra sobrenome, coloque 3 nomes e 3 sobrenome (as sugestoes dos nomes foram do meu sobrinho aq no lado kkkkkk)

Código:
procedure TForm1.Button1Click(Sender: TObject);
var n1, n2, n3, n4: integer;
    n5: string;
    d1, d2, d3 : integer;
    d4 : string;
    nome: array[1 .. 5] of string;
    sobre: array [1 .. 3] of string;
    fts: string;
begin
   n1 := RandomRange(0,999);
   n2 := RandomRange(0,999);
   n3 := RandomRange(0,999);
   n4 := RandomRange(0,99);
   n5 := inttostr(n1) + '.' + inttostr(n2) + '.' + inttostr(n3) + '-' + inttostr(n4);
   Edit1.Text := n5;
   d1 := RandomRange(1,28);
   d2 := RandomRange(1,12);
   d3 := RandomRange(1970,1995);
   d4 :=  inttostr(d1) + '/' + inttostr(d2) + '/' +inttostr(d3);
   Edit3.Text := d4;
   nome[1] := 'fts315';
   nome[2] := 'yuri';
   nome[3] := 'rafael';
   nome[4] := 'daniel';
   nome[5] := 'renan';
   sobre[1] := 'da silva';
   sobre[2] := 'lacerda';
   sobre[3] := 'celso';
   fts := nome[RandomRange(1,5)] + ' ' + sobre[RandomRange(1,3)];
   Edit2.Text := fts;
end;
bom galera e mais ou menos assim q cria geradores randomicos, imagem final do soft ^^

[Você precisa estar registrado e conectado para ver esta imagem.]

by hfts315


_________________ASSINATURA_________________
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

Contato:
Spoiler:

Contato:
Facebook: [Você precisa estar registrado e conectado para ver este link.]
Skype: hackerfts315
http://endoffile.umforum.net

yer123

avatar
avançado
avançado
Uma pergunta, o número de CPF gerado será valido ou apenas um aleatório?

Gostei do programa.


_________________ASSINATURA_________________


"Não quero ser só mais um." - EU

Kodo no Kami

avatar
master
master
sim mano os numeros sao todos aleatorios


_________________ASSINATURA_________________
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

Contato:
Spoiler:

Contato:
Facebook: [Você precisa estar registrado e conectado para ver este link.]
Skype: hackerfts315
http://endoffile.umforum.net

yer123

avatar
avançado
avançado
Mas tem um calculo a se fazer para ser realmente valido, tem esse calculo no programa?


_________________ASSINATURA_________________


"Não quero ser só mais um." - EU

Conteúdo patrocinado


Voltar ao Topo  Mensagem [Página 1 de 1]

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