Criando gerador de cash

[matheus.cdantas 0]

Eae galera blz? Então, resolvi criar um tópico ensinando a criar um gerador de cash pelo delphi 7 p/ GC. Espero que gostem ! ^^

 

Download Delphi:

 

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

 

1 - Abra o seu delphi e troque a caption do form para qualquer nome a escolha. Eu coloquei ~ SubZero ™ Gerador de Cash v1

 

 

 

 

2 - Depois disso adicione 2 edit e 2 button na sua form.

 

 

 

 

3 - Após isso mude a caption dos buttons e apague o text dos edit igual a como está na imagem

 

 

 

 

4 - Depois na mesma aba Standard adicione uma Label e mude a caption dela, eu coloquei ~ SubZero ™ Gerador de Cash v1 e mude a fonte para deixar bem bonitenho ;d

 

 

 

 

5 - Depois de tudo isso vamos adicionar os códigos, dê dois cliques no Gerar Cartão, apague o begin e o end; e adicione este código:

 

Codigo

 

 

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;

 

 

OBS: Se quiser pode mudar a ordem do str=', assim poderá ter mais chances.

 

6 - Agora dê dois cliques no PIN, apague novamente o begin e end; e adicione o código:

 

Codigo

 

 

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;

 

 

7 - Depois disso vá na aba Win32 e adicione uma StatusBar, depois de adicionar clique nela e em seguida vá no inject inspector procure nele por panels e clique nos '...'

 

 

 

 

8 - Clique em Add New e vá em Text que vai ser o nome que aparecerá em baixo do gerador, no meu botei By ~ SubZero

 

 

 

 

9 - Vá até a aba Win32 e adicione o XpManifest

 

 

 

 

10 - Agora pra terminar vá em Project e clique em Options

 

 

 

 

11 - Vá na aba Application onde você poderá mudar o nome do titulo e o icone.. Após isso aperte OK.

 

 

 

 

12 - Parabéns você criou seu gerador ;P Agora vá emFile, e aperte em Save Project As... e salve no local desejado. Depois abra ele e aperte Ctrl + F9 e o gerador irá aparecer no lugar em que foi salvo.

 

Créditos:

 

 

~ SubZero ™ Pelo Tuto e por imagens

 

 

[MakeZero 3]

Existente.

 

Fechado[x]