Aprenda a fazer sua Roleta de Jogo [VB.NET] !

E ai galera tudo bem com vocês ?

A pedidos no messenger sobre o meu jogo de Roleta que o pessoal queria fazer um igual e não sabia como irei ensinar a fazer bem básica mais la pra frente vocês iram se aperfeiçoar !

 

Para quem nunca usou a Roleta poderá baixala abaixo : ( Não é Roleta do código abaixo é apenas para você ver )

No Final do Tópico o Download deste Projeto.

 

Download Roleta : Download da Roleta Imortais

Scan da Roleta acima : SCAN Acima

 

Como Funciona a Roleta :

Bom a Roleta funciona da seguinte maneira...

Você deverá criar uma conta no programa, fazendo isso você receberá la no FTP o valor "5" que corresponderá o valor de fichas.

Com este valor de Fichas ao clicar na Imagem "Jogar" ele irá girar a Roleta SWF ( Você deverá fazer uma no Adobe Flash CS3 )

 

Observações :

Quando baixar o Adobe Flash CS3 e fazer sua Roleta exemplo ( 5 Prêmios ), faça 5 Arquivos SWF cada 1 ganhando 1 prêmio, e jogue eles para o FTP, pois o que vai fazer o sorteio do arquivo SWF é no VB.

 

No meu caso eu tava com pressa e acabei errando no SWF... O "Premio1" está igual o "Premio4" mais vocês iram entender...

 

Irei postar aqui no tópico o meu Sistema de Login com Cadastro via FTP, ja postei em um tópico porém irei postar novamente.

 

Necessário que crie uma conta neste site : party.lc - free party hosting ( Para criar seu Servidor )

 

Necessário que baixe e instale o Filezilla ( Para configurar o servidor )

 

Configurando o Servidor :

1º Abra o Filezilla e coloque o "Host" "User" "Senha" "Porta 21" ( Não sei onde acho o Host e User )

2º Abra a pasta www e crie as seguintes pastas...

- > Download

- > Fichas

- > Roleta

- > Users ( Dentro da pasta Users crie mais duas pasta chamada : "Exist" e "Senhas" )

3º Pegue os SWF que você fez no Adobe Flash CS3 e jogue para a pasta "Roleta";

4º Abra o Notepad++ e faça 1 arquivo chamado "Arquivo.dll" e coloque na pasta "Download"

 

Feito isso feche o Filezilla pois o servidor está configurado.

Fazendo a aplicação da Roleta !

 

Nóis iremos usar 4 FORMS ao total então crie as seguintes forms.

- Form1

- Form2

- Cadastro

- Admin

 

Obs...

Será necessário que você vá em COM Components e pegue a referência do Shock Wave Flash. [ Iremos usar para a aplicação do SWF no servidor. ]

Sempre quando você ver o texto "meuservidor" quer dizer o seu servidor la no site q eu falei.

 

 

>> [ Configurando o Form1 ] <<

 

 

Importe o Seguinte componente no seu Form1 :

 

No seu Class1 do Form1 adicione o seguinte conteudo.

 

No seu Form1 ( Login ) adicione os seguintes conteudos.

 

Adicione o Seguinte código no seu Button1 :

 

No MenuStrip "Cadastre-se" Adicione o seguinte código :

 

 

>>> [ Form1 Finalizado ] <<<

 

 

>>[ Configurando o Form Cadastro ] <<

 

- Coloque 2 label com o texto ( Usuário e o outro com Senha )

- Coloque 2 Textbox

- Coloque 1 Button

 

Importe o seguinte componente no seu Form Cadastro :

 

No Seu Class Cadastro coloque o seguite código abaixo :

 

O que iremos por no Usuario_FTP e Senha_FTP.

- La no site party.lc - free party hosting clicando no seu servidor você irá ver o seu Host, Usuário e Senha.

- Iremos pegar o Usuário e Senha e iremos por o Usuário na String Usuario_FTP e a Senha na String Senha_FTP

- Ficando assim :

