Search the Community

Showing results for tags 'vb'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Blogs

  • Projectos
  • Revista PROGRAMAR
  • Blog dos Moderadores
  • Eventos
  • Notícias de Tecnologia
  • Blog do Staff
  • Wiki

Forums

  • Bem-vindos ao Portugal-a-Programar
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
    • Apresentações
  • Comunidade a Trabalhar
    • Wiki P@P
    • Apresentação de Projectos de Programação
    • Downloads
  • Revista PROGRAMAR
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Haskell
    • Pascal
    • Python
    • Bases de Dados
    • Visual Basic Clássico
    • Visual Basic for Applications (VBA)
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML / XHTML
    • CSS
    • Javascript
    • Outras Linguagens de WebDevelopment
    • Desenvolvimento Web
  • Desenvolvimento .NET
    • C#
    • Visual Basic .NET
    • ASP.NET
    • WPF & SilverLight
  • Software e Sistemas Operativos
    • Software de Produtividade
    • Sistemas Operativos
    • SharePoint
    • Apresentação de Software
  • Informática Extra-Programação
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica
    • Automação Industrial
    • Dúvidas e Discussão de Programação
    • Notícias de Tecnologia
  • Outras Áreas
    • Matemática
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
    • Arquivo Morto

Categories

  • Revista PROGRAMAR
  • Tutoriais
  • Textos Académicos
  • Exercícios Académicos
    • Exercícios c/ Solução
    • Exercícios s/ Solução
  • Bibliotecas e Aplicações
  • Outros

