alexandremanowar

Ok Graymalkin valeu. Vou procurar se eu cinseguir alguma coisa eu posto aqui at+ ;)

E aí Graymalkin beleza Não sei dizer exatamente se a câmera tem componente/biblioteca, a única coisa que sei é que ela tem é o sftware de instalação dela. Eu tive essa idéia de fazer esse software pela seguinte razão, eu precisa de um software que fizesse isso, aí procurei na net e achei um programinha free chamado ConquerCom ele fica capturando a imagem da câmera e criando imagens fixas como fotos, o único requisito para que isso aconteça é o software de câmera esteja instalado, então eu instalo o software da câmera e plugo ela depois instalo esse software e a imagem da câmera aparece nele, nele tem algumas opções tipo de quanto em quanto tempo eu quero que ele armazene a imagem, etc. Porém esse é o problema desse software ele fica pegando a imagem automáticamente e armazenando e não para a não ser que eu desligue ele, e eu preciso de um que faça isso quando eu quiser e quantas vezes eu quiser por isso preciso aprender como fazer um. Então na verdade tomei como base a idéia desse programa que precisa apenas que o software da câmera esteja instalado. O que você acha? será que é possível isso no vb?

E aí pessoal. Eu gostaria de criar um programa que capture imagens da minha webcam, seria tipo assim a minha webcam esta instalada e conectada na minha máquina, então eu quero fazer um programa em vb.net 2005 usando winforms e no winform ficaria 2 quadros e 2 botões abaixo dos quadros, no primeiro quadro ele fica mostrando o que a câmera esta enchergando como se fosse o programa da câmera mesmo. No segundo quadro ficaria o seguinte o usuário visualiza a imagem no primeiro quadro, se ele gostou ele clicar no botão 1 ("Tirar foto") e a imagem aparece sólida no segundo quadro, se ele gostou ele clica no botão 2("Armazenar foto") e salva a imagem com algum nome na pasta que ele quiser. É possível fazer isso no vb.net? Se for alguém poderia me ajudar me explicando como fazer isso?

Só para explicar melhor a idéia: Tipo uma loja de compras igual ao submarino. Foi + ou - assim eu estava em uma máquina e meu camarada em outra tinha um cd de uma banda que coloquei no meu carrinho, quando ele listou os produtos para tentar colocar o cd no carrinho dele o produto apareceu como não disponível. Aí eu tirei o cd do meu carrinho ele consultou novamente os produtos e o cd estava lá. aí ele clicou eu conmsultei e o cd ficou indisponível para mim porque já estava no carrinho dele. aí ele fechou o browser , fiz uma consulta e o produto ainda não estava disponível, esperei um pouco e o produto voltou a ficar disponível. Acredito que isso funcione com session no primeiro caso o produto estando no meu carrinho fica indisponível para outras pessoas, se eu tirar do meu carrinho o produto é liberado na hora, se eu fechar o browser sem finalisar a compra e o produto ainda estava no meu carrinho o timeout do session finaliza o session e o produto fica disponível novemente. Alguém conhece esse tipo de trabalho com session

E aí pessoal beleza Estou querendo desenvolver um sistema que é tipo um estoque de loja, seria assim: Existe vários produtos no estoque e o cliente 1 esta fazendo a sua solicitação, quando ele colocar o produto que ele deseja no sua lista o produto tem que ficar fora da lista de produtos (porque a idéia é que exista paenas 1 produto de cada) para que outro cliente não posso ver e nem colocar na sua lista, porque o site pode estar sendo usado por várias pessoas. Caso o cliente compre o produto o produto sai do estoque, caso ele simplesmente feche o site ou não termine por algum motivo a compra o produto retorna após um tempo para a lista. Andei lendo algo acho que para isso tenho que trabalhar com sessão e timout de sessão. Estou certo? Se estiver certo gostaria que alguém me explique como usar isso? Se eu estiver errado e isso tiver que ser feito de outra forma gostaria de sabe como. No caso esse sistema funciona como um carrinho de compras.

E aí Graymalkin beleza Agora deu certo cara, declarei como objeto e funcionou, porpem tive que declarar os campos dos forms como publico porque estava tudo friend aí não rolava. Cara valeu mais uma vez pela explicação. Um abraço e at+

E aí Graymalkin beleza Então na verdade pode ser a janela filha "meuform" ou "meuform2. Porque é o seguinte a meuform é o form de preenchimento onde o cara preenche e armazena e pode também imprimir. O form 2 possui os mesmos campos porém para consulta o usuário pode consultar e também imprimir, então pensei já qie os dois forms tem os mesmo campos .Text vou usar um único código de impressão. Mas acho que tenho que fazer um código de impressão para cada. O que você acha?

