Iae pessoal vou encinar vocês a como fazer um gerador de cash .
Para fazer o gerador de cash precisa do delphi 7 eu coloquei o download dele no final do topico.
Vamos lá ao tutorial de como fazer o gerador de cash.
Crie 2 Button e 2 Edit.
No Button 1-> você ponhe o nome de ''CARTÃO'' no Button 2->você ponhe ''PIN''.
Nos 2 Edit->Você ponhe ''Clique para gerar''sem as aspas.
Da 2 cliques no Button 1 ''Cartão'' e apague o begin eadicione esse codigo.
Codigo:
Para fazer o gerador de cash precisa do delphi 7 eu coloquei o download dele no final do topico.
Vamos lá ao tutorial de como fazer o gerador de cash.
Crie 2 Button e 2 Edit.
No Button 1-> você ponhe o nome de ''CARTÃO'' no Button 2->você ponhe ''PIN''.
Nos 2 Edit->Você ponhe ''Clique para gerar''sem as aspas.
Da 2 cliques no Button 1 ''Cartão'' e apague o begin eadicione esse codigo.
Codigo:
- Código:
var
i: integer;
const
str = 'ABCDEFGHIJKLMNOPQRSTUVXYWZ1234567890';{Code a ser gerado}
max = 16;{O numero ou letra que vai gerar esse numero 6 é a quantidade de numero ou letra a ser gerador}
begin
Edit1.Text := '';
for i := 1 to max do
Edit1.Text := Edit1.Text + str[random(length(str))+1];
end;
end.
De 2 clikes no Button 2 ''PIN'' apague o begin e adicione esse codigo.
Codigo
Codigo
- Código:
var
i: integer;
const
str = 'ABCDEFGHIJKLMNOPQRSTUVXYWZ1234567890';{Code a ser gerado}
max = 10;{O numero ou letra que vai gerar esse numero 6 é a quantidade de numero ou letra a ser gerador}
begin
Edit2.Text := '';
for i := 1 to max do
Edit2.Text := Edit2.Text + str[random(length(str))+1];
end;
end.
Agora salve em uma pasta mais não fexa o delphi 7
Depois de salvo vcs aperta f9 para compilar para abrir como ".exe" depois de aperta f9 vai até a pasta ondi vc salvo e estara lá o Gerador de cash ".exe"
Se gostou clike em +Thanks.
Última edição por kolo86 em Seg 14 Mar - 21:14:59, editado 1 vez(es)
