Complemento "Super Bonus" Para a Roleta em VB.NET

[ratiquinho 2]

E ai galera =D

Bom no tópico que fiz ensinando como fazer uma Roleta em VB.NET ( tendo conhecimento em Adobe Flash para fazer a animação da Roleta ).

Resolvi ensinar hoje a "SUPER BONUS" !

Mais o que é a "SUPER BONUS" ?

Bom a "SUPER BONUS" funcionará assim... cada ficha jogada na Roleta irá aumentar 1 ficha na "SUPER BONUS", Se você ganhar na "SUPER BONUS" não irá adicionar nenhuma ficha o valor em cima será posto em sua ID automaticamente. e o ID será posto como o "ULTIMO GANHADOR DA SUPER BONUS" e o valor será "ZERADO".

 

Tópico da Roleta caso ninguém tenha visto ainda : http://www.webcheats.com.br/forum/delphi-vb/2338318-aprenda-fazer-sua-roleta-de-jogo-vb-net.html

Desta vez não irei por Download do Projeto pois é apenas um complemento.

 

O que vamos Usar ?

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

• Entre
• ou
• Cadastre-se

 

Abrindo o Filezilla para criar algumas pastas.

- Abra o Filezilla

- Forneça os Dados corretos do Servidor

- Abra a pasta www

- Abra a pasta do seu servidor

- Crie as seguintes pastas abaixo :

 

Pasta 1 : Super-Bonus

Pasta 2 : Download

Ficará assim : Super-Bonus/Download/

 

- Abra o Notepad++ e coloque o valor "0" e salve este arquivo como "Valor.php"

- Jogue este Arquivo "Valor.php" na pasta "Super-Bonus" pelo Filezilla

- Abra o Notepad++ e coloque o texto "Nenhum Vencedor" e salve este arquivo como "Ganhador.php"

- Jogue este Arquivo "Ganhador.php" na pasta "Super-Bonus" pelo Filezilla

- Abra o Notepad++ e coloque o texto em branco e salve este arquivo como "Arquivo.dll"

- Jogue este Arquivo "Arquivo.dll" na pasta "/Super-Bonus/Download/" pelo Filezilla

 

[ Parte do Servidor Configurado PODE FECHAR O FILEZILLA ]

 

Iremos Criar 3 pastas.

C:\RATIQUINHO\SB\

C:\RATIQUINHO\FSB\

C:\RATIQUINHO\SBNICK\

 

No seu Form1 onde fica o Login adicione o seguinte código no FORM :

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

• Entre
• ou
• Cadastre-se

Importe os seguintes componentes na sua Form2 da Roleta

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

• Entre
• ou
• Cadastre-se

 

Na sua Class adicione :

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

• Entre
• ou
• Cadastre-se

 

No seu Form ( onde tem a roleta adicione este código )

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

• Entre
• ou
• Cadastre-se

 

No Seu Timer1 que é o nosso "Atualizar SB" adicione o código abaixo :

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

• Entre
• ou
• Cadastre-se

 

Caso você tenha visto na ultima aula que dei te ensinando a fazer a Roleta existe um Private Sub chamado "Enviar_Email()"

Caso não lembre como ele era irei postar abaixo o código de como ficará.

 

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

• Entre
• ou
• Cadastre-se

 

Perceberam que agora eu adicionei +1 Private Sub ? então devemos cria-lo ficará assim :

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

• Entre
• ou
• Cadastre-se

 

Perceberam que adicione mais 1 Private Sub ? "Entregar_Fichas()" ? iremos cria-lo ficará assim :

 

 

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

• Entre
• ou
• Cadastre-se

 

Espero que vocês tenham gostado =D

 

Créditos :

Eu ( ratiquinho ) por fazer o sistema.

Riquetti ( Pois quando comecei no VB ele me ajudou 2008 se não me engano )

Rique ( Ele me ajudo pakas quando Riquetti sumiu. )