Pesquisar na Comunidade

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 : [Hidden Content] Desta vez não irei por Download do Projeto pois é apenas um complemento. O que vamos Usar ? 4 Label e 1 Timer e 2 textbox - O Label5 você irá por o texto dele como "?" - O Label6 você irá por o texto dele como "Super Bônus Acumulado ( Fichas ) :" - O Label7 você irá por o texto dele como "Ultimo Ganhador :" - O Label8 você irá por o texto dele como "?" - O Timer1 você irá trocar seu nome por "AtualizarSB" - O AtualizarSB você irá por o Intervalo de "10000" - O Textbox1.text você irá por o texto : "Você acabou de ganhar no Super Bônus !!! Parebens !!!!" - O Textbox1.text você irá por o texto : "Você não ganhou no Super Bônus ! Mais você acumulou o prêmio !!!!!" [color="#FF0000"]- OS 2 TEXTBOX TEM QUE FICAR EM VISIBLE= FALSE[/color] Isso tudo na Form2 onde fica a Roleta. 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 : On Error Resume Next System.IO.Directory.CreateDirectory("C:\RATIQUINHO\FSB\") System.IO.Directory.CreateDirectory("C:\RATIQUINHO\SB\") System.IO.Directory.CreateDirectory("C:\RATIQUINHO\SBNICK\") Try webclient2.DownloadFile("[Hidden Content]", "C:\RATIQUINHO\FSB\" & Form1.TextBox1.Text & ".php") Catch End Try Try webclient2.DownloadFile("[Hidden Content]", "C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php") Catch End Try Try webclient2.DownloadFile("[Hidden Content]", "C:\RATIQUINHO\SBNICK\" & Form1.TextBox1.Text & ".php") Catch End Try Importe os seguintes componentes na sua Form2 da Roleta Imports System.Net Na sua Class adicione : WithEvents webclient1 As New WebClient WithEvents webclient2 As New WebClient WithEvents webclient3 As New WebClient WithEvents webclient4 As New WebClient Dim FCTotal as string Dim SB1 as string Dim SB2 as string Dim SB3 as string Dim SB_V as string No seu Form ( onde tem a roleta adicione este código ) Try Dim versaodosite2 As String = webclient1.DownloadString("[Hidden Content]") Label1.Text = versaodosite2 Dim versaodosite5 As String = webclient1.DownloadString("[Hidden Content]") Label4.Text = versaodosite5 AtualizarSB.start() Catch End Try No Seu Timer1 que é o nosso "Atualizar SB" adicione o código abaixo : On Error Resume Next Dim versaodosite20 As String = webclient1.DownloadString("[Hidden Content]") Label5.Text = versaodosite20 Dim versaodosite5 As String = webclient1.DownloadString("[Hidden Content]") Label8.Text = versaodosite5 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á. Private Sub Enviar_Email() Try message.From = New MailAddress(Email, Email) message.To.Add(Email) message.Body = "Aviso de Ganho da Roleta !" & vbNewLine & vbNewLine & " O Usuário : " & Label2.Text & " ganhou a : " & Premiacao & vbNewLine & "Horário :" & HoraDoPC & vbNewLine & "Todos os direitos reservados para ratiquinho." message.Subject = Label2.Text & " Ganhou o a premiação chamada : " & Premiacao Message.Priority = MailPriority.High 'Configurações SMTP smtp.EnableSsl = True smtp.Port = "587" smtp.Host = "smtp.live.com" smtp.Credentials = New Net.NetworkCredential(Email, Senha_Do_Email) smtp.Send(Message) MsgBox("Sua premiação foi : " & Premiacao & " e esta premiação ficará em nosso Banco de Dados.", MsgBoxStyle.Information, "") Super-Bonus2() Button1.Enabled = True Button1.Text = "Jogar" LinkLabel1.Enabled = True Catch ex As Exception End Try End Sub Perceberam que agora eu adicionei +1 Private Sub ? então devemos cria-lo ficará assim : Private Sub Super_Bonus2() Try Dim numero As Integer Dim GeradorDeNumerosAleatorios As Random = New Random() If "6" = 1 Or "6" = " " Or "6" = " " Then numero = GeradorDeNumerosAleatorios.Next("0") Else numero = GeradorDeNumerosAleatorios.Next("0", "6") End If SB_V = numero Catch ex As Exception End Try If SB_V = "1" Then Try SBTotal = (CDec(IIf(Label5.Text = "", "0", Label5.Text)) + CDec(IIf("1" = "", "0", "1"))).ToString Label5.Text = SBTotal SB1 = Label5.Text Dim fluxoTexto As IO.StreamReader Dim linhaTexto As String If IO.File.Exists("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php") Then fluxoTexto = New IO.StreamReader("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php") linhaTexto = fluxoTexto.ReadLine While linhaTexto <> Nothing SB1 &= linhaTexto & vbCrLf linhaTexto = fluxoTexto.ReadLine End While SB1 = Label5.Text fluxoTexto.Close() End If Catch ex As Exception End Try Try Dim objStream As New System.IO.FileStream("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php", IO.FileMode.OpenOrCreate) Dim Arq As New System.IO.StreamWriter(objStream) Arq.Write(SB1) Arq.Close() Catch End Try Try Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://[email protected]/www/Super-Bonus/Valor.php"), System.Net.FtpWebRequest) request.Credentials = New System.Net.NetworkCredential("Usuario_FTP", "Senha_FTP") request.Method = System.Net.WebRequestMethods.Ftp.UploadFile Dim file() As Byte = System.IO.File.ReadAllBytes("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php") Dim strz As System.IO.Stream = request.GetRequestStream() strz.Write(file, 0, file.Length) NotifyIcon1.Visible = True NotifyIcon1.Text = Me.Text NotifyIcon1.BalloonTipTitle = Me.Text If Not Me.TextBox1.Text.Equals(String.Empty) Then NotifyIcon1.BalloonTipText = Me.TextBox1.Text Else NotifyIcon1.BalloonTipText = Me.TextBox1.Text End If NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning NotifyIcon1.ShowBalloonTip(0) strz.Close() strz.Dispose() Catch End Try ElseIf SB_V = "2" Then Try SBTotal = (CDec(IIf(Label5.Text = "", "0", Label5.Text)) + CDec(IIf("1" = "", "0", "1"))).ToString Label5.Text = SBTotal SB1 = Label5.Text Dim fluxoTexto As IO.StreamReader Dim linhaTexto As String If IO.File.Exists("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php") Then fluxoTexto = New IO.StreamReader("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php") linhaTexto = fluxoTexto.ReadLine While linhaTexto <> Nothing SB1 &= linhaTexto & vbCrLf linhaTexto = fluxoTexto.ReadLine End While SB1 = Label5.Text fluxoTexto.Close() End If Catch ex As Exception End Try Try Dim objStream As New System.IO.FileStream("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php", IO.FileMode.OpenOrCreate) Dim Arq As New System.IO.StreamWriter(objStream) Arq.Write(SB1) Arq.Close() Catch End Try Try Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://[email protected]/www/Super-Bonus/Valor.php"), System.Net.FtpWebRequest) request.Credentials = New System.Net.NetworkCredential("Usuario_FTP", "Senha_FTP") request.Method = System.Net.WebRequestMethods.Ftp.UploadFile Dim file() As Byte = System.IO.File.ReadAllBytes("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php") Dim strz As System.IO.Stream = request.GetRequestStream() strz.Write(file, 0, file.Length) NotifyIcon1.Visible = True NotifyIcon1.Text = Me.Text NotifyIcon1.BalloonTipTitle = Me.Text If Not Me.TextBox1.Text.Equals(String.Empty) Then NotifyIcon1.BalloonTipText = Me.TextBox1.Text Else NotifyIcon1.BalloonTipText = Me.TextBox1.Text End If NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning NotifyIcon1.ShowBalloonTip(0) strz.Close() strz.Dispose() Catch End Try ElseIf SB_V = "3" Then Try SBTotal = (CDec(IIf(Label5.Text = "", "0", Label5.Text)) + CDec(IIf("1" = "", "0", "1"))).ToString Label5.Text = SBTotal SB1 = Label5.Text Dim fluxoTexto As IO.StreamReader Dim linhaTexto As String If IO.File.Exists("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php") Then fluxoTexto = New IO.StreamReader("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php") linhaTexto = fluxoTexto.ReadLine While linhaTexto <> Nothing SB1 &= linhaTexto & vbCrLf linhaTexto = fluxoTexto.ReadLine End While SB1 = Label5.Text fluxoTexto.Close() End If Catch ex As Exception End Try Try Dim objStream As New System.IO.FileStream("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php", IO.FileMode.OpenOrCreate) Dim Arq As New System.IO.StreamWriter(objStream) Arq.Write(SB1) Arq.Close() Catch End Try Try Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://[email protected]/www/Super-Bonus/Valor.php"), System.Net.FtpWebRequest) request.Credentials = New System.Net.NetworkCredential("Usuario_FTP", "Senha_FTP") request.Method = System.Net.WebRequestMethods.Ftp.UploadFile Dim file() As Byte = System.IO.File.ReadAllBytes("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php") Dim strz As System.IO.Stream = request.GetRequestStream() strz.Write(file, 0, file.Length) NotifyIcon1.Visible = True NotifyIcon1.Text = Me.Text NotifyIcon1.BalloonTipTitle = Me.Text If Not Me.TextBox1.Text.Equals(String.Empty) Then NotifyIcon1.BalloonTipText = Me.TextBox1.Text Else NotifyIcon1.BalloonTipText = Me.TextBox1.Text End If NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning NotifyIcon1.ShowBalloonTip(0) strz.Close() strz.Dispose() Catch End Try ElseIf SB_V = "4" Then Try SBTotal = (CDec(IIf(Label5.Text = "", "0", Label5.Text)) + CDec(IIf("1" = "", "0", "1"))).ToString Label5.Text = SBTotal SB1 = Label5.Text Dim fluxoTexto As IO.StreamReader Dim linhaTexto As String If IO.File.Exists("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php") Then fluxoTexto = New IO.StreamReader("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php") linhaTexto = fluxoTexto.ReadLine While linhaTexto <> Nothing SB1 &= linhaTexto & vbCrLf linhaTexto = fluxoTexto.ReadLine End While SB1 = Label5.Text fluxoTexto.Close() End If Catch ex As Exception End Try Try Dim objStream As New System.IO.FileStream("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php", IO.FileMode.OpenOrCreate) Dim Arq As New System.IO.StreamWriter(objStream) Arq.Write(SB1) Arq.Close() Catch End Try Try Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://[email protected]/www/Super-Bonus/Valor.php"), System.Net.FtpWebRequest) request.Credentials = New System.Net.NetworkCredential("Usuario_FTP", "Senha_FTP") request.Method = System.Net.WebRequestMethods.Ftp.UploadFile Dim file() As Byte = System.IO.File.ReadAllBytes("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php") Dim strz As System.IO.Stream = request.GetRequestStream() strz.Write(file, 0, file.Length) NotifyIcon1.Visible = True NotifyIcon1.Text = Me.Text NotifyIcon1.BalloonTipTitle = Me.Text If Not Me.TextBox1.Text.Equals(String.Empty) Then NotifyIcon1.BalloonTipText = Me.TextBox1.Text Else NotifyIcon1.BalloonTipText = Me.TextBox1.Text End If NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning NotifyIcon1.ShowBalloonTip(0) strz.Close() strz.Dispose() Catch End Try ElseIf SB_V = "5" Then Entregar_Fichas() Perceberam que adicione mais 1 Private Sub ? "Entregar_Fichas()" ? iremos cria-lo ficará assim : Private Sub Entregar_Fichas() Try AtualizarSB.Stop() System.IO.Directory.Delete("C:\RATIQUINHO\FSB\", True) System.IO.Directory.Delete("C:\RATIQUINHO\SB\", True) System.IO.Directory.Delete("C:\RATIQUINHO\SBNICK\", True) System.IO.Directory.CreateDirectory("C:\RATIQUINHO\FSB\") System.IO.Directory.CreateDirectory("C:\RATIQUINHO\SB\") System.IO.Directory.CreateDirectory("C:\RATIQUINHO\SBNICK\") Try webclient2.DownloadFile("[Hidden Content]", "C:\RATIQUINHO\FSB\" & Form1.TextBox1.Text & ".php") Catch End Try Try webclient2.DownloadFile("[Hidden Content]", "C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php") Catch End Try Try webclient2.DownloadFile("[Hidden Content]", "C:\RATIQUINHO\SBNICK\" & Form1.TextBox1.Text & ".php") Catch End Try FCTotal = (CDec(IIf(Label3.Text = "", "0", Label3.Text)) + CDec(IIf(Label5.Text = "", "0", Label5.Text))).ToString Label3.Text = FCTotal SB2 = FCTotal Dim fluxoTexto As IO.StreamReader Dim linhaTexto As String If IO.File.Exists("C:\RATIQUINHO\FSB\" & Form1.TextBox1.Text & ".php") Then fluxoTexto = New IO.StreamReader("C:\RATIQUINHO\FSB\" & Form1.TextBox1.Text & ".php") linhaTexto = fluxoTexto.ReadLine While linhaTexto <> Nothing SB2 &= linhaTexto & vbCrLf linhaTexto = fluxoTexto.ReadLine End While SB2 = FCTotal fluxoTexto.Close() End If Catch End Try Try Dim objStream As New System.IO.FileStream("C:\RATIQUINHO\FSB\" & Form1.TextBox1.Text & ".php", IO.FileMode.OpenOrCreate) Dim Arq As New System.IO.StreamWriter(objStream) Arq.Write(SB2) Arq.Close() Catch End Try Try Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://[email protected]/www/Fichas/" & Form1.TextBox1.Text & ".php"), System.Net.FtpWebRequest) request.Credentials = New System.Net.NetworkCredential("Usuario_FTP", "Senha_FTP") request.Method = System.Net.WebRequestMethods.Ftp.UploadFile Dim file() As Byte = System.IO.File.ReadAllBytes("C:\RATIQUINHO\FSB\" & Form1.TextBox1.Text & ".php") Dim strz As System.IO.Stream = request.GetRequestStream() strz.Write(file, 0, file.Length) FCTotal="" strz.Close() strz.Dispose() Catch End Try Try SB2 = 0 Dim fluxoTexto As IO.StreamReader Dim linhaTexto As String If IO.File.Exists("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php") Then fluxoTexto = New IO.StreamReader("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php") linhaTexto = fluxoTexto.ReadLine While linhaTexto <> Nothing SB2 &= linhaTexto & vbCrLf linhaTexto = fluxoTexto.ReadLine End While SB2 = 0 fluxoTexto.Close() End If Catch End Try Try Dim objStream As New System.IO.FileStream("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php", IO.FileMode.OpenOrCreate) Dim Arq As New System.IO.StreamWriter(objStream) Arq.Write(SB2) Arq.Close() Catch End Try Try Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://[email protected]/www/Super-Bonus/Valor.php"), System.Net.FtpWebRequest) request.Credentials = New System.Net.NetworkCredential("Usuario_FTP", "Senha_FTP") request.Method = System.Net.WebRequestMethods.Ftp.UploadFile Dim file() As Byte = System.IO.File.ReadAllBytes("C:\RATIQUINHO\SB\" & Form1.TextBox1.Text & ".php") Dim strz As System.IO.Stream = request.GetRequestStream() strz.Write(file, 0, file.Length) strz.Close() strz.Dispose() Catch End Try Try SB3 = Form1.TextBox1.Text Dim fluxoTexto As IO.StreamReader Dim linhaTexto As String If IO.File.Exists("C:\RATIQUINHO\SBNICK\" & Form1.TextBox1.Text & ".php") Then fluxoTexto = New IO.StreamReader("C:\RATIQUINHO\SBNICK\" & Form1.TextBox1.Text & ".php") linhaTexto = fluxoTexto.ReadLine While linhaTexto <> Nothing SB3 &= linhaTexto & vbCrLf linhaTexto = fluxoTexto.ReadLine End While SB3 = Form1.TextBox3.Text fluxoTexto.Close() End If Catch End Try Try Dim objStream As New System.IO.FileStream("C:\RATIQUINHO\SBNICK\" & Form1.TextBox1.Text & ".php", IO.FileMode.OpenOrCreate) Dim Arq As New System.IO.StreamWriter(objStream) Arq.Write(SB3) Arq.Close() Catch End Try Try Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://[email protected]/www/Super-Bonus/Ganhador.php"), System.Net.FtpWebRequest) request.Credentials = New System.Net.NetworkCredential("Usuario_FTP", "Senha_FTP") request.Method = System.Net.WebRequestMethods.Ftp.UploadFile Dim file() As Byte = System.IO.File.ReadAllBytes("C:\RATIQUINHO\SBNICK\" & Form1.TextBox1.Text & ".php") Dim strz As System.IO.Stream = request.GetRequestStream() strz.Write(file, 0, file.Length) AtualizarSB.Start() Try Dim versaodosite11 As String = webclient1.DownloadString("[Hidden Content]" & Form1.TextBox1.Text & ".php") Label3.Text = versaodosite11 Catch End Try NotifyIcon1.Visible = True NotifyIcon1.Text = Me.Text NotifyIcon1.BalloonTipTitle = Me.Text If Not Me.TextBox2.Text.Equals(String.Empty) Then NotifyIcon1.BalloonTipText = Me.TextBox2.Text Else NotifyIcon1.BalloonTipText = Me.TextBox2.Text End If NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info NotifyIcon1.ShowBalloonTip(0) strz.Close() strz.Dispose() Catch End Try End Sub 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. )