Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.

Pesquisar na Comunidade

Mostrando resultados para as tags ''VB.NET''.



Mais opções de pesquisa

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Categorias

  • Armazenamento
  • Áudio
  • Energia
  • Entrada
  • Feiras e Eventos
  • Gabinetes
  • Memória
  • Museu
  • Placas-mãe
  • Portáteis
  • Processadores
  • Programas
  • Rádio CdH
  • Redes
  • Refrigeração
  • Smartphones
  • Tablets
  • Vídeo
  • Outros

Categorias

  • Blog

Categorias

  • Armazenamento
  • Áudio
  • Câmeras
  • Computadores
  • Consoles
  • Eletrônicos
  • Energia
  • Entrada
  • Gabinetes
  • Impressão
  • Jogos
  • Memória
  • Placas-mãe
  • Portáteis
  • Processadores
  • Programas
  • Redes
  • Refrigeração
  • Smartphones
  • Tablets
  • Vídeo
  • Outros

Categorias

  • Livros disponíveis
  • Livros esgotados

Categorias

  • Cursos

Fóruns

  • Mensagens do Clube do Hardware
    • Regras gerais
    • Boletins do Clube do Hardware
    • Notícias da administração
  • Hardware
    • Recomendações de computadores
    • Placas de vídeo
    • Placas-mãe e chipsets
    • Processadores
    • Problemas de gargalo e desempenho
    • Memórias
    • Armazenamento
    • Refrigeração e superaquecimento
    • Fontes e energia
    • Gabinetes e casemods
    • Placas de som e áudio on-board
    • Periféricos
    • Mac
    • Overclock
    • Hardware - outros
  • Computação móvel
    • Notebooks
    • Tablets
    • Smartphones e apps
  • Redes e Internet
    • Redes e Internet
    • Hospedagem de sites e registro de domínios
  • Segurança da informação
    • Remoção de malware
    • Dúvidas sobre invasões e infecções
    • Programas de proteção
  • Programação e desenvolvimento
    • Java
    • C/C#/C++
    • Pascal/Delphi
    • .NET
    • Bancos de dados
    • Programação web
    • Programação - iniciantes
    • Programação de microcontroladores
    • Programação - outros
  • Software
    • Jogos
    • Pacotes de escritório
    • Computação distribuída (Folding@Home, Bitcoin etc.)
    • Virtualização
    • Design, animação e tratamento de imagens
    • Edição de áudio e vídeo
    • Programas
  • Sistemas Operacionais
    • Recomendação de sistemas operacionais
    • Windows
    • GNU/Linux, BSD, Unix-like e software livre
    • Mac OS
  • Eletrônicos
    • Equipamentos de som, home theaters e gravadores de mesa
    • Televisores e projetores
    • Câmeras e filmadoras
    • Players portáteis
    • Consoles (videogames)
    • GPS
    • Telefonia fixa
    • Eletrônica
    • Retrocomputação
  • Outros
    • Recomendações de serviços e lojas
    • Preços e promoções
    • Notícias
    • Bolsa de empregos, certificações e mercado de trabalho
    • "Causos"
    • Encontros de usuários
    • Feira do Rolo
  • Clube do Hardware
    • Comentários, elogios, críticas e sugestões sobre o Clube do Hardware
    • Comentários de artigos
    • Fórum para testes de funcionalidades

Categorias

  • Hardware
  • Redes
  • Eletrônica
  • Sistemas operacionais