Já tentei dessa form colocando o nome do form porém ele da esse erro: Não é possível converter um objeto do tipo 'projeto.meuform' no tipo 'projeto.meuform2'. O código ficou exatemente assim: Dim f As meuform f = Me.ActiveMdiChild Dim g As Graphics = e.Graphics Dim mensagem As String Dim mensagem2 As String mensagem = f.operacao.Text mensagem2 = f.cfop.Text E já fiz declarando como objeto e deu essa MSN de erro: Membro público 'operacao' no tipo 'ConsultaNota' não encontrado. O código é esse: Dim f As Object f = Me.ActiveMdiChild Dim g As Graphics = e.Graphics Dim mensagem As String Dim mensagem2 As String mensagem = f.operacao.Text mensagem2 = f.cfop.Text E se eu comentar o mensagem = f.operacao.Text, ele passa o erro para a próxima linha. Vou continuar tentando achar uma solução, se você achar me ajude por favor Obrigado pela ajuda

E aí Graymalkin beleza Cara procurei e não tem esse opção no código cara! Estou tentando arrumar mas não funciona. O que você acha qie pode ser. Será que tenho que fazer dois blocos de código para funcionar ou seja um para cada form?

E aí pessoal beleza! Velhos problemas na cabeça, estava sem tempo de mexer no vb agora voltei a estudar e me deparei com um problema antigo o de validar o form que estiver aberto. Confome o Graymalkin me explicou acima bastava eu fazer isso: Dim f As Form f = Me.ActiveMdiChild Dim g As Graphics = e.Graphics Dim mensagem As String Dim mensagem2 As String mensagem = f.operacao.Text mensagem2 = f.cfop.Text Porém dessa forma ele não da erro nas 2 primeiras linhas que são: Dim f As Form f = Me.ActiveMdiChild Mas da erro nessa operação f.operacao.Text e da a seguinte MSN de erro: 'operacao' is not a member of 'System.Windows.Forms.Form' Aí quando eu mando executar o programa ele pergunta: There were build errors. Would you like to continue and run the last successesful build? Se eu responder "no" ele volta ao código se eu responder "yes" ele executa o´a compilação antiga. Pelo que entendi ele não esta encontrando o campo operacao.Text eu acho que esta envolvido com Me.ActiveMdiChild mas ainda não consegui resolver, já estou tentando achar o problemas mas se alguém poder me ajudar eu agradeço. Valeu

Eu já tinha procurado o erro muito e não tinha achado, poucos minutos depois de postar aqui eu achei rrsrs Era o objeto de conexão que estava dando problemas, removi e recoloquei e ficou ok valeu

E aí pessoal Eu tenho um projeto em vb.net 2005 para desktop e estava funcionando normalmente, porém eu tive que formatar minha máquina e reinstalar tudo, reinstalei o vb.net 2005 e fui testar quase todos os meu forms funcionam numa boa apenas um que esta dando um problema, quando abro meu projeto no vb ele carrega o projeto, e quando abro esse form ele me da a seguinte MSN de erro: Ele não permite nem eu olhar o form em modo gráfico, permite apenas eu olhar em código, pelo que eu entendi na MSN de erro algum objeto esta faltando, já olhei o código desse form todo e não achei onde pode estar o erro? Esse é o código do form: Imports System.Windows.Forms Imports MySql.Data.MySqlClient Public Class Nota Private Sub unitario1_TextChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles unitario1.KeyPress Static separador As String = "," Static válidos As String = "0123456789" & Chr(Keys.Back) e.Handled = True If válidos.Contains(e.KeyChar) Then Dim txt As TextBox = sender Dim texto As String = txt.Text.Replace(separador, "") If e.KeyChar = Chr(Keys.Back) Then If txt.Text.Length > 0 Then texto = texto.Substring(0, texto.Length - 1) End If Else texto = texto & e.KeyChar End If If texto.Length > 2 Then texto = texto.Insert(texto.Length - 2, separador) End If txt.Text = texto End If End Sub Private Sub unitario2_TextKeyPressed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles unitario2.KeyPress Static separador As String = "," Static válidos As String = "0123456789" & Chr(Keys.Back) e.Handled = True If válidos.Contains(e.KeyChar) Then Dim txt As TextBox = sender Dim texto As String = txt.Text.Replace(separador, "") If e.KeyChar = Chr(Keys.Back) Then If txt.Text.Length > 0 Then texto = texto.Substring(0, texto.Length - 1) End If Else texto = texto & e.KeyChar End If If texto.Length > 2 Then texto = texto.Insert(texto.Length - 2, separador) End If txt.Text = texto End If End Sub Private Sub unitario3_TextKeyPressed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles unitario3.KeyPress Static separador As String = "," Static válidos As String = "0123456789" & Chr(Keys.Back) e.Handled = True If válidos.Contains(e.KeyChar) Then Dim txt As TextBox = sender Dim texto As String = txt.Text.Replace(separador, "") If e.KeyChar = Chr(Keys.Back) Then If txt.Text.Length > 0 Then texto = texto.Substring(0, texto.Length - 1) End If Else texto = texto & e.KeyChar End If If texto.Length > 2 Then texto = texto.Insert(texto.Length - 2, separador) End If txt.Text = texto End If End Sub Private Sub unitario4_TextKeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles unitario4.KeyPress Static separador As String = "," Static válidos As String = "0123456789" & Chr(Keys.Back) e.Handled = True If válidos.Contains(e.KeyChar) Then Dim txt As TextBox = sender Dim texto As String = txt.Text.Replace(separador, "") If e.KeyChar = Chr(Keys.Back) Then If txt.Text.Length > 0 Then texto = texto.Substring(0, texto.Length - 1) End If Else texto = texto & e.KeyChar End If If texto.Length > 2 Then texto = texto.Insert(texto.Length - 2, separador) End If txt.Text = texto End If End Sub Private Sub unitario5_TextKeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles unitario5.KeyPress Static separador As String = "," Static válidos As String = "0123456789" & Chr(Keys.Back) e.Handled = True If válidos.Contains(e.KeyChar) Then Dim txt As TextBox = sender Dim texto As String = txt.Text.Replace(separador, "") If e.KeyChar = Chr(Keys.Back) Then If txt.Text.Length > 0 Then texto = texto.Substring(0, texto.Length - 1) End If Else texto = texto & e.KeyChar End If If texto.Length > 2 Then texto = texto.Insert(texto.Length - 2, separador) End If txt.Text = texto End If End Sub Private Sub unitario6_TextKeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles unitario6.KeyPress Static separador As String = "," Static válidos As String = "0123456789" & Chr(Keys.Back) e.Handled = True If válidos.Contains(e.KeyChar) Then Dim txt As TextBox = sender Dim texto As String = txt.Text.Replace(separador, "") If e.KeyChar = Chr(Keys.Back) Then If txt.Text.Length > 0 Then texto = texto.Substring(0, texto.Length - 1) End If Else texto = texto & e.KeyChar End If If texto.Length > 2 Then texto = texto.Insert(texto.Length - 2, separador) End If txt.Text = texto End If End Sub Private Sub unitario7_TextKeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles unitario7.KeyPress Static separador As String = "," Static válidos As String = "0123456789" & Chr(Keys.Back) e.Handled = True If válidos.Contains(e.KeyChar) Then Dim txt As TextBox = sender Dim texto As String = txt.Text.Replace(separador, "") If e.KeyChar = Chr(Keys.Back) Then If txt.Text.Length > 0 Then texto = texto.Substring(0, texto.Length - 1) End If Else texto = texto & e.KeyChar End If If texto.Length > 2 Then texto = texto.Insert(texto.Length - 2, separador) End If txt.Text = texto End If End Sub Private Sub unitario8_TextKeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles unitario8.KeyPress Static separador As String = "," Static válidos As String = "0123456789" & Chr(Keys.Back) e.Handled = True If válidos.Contains(e.KeyChar) Then Dim txt As TextBox = sender Dim texto As String = txt.Text.Replace(separador, "") If e.KeyChar = Chr(Keys.Back) Then If txt.Text.Length > 0 Then texto = texto.Substring(0, texto.Length - 1) End If Else texto = texto & e.KeyChar End If If texto.Length > 2 Then texto = texto.Insert(texto.Length - 2, separador) End If txt.Text = texto End If End Sub Private Sub unitario9_TextKeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles unitario9.KeyPress Static separador As String = "," Static válidos As String = "0123456789" & Chr(Keys.Back) e.Handled = True If válidos.Contains(e.KeyChar) Then Dim txt As TextBox = sender Dim texto As String = txt.Text.Replace(separador, "") If e.KeyChar = Chr(Keys.Back) Then If txt.Text.Length > 0 Then texto = texto.Substring(0, texto.Length - 1) End If Else texto = texto & e.KeyChar End If If texto.Length > 2 Then texto = texto.Insert(texto.Length - 2, separador) End If txt.Text = texto End If End Sub Private Sub unitario10_TextKeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles unitario10.KeyPress Static separador As String = "," Static válidos As String = "0123456789" & Chr(Keys.Back) e.Handled = True If válidos.Contains(e.KeyChar) Then Dim txt As TextBox = sender Dim texto As String = txt.Text.Replace(separador, "") If e.KeyChar = Chr(Keys.Back) Then If txt.Text.Length > 0 Then texto = texto.Substring(0, texto.Length - 1) End If Else texto = texto & e.KeyChar End If If texto.Length > 2 Then texto = texto.Insert(texto.Length - 2, separador) End If txt.Text = texto End If End Sub Private Sub totalservicos_TextKeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles totalservicos.KeyPress Static separador As String = "," Static válidos As String = "0123456789" & Chr(Keys.Back) e.Handled = True If válidos.Contains(e.KeyChar) Then Dim txt As TextBox = sender Dim texto As String = txt.Text.Replace(separador, "") If e.KeyChar = Chr(Keys.Back) Then If txt.Text.Length > 0 Then texto = texto.Substring(0, texto.Length - 1) End If Else texto = texto & e.KeyChar End If If texto.Length > 2 Then texto = texto.Insert(texto.Length - 2, separador) End If txt.Text = texto End If End Sub Private Sub Nota_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub unitario1_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unitario1.LostFocus total1.Text = unitario1.Text Dim troca1 As String If quantidade1.Text <> "" And unitario1.Text <> "" Then troca1 = unitario1.Text troca1 = troca1.Replace(",", ".") Dim v1 As Double v1 = quantidade1.Text * unitario1.Text total1.Text = v1 totalprodutos.Text = total1.Text valorfinal.Text = totalprodutos.Text End If End Sub Private Sub unitario2_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unitario2.LostFocus Dim troca2 As String If quantidade2.Text <> "" And unitario2.Text <> "" Then troca2 = unitario2.Text troca2 = troca2.Replace(",", ".") Dim v2 As Double v2 = quantidade2.Text * unitario2.Text total2.Text = v2 v2 = v2 + total1.Text totalprodutos.Text = v2 valorfinal.Text = totalprodutos.Text End If End Sub Private Sub unitario3_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unitario3.LostFocus Dim troca3 As String If quantidade3.Text <> "" And unitario3.Text <> "" Then troca3 = unitario3.Text troca3 = troca3.Replace(",", ".") Dim v3 As Double v3 = quantidade3.Text * unitario3.Text total3.Text = v3 v3 = v3 + total1.Text + total2.Text totalprodutos.Text = v3 valorfinal.Text = totalprodutos.Text End If End Sub Private Sub unitario4_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unitario4.LostFocus Dim troca4 As String If quantidade4.Text <> "" And unitario4.Text <> "" Then troca4 = unitario4.Text troca4 = troca4.Replace(",", ".") Dim v4 As Double v4 = quantidade4.Text * unitario4.Text total4.Text = v4 v4 = v4 + total1.Text + total2.Text + total3.Text totalprodutos.Text = v4 valorfinal.Text = totalprodutos.Text End If End Sub Private Sub unitario5_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unitario5.LostFocus Dim troca5 As String If quantidade5.Text <> "" And unitario5.Text <> "" Then troca5 = unitario5.Text troca5 = troca5.Replace(",", ".") Dim v5 As Double v5 = quantidade5.Text * unitario5.Text total5.Text = v5 v5 = v5 + total1.Text + total2.Text + total4.Text + total4.Text totalprodutos.Text = v5 valorfinal.Text = totalprodutos.Text End If End Sub Private Sub unitario6_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unitario6.LostFocus Dim troca6 As String If quantidade6.Text <> "" And unitario6.Text <> "" Then troca6 = unitario6.Text troca6 = troca6.Replace(",", ".") Dim v6 As Double v6 = quantidade6.Text * unitario6.Text total6.Text = v6 v6 = v6 + total1.Text + total2.Text + total3.Text + total4.Text + total5.Text totalprodutos.Text = v6 valorfinal.Text = totalprodutos.Text End If End Sub Private Sub unitario7_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unitario7.LostFocus Dim troca7 As String If quantidade7.Text <> "" And unitario7.Text <> "" Then troca7 = unitario7.Text troca7 = troca7.Replace(",", ".") Dim v7 As Double v7 = quantidade7.Text * unitario7.Text total7.Text = v7 v7 = v7 + total1.Text + total2.Text + total3.Text + total4.Text + total5.Text + total6.Text + total7.Text totalprodutos.Text = v7 valorfinal.Text = totalprodutos.Text End If End Sub Private Sub unitario8_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unitario8.LostFocus Dim troca8 As String If quantidade8.Text <> "" And unitario8.Text <> "" Then troca8 = unitario8.Text troca8 = troca8.Replace(",", ".") Dim v8 As Double v8 = quantidade8.Text * unitario8.Text total8.Text = v8 v8 = v8 + total1.Text + total2.Text + total3.Text + total4.Text + total5.Text + total6.Text + total7.Text + total8.Text totalprodutos.Text = v8 valorfinal.Text = totalprodutos.Text End If End Sub Private Sub unitario9_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unitario9.LostFocus Dim troca9 As String If quantidade9.Text <> "" And unitario9.Text <> "" Then troca9 = unitario9.Text troca9 = troca9.Replace(",", ".") Dim v9 As Double v9 = quantidade9.Text * unitario9.Text total9.Text = v9 v9 = v9 + total1.Text + total2.Text + total3.Text + total4.Text + total5.Text + total6.Text + total7.Text + total8.Text + total9.Text totalprodutos.Text = v9 valorfinal.Text = totalprodutos.Text End If End Sub Private Sub unitario10_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unitario10.LostFocus Dim troca10 As String If quantidade10.Text <> "" And unitario10.Text <> "" Then troca10 = unitario10.Text troca10 = troca10.Replace(",", ".") Dim v10 As Double v10 = quantidade10.Text * unitario10.Text total10.Text = v10 v10 = v10 + total1.Text + total2.Text + total3.Text + total4.Text + total5.Text + total6.Text + total7.Text + total8.Text + total9.Text + total10.Text totalprodutos.Text = v10 valorfinal.Text = totalprodutos.Text End If End Sub Private Sub totalservicos_LostFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles totalservicos.LostFocus If totalprodutos.Text <> "" Then Dim v12 As Double v12 = 0 + totalprodutos.Text + totalservicos.Text totalprodutos.Text = v12 valorfinal.Text = totalprodutos.Text End If If totalprodutos.Text = "" Then totalprodutos.Text = totalservicos.Text valorfinal.Text = totalprodutos.Text End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim conn As New MySqlConnection conn.ConnectionString = "server=servidor;user id=usuario;password=senha;database=base" conn.Open() Dim cmd As New MySqlCommand("INSERT INTO nota (fatura) VALUES ('teste')", conn) cmd.ExecuteNonQuery() conn.Close() End Sub Private Sub operacao_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles operacao.TextChanged If operacao.Text.Length > 20 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub cfop_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cfop.TextChanged If cfop.Text.Length > 3 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub nome_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nome.TextChanged If nome.Text.Length > 32 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub cnpj_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cnpj.TextChanged If cnpj.Text.Length > 15 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub endereco_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles endereco.TextChanged If endereco.Text.Length > 37 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub Bairro_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bairro.TextChanged If Bairro.Text.Length > 11 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub municipio_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles municipio.TextChanged If municipio.Text.Length > 20 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub uf_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles uf.TextChanged If uf.Text.Length > 2 Then MsgBox("É permitido apenas 2 digitos nesse campo", MsgBoxStyle.Exclamation, "Atenção") uf.Text = "" uf.Focus() End If End Sub Private Sub inscricao_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles inscricao.TextChanged If inscricao.Text.Length > 15 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub fatura_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fatura.TextChanged If fatura.Text.Length > 78 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub codigo1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles codigo1.TextChanged If codigo1.Text.Length > 12 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub codigo2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles codigo2.TextChanged If codigo2.Text.Length > 12 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub codigo3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles codigo3.TextChanged If codigo3.Text.Length > 12 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub codigo4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles codigo4.TextChanged If codigo4.Text.Length > 12 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub codigo5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles codigo5.TextChanged If codigo5.Text.Length > 12 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub codigo6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles codigo6.TextChanged If codigo6.Text.Length > 12 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub codigo7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles codigo7.TextChanged If codigo7.Text.Length > 12 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub codigo8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles codigo8.TextChanged If codigo8.Text.Length > 12 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub codigo9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles codigo9.TextChanged If codigo9.Text.Length > 12 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub codigo10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles codigo10.TextChanged If codigo10.Text.Length > 12 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub descricao1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles descricao1.TextChanged If descricao1.Text.Length > 51 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub descricao2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles descricao2.TextChanged If descricao2.Text.Length > 51 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub descricao3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles descricao3.TextChanged If descricao3.Text.Length > 51 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub descricao4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles descricao4.TextChanged If descricao4.Text.Length > 51 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub descricao5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles descricao5.TextChanged If descricao5.Text.Length > 51 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub descricao6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles descricao6.TextChanged If descricao6.Text.Length > 51 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub descricao7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles descricao7.TextChanged If descricao7.Text.Length > 51 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub descricao8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles descricao8.TextChanged If descricao8.Text.Length > 51 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub descricao9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles descricao9.TextChanged If descricao9.Text.Length > 51 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub descricao10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles descricao10.TextChanged If descricao10.Text.Length > 51 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub unidade1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unidade1.TextChanged If unidade1.Text.Length > 4 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub unidade2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unidade2.TextChanged If unidade2.Text.Length > 4 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub unidade3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unidade3.TextChanged If unidade3.Text.Length > 4 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub unidade4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unidade4.TextChanged If unidade4.Text.Length > 4 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub unidade5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unidade5.TextChanged If unidade5.Text.Length > 4 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub unidade6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unidade6.TextChanged If unidade6.Text.Length > 4 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub unidade7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unidade7.TextChanged If unidade7.Text.Length > 4 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub unidade8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unidade8.TextChanged If unidade8.Text.Length > 4 Then MsgBox("Você chegou no limite do campo, se continuar o texto vai ultrapassar o campo da nota", MsgBoxStyle.Exclamation, "Atenção") End If End Sub Private Sub unidade9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unidade9.TextChanged If unidade9.Text.Length > 4 Then MsgBox("Você chegou no li

Valeu pelo link Graymalkin ! Eu estudei ele e entendi o seguinte que em um caso igual ao meu que ele vai fazer uma conexão e armazenar algumas funções e depois fechar a conexão eu devo usar algo como esse código que você postou: ProgressBar1.Max = 3 ProgressBar1.Value = 0 For i = 1 To 3 ProgressBar1.Value = i Sleep 1000 Next i Mas ainda não entendi bem como usar, pelo que eu li no post que você deixou existem casos em que posso manipular a barra mas existem casos que não. Meu caso é básico, tenho um botão que ao clicar ele abre o banco de dados e armazena algumas funçoes e depois termina e fecha o banco e pronto esta executado. Nesse caso durante esse processo preciso que abra um tipo de janelinha com a palavra "Aguarde" e fique enchendo a barra quando a função acabar simplesmente a janela some, mas ainda não entendi como fazer isso. Um cara deixou um link no post que você me deixou porém não achei nada que me ajude no link dele. Já procurei mais aqui no fórum mas não achei. Você poderia me explicar por favor?

E aí pessoal. Eu gostaria de aprender a criar barra de progresso enquanto uma determinada função é executada, nunca usei isso e gostaria que alguém me explique como fazer isso. A idéia é a seguinte, eu fiz um form e nele tem um determinado botão que quando eu clicar nele ele vai fazer alguns inserts e selects no banco. Eu quero que enquanto estiver sendo executada essas funções fique uma barra de progresso enchendo. Tipo cliequei no botão e aparece uma caixa acima do form com a palavra aguarde e abaixo dela da mensagem fique a barra de progresso enchendo. Quando a função do botão acabar a barra finalisa e a caixa some deixando o formulário livre para uso denovo. Nunca usei isso não idéia de como fazer. Alguém pode me explicar? Obrigado.

E aí Graymalkin beleza! Então cara eu tava fazendo besteira, agora corrigi e ficou legal. Ficou assim: Imports MySql.Data.MySqlClient Module conexao_mysql Public conectar As String = "server=servidor.com.br;user id=usuario;password=123;database=banco" Public conn As New MySqlConnection(conectar) End Module Eu estava colocando o MySqlConnection 2 vezes rsrs Agora ficou lagal valeu ;)

E aí pessoal beleza Eu já criei módulo de conexão com SQLServer e funcionou legal ou seja criei um módulo e todas as partes do meu programa se conecta através dele. porém com mysql não estou conseguindo, tentei fazer do mesmo jeito e não deu certo para que meu software conecte o banco de dados, todos os botões que vão fazer conexão eu coloco a conexão lá dentro. esse é o modo que conecto: Dim conn As New MySqlConnection conn.ConnectionString = "server=servidor;user id=usuario;password=senha;database=banco" Colo esse código em todo lugar que faz conexão com o banco, mas o certo é fazer isso em um módulo e todo o sistema puxar a conexão a partir dele. Em SqlServer eu faço o módulo assim: Module Module_sp Public con As String = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind;Data Source=." 'define as variáveis objeto para conexão Public sqlcon As New SqlConnection(con) Dessa forma nos códigos a única coisa que eu faço é declarar o resto dessa forma: conn.Open() ...... Dim da As New MySqlDataAdapter(consulta) Dim ds As New DataSet() ... conn.Close() Como crio o módulo? Detelhe importante essa conexão que faço com mysql não é local é em um servidor online, a que fiz com sqlserver foi local

Valeu Graymalkin, entendi o recado, funcionou legal at+ cara

E aí pessoal Estou tentando armazenar um array de informações em mysql 5 e estou tendo o seguinte problema. Quando o array vem com todos os campos preenchidos ele armazena beleza, porpem quando ele vem com um ou mais campos do array vazio ele da pau na hora de armazenar. E marca a linha do insert informando o erro. O valor da matriz vem de um arquivo csv que aprendi a manipular em um outro post que fiz esses dias logo eu abro a arquivo da seguinte forma: Dim Valor As New IO.StreamReader(Arquivo) Dim Ler As String = Valor.ReadToEnd() Dim Linhas As String() = Ler.Split(vbCrLf) Dim Qt_linhas As Integer = Linhas.Length For Each linha As String In Linhas Dim analisar As String = linha Dim quebra As String() = analisar.Split(";") If Not linha.Trim() = "" Then Dim cmd As New MySqlCommand("INSERT INTO tabela(campo1,campo2,campo3,campo4)values('" & Trim(quebra(0)) & "','" & Trim(quebra(1)) & "','" & Trim(quebra(2)) & "','" & Trim(quebra(3)) & "')",conn) cmd.ExecuteNonQuery() ....... Então dessa form se o array quebra vem com todos os campo preechidos tipo: quebra[0] = "aaa" quebra[1] = "bbb" quebra[3] = "ccc" quebra[4] = "ddd" Ele armazena numa boa mas se vem assim: quebra[0] = "aaa" quebra[1] = "" quebra[3] = "ccc" quebra[4] = "" Ou outro campo vazio qualquer não armazena! Como faço para não ignorar osa campos em branco? Ou como coloco uma valor padão no campo em branco tipo quebra[0] = "aaa" quebra[1] = "vazio" quebra[3] = "ccc" quebra[4] = "vazio" Eu tente assim ... Dim qt_campos As Integer = quebra.Length For each contador As String In qt_campos If quebra(contador).Trim() = "" Then quebra(contador) = "vazio" End If Next ... Porém esta dando erro nessa linha: If quebra(contador).Trim() = "" Then Como eu arrumo isso? Onde estou errando?

Valeu funcionou legal! Quero agradecer a todos que me deram uma força nesse tópico, tanto pelos turoriais como pelas explicações. Nesse tópico aprendi muito valeu mesmo

E aí pessoal. Achei o problema. Ele da essa MSN de erro porque a última da linha do meu arquivo é vazia! Ou seja não tem nada. Quando eu testei com menas linha eu acabei excluindo a linha vazia e ficou apenas linhas com informações. Porém o arquivo veio com 4731 mas é apenas 4730 linha com informação a última é vazia. Como eu faço para ele não tentar armazenar a linha vazia? Preciso fazer algo para ignorar a linha vazia porque o arquivo que tenho aqui é para teste, no cliente ele não vai ficar abrindo arquivo, preciso validar isso! Alguém pode me ajudar?

Cara valeu pela força e o link que você deixou, achei também uns tutoriais na net e consegui fazer. Porém agora estou me deparando com outro problema que é o seguinte: O programa que estou fazendo abre o arquivo csv e armazena em um banco de dados, porém os arquivos csv são grandes por exemplo todos eles tem 41 colunas, a quantidade de linhas é variável. Eu fiz um teste com um arquivo de 2000 linhas e o programa funcionou normal porém, fiz teste com um de 4.730, e ele armazenou tudo no banco mas assim que ele termina de armazenar ele deu uma MSN de erro que é seguinte Imagem da MSN de erro: Imegem do MSN de erro Pelo que eu entendi ele excedeu alguma coisa mas o que? Já fiz teste tipo quebrando a linha do insert com & _ mas não funcionou dei na mesma. o interessante é que ele armazena tudo numa boa depois de armazenar é que da esse problema. Por que esse erro e como corrijo? Veja meu código: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click conn.Open() Dim AbrirComo As OpenFileDialog = New OpenFileDialog() Dim caminho As DialogResult Dim Arquivo As String AbrirComo.Title = "Abrir arquivo como" AbrirComo.FileName = "Nome do Arquivo" AbrirComo.Filter = "Arquivos CSV (*.csv)|*.csv" caminho = AbrirComo.ShowDialog Arquivo = AbrirComo.FileName Dim Valor As New IO.StreamReader(Arquivo) Dim Ler As String = Valor.ReadToEnd() Dim Linhas As String() = Ler.Split(vbCrLf) Dim Qt_linhas As Integer = Linhas.Length For Each linha As String In Linhas '' MessageBox.Show("Armazenando a linha: " & cont & "Valores:" & linha) Dim analisar As String = linha Dim quebra As String() = analisar.Split(";") Dim cmd As New MySqlCommand("INSERT INTO acompanhamento_agricola (produto,proposta_renovada,proposta,proposta_id,data_contratacao,agencia_id,nome_agencia,nome_segurado,endereco,bairro,cidade,uf,cep,ddd,fone,cpf_cnpj,email,nome_propriedade,endereco_propriedade,municipio_propriedade,uf_propriedade,cultura,cultivo,irrigacao,produtividade_esperada,produtividade_segurada,area,valor_orcamento,area_total_plantada,seguro_subvencao_governo_federal,inicio_plantio,numero_contrato_financiamento,vigencia_contrato_financiamento,area_plantada_mais_ano,cultura_intercalada_conserciada,adesao_zoagro,sementes_certificadas,rta_cliente,premio_bruto,premio_liquido,sinistros_avisados)VALUES('" & Trim(quebra(0)) & "','" & Trim(quebra(1)) & "','" & Trim(quebra(2)) & "','" & Trim(quebra(3)) & "','" & Trim(quebra(4)) & "','" & Trim(quebra(5)) & "','" & Trim(quebra(6)) & "','" & Trim(quebra(7)) & "','" & Trim(quebra(8)) & "','" & Trim(quebra(9)) & "','" & Trim(quebra(10)) & "','" & Trim(quebra(11)) & "','" & Trim(quebra(12)) & "','" & Trim(quebra(13)) & "','" & Trim(quebra(14)) & "','" & Trim(quebra(15)) & "','" & Trim(quebra(16)) & "','" & Trim(quebra(17)) & "','" & Trim(quebra(18)) & "','" & Trim(quebra(19)) & "','" & Trim(quebra(20)) & "','" & Trim(quebra(21)) & "','" & Trim(quebra(22)) & "','" & Trim(quebra(23)) & "','" & Trim(quebra(24)) & "','" & Trim(quebra(25)) & "','" & Trim(quebra(26)) & "','" & Trim(quebra(27)) & "','" & Trim(quebra(28)) & "','" & Trim(quebra(29)) & "','" & Trim(quebra(30)) & "','" & Trim(quebra(31)) & "','" & Trim(quebra(32)) & "','" & Trim(quebra(33)) & "','" & Trim(quebra(34)) & "','" & Trim(quebra(35)) & "','" & Trim(quebra(36)) & "','" & Trim(quebra(37)) & "','" & Trim(quebra(38)) & "','" & Trim(quebra(39)) & "','" & Trim(quebra(40)) & "')", conn) Try cmd.ExecuteNonQuery() Catch ex As Exception MsgBox("Erro ao conectar", MsgBoxStyle.Critical, "Erro Fatal") End Try Next MsgBox("Dados armazenados com sucesso", MsgBoxStyle.Information, "Finalizado") conn.Close() End Sub Como corrigir?

E aí beleza! Então tem a opção ReadLine sim, mas o problema é como eu vou armazenar os campos do arquivo csv na tabela, o problema é que tem que separar o campos do arquivo csv tipo o arquivo csv esta com os seguintes dados dados1;dados2;dados3 dados4;dados5;dados6 e tenho uma tabela em mysql com 3 campos que são campo1,campo2,campo3. Preciso fazer um código que abra o arquivo csv e quebre a linha onde esta o ponto e vírgula e armazene a informação na tabela logo a tabela fica assim ------------------------------- |campo1|campo2|campo3| ------------------------------- |dados1 |dados2 |dados3 | |dados4 |dados5 |dados6 | ------------------------------- O problema é que não estou conseguindo fazer isso, preciso ler o arquivo csv quebrar os dados onde a divisão é o ";" e armazenar na tabela. Você pode me ajudar?

Ea e galera Andei lendo alguns tutoriais e consegui trabalhar manipulando o arquivo, ou seja, abrir, gravar, etc. Olha um exemplo: Esse código Abre o arquivo: Dim AbrirComo As OpenFileDialog = New OpenFileDialog() Dim caminho As DialogResult Dim fluxoTexto As IO.StreamReader Dim Arquivo As String AbrirComo.Title = "Abrir Como" AbrirComo.FileName = "Nome do arquivo" AbrirComo.Filter = "Arquivos Textos (*.csv)|*.csv" caminho = AbrirComo.ShowDialog Arquivo = AbrirComo.FileName If Arquivo = Nothing Then MessageBox.Show("Arquivo inválido", "Abrir Como", MessageBoxButtons.OK) Else fluxoTexto = New IO.StreamReader(Arquivo) txtLinhas.Text = fluxoTexto.ReadToEnd txtArquivo.Text = AbrirComo.FileName fluxoTexto.Close() End If Esse código escreve no arquivo: Dim fluxoTexto As IO.StreamWriter Dim linhaTexto As String If IO.File.Exists(txtArquivo.Text) Then fluxoTexto = New IO.StreamWriter(txtArquivo.Text, True) fluxoTexto.WriteLine(txtNovaLinha.Text) fluxoTexto.Close() Else MessageBox.Show("Arquivo não existe") End If Esse código salva o arquivo com outro nome: Dim salvarComo As SaveFileDialog = New SaveFileDialog() Dim caminho As DialogResult Dim fluxoTexto As StreamWriter Dim Arquivo As String salvarComo.CheckFileExists = False salvarComo.Title = "Arquivos Textos (*.csv)|*.csv" caminho = salvarComo.ShowDialog Arquivo = salvarComo.FileName If Arquivo = Nothing Then MessageBox.Show("Arquivo inválido", "Salvar Como", MessageBoxButtons.OK) Else fluxoTexto = New IO.StreamWriter(Arquivo) fluxoTexto.Write(txtLinhas.Text) fluxoTexto.Close() End If Preciso agora aprender o seguinte usar o código que abre o arquivo e fezer ele ler linha por linha igual o código acima e quando ele for lendo a linha ele vai gravando na tabela igual mencionei acima Alguém pode me ajudar?

E a e galera! Eu preciso aprender manipular arquivos csv com o vb.net 2005 parea desktop. É o seguinte eu tenho o arquivo csv e os dados dentro dele vem da seguinte forma: dados1;dados2;dados3 dados4;dados5;dados6 dados7;dados8;dados9 E tenho uma tabela em mysql com os seguintes campos: campo1,campo2,campo3 Preciso aprender como abrir esse arquivo e gravar as informações de cada linha dentro da minha tabela. Como eu faço isso? Preciso de explicação ou tutorial para aprender por favor!

Entendi e já tirei, realmente é sem propósito o for! Graymalkin Valeu mais uma vez cara at+