Viciados BR
Olá bem vindo a o Viciados BR

Se você ainda não e membro Cadastre-se Agora
Ou se você já é membro, Logue-se .
e veja nosso Conteúdo.
Pois conteúdo aqui é o que não falta !
Painel de Usuário

Mensagens: 0


Alterar
Ver
Tópicos e mensagens

Contador de Visitas

Criando gerador de cash Universal

Ir em baixo

Criando gerador de cash Universal

Mensagem por Juuse em Qua Set 21, 2011 6:16 pm

Bom Pessoal Vou ensinar a vocês a fazer um gerador de cash
Vamos começar

Adicione

2 Edit
2 Button

Substitua o caption do button 1 para "Gerar Cartao"
Substitua o caption do button 2 para "Gerar PIN"

Dê 2 clicks sobre o Gerar Cartao e cole. (Apague Begin)

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.

Dê 2 clicks sobre o Gerar PIN e cole. (Apague Begin
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.
De f9 e pronto
Creditos :Juuse
avatar
Juuse
Membro Avançado
Membro Avançado

Post Post : 170
Reputação Reputação : 0
Data de Inscriçao Data de Inscriçao : 19/04/2011

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Criando gerador de cash Universal

Mensagem por BGamer em Qui Set 22, 2011 2:56 pm

Muito Bom Tópico Gostei! Continue assim!

BGamer
Membro de Bronze
Membro de Bronze

Post Post : 384
Reputação Reputação : 14
Data de Inscriçao Data de Inscriçao : 19/07/2011
Idade : 19
Localização : No Neet Forum

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

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