Dim Usuario_FTP As String = "MeuUser"

Dim Senha_FTP As String = "MInhaSenha"

 

Atenção dentro do código do Button1 você verá algo assim :

Você deverá por igual o Host do seu Servidor :

 

No Seu Button1 coloque o seguinte código. ( Este código verifica se existe um usuário registrado com a informação digitada no Servidor FTP.)

 

No Seu Form Cadastro crie um Private Sub Criar_Conta() e insira o código abaixo ficará assim :

 

>>> [ Form Cadastro Finalizado ] <<<

 

>> [ Form2 será nossa Roleta ] <<

 

Importe o seguinte componente no Form1

 

No seu Class Form2 coloque o seguinte componente.

 

Você viu acima que agora temos +2 Linhas novas que será pro nosso Relatório via E-mail :

 

Em Meu E-mail vamos por o E-mail seu do Hotmail

Em Minha Senha do E-mail vamos por a senha do seu E-mail do Hotmail.

 

Adicione um Form Closing para quando a esta form for fechada o programa não continue aberto !

 

No seu Form1 adicione o seguinte código :

 

Atenção o "AxShockwaveFlash1" será Shock Wave Flash que agente adicionou ele está presente na aba Toolbox > General. é só adiciona-lo no Form pois ele irá puxar nossa SWF do servidor para o programa então coloque o Largura e Altura do Arquivo SWF.

 

Componentes para o Form2 :

 

Os valores "62000","49900","53000" serão o intervalo de tempo que a nossa Roleta vai Girar, no meu caso as SWF q fiz demoram este tempo listado para terminar sua animação ( Vocês iram entender mais a frente. )

 

No seu Linklabel1 adicione o seguinte código :

 

 

No seu Button1 adicione o seguinte código :

On Error Resume Next

Me.Label3.Text = (CDec(IIf(Label3.Text = "", "0", Label3.Text)) - CDec(IIf("1" = "", "0", "1"))).ToString

If Label3.Text >= 0 Then

 

Button1.Enabled = False

Button1.Text = "Aguarde..."

LinkLabel1.Enabled = False

Enviar_Para_O_Servidor()

 

Else

MsgBox("Fichas insuficientes !", MsgBoxStyle.Critical, "")

End If

 

Acima ele diminui a cada jogada 1 número das fichas listada no Label3.text quando este valor for Menor que 0 você não poderá mais jogar a não ser se você adicionar Fichas veremos isso no Form Admin.

 

Adicione um Private Sub Enviar_Para_O_Servidor() e dentro dele adicione o seguinte cód

 

Após Feito isso o que aconteceu ?

Você criou uma pasta no local C:\ROLETA\FICHAS\;

Adicionou um arquivo .php dentro da pasta C:\ROLETA\FICHAS\

Modifico este php na pasta C:\ROLETA\FICHAS\

Reenviou este arquivo .php C:\ROLETA\FICHAS\ para o servidor assim alterando o seu valor de Fichas no caso -1 se você tinha 10 agora você tem 9 !

Atualizo o Label3.text que é nosso valor de Fichas

E deu Inicio a Private Sub Girar_a_roleta()

 

Adicione mais 1 Private Sub com o nome Girar_a_roleta() e adicione o seguinte código ficará assim :

 

 

O que aconteceu aqui agora ?

A String "Sorteio_1" e "Sorteio_2" estão com os valores 0 e 5 este neste comando ele vai sortear os valores listados no caso poderá vim os valores 1 2 3 e 4 na String "Resultado" que está puxando o valor da String "numero".

Depois do valor dado na String "Resultado" o comando abaixo vai verificar qual valor é se for o resultado "2" ele vai pro comando do Resultado "2" que no caso ele vai puxar o SWF do Premio_2 e vai Iniciar o Timer Premio2 com isto dará tempo da Roleta fazer sua animação completa até cair no Premio, quando acabar o Tempo do Timer Premio2 dará um outro código.

 

No Timer Premio1 coloque o seguinte Código :

 

No Timer Premio2 coloque o seguinte Código :

 

No Timer Premio3 coloque o seguinte Código :

 

No Timer Premio4 coloque o seguinte Código :

 

Feito isso ao acabar o tempo do timer ele irá dar 1 destes código fazendo assim :

A String chamada Premiacao ficará com o Texto dado exemplo pode ser "Premio2","Premio3","Premio4"

A String chamada HoraDoPC ficará com o horário do PC naquele instante chamado.

E ele vai dar o Inicio ao Sub Enviar_Email()

Então vamos criar o Sub Enviar_Email().

 

No seu Private Sub Enviar_Email() coloque o seguinte código :

 

O que está acontecendo acima ?

Acima o Programa vai te enviar um E-mail para o E-mail listado no programa ou seja o programa vai te enviar um E-mail para você mesmo, com as informações do vencedor...

Caso der erro ao enviar a mensagem o comando vai para a linha de baixo do "Catch ex As Exception" no caso está em Branco, você pode fazer o seguinte crie uma String com o texto Recuperar e la no Button1 coloque o valor do Recuperar da Ficha do usuário antes da ficha ser diminuida e crie mais um Private Sub para Reenviar_as_fichas e faça nesse Private Sub ele enviar a Ficha que está na String Recuperar depois de enviado coloque o codigo Recuperar="" para limpar o texto dela e abaixo do Catch ex As Exception ficaria assim :

 

 

Agora no Form Admin iremos adicionar os seguintes componentes.

 

Importe os seguintes textos no seu Form Admin.

 

No seu Class Admin coloque o código abaixo :

 

No seu Button2 adicione o seguinte código para verificar a ID digitada para poder adicionar ou Remover Fichas.

 

No Label5 ficará o nosso texto do nosso créditos no servidor.

 

No Button1 coloque o seguinte código :

 

Adicione 2 Privates Sub RemoveEnviarServer() e AddEnviarServer()

O que acontece ? se você pode o texto "Adicionar Fichas" no combobox e clicar no button o codigo vai para onde está o "Adicionar Fichas" e assim por diante.

 

No Private Sub AddEnviarServer()

 

No Private Sub RemoveEnviarServer() adicione o código :

 

Obs : Você pode adicionar Sistema Block, Sistema de Código via FTP muita coisa que coloque na Roleta aquele primeiro link talvez eu ensine a vocês !

 

 

DOWNLOADS / SCAN :

 

Caso você não queira digitar isso tudo em sua aplicação faça o download abaixo deste código.

--> Fazer Download desta aplicação / Sourcer .

-- > SCAN

 

Download dos SWF's

-- > DOWNLOAD Dos SWF ( RAR )

-- > SCAN

---'''' O Download abaixo não é meu por isso não tenho o SCAN dele '''---

Download do Adobe Flash CS3 ( Para você fazer seus SWF )

-- > Fazer Download do Adobe Flash CS3

 

Espero que vocês tenham gostado !

 

Créditos :

Eu ( ratiquinho ) por fazer o programa.

Riquee - ( Usei a maioria dos ensinamentos dele quando comecei a mecher no VB ).

DownloadsGratix ( Me ajudo muito quando comecei no VB ).

Poxa obrigado mesmo por postar kkkk, tava te enchendo o saco no messenger, consegui fazer depois de muito tempo mesmo fazendo o download do Projeto, puis fiquei na dúvida na configuração mais fico tudo certo.

Tem alguma possibilidade de você ensinar a como fazer aquele bagulho de códigos.... Tipo você coloca no programa ele usa aquele código e não pode ser mais utilizado e eu não posso utilizar mais nenhum também até passar o determinado tempo ? por favor !

Quando eu tiver com mais tempo eu até ensino a fazer pois agora estou sem tempo xD.

isso seria tipo roleta da fortuna do CF ?

Sim porem em exe...

Na versão que fiz ontem eu fiz o Super Bonus do CF igualzinho , porem to tentando tirar alguns bugs que ocorreram... em breve irei postar a Super Bonus.