Encontrado 35 registros

  1. Boa tarde Eu tenho que criar um programa que transforme centímetros em polegadas. Alguém pode me ajudar???
  2. Bom dia galera, Tenho que fazer um programa quase igual aqueles simuladores de circuitos eletrônicos. Minha dúvida é como começar rsrsr .Como eu vou criar aquela tela de desenho, colocar as imagens, mover elas la dentro, conectar as imagens com linhas ... Alguém aí pode me ajudar ? Muito obrigado !!
  3. Alguém conseguiria me ajudar porque estava fazendo um sistema de criptografia com MD5, mais toda vez que eu gero o MD5 com mesmo texto me retorna uma coisa diferente, Tipo eu mando encripta a string escrito "Test" primeiro me retorno "asddxc2dsaf=" e depois fechei e abrir o programa com a mesma string e me retorno "kjnfigjdfnj=", como posso fazer sempre retorna um resultado...
  4. Boa Noite ! Estou com problemas ao pesquisar fotos armazenadas no banco de dados MYSQL no PHPADMIN no picturebox e no datagridview Imports System.IO Imports System.Data.Odbc Imports System.Drawing.Imaging Public Class FrmAlunos_Cadastrados Private Sub listar() filtrar("select * from aluno", "aluno") DataGridView1.DataSource = dados DataGridView1.DataMember = "aluno" olecon.Close() End Sub Private Sub btnpesquisar_Click(sender As Object, e As EventArgs) Handles btnpesquisar.Click Dim comando = "select * from aluno where cod_rm =" + txtra.Text pesquisar(comando) If guarda.Read() Then txtra.Text = guarda(1).ToString() Dim bytePicData() As Byte bytePicData = guarda.Item("foto") Dim PicMemStream As New System.IO.MemoryStream(bytePicData) PictureBox1.Image = Image.FromStream(PicMemStream) Else MsgBox("RM não localizado") txtra.Clear() PictureBox1.Image = Nothing End If guarda.Close() olecon.Close() End Sub Private Sub btnlistar_Click(sender As Object, e As EventArgs) Handles btnlistar.Click listar() olecon.Close() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnhome.Click FrmFuncionários.Show() Me.Close() End Sub Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick Dim linha = DataGridView1.CurrentCellAddress.Y txtra.Text = DataGridView1(1, linha).Value.ToString() Dim comando = "select * from aluno where cod_rm =" + txtra.Text pesquisar(comando) If guarda.Read() Then Dim bytePicData() As Byte bytePicData = guarda.Item("foto") "o erro ocorre aqui erro: "An unhandled exception of type 'System.OverflowException' occurred in System.Data.dll Additional information: Operação aritmética resultou em um estouro." Dim PicMemStream As New System.IO.MemoryStream(bytePicData) PictureBox1.Image = Image.FromStream(PicMemStream) End If olecon.Close() guarda.Close() End Sub End Class gostaria de ajuda? Obs: o banco de dados está armazenado no php admin atráves do programa vertrigo e da conexão mysql ODBC.
  5. Olá, Bom dia... Bom eu fiz uma procedure de update, porém tem alguns dados que as vezes não vão ser preenchidos na hora do update, como eu faço para executar apenas os campos preenchidos e deixar de lado os nulos? sem dar erro obrigado. EDIT1: em expecifico ele da erro de quando os " números ou datas " dos textbox estão nulos, por que ele tenta converter o " nulo em numero/date "
  6. Galera, estou com esse problema "ExecuteReader: propriedade Connection não foi inicializada" toda vez que tento consultar a base de dados para passar para meu form. Sendo que eu tenho um projeto TOTALMENTE PARECIDO/IDÊNTICO mas esse está dando problema :/
  7. Fala Galera, Estou tentando resolver um código e, por ser leigo no assunto, tenho penado esses dias. A ideia é a seguinte: Tenho uma planilha (workbook) no excel que é abastecida diariamente com centenas de lotes de produtos. Todos esses lotes tem um prazo de aprovação. Estou tentando criar uma planilha (outro workbook) para funcionar como central de avaliação de prazos por meio de macros. A planilha possui dois botões: no primeiro, seleciono o workbook o qual será avaliado de acordo com os prazos (pode ser matéria-prima, embalagem, etc). Esse botão retorna o endereço da planilha de avaliação, a qual é selecionada com um opendialog, na célula F5 da "central de avaliação". O segundo botão, a intenção é que ele faça uma varredura na coluna "datas" da planilha apresentada em "F5", copie as datas que estão próximas ao vencimento (menos de 4 dias) e cole na "central de avaliação" na unica aba existente. Deu pra entender? Até agora, o código que eu cheguei está apresentado abaixo. O primeiro botão funciona perfeitamente, já o segundo, seleciona as datas mas apenas cria um filtro na planilha de origem dos dados e não cola na planilha central. Sub copiarClick() 'teste novo Dim rawDataSht As Worksheet, filtDataSht As Worksheet Dim pasta As String Dim wbOrigem As Workbook Dim wbDestino As Workbook 'Identificação caminho pasta e conferencia do preenchimento If Range("F5").Value <> "" Then pasta = Range("F5").Value Else MsgBox "Selecionar planilha para avaliação." Exit Sub End If Set wbDestino = ThisWorkbook Workbooks.Open (pasta) Set wbOrigem = Workbooks.Open(pasta) With wbOrigem AutoFilterMode = False With Range("M2", Range("M" & Rows.Count).End(xlUp)) .AutoFilter Field:=1, Criteria1:=Array("1", "2", "3", "4") On Error Resume Next .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Copy End With wbDestino.Sheets("Liberação").Cells(2, 2).PasteSpecial xlPasteValues .AutoFilterMode = False Application.CutCopyMode = False End With wbOrigem.Close (True) End Sub Alguém tem alguma dica? Desde já agradeço. Abraço Avaliação de Prazos - Liberação CQ.zip
  8. Estou tendo esse problema um simples código no meu vb e no virus total diz que e um malware. alguem teve algum problema com algo parecido ?
  9. Executo instalador de um jogo, o mesmo aparece em processos e na barra de tarefas porém não inicia com=nforme print anexo, isso acontece com varios jogos.
  10. Gostaria de saber como se usar esses dois laços de repetição , poderia ser com um exemplo bem simples explicando a diferença entre cada um.
  11. Bom estou com a seguinte dúvida, estou criando um programa, e ele automaticamente instala um um componente, gostaria de saber como faço para meu programar ver se o programa está instalado e caso estiver ele não instalar o programa
  12. Bom dia a todos bom estava fora por que tinha esquecido a minha e não conseguia recupera-la mais a gora consegui. Bom eu estou com dois problemas mais vou falar primeiro de um. Gostaria que vocês me ajudassem Gostaria de gera combinações de a parti de uma lista eu estou usando um groupbox com dez lebal e um listiview com cinco colunas O exemplo a baixo obrigado
  13. Boa noite, galera Sou novo na programação e estou desenvolvendo um CheckBox que tem como objetivo somar valor a uma variável "sum" conforme a quantidade de Box que forem selecionados, mas não estou conseguindo por falta de conhecimento de Sintaxe, esse é o código: Private Sub btnCalcular_Click(sender As System.Object, e As System.EventArgs) Handles btnCalcular.Click Dim sum As Double = 0 If chkPizza.Checked Then If chkMussarela.Checked Then sum + 22.0 ElseIf chkAtum.Checked Then sum + 25.0 ElseIf chkBacon.Checked Then sum + 25.0 ElseIf chkCalabresa.Checked Then sum + 26.0 End If End If Já tentei adicionar Val(sum), mas não adiantou. Qual a sintaxe correta?
  14. Estou aprendendo vb.net, para eu trabalhar em casa sozinho criando pequenos programas para clientes, gostaria de saber se vale a pena continuar no vb.net, sabendo que eu quero apenas aprender a linguagem para criar programas básicos e futuramente aprender outra linguagem. Gostaria de sabe também se alguém podia me ajudar um pouco com dúvidas
  15. Ola pessoal, Eu queria saber se e possível passa todas colunas e items do ListView para o DataGridView. E se for possível como ? Agradeço se puder ajudar.
  16. Olá amigos, gostaria de saber qual o melhor forum, curso ou espaço na net para aprender VB.NET HiperAvançado? uso muito o Access(vba) e gostaria de já faver no VB.NET o que faço no Access-Vba. Fui ver a listview do Visual Studio comparando com a listview do Access, achei a do Access bem melhor com mais estrutura, ai me falaram que temos que baixar a datagridview (dll) na net e vi que muitos objetos bons mesmo do visual estão na net para baixarmos ou comprarmos... então fico na dúvida de como achar tudo do VB.NET, todas os objetos e bons objetos, em qual livro, em qual site, em qual forum, se alguem puder dar uma ideia ja ajuda espero e obrigado
  17. Ola pessoal, Eu queria saber como fazer para modificar a variável de outra aplicação. Tipo eu tenho uma aplicação que vai e acessa a outra e muda o valor de uma variável.
  18. Boa noite pessoal. Estou desenvolvendo um sistema em VB.NET e utilizando o Firebird como banco de dados. Eu tenho uma tela de cadastro onde seleciono registros do ListBox1 e envio para o ListBox2, até aí está tudo certo. Só não estou conseguindo gravar no banco de dados Firebird os registros que foram adicionados no ListBox2. O código que eu fiz adiciona apenas o primeiro registro, porém, não adiciona os registros restantes do ListBox2. Segue abaixo o código. Se alguém puder ajudar. Dim Cmd As FbCommand Dim Sql As String Dim Reader As FbDataReader Dim i As Integer Dim CodDivisaJuad As Integer = 1 If CodJuad = "Novo" Then Return End If If IsNumeric(CodJuad) Then CodDivisaJuad = 1 Cmd = New FbCommand("Select Max(Cod_Divisa) Cod from Divisa_Juad", connection) Reader = Cmd.ExecuteReader() If Reader.Read Then If Not IsDBNull(Reader("Cod")) Then CodDivisaJuad = CInt(Reader("Cod")) + 1 End If End If For i = 0 To lbxDivisa2.Items.Count = -1 Sql = "INSERT INTO Divisa_Juad (Cod_Divisa, Cod_Juad)" & "Values(" Sql = Sql & Strings.Right(lbxDivisa2.Items(i).ToString(), 5) & "," Sql = Sql & "'" & CodJuad & "')" AbreBanco() Cmd = New FbCommand(Sql, connection) Cmd.ExecuteNonQuery() Next Else For i = 0 To lbxDivisa2.Items.Count = -1 Sql = "UPDATE Divisa_Juad set " Sql = Sql & "Cod_Juad = '" & CodJuad & "' " Sql = Sql & "WHERE Cod_Divisa = " & CodDivisaJuad '& ListBox1.Items(i).ToString() & AbreBanco() Cmd = New FbCommand(Sql, connection) Cmd.ExecuteNonQuery() Next End If
  19. Ola pessoal, Eu estava tetando fazer com que o programa salvar as configurações quando o sistema for desligado mais não tive sucesso. Ai se alguém pode me explicar como fazer isso agradeço. OBS: Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing ' Uso para bloquear q seja fechado pelo "X" ou pelo ALT + F4 e.Cancel = True End Sub
  20. Ola pessoal, Eu estou querendo ajuda para corrigir um erro que deu no meu Sistema de Contagem Regressiva mais ta dando o seguinte erro "Cadeia de caracteres não foi reconhecida como DateTime valido." Código: Public Class Form1 Dim Calculo As TimeSpan Private Sub HorasRestantes_Tick(sender As Object, e As EventArgs) Handles HorasRestantes.Tick If TempoAtual = "00:00:00" Then MsgBox("Teste") ' Messagem para saber quando chego em zero. Else Calculo = Relog - Now End If End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Relog = Now.SAd12(Convert.ToInt32(Minutos)) End Sub End Class Se alguém pode ajudar agradeço
  21. Fala galera, tudo bom? Eu procurei um tópico semelhante a esse e não achei, mas peço desculpas a moderação caso eu tenha duplicado o tópico ou criado na área errada. É o seguinte: estou a procura de um bom livro sobre VB.Net. Eu já programo um pouco em outras linguagens, mas preciso de um material de apoio porque pretendo aprender sozinho. Alguma recomendação? Ficaria muitíssimo grato.
  22. Olá, estou fazendo um jogo da forca e precisa de ajuda! As labels que vão as letras da palavras se chamam LX(X é um número que vai de 0 até 10 e corresponde a posição de cada letra) No trecho a seguir eu preciso verificar se a letra correspondente ao botão clicado existe na palavra, se sim preciso colocar na Label. A variavel i que controla o laço corresponde a posição da letra na palavra. Preciso saber como faço para que a variável i represente o número da Label(que será a posição da letra na palavra) For i = 0 To quantidadedeletras - 1 If palavra.ToString.ElementAt(i) = letra Then L & i.Text = Convert.ToString(letra) (???) End If Next Agradeço desde já!!
  23. Olá, preciso fazer um jogo da forca e meu professor mandou usar o seguinte código: For Each c As Control In Me.Controls If c.GetType().ToString().Equals("System.Windows.Forms.Label") Then CType(c, Label).Visible = True End If Next Entretanto são comandos novos que eu nunca usei. Alguém poderia me explicar o que ele faz e para o que a função GetType funciona? Agradeço desde já.
  24. Olá, boa noite! Bom eu to com um projeto aqui, de que vai ter varias CheckBoxs, e quando a pessoa aperta um botão ele baixa os arquivos que estão com a checkbox marcadas e depois a executam. O problema é que, eu consigo fazer o "download" e "executar" mas ele baixa o arquivo pela metade, ele tem 10Mb e baixa dó 11KB por exemplo. Eu experimentei fazer com arquivos .rar pois os arquivos .data baixavam normalmente. Então eu estava utilizando este código: Dim web As New WebClient Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If CheckBox1.Checked = True Then If My.Computer.FileSystem.FileExists("arquivo.exe") = False Then ' (Este código) web.DownloadFile("http://viniciusbassini.esy.es/upload/arquivos/arquivo.exe", "arquivo.exe") ' (Ou este) My.Computer.Network.DownloadFile("http://viniciusbassini.esy.es/upload/arquivos/arquivo.exe", "arquivo.exe") ' Eu escolho uma das 2 formas de download. Else Shell("arquivo.exe") End If End If End Sub Eu aperto o botão e ele verifica se o CheckBox está marcado ou não, ai ele verifica se o arquivo existe, se ele existir ele executa o mesmo, se não ele baixa o arquivo depois executa. O problema é, se eu colocar como um .rar eu preciso descomprimir o arquivo e depois executar o mesmo. Depois disso ele iria verificar o 2 CheckBox e fazer o mesmo processo. Existe alguma maneira de eu fazer este processo mais rapidamente? Grato desde já!
  25. Olá Tenho que fazer uma numeração automática de OS só que ele deve ser formulada assim "OSxxx/17" Onde o "/17" é o ano atual O código por enquanto está assim: Global cnn As New ADODB.Connection Global Tabela As New ADODB.Recordset Global vConexao As Boolean Global sql As String -------------------------------------------------------------------------------------------------------------------------------------- Public Sub conectar() If vConexao = False Then cnn.CursorLocation = adUseClient cnn.Open "provider=microsoft.jet.oledb.4.0;persist security info = false; data source = " & App.Path & "\ControleOS.mdb;" vConexao = True End If End Sub -------------------------------------------------------------------------------------------------------------------------------------- Public Function desconectar() If vConexao = True Then cnn.Close vConexao = False End If End Function -------------------------------------------------------------------------------------------------------------------------------------- Public Function novocodigo_OS() Dim lastnumber As Long, newnumber As Long Dim Ano As Integer Ano = Year(Now) If Ano = "2017" Then Ano = "17" End If conectar Tabela.Open "select * from OS", cnn With Tabela If .BOF = True And .EOF = True Then lastnumber = 0 Else .MoveLast lastnumber = !Cod_OS End If newnumber = lastnumber + 1 frmAbreOS.txtCodOS.Text = "OS" & newnumber & "/" & Ano frmAbreOS.txtCodOS.Enabled = False End With desconectar End Function Queria saber se tem como melhorar pra não ter que criar varias condições pra cada ano.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×