[Delphi] Criando Gerador De Cash P/ GC ( Vídeo Aula )

[-Mizuki. 4]

eae pessoal fiz essa video aula ae pra vocês espero que gostem.

 

Obs: Necessário ter delphi, na video aula eu utilizei o delphi 2009, você pode usar o 2010 também pois é do mesmo jeito , agora se você utilizar o delphi 7 , e não souber exatamente aonde fica cada componente usado na video aula ( Button , Edit e label )

fica na aba standard a primeira de todas do delphi 7 , basta passar o mouse por cima dos icones até achar os que tem os mesmos nomes citados acima)

 

Vamos ao vídeo

 

[video=youtube;pppFM794Kvw]

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

• Entre
• ou
• Cadastre-se

 

Códigos:

 

button 1:

 

procedure TForm2.Button1Click(Sender: TObject);

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;

end.

 

button 2 :

 

procedure TForm2.Button2Click(Sender: TObject);

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;

end.

 

 

Créditos :

Mizuki

[iMelo~' 15]

cara esse conteudo ja é postado durante o ano todo e nunca ninguem gostou disso entendo que sua forma de ajudar é boa mas é quase inutil porém obrigado por compartilhar com a wc.

[-Mizuki. 4]

cara esse conteudo ja é postado durante o ano todo e nunca ninguem gostou disso entendo que sua forma de ajudar é boa mas é quase inutil porém obrigado por compartilhar com a wc.

sim, mas minha intenção não é somente ensinar a criar o gerador de cash , mas sim mostrar como funciona randomize :)

[malmal11 0]

o conteudo do topico e bom para quem nao sabe criar nenhum tipo de programa ajuda bastante ,apesar de poucas pessoas se interessarem nisso ai entao fica quase inutil mesmo o toipico ajudando muito gostei do topico por isso ganhou thanks

['Wolf~* 3]

Fechado.