Found 76 results

  1. Bom dia a todos. Tenho um problema ao criar o ficheiro Saft, e espero que alguém ja tenho feito isto e me possa ajudar, pois não tenho experiência em XML. Estou a usar VB6 e consigo criar um ficheiro em XML, porém, não tenho a certeza de como adicionar o 'NameSpace' urn:OECD:StandardAuditFile-Tax:PT_1.03_01 ao fazer isto, o texto xmlns="" é automaticamente adicionado ao node <Header>. Aqui esta o código que uso, e o resultado. Set xmlDoc = New MSXML2.DOMDocument60 Dim pi As IXMLDOMProcessingInstruction Set pi = xmlDoc.createProcessingInstruction("xml", "version='1.0' encoding='Windows-1252'") 'encoding="UTF-8" xmlDoc.insertBefore pi, xmlDoc.documentElement Set xmlRootNode = xmlDoc.createElement("AuditFile") xmlDoc.appendChild xmlRootNode xmlDoc.documentElement.setAttribute "xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance" xmlDoc.documentElement.setAttribute "xsi:schemaLocation", "urn:OECD:StandardAuditFile-Tax:PT_1.03_01 SAF-T-PT.XSD" xmlDoc.documentElement.setAttribute "xmlns:doc", "urn:schemas-basda-org:schema-extensions:documentation" xmlDoc.documentElement.setAttribute "xmlns", "urn:OECD:StandardAuditFile-Tax:PT_1.03_01" //de seguida crio o node <header> Set xmlNodeLevel0 = xmlDoc.createElement("Header") xmlRootNode.appendChild xmlNodeLevel0 Resultado: <?xml version="1.0" encoding="Windows-1252"?> <AuditFile xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="urn:OECD:StandardAuditFile-Tax:PT_1.03_01 SAF-T-PT.XSD" xmlns:doc="urn:schemas-basda-org:schema-extensions:documentation" xmlns="urn:OECD:StandardAuditFile-Tax:PT_1.03_01"><Header xmlns=""> Será que alguém com mais experiência se sabe explicar porque?
  2. Preciso de Ajuda, Estou Criando um programa e tem uma parte que tem CombBox, Preciso que faça assim, Ex: CrossFire AL/BR CrossFire Fantasy Point Blank Combat Arms ----------------- Botão escrito: Verificar Cheats Online Mas Eu preciso que quando eu escolher uma dessas Opções eu Clicko no botão botão e vai para outro Form... Vo ficar aguardando
  3. Projeto(Pass:p@p): Aqui Problema: Em todas as minhas forms eu tenho um timer que controla as cores de alguns paneis e botões, essa cor e definida na form7, lá têm varias opções de cores para o utilizador usar se ele usar uma dessas o programa regista a cor num ficheiro TXT, mas se o utilizador escolher personalizado vai abrir um painel com tres trackbar definidas para valores entre 0 a 255 para fazer as tres cores do RGB. Até ai tudo bem se meter nas tres trackbar 255,255,255 tudo o que esta definido para mudar de cor muda para branco, mas, quando fecho e abro o programa fica tudo amarelo (255,255,0) ou seja eu leio os fiheiros no load da form1, mas ele lê muito bem os dois primeiros valores mas o terceiro define sempre com 0, o que é estranho pois se fechar a calculadora e for ver os valores salvos nos ficheiros vai estar 255 nos tres. cada ficheiro guarda um valor ou do Red ou do Green ou do Blue! Cumps, Paulo
  4. Private Sub btn_concluir_Click(sender As Object, e As EventArgs) Handles btn_concluir.Click mensagem = "Deseja concluir esta fatura?" titulo = "Gestão de Restaurante - Paulo Pereira - Conclusão de Fatura" botoes = MessageBoxButtons.YesNo icone = MessageBoxIcon.Question resposta = MessageBox.Show(mensagem, titulo, botoes, icone) If DialogResult.Yes = True Then Dim instrucdadosfatura As String If CheckBox1.Checked = True Then If txtNIF.Text = Nothing Or txtNome.Text = Nothing Or txtMorada.Text = Nothing Then MsgBox("O preenchimento dos dados pessoais é obrigatório.", MsgBoxStyle.Information, "Gestão de Restaurante - Paulo Pereira") Else If mtd_pagamento.Text = Nothing Or txtentrega.Text = Nothing Or lbl_troco.Text = "Entrega Insuficiente" Then MsgBox("O preenchimento dos campos Método de Pagamento e Entrega é obrigatório e o valor da Entrega deve ser maior que o valor a pagar.", MsgBoxStyle.Information, "Gestão de Restaurante - Paulo Pereira") Else lblentrega.Text = txtentrega.Text lblentrega.Text = Replace(lblentrega.Text, ".", ",") instrucdadosfatura = "UPDATE DadosFatura SET NIF='" & txtNIF.Text & "', Nome='" & txtNome.Text & "', Morada='" & txtMorada.Text & "', MtdPagamento='" & mtd_pagamento.Text & "', Entrega='" & lblentrega.Text & " €" & "', Troco='" & lbl_troco.Text & "', Estado='" & "Concluída" & "' WHERE Cod='" & lbl_nrfatura.Text & "'" Me.DadosFaturaTableAdapter.Adapter.SelectCommand.CommandText = instrucdadosfatura Me.DadosFaturaTableAdapter.Update(Me._OFICINA_MDFDataSet.DadosFatura) Me.DadosFaturaTableAdapter.Fill(Me._OFICINA_MDFDataSet.DadosFatura) MsgBox("O Recibo foi finalizado com sucesso.", MsgBoxStyle.Information, "Gestão de Restaurante - Paulo Pereira") Me.Close() Peças.Show() End If End If Else If mtd_pagamento.Text = Nothing Or txtentrega.Text = Nothing Or lbl_troco.Text = "Entrega Insuficiente" Then MsgBox("O preenchimento dos campos Método de Pagamento e Entrega é obrigatório e o valor da Entrega deve ser maior que o valor a pagar.", MsgBoxStyle.Information, "Gestão de Restaurante - Paulo Pereira") Else lblentrega.Text = txtentrega.Text lblentrega.Text = Replace(lblentrega.Text, ".", ",") instrucdadosfatura = "UPDATE DadosFatura SET MtdPagamento='" & mtd_pagamento.Text & "', Entrega='" & lblentrega.Text & " €" & "', Troco='" & lbl_troco.Text & "', Estado='" & "Concluída" & "' WHERE Cod='" & lbl_nrfatura.Text & "'" Me.DadosFaturaTableAdapter.Adapter.SelectCommand.CommandText = instrucdadosfatura Me.DadosFaturaTableAdapter.Update(Me._OFICINA_MDFDataSet.DadosFatura) Me.DadosFaturaTableAdapter.Fill(Me._OFICINA_MDFDataSet.DadosFatura) MsgBox("O Recibo foi finalizado com sucesso.", MsgBoxStyle.Information, "Gestão de Restaurante - Paulo Pereira") Me.Close() Peças.Show() End If End If End If End Sub Alguem me consegue dizer onde esta o erro sff?
  5. Olá, sou novo aqui no fórum e gostaria de tentar resolver meu problema, Estou desenvolvendo um programa de gerenciamento de consultas no visual basic, não conheço muito o visual basic mas acontece o seguinte, ao executar o comando para editar uma informação do banco de dados que no caso é o access e ao executar aparece o seguinte erro na minha linha de código: "A conversão da cadeia de caracteres no tipo 'Integer' não é válido " e no caso a linha de código é essa: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.TabClientesTableAdapter.Editar(IdClienteTextBox.Text, NomeTextBox.Text, NascMaskedTextBox.Text, CPFMaskedTextBox.Text, RGTextBox.Text, EndereçoTextBox.Text, BairroTextBox.Text, CidadeTextBox.Text, EstadoTextBox.Text, CEPMaskedTextBox.Text, TelefoneMaskedTextBox.Text, CelularMaskedTextBox.Text, EmailTextBox.Text) O que pode ser? Estou desesperado e se pudere ajudar fico agradecido!
  6. Alguém sabe como se associa uma listview a uma linha da datagridview para associar as peças de uma moto ao cliente? porque a minha ideia é depois de tar associado clicava em cima da linha da datagridview e o conteudo da datagridview apareçia numa tabela chamada fatura Se me pudessem ajudar agradecia
  7. Boa Tarde, Desde já muitos parabéns pelo fórum fantástico. Tenho uma aplicação de apenas gestão comercial em VB, neste momento pequena mas estou a ser pressionado para melhorar a mesma. Não irei optar por melhorar a mesma, mas sim criar uma nova, visto que a estrutura da antiga não está muito boa. Na nova versão estou a pensar em fazer updates online, a minha dúvida é como efectuar o update da base de dados, visto que a cada update vão haver alterações na base de dados. Outra funcionalidade que irei implementar é multi base de dados ou seja o cliente ao iniciar a aplicação escolhe qual a empresa que pretende abrir. Devo utilizar o dataset para construir a base de dados? Vou optar por MSSQL e não mysql visto que sou apenas eu a desenvolver e em mysql o tempo de desenvolvimento é superior. Obrigado
  8. Boas malta, Alguém pode me ajudar o porque de estar a dar o erro MySqlException was unhandled? O SQL está tão simples como o código ser a chave primaria e configurado como varchar (100) assim como o campo nome e dia. Imports MySql.Data.MySqlClient Public Class conn Public VarConec As String Public Sub New() Dim servidor As String Dim usuario As String Dim password As String Dim basedados As String servidor = "localhost" usuario = "root" password = "" basedados = "teste" VarConec = "server=" & servidor & "; user id=" & usuario & "; password=" & password & "; database=" & basedados & ";" End Sub Public Function Conectar() As Boolean Dim Conexao As New MySqlConnection(VarConec) Try Conexao.Open() Catch ex As Exception MsgBox(ex.Message) End Try 'retorna variavel State Open 1, Close 0 Return Conexao.State End Function End Class Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim obj As New conn If obj.Conectar() Then MsgBox("Conectou!") Else MsgBox("Erro conexão!") End If Dim Var1 As String Var1 = TextBox1.Text Dim Var2 As String Var2 = TextBox2.Text Dim Var3 As Date Var3 = Date.Today Dim Var4 = Var3.ToString("dd-MM-yyyy") MsgBox("O conteudo da caixa 1 é " & Var1 & " e conteudo da caixa 2 é " & Var2 & " dia " & Var4) Dim Conexao As New conn Dim objConexao As New MySqlConnection(Conexao.VarConec) Dim Varsql As String Varsql = "INSERT INTO nomecodigos (codigo, nome, dia) VALUES ('" & Var1 & "','" & Var2 & "','" & Var4 & ")" Dim objMysqlCommand As New MySqlCommand(Varsql, objConexao) objConexao.Open() objMysqlCommand.ExecuteNonQuery() objConexao.Close() End Sub End Class
  9. Pressionando o botão “Ver preço” o programa abre uma MsgBox com a indicação do preço da pizza de acordo com: Preço base com massa fina = 2€ Cada ingrediente = mais 1€ Massa grossa = 3€ Exemplo1: massa fina e 2 ingredientes = 4€ Exemplo2: massa grossa e 1 ingredientes = 4€ Exemplo3: massa grossa e 3 ingredientes = 6€ Eu já tentei fazer com ifs (cerca de 30 ifs lol) só que depois começa a aparecer 2 msgbox quando passo a inserir 2 ingredientes. Pelo que contei, há cerca de 15 combinações possíveis (ou mais), se me conseguirem ajudar agradecia imenso, além de ajudar gostava de perceber como fazer! Obrigado desde já!
  10. Boa tarde, tenho uma dúvida de como posso guardar imagens na base de dados com o openfiledialog e como mostrar imagens que estão guardadas na mesma base de dados Por exemplo quando o utilizador clicar no botão "Carregar Foto" pudesse escolher a foto que deseja e quando fosse para clicar no botão registar a foto fosse guardada na base de dados Problemas: Não sei como deva criar a tabela das imagens e como guardar essa imagens e mostrar no perfil do cliente(um diferente form)
  11. Bom dia eu queria carregar uma tabela parecida com abaixo numa tabela que esta numa base de dados no SQL Server através de uma macro. Alguem me pode ajudar? Eu uso o Import para criar a primeira vez mas depois queria actualizar atraves de uma macro. Obrigada
  12. Olá! Estou aqui com um problema do qual nao estou a conseguir resolver se me poderem ajudar Obrigado Peço desculpa caso tenha posto o post no local errado O meu problema é numa DataGridView, em que tem acesso a 2 tabelas em access, quando só tem acesso numa 1 tabela funciona sem problemas. Mas quando adiciono uma segunda tabela, dá erro. print da configuração ao adicionar a segunda tabela http://prntscr.com/9nmsrk Envio um video para identificarem melhor o erro https://www.dropbox.com/s/55xcqkjqrdvmj8s/bandicam%202016-01-08%2018-17-34-683.mp4?dl=0 Espero resposta, Obrigado
  13. Boa noite, é o seguinte, na minha empresa estão a pensar desenvolver um projeto qual objetivo é a execução de um programa ligada à base de dados, que controle o stock, ou seja a entrada e saída de produtos e na saída de produtos eles querem que interliguemos com o sage, ou seja, o preenchimento de uma guia remessa automática, mas para isso precisamos de saber a API do sage , certo? Eles querem que o software seja programado em Visual Basic, acham o mais ideal para o projeto ? E qual a base de dados mais adequada ? Bom isto são as minhas principais questões, é bom salientar este será um projeto duradouro, no qual vão estar envolvidas várias pessoas e na qual vão receber formação para tal, mas antes de o fazermos precisamos de saber quais as melhores opções e nada melhor de vir perguntar a quem melhor sabe e no futuro pretendemos também automatizar outras coisas na empresa , para isso é que irá servir a formação. Desde já agradeço toda a ajuda que poderem dar.
  14. Bom dia, eu tenho estado a desenvolver uma aplicação em que usa o access como base de dados. Eu comecei a desenvolver as ligações para access 2007/2010. Mas agora tenho de actualiza - lo para o novo 365. Tenho estado a procura de como o fazer mas a única coisa que encontro é com autenticação em azure. O problema é que esta aplicação está em rede e os ficheiros também. Como é que posso abrir uma ligação em access 365 a partir da rede local? Cumprimentos, TS91
  15. Olá gostaria de saber se tem como eu inverter o resultado de um SELECT que vem normalmente desse modo: Reg |Nome |Endereco |Numero |Data 1 |Exm1 |Exm1 |1 |15/10/2015 2 |Exm2 |Exm2 |2 |15/10/2012 Para ser exibido deste modo: Reg |1 |2 Nome |Exm1 |Exm2 Endereco |Exm1 |Exm2 Numero |1 |2 Data |15/10/2015 |15/10/2015 Estou jogando o resultado em uma variável SuperDataSet e depois populando uma tabela dentro de uma ListView
  16. Boa tarde, Estou a tentar escrever uma string num ficheiro de texto através do código abaixo. Estou a conseguir fazer a escrita mas ao editar o ficheiro noto que este começa com um espaço ou algum tipo de caracter oculto. Como o meu objectivo final é gerar um xml este co pode começar desta forma "(espaço)<?xml...". If IO.File.Exists(Application.StartupPath & "\temp.xml") Then IO.File.Delete(Application.StartupPath & "\temp.xml") End If IO.File.WriteAllText(Application.StartupPath & "\temp.xml", Trim(xml_var)) Já tentei fazer encode em utf-8 e em ascii, sendo que este ultimo ele substitui o espaço por um ? Se alguém tiver alguma sugestão agradecia.
  17. Fiz um programa em vb porém ele só funciona em 2 pcs de 4 que testei, capturei o log de eventos do windows de um pc de que não abriu. Load do form principal: Public Class FormPrincipal Private SQL As New SQLcontrol Dim idSAMP As Integer Dim idTS As Integer Dim CaminhoArquivo As String Dim tempodosamp As Integer Dim tempodots As Integer Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load GetServidores() mostrarip() GetServidoresTS() carregarconfiguracoes() End Sub Esse é um dos erros: Aplicativo: Launcher SA-MP.exe Versão do Framework: v4.0.30319 Descrição: O processo foi terminado devido a uma exceção sem tratamento. Informações da Exceção: System.InvalidOperationException Pilha: em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel() em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(System.String[]) em LauncherSAMP.My.MyApplication.Main(System.String[]) depois da esse: Aplicativo: Launcher SA-MP.exe Versão do Framework: v4.0.30319 Descrição: O processo foi terminado devido a uma exceção sem tratamento. Informações da Exceção: System.InvalidOperationException Pilha: em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel() em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(System.String[]) em LauncherSAMP.My.MyApplication.Main(System.String[]) Não sei oque fazer. LOG PARA DOWNLOAD: https://onedrive.live.com/redir?resid=BBDD036BAD75D4DA!3697&authkey=!AIQMMZxL1xSXy4o&ithint=file%2cevtx
  18. Boas, Tenho quase finalizado o meu projeto de curso, mas tenho verificado que me tem dado um erro, ou seja se criar um paciente com o mesmo nome mas com chaves primarias diferentes, eu quando o vou escolher aparece o dois mas quando mostra os dados só mostra de um... Quer escolha o nome de cima ou de baixo nunca muda os dados das textbox... Segue um exemplo, com o codigo da combobox que preenche os dados das textbox. Try novo = False Call ApagarFormulário() If con_bd.State = ConnectionState.Open Then con_bd.Close() con_bd.Open() Dim cmd As New OleDbCommand("select * from Pacientes WHERE NomePac = '" & cbpaciente.SelectedItem & "'", con_bd) Dim drdr As OleDbDataReader drdr = cmd.ExecuteReader drdr.Read() txtnome.Text = drdr.Item("NomePac") dtdata.Value = drdr.Item("idade") txtcontribuinte.Text = drdr.Item("Contribuinte") txtmorada.Text = drdr.Item("Morada") txtcontacto.Text = drdr.Item("Telemovel") txtbi.Text = drdr.Item("BI") txtcodpac.Text = drdr.Item("CodPac") txtnrutente.Text = drdr.Item("NumeroUtente") cmd.Cancel() con_bd.Close() btoeditar.Visible = True btoapagar.Visible = True EliminarToolStripMenuItem.Visible = True EditarToolStripMenuItem.Visible = True Catch ex As Exception MsgBox(ex.Message) End Try
  19. Boas, Preciso de uma pequena ajuda, como digo por exemplo ao datapicker que a dataminima é hoje(ou do dia em que estiver) e a maxima é 5anos depois da data de hoje ?? Obrigado Já consegui, tinha um erro apenas..
  20. Bem estou com um pequeno problema, (já está quase tudo a funcionar) mas tenho um problema, no form cirurgias (é o único com problemas xD), não estou a conseguir fazer 3 coisas, apagar uma cirurgia, editar uma cirurgia (devido ao datapicker), e quando crio duas cirurgia para o mesmo paciente (mas com funções diferentes e com outro CODCIR, ele quando mostra os pacientes quem têm cirurgias basicamente diz quantos têm cirurgias se for 2 paulos e ele mostra mas quando escolhe só me apresenta os dados de 1 escolha qual escolher... User. Admin Pass. pass https://mega.co.nz/#!HAlx3L4B!yWV91RrlrFQZCvps3Oio0JgQ6fXClcKuflsagm42y24 Isso acontece tambem nos outros forms, (onde eu crie dados repetidos) Segue o programa em anexo para poderem consultar, agredeço imenso obrigado.
  21. Boas, Pessoal tenho um projeto de curso, e preciso imenso de ajuda. Tenho a data limite a chegar e ainda me falta uma parte do programa que basicamente é o que o complementa. Vou explicar um pouco para se perceber, é um programa em vb 2010 usa base de dados access e tem sql para fazer a ligação, parte do codigo foi através deste link http://wiki.portugal-a-programar.pt/dev_net:vb.net:access, mas há uma parte que não consigo fazer, eu tenho digamos uma tabela de Equipa e tem os seguintes campos (CodEqui, Descricao, CodEsp) o CodEsp pertence a uma tabela Especialidades que tem como campod (CodEsp, Especialidade) onde uma especialidade pode ter varias equipas mas uma equipa só pode ter uma especialidade. Quando quero adicionar uma equipa peço, o (CodEqui, Descricao, CodEsp),mas quando peço o CodEsp faço um select a tabela Especialidades e mostro numa combobox a especialidade mas para guardar quero guardar o CodEsp, a questão é como eu faço, quando escolho numa combobox a especialidade X onde o seu CodEsp é 1, e quando guardo na base de dados ele guarda 1 (pois a tabela tem CodEsp e não Especialidade como campo). Espero que me tenha feito entender. Muito Obrigado, Aguardo uma resposta, pois tenho alguma urgência. If valida() Then Try If novo Then If con_bd.State = ConnectionState.Open Then con_bd.Close() con_bd.Open() ds.Reset() Dim query As String = "insert into Equipa(CodEqui, Descricao, CodEsp) " _ & " values " _ & "('" & txtcodequi.Text & "','" & txtnome.Text & "','" & cbespecialidade.Text & "')" Dim adptr2 As New OleDbDataAdapter(query, con_bd) adptr2.Fill(ds) MsgBox("Equipa criada com êxito", vbInformation, "Informação") Else If MsgBox("A equipa já se encontra na base de dados, quer edita-la?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Aviso Alteração!") = MsgBoxResult.Yes Then If con_bd.State = ConnectionState.Open Then con_bd.Close() con_bd.Open() ds.Reset() Dim query As String = "update Equipa set " _ & " Descricao = '" & txtnome.Text & "'" _ & " CodEsp = '" & cbespecialidade.Text & "'" _ & " where CodEqui = " & txtcodequi.Text Dim adptr2 As New OleDbDataAdapter(query, con_bd) adptr2.Fill(ds) MsgBox("A equipa foi editada com êxito", vbInformation, "Informação") btocriar.Visible = True btoeditar.Visible = False btoapagar.Visible = False CriarToolStripMenuItem.Visible = True EditarToolStripMenuItem.Visible = False EliminarToolStripMenuItem.Visible = False Else MsgBox("A edição foi cancelada", vbInformation, "Informação") End If End If cbequipa.Items.Clear() Call carregaDados() con_bd.Close() Call ApagarCampos() Catch ex As Exception MsgBox(ex.Message) con_bd.Close() End Try Else MsgBox("Preencha os dados corretamente", vbInformation, "Aviso") End If novo = False
  22. Bom dia, boa tarde, boa noite a todos! olá pessoal eu sou programador junior, e estou com um dúvida é possivel alterar o servidor DNS com um button ? exemplo o Usuário da um Clique e o servidor DNS é alterado para o do Google 8.8.8.8 8.8.4.4 Se for possivel, como fazer ? desde já obrigado.
  23. Boa tarde Estou a finalizar um projeto que é a minha PAP, o projeto consiste na gestão de um ginásio.. A duvida é... Não consigo imprimir a listbox, que é o que vai servir de talão de compra para o cliente daquilo que a recepcionista vendeu. Não fica nada registado na base de dados SÓ PARA IMPRIMIR LISTBOX. Se alguem souber me ajudar, agradecia
  24. Boas, preciso de uma ajuda comunidade, estou a desenvolver um software que permite remotamente abrir uma fechadura eletronica. Tenho um push button em que quando se carrega emite uma mensagem no computador a avisar que alguem está a porta e tambem abre uma camara IP que mostra o movimento da porta e assim reconhecendo ou nao a pessoa abre-se a fechadura eletronica no mesmo software. No ponto em que estou ja consigo abrir a porta com o arduino e o VB mas nao consigo ter qualquer tipo de feedback do button. Alguma dica? Deixo o codigo do Arduino em anexo bem como o do vb: Arduino: //************************************************************************************************************************************* // Declarations //************************************************************************************************************************************* #include <SPI.h> #include <Ethernet.h> //************************************************************************************************************************************* // Wired configuration parameters //************************************************************************************************************************************* byte mac[] = { 0x90, 0xA2, 0xDA, 0x0F, 0x97, 0x75 }; unsigned char local_ip[] = {192,168,1,90}; // IP address of WiShield unsigned char gateway_ip[] = {192,168,1,1}; // router or gateway IP address unsigned char subnet_mask[] = {255,255,255,0}; // subnet mask for the local networ EthernetServer server(80); //************************************************************************************************************************************* // Variables and constants //************************************************************************************************************************************* // the number of the pushbutton pin: const int buttonPin2 = 4; // the number of the eletronic door pin const int doorPin = 8; // variable for reading the pushbutton status int buttonState2 = 0; //************************************************************************************************************************************* // SETUP //************************************************************************************************************************************* void setup() { // initialize th communication: Serial.begin(9600); // initialize the LED pin as an output: pinMode(doorPin, OUTPUT); // initialize the pushbutton pin as an input: pinMode(buttonPin2, INPUT); Serial.println("Connecting..."); // initialize ethernet mode: Ethernet.begin(mac, local_ip); Serial.println(Ethernet.localIP()); Serial.println("Connected!");//report it to the Serial String msg="Hello Client";//Message to be sent Serial.println("Sending Message:"+msg);//log to serial server.println(msg);//send the message } //************************************************************************************************************************************* // LOOP //************************************************************************************************************************************* void loop() { // if there are incoming bytes available // from the server, read them and print them: EthernetClient client = server.available(); if (client) { while (client.connected()){ if (client.available()){ char c = client.read(); handleCommand(c); } } } /* if the server's disconnected, stop the client: if (!client.connected()) { Serial.println(); Serial.println("disconnected"); client.stop(); }*/ } //************************************************************************************************************************************* // Handler Commander //************************************************************************************************************************************* void handleCommand (char command) { switch (command) { case 'A': { digitalWrite(doorPin,HIGH); Serial.print(command); } break; case 'B': { digitalWrite(doorPin,LOW); Serial.print(command); } break; default: break; } } Visual Studio: Imports System.IO Imports System.IO.Ports Imports System.Threading Imports System.Environment Imports System.Net.Sockets Imports System.Text Public Class FormPrincipal Public _close As Integer = 1 Dim _Read As String Dim ConfigPath As String = GetFolderPath(SpecialFolder.ApplicationData) & "\VideoIntercom\data\bin\" Dim ConfigFile As String = "conf.VI" Dim ConfigPathFile As String = ConfigPath & ConfigFile Dim tcpClient As New TcpClient Dim networkStream As NetworkStream Dim KeyPressed As Integer Private Sub FormPrincipal_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing If _close = 1 Then e.Cancel = True Else e.Cancel = False End If Me.Visible = False 'NotifyIcon1.ShowBalloonTip(10000, "Video Intercom", "Alguém à porta...", ToolTipIcon.Warning) NotifyIcon1.ShowBalloonTip(3000, "Video Intercom", "A sua porta continua a ser monitorizada", ToolTipIcon.Info) End Sub Private Sub FormPrincipal_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load CarregarIPs() Core_Read() End Sub Private Sub NotifyIcon1_MouseDoubleClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick ShowIT(Me) End Sub Private Sub NotifyIcon1_BalloonTipClicked(sender As System.Object, e As System.EventArgs) Handles NotifyIcon1.BalloonTipClicked ShowIT(Me) End Sub Private Sub ButtonDC_Click(sender As System.Object, e As System.EventArgs) Handles ButtonDC.Click GroupBox2.Enabled = True ButtonDC.Enabled = False End Sub Private Sub ButtonOK_Click(sender As System.Object, e As System.EventArgs) Handles ButtonOK.Click GroupBox2.Enabled = False ButtonDC.Enabled = True GuardarIPs() End Sub Private Sub ButtonNok_Click(sender As System.Object, e As System.EventArgs) Handles ButtonNok.Click WebBrowser1.Visible = True WebBrowser1.Navigate(New Uri("http://" & IpTextBox2.Text & ":" & TextBox1.Text)) GroupBox2.Enabled = False ButtonDC.Enabled = True CarregarIPs() End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click _close = 0 Me.Close() End Sub Public Sub ShowIT(_Form As Form) _Form.Show() _Form.BringToFront() End Sub Public Sub GuardarIPs() If File.Exists(ConfigPathFile) Then File.Delete(ConfigPathFile) End If If Not (Directory.Exists(ConfigPath)) Then Directory.CreateDirectory(ConfigPath) End If If Core_Connect(IpTextBox3.Text, 80) = False Then MsgBox("Falha na configuração do core, verifique o endereço IP!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "VideoIntercom") ButtonDC.PerformClick() WebBrowser1.Visible = False Exit Sub End If Using BW As New BinaryWriter(File.Open(ConfigPathFile, FileMode.Create)) BW.Write(IpTextBox2.Text) BW.Write(TextBox1.Text) BW.Write(IpTextBox3.Text) BW.Close() End Using End Sub Public Sub CarregarIPs() If File.Exists(ConfigPathFile) Then Using BR As New BinaryReader(File.Open(ConfigPathFile, FileMode.Open)) Try IpTextBox2.Text = BR.ReadString TextBox1.Text = BR.ReadString IpTextBox3.Text = BR.ReadString Catch ex As EndOfStreamException End Try End Using WebBrowser1.Visible = True WebBrowser1.Navigate(New Uri("http://" & IpTextBox2.Text & ":" & TextBox1.Text)) If Core_Connect(IpTextBox3.Text, 80) = False Then MsgBox("Falha na configuração do core, verifique o endereço IP!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "VideoIntercom") ButtonDC.PerformClick() WebBrowser1.Visible = False Exit Sub End If Else MsgBox("Faça as configurações dos equipamentos!", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "VideoIntercom") TextBox1.Text = "8080" ButtonDC.PerformClick() WebBrowser1.Visible = False Exit Sub End If End Sub Private Function Core_Connect(ByVal IP As String, ByVal Port As Integer) As Boolean Try tcpClient.Connect("192.168.1.90", 80) networkStream = tcpClient.GetStream() Catch ex As Exception MsgBox(ex.Message) Return False End Try Return True End Function Private Sub Core_Write(ByVal Output As String) Try Dim sendBytes As [byte]() = Encoding.ASCII.GetBytes(Output) Dim endByte As [byte]() = {&HFE} networkStream.Write(sendBytes, 0, sendBytes.Length) networkStream.Write(endByte, 0, 1) Catch ex As Exception MsgBox("Falha na comunicação com o core, tente novamente!", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "VideoIntercom") End Try End Sub Private Sub Core_Disconnect() If Not IsNothing(networkStream) Then tcpClient.Close() networkStream = Nothing End If End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Core_Write("B") Timer1.Enabled = True End Sub Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick Core_Write("A") Timer1.Enabled = False End Sub End Class Talvez agora necessite de um "Core_Read" em thread paraestar sempre a ler o arduino mas nao tenho qualquer tipo de ideia de como fazer o read. Muito obrigado, Ricardo Barbara
  25. Eu tenho um problema tem à haver com a textbox. Estou tentando limitar a textbox que só aceite os números 1,2,3 e que ao colocar outro número, ele (textbox) não me deixe colocar. Como faço isso?