Pesquisar na Comunidade

Boas, Estava a tentar criar uma rotina em que consoante muitos valores, fosse capaz de encontrar uma soma em que o resultado seja igual a um valor definido. Por Ex: São fornecidos valores de 1 a 9 e resultado 10. É suposto encontrar uma combinação por exemplo 1+9 ou 8+2 ou 1+2+3+4. Com resultado 10. Consegui por a funcionar com a função solver do Excel, mas quando o resultado é a soma de muitas combinações possíveis, pode demorar mais de uma hora a conseguir solução. É possível efectuar este procedimento em VB6? Alguém tem ideias ? VB6 porque é a linguagem que estou mais confortável.

Olá, estou querendo fazer um programa que deleta pastas, mais estou tento dificuldades nessa parte do código: If System.IO.Directory.Exists("C:\Users\USUÁRIO\AppData\Local\Temp") Then System.IO.Directory.Delete("C:\Users\USUÁRIO\AppData\Local\Temp", True) Else System.IO.Directory.CreateDirectory("C:\Users\USUÁRIO\AppData\Local\Temp") End If End Sub O que posso colocar na parte de "USUÁRIOS" para que ele possa "detectar" automaticamente o nome.

Pessoal, eu estou fazendo algumas alterações no registro do windows e gostaria de saber como eu posso fazer o windows ler novamente o registro e aplicar as novas configurações. Agradeço desde já por qualquer ajuda.

Pessoal, eu gostaria de alguns exemplos simples e funcionando de leitura, criação, verificar a existência e apagar chaves e valores do registro do windows, principalmente como fazer essas operações quando o windows é de 64 Bits e a chave ou valor se encontra em Wow6432 la no registro. Muito obrigado desde já.

Pessoal sou novo aqui, queria saber como faço no VB6 para Conectar um campo de uma Tabela no SQL Serve e Exibir em uma Combo que no caso seria. (Tem uma tabela com o nome de municipios, que dentro dela tem o campo municipios(cidade) e o com UF(estados), em uma combo eu queria que aparece os registros de municipio e a outra os registro de UF, porem nao sei que codigo eu uso... Desculpe Qualquer coisa..

Boas, este é o meu primeiro tópico neste fórum. Então é o seguinte, numa fase final do processo do correr do meu programa, tenho uma datagridview com dados e quando carrego no botão , passa os dados da DGV para o excel. O código que uso é este: If DataGridView1.Rows.Count > 0 Then Dim wapp As Microsoft.Office.Interop.Excel.Application Dim wsheet As Microsoft.Office.Interop.Excel.Worksheet Dim wbook As Microsoft.Office.Interop.Excel.Workbook wapp = New Microsoft.Office.Interop.Excel.Application wapp.Visible = True wbook = wapp.Workbooks.Add() wsheet = wbook.ActiveSheet Dim iX As Integer Dim iY As Integer Dim iC As Integer For iC = 0 To DataGridView1.Columns.Count - 1 wsheet.Cells(1, iC + 1).Value = DataGridView1.Columns(iC).HeaderText wsheet.Cells(1, iC + 1).Font.Bold = True Next For iX = 0 To DataGridView1.Rows.Count - 1 For iY = 0 To DataGridView1.Columns.Count - 1 wsheet.Cells(iX + 2, iY + 1).value = DataGridView1(iY, iX).Value Next Next wsheet.Columns.AutoFit() End If Onde o erro aparece é nesta parte do código: (...) For iX = 0 To DataGridView1.Rows.Count - 1 For iY = 0 To DataGridView1.Columns.Count - 1 wsheet.Cells(iX + 2, iY + 1).value = DataGridView1(iY, iX).Value <-- É nesta linha que dá erro. Next Next (...) Mensagem do erro. ---------------------- Aproveito este tópico para perguntar se alguém sabe como faço com que dados apareçam por baixo e não ao lado como aparece nesta imagem? O código usado para guardar o dado no ficheiro texto é este: (...) If CB_tercaadicionar.Checked Then My.Computer.FileSystem.WriteAllText("D:\Terca_Feira.txt", TB_Adicionarhora.Text, True) My.Computer.FileSystem.WriteAllText("D:\numhora_Terca_Feira.txt", TB_numhora.Text, True) End If (...) Obrigado!

Alguém poderia me ajudar a criar um código de conexão entre um projeto que desenvolvi em VB6 e o SAP ?

Srs . alguém para me ajudar ?? Tenho que converter uma escala de 0 - 32000 em -5 a + 5 num programinha que estou criando ... onde 0 = -5 32000 = +5

.,,

Estou a desenvolver um projeto, em que estou a fazer uma App de "Gestão" de restaurantes, onde existem os menus, com a "comida" "bebida" "Sobremesa", etc. E ao carregar no respectivo botão de cada produto ele envia a sua informação (nome , preço) para uma datagridview, desenvolvi um botão em que ao ser carregado mostra um ficheiro tipo fatura, exite alguma maneira para mostrar os produtos e o preço que estão na datagridview. DataGridview - http://prntscr.com/j9ikxr Exemplo do Código para escrever no documento - http://prntscr.com/j9iklx Obrigado, Ruben Neto

Boa tarde, Estou a finalizar o meu Projecto PAP para o final do 12ºAno, e estou a desenvolver um projecto do tipo gestão de restaurante, baseado nos sistemas de restaurantes/cafés em que seleccionamos os pedidos, com os respectivos preços, etc Pensei em melhorar ao ponto de ao finalizar o "pagamento" iria abrir um ficheiro PDF com o pedido e o preço respectivo aos pedidos do cliente. Queria saber se é possível faze-lo, e de que modo o posso fazer. (Se ajudar, todos os produtos/preços estão ligado com uma base de dados) Agradeço a ajuda, Obrigado

Olá pessoal do p@p, estou com uma dúvida, gostaria primeiro saber se é possível, e se sim, que me ajudem/orientem em como fazer. Gostaria de criar um servidor para um jogo, em que os usuários se conectarão ao meu ip, através de uma porta específica, e que o ip deles (ou nick) fique aparecendo em uma aba específica: https://imgur.com/a/jx2XB como neste exemplo Agradeço a todos, Atenciosamente

Olá estou com um projeto de auto update, estou com um problema quando acaba atualização. quero que o projeto coloca a versão igual do text que ele recebe por website. esta é a parte do codigo que ele verifica a versão: Dim str As String = String.Concat(Application.StartupPath, "\PBLauncher.log") Me.Log("======================= Launcher Iniciado ======================= ") Dim web As New WebClient 'Para habilitar o download da ultima versão do arquivo. Dim UltimaVersao As String = web.DownloadString("http://localhost/Luancher/v.txt") 'Para verificar a versão atual e decidir se há ou não updates. Dim VersaoDessePrograma As String = My.Application.Info.Version.ToString 'Encontra a versão deste programa. If VersaoDessePrograma < UltimaVersao Then 'Se a versão deste programa for mais antiga que a nova versão, ele irá atualizar, caso contrario nada será feito. Me.Log("Há um Update para download.") System.IO.Directory.CreateDirectory(Application.StartupPath & "\_DownloadPatchFiles") Button33.Visible = True Button2.Visible = False Button1.Enabled = False lblInfo1.Text = "Há Um Update para Download." Else End If Esta é a Parte que ele acaba e que quero colocar para atualizar a versão automatico: Private Sub download_DownloadFileCompleted(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles download.DownloadFileCompleted Me.Log("Jogo Atualizado com Sucesso") Process.Start(Application.StartupPath & "\Updater.exe") End Sub se poder me ajudar ficarei grato.

Boa noite, Tenho um Formulário Cliente, o outro Formulário Receitas, e eu preciso buscar um valor no formcliente na datagrid que é da 4 coluna, para aparecer no formreceitas em uma textbox, mas no formreceitas este valor só aparecia quando eu selecionava na primeira combobox ( Cliente) e na segunda combobox ( serviço), depois de selecionar estas duas aparecia o valor do formcliente para a texbox do formreceitas, alguém pode me ajudar como é que posso fazer para resolver este problema.

Tenho um pequeno problema e preciso de ajuda, gostaria de saber se alguem sabe como limpar o filtro de uma datadride. o código para filtrar é o seguinte: StockDataGridView.DataSource = Me.BasePAPDataSet.stock.Select("Nome_produto='" & TextBoxpesquisa.Text & "'") gostaria de caso o texto na textboxpesquisa = " " , então apareciam todos os registos da base de dados.

Olá, Estou a desenvolver um programa e gostaria de saber se existe uma maneira de abrir o office word numa página específica. Gostaria de conseguir uma resposta o mais rápido possível, pois o meu plano é usar esse código para abrir o manual de utilizador desse programa (sou um aluno de um curso profissional e estou a realizar a minha Prova de Aptidão Profissional, por isso é que preciso do manual).

Pessoal, eu estou fazendo um Emulador de sistema operacional linux em vb, (É DA ESCOLA) e chegou a parte de fazer o terminal, eu não faço a MINIMA ideia de como fazer, preciso da ajuda de vocês programadores, sugestões? OBS: Não quero no console, quero no form mesmo.

Hola, estou com um pequeno problema que espero que alguem me ajude. queria abrir uma pasta atraves de uma url com codigo visual basic. explico: tenho u ficheiro em determinada pasta, la url desse ficheiro tenho-a num label (neste caso label3.text) isto porque li por ai que em um textbox nao funciona. e queria que quando clica-se um um botao se abri-se essa pasta, mas sem abrir o ficheiro porque por exemplo este codigo (System.Diagnostics.Process.Start(Label3.Text) abre o ficheiro este otro - Shell("explorer n/, *label3.text", AppWinStyle.NormalFocus) - abre uma pasta que e a de documentos mas na e a pasta onde esta o ficheiro. bom espero ajuda obrigado Jorge

estou tentando reaprender a programar em VB, tenho alguns programas antigos que estou tentando rodar, mas está dando erro, estou usando esse provedor de acesso --> Conexao.Provider = "microsoft.jet.oledb.4.0" que não consta da versão de Officce 2007 que tenho instalado. posso usar um outro provedor, tem como instalar o provedor que consta no programa?

bom dia, eu queria saber como converter de binario para decimal sem usar funcoes. e um trabalho para a escola e eu n tou a perceber como se faz

Srs , Alguém poderia me ajudar a resolver esse probleminha : Preciso somar uma coluna do ListView1: FrmDesvio.ListView1.ListItems.Item(1).ListSubItems.Add.Text = TextVaccNC_Sec.Text

Por favor ajudem rapido amanhã tenho teste 2.4. Crie o código necessário para que ao clicar num número da lista esse número seja removido (Sub EliminarDaLista()) da lista e adicione à lista um novo número que é o resultado da multiplicação do número removido por 3 (Function AlterarNumeroDaLista ()). Utilize a passagem de parâmetros por referência (ByRef) sempre que for possível.

Malta eu sou do 12º ano só tenho um mês de aulas de AI(aplicações informaticas), logo não sei muito disto nem conheço as funcionalidade de tudo... o que eu gostava era que me proposessem desafios para eu fazer! e que me digam mais ao menos algumas dicas ou topicos para fazer! Atenção :NÃO QUERO O CÓDIGO!! o meu objetivo e aprender algumas das funcionalidades do vb e evoluir ! obvio para saberem o que fazem vou ao yt mas o resto da programação eu quero antes tentar sozinho! dps qq duvida exponho a vocês! Neste momento acabei um desafio que me deram ( a minha mãe) que me pediu para fazer um teste com escolhas múltiplas. andei um mês porque haviam certas coisas que ainda não sabia tipo a diferença de radiobutons para checkboox e a maneira como programar. para além de vários erros que iam dando, nao por estar errado o código mas por dps a execução não ser 100% aquilo que eu queria! vou deixar ai o código. Se calhar é um código muito fraco por ser iniciante mas deiam dicas! Public Class formulário Dim resultado, resultado1, resultado2, resultado3 As String Private Sub Bnfinal_Click(sender As System.Object, e As System.EventArgs) Handles Btnfinal.Click Dim a, b, c, d As Integer If ChckF1.Checked Then resultado = "Nice!!" a = 25 Else resultado = "WHAT???" a = 0 End If If ChckV2.Checked Then resultado1 = "Nice!!" b = 25 Else resultado1 = "WHAT???" b = 0 End If If ChckV3.Checked Then resultado2 = "Nice!!" c = 25 Else resultado2 = "WHAT???" c = 0 End If If ChckF4.Checked Then resultado3 = "Nice!!" d = 25 Else resultado3 = "WHAT???" d = 0 End If LblR1.Text = resultado LblR2.Text = resultado1 LblR3.Text = resultado2 LblR4.Text = resultado3 Lblcassificacao.Text = a + b + c + d & "/100" If Lblcassificacao.Text = 100 & "/100" Then MsgBox("Tiveste 100!! PRBS") Else MsgBox("tiveste " & Lblcassificacao.Text & ". Para a Próxima corre melhor!") End If End Sub Private Sub BtnLimpar_Click(sender As System.Object, e As System.EventArgs) Handles BtnLimpar.Click LblR1.Text = "" LblR2.Text = "" LblR3.Text = "" LblR4.Text = "" ChckF1.Checked = False ChckV1.Checked = False ChckF2.Checked = False ChckV2.Checked = False ChckF5.Checked = False ChckV3.Checked = False ChckF4.Checked = False ChckV4.Checked = False ChckF1.Enabled = True ChckV1.Enabled = True ChckF2.Enabled = True ChckV2.Enabled = True ChckF5.Enabled = True ChckV3.Enabled = True ChckF4.Enabled = True ChckV4.Enabled = True Lblcassificacao.Text = "0/100" End Sub Private Sub ChckF1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckF1.CheckedChanged ChckF1.Enabled = False ChckV1.Enabled = False End Sub Private Sub ChckV1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckV1.CheckedChanged ChckF1.Enabled = False ChckV1.Enabled = False End Sub Private Sub ChckF2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckF2.CheckedChanged ChckF2.Enabled = False ChckV2.Enabled = False End Sub Private Sub ChckV2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckV2.CheckedChanged ChckF2.Enabled = False ChckV2.Enabled = False End Sub Private Sub ChckF5_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckF5.CheckedChanged ChckF5.Enabled = False ChckV3.Enabled = False End Sub Private Sub ChckV3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckV3.CheckedChanged ChckF5.Enabled = False ChckV3.Enabled = False End Sub Private Sub ChckF4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckF4.CheckedChanged ChckF4.Enabled = False ChckV4.Enabled = False End Sub Private Sub ChckV4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ChckV4.CheckedChanged ChckF4.Enabled = False ChckV4.Enabled = False End Sub Private Sub Btnlimpar4_Click(sender As System.Object, e As System.EventArgs) Handles Btnlimpar4.Click ChckF4.Checked = False ChckV4.Checked = False ChckF4.Enabled = True ChckV4.Enabled = True End Sub Private Sub Btnlimpar3_Click(sender As System.Object, e As System.EventArgs) Handles Btnlimpar3.Click ChckF5.Checked = False ChckV3.Checked = False ChckF5.Enabled = True ChckV3.Enabled = True End Sub Private Sub Btnlimpar2_Click(sender As System.Object, e As System.EventArgs) Handles Btnlimpar2.Click ChckF2.Checked = False ChckV2.Checked = False ChckF2.Enabled = True ChckV2.Enabled = True End Sub Private Sub Btnlimpar1_Click(sender As System.Object, e As System.EventArgs) Handles Btnlimpar1.Click ChckF1.Checked = False ChckV1.Checked = False ChckF1.Enabled = True ChckV1.Enabled = True End Sub End Class PS : não se esqueçam de mandar um desafio!

Pessoal, tenho um form com uma picturebox que contem um gif de loading. Estou tentando fazer com que antes de executar um método ele exiba essa imagem de carregando e feche quando terminar. ele até funciona mas em determinado momento conforme o uso ele me retorna o erro: An unhandled exception of type 'System.Threading.ThreadAbortException' occurred in System.Drawing.dll Additional information: O thread estava sendo anulado. Public Class clsModoCarregando Dim FrmLoading As New Loading Dim trdelegate As New ThreadStart(AddressOf carregarFormLoading) Dim trd As New Thread(trdelegate) Private Sub carregarFormLoading() Try FrmLoading.ShowDialog() Catch ex As ThreadAbortException Thread.ResetAbort() End Try End Sub Public Sub ExibirLoad() If Not trd.IsAlive Then trd.Name = "threadCarregando" trd.IsBackground = True trd.Start() End If End Sub Public Sub FecharLoad() If trd.IsAlive Then trd.Abort() trd.Join() End If End Sub End Class 'evento do botao pesquisar do form Private Sub btnPesquisar_Click(sender As Object, e As EventArgs) Handles btnPesquisar.Click Dim ModoCarregando As New Ambiente.clsModoCarregando If lstConsulta.Items.Count > 0 Then ModoCarregando.ExibirLoad() dtgPesquisa.DataSource = insPesquisa.pesquisar(lstConsulta, dtNomesPesquisa.Rows(0)("Tabela")) dtgPesquisa.DataMember = dtNomesPesquisa.Rows(0)("Tabela") ModoCarregando.FecharLoad() Else If txtValorPesquisa.Text = String.Empty Then MsgBox("informe o valor a ser pesquisado.", vbInformation) txtValorPesquisa.Focus() Else MsgBox("Adicione a consulta antes de pesquisar.", vbInformation) btnAdicionar.Focus() End If End If End Sub

Pessoal , Alguém sabe como faço para chamar um arquivo de help.chm pelo VB6 ? Chamar arquivo Help.chm Pessoal ... por favor alguém para me ajudar ???