Como criar um Geraador de Cash

[paulogoldstein11 0]

Olá irei postar como criar um

Gerador de Cash , simples sem skins vamos lá ?

 

O que precisaremos ?

 

1-Conhecimento básico pelo Delphi 7 ,

se não saber não tem como por isso não vou postar o Download do Delphi 7

 

ÍNDICE:

1-Tutorial com Screens

2-Como compilar o Gerador

 

 

1-Tutorial com Screens

1°Abra o Delphi 7 :

 

2°Agora adicione 2 Buttons e 2 Edits tente fazer ficar assim :

 

3°Agora mude a caption do Button 1 para ''Gerar código'' sem aspas e no Button 2 para ''Gerar Pin'' e a dos 2 edits mude para nada '' '' Assim :

 

4°Clique 2x no Button 1 e apague begin e end; e adicione esse código :

 

Código do Button 1
var
i:integer;
const
str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
max=16;
begin
Edit1.Text:='';
for i:=1 to max do
begin
Edit1.Text:=Edit1.Text+str[random(length(str))+1];
end;
end;

Código do Button 2

var
i:integer;
const
str='1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
max=10;
begin
Edit2.Text:='';
for i:=1 to max do
begin
Edit2.Text:=Edit2.Text+str[random(length(str))+1];
end;
end;

 

 

5°Agora ficará assim:

 

6°Agora você pode mudar a cor do seu gerador assim ó :

 

7°Agora No número 2 do índice você vai aprender a salvar ;)

 

2-Não sabe compilar?Seus Problemas acabaram!

 

1° vá em Fille > Save All assim ó :

 

 

2°Irá aparecer isso e você escolhe o nome :

 

 

3°Agora vai aparecer Project1 e você escolhe o nome assim :

 

 

4°Agora vá em Project e aperte em Compile o nome do seu Projecto assim ólha :

 

 

Créditos :

paulogoldstein11

[Yuri. 13]

Tópico Trancado

 

Motivo:

Área Errada

 

Como Evitar Que Se Repita:

Leia as Descrições de Cada Área e Analise em Qual das Mesmas o Conteúdo se Encaixa.