Jump to content

Search the Community

Showing results for tags 'vb.net'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Comunidade
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
  • Comunidade a Trabalhar
    • Apresentação de Projectos de Programação
    • Downloads
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Pascal
    • Python
    • Bases de Dados
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML
    • 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
    • Apresentação de Software
  • Informática
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica e Automação Industrial
    • Matemática
    • Software de Contabilidade e Finanças
    • Dúvidas e Discussão de Programação
  • Outras Áreas
    • Notícias de Tecnologia
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
  • Arquivo Morto
    • Projectos Descontinuados
    • System Empires

Blogs

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

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

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Website


GitHub


LinkedIn


Twitter


Facebook

  1. Olá Boa tarde estou com um problema de rotina me dar os valores correctos na TextBox3.Text , sei que é uma coisa fácil mas não estou conseguindo meter os valores respectivos nas caixas de texto. Deixo aqui o código para que me ajudem. Grato desde já pela vossa atenção. Programador vb6 Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim ArryTexto() As String Dim LinhaTexto As String Dim ix As Integer Dim i As Integer If ListBox1.Items.Count > 0 Then For i = 0 To ListBox1.Items.Count - 1 MessageBox.Show(ListBox1.Items(i).ToString) LinhaTexto = ListBox1.Items(i).ToString ArryTexto = LinhaTexto.Split(",") For ix = 0 To UBound(ArryTexto) Me.TextBox2.Text = ArryTexto(ix).ToString MessageBox.Show(ArryTexto(ix)) Me.TextBox3.Text = ArryTexto(ix.ToString) + 1 ' Nao mete o valor correcto na caixa de texto TextBox3 Next ix Next If i = ListBox1.Items.Count Then MsgBox("Fim") End If End If End Sub End Class
  2. Olá pessoal, boa tarde, fiz aqui um programa que indica a posição do rato e suas coordenadas na ListBox1, mas não queria usar o controlo timer, pois é muito limitado ,tentei fazer de outra maneira , mas estou com dificuldade em parar de registar as coordenadas do rato. Existe alguma solução ? Grato desde já pela vossa atenção. ProgramadorVB6 Deixo aqui até onde parei. Public Class Form1 Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer) Public Const MOUSEEVENTF_LEFTDOWN = &H2 'Prime o botão do rato esquerdo. Public Const MOUSEEVENTF_LEFTUP = &H4 'Larga o botao do rato do lado esquerdo. Public Const MOUSEEVENTF_RIGHTDOWN = &H8 ' Prime o botão do rato direito. Public Const MOUSEEVENTF_RIGHTUP = &H10 'Larga o botao do rato do lado direito. Private x As ULong Private y As ULong Dim processo As String Private Sub Esperar(ByVal Segundos As Integer, Parar As Boolean) Dim Final As Date = TimeOfDay.AddSeconds(Segundos) While (Not TimeOfDay.Second = Final.Second) Application.DoEvents() Label1.Text = Cursor.Position.X Label2.Text = Cursor.Position.Y ListBox1.Items.Add(Me.Label1.Text & "," & Me.Label2.Text) If Parar = True Then Exit Sub End If End While End Sub Private Sub clicar() Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click x = Val(TextBox2.Text) y = Val(TextBox3.Text) Windows.Forms.Cursor.Position = New System.Drawing.Point(x, y) clicar() End Sub Private Sub GravarP_Click(sender As Object, e As EventArgs) Handles GravarP.Click Esperar(10, False) End Sub Private Sub PararCiclo_Click(sender As Object, e As EventArgs) Handles PararCiclo.Click Esperar(10, True) End Sub End Class
  3. Um Bem Aja a todos Estou a construir uma aplicação que após o replace de uns dados no código que entretanto corrigi, ao fazer Start dá o seguinte erro: "An unhandled exception of type 'Microsoft.VisualBasic.ApplicationServices.NoStartupFormException' occurred in Microsoft.VisualBasic.dll Additional information: Não foi especificado um modo de arranque." Quando faço BREAK aparece a lista disassemblay com estes dados "5E254D9C CC int 3" marcados no inicio com uma seta Alguém me dá uma dica de como resolver a situação? Obrigado desde já
  4. Boa noite. Gostava de saber se é possivel criar um programa de downloads atravez do VB. O programa iria consistir em por exemplo em ter variar fotos no programa e conseguir as descarregar diretamente do programa, se o for possivel fazer gostaria de saber como. Se houver outro tipo de linguagem que torne este tipo de programa mais facil de ser criado tambem gostaria de saber. Obrigado
  5. Bem Aja a Todos Como faço para preencher circulo neste código Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint e.Graphics.DrawEllipse(Pens.Red, 0, 0, 30, 30) End Sub Obrigado desde já
  6. Bem haja a Todos Estou a funcionar com o Visual Studio 2015. Estou a criar uma aplicação em que introduzo varias OvalShape's, centradas no form. Sucede que ao fazer Start o form aparece aumentado em relação ao tamanho original e as Shapes aparecem deslocadas para a direita e para baixo com o AutoscaleMode=Font, se alterar para o AutoscaleMode=None o form aparece muito maior. Alguém me dá uma dica
  7. Boa noite, Estou a preparar um programa básico para uma apresentação, mas existe um erro e não sei como solucionar. Será que alguém sabe como solucionar. A parte inicial do programa (onde existe o erro) consiste na identificação do país que realizou a encomenda a partir de um "código", se o código forem números o programa funciona mas se optar por uma maneira mais formal como por exemplo PT significar Portugal o mesmo não funciona. Segue aqui a parte da programação. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click p = TextBox7.Text If p = PT Then TextBox8.Text = "Portugal (venda nacional)" ElseIf p = 20 Then TextBox8.Text = "Espanha (venda internacional)" ElseIf p = 30 Then TextBox8.Text = "França (venda internacional)" ElseIf p = 40 Then TextBox8.Text = "Alemanha (venda internacional)" ElseIf p = 50 Then TextBox8.Text = "Inglaterra (venda internacional)" ElseIf p = 60 Then TextBox8.Text = "Luxemburgo (venda internacional)" ElseIf p = 70 Then TextBox8.Text = "Escócia (venda internacional)" ElseIf p = 80 Then TextBox8.Text = "Angola (venda internacional)" ElseIf p = 90 Then TextBox8.Text = "Dinamarca (venda internacional)" ElseIf p = 100 Then TextBox8.Text = "Malta (venda internacional)" ElseIf p = 110 Then TextBox8.Text = "Brasil (venda internacional)" ElseIf p Then TextBox8.Text = "País não encontrado" End If End Sub
  8. Boa noite malta, sou aluna do 12º ano e como tal estava a tentar criar um projeto que consiste num quiz. No entanto, gostaria de colocar pontuação nas perguntas mas não estou a conseguir. Será que alguém poderia me explicar mesmo passo a passo detalhadamente como o fazer? Obrigada se puderem porque estou mesmo em desespero hahahah
  9. como escrever no explorador de arquivos pelo vba? ele está abrindo com um icone do chrome
  10. gente eu abri o explorador de arquivos para uma automação com essa função: .FindElementByXPath("/html/body/app-root/spa-root/div/app-layout").Click Mas não consigo abrir a pasta para fazer o upload do pdf para o site alguem pode me ajudar? não tenho conseguido escrever o caminho na pasta com o .sendkeys
  11. Então eu preciso encontrar em um arquivo txt as latitudes e as longitudes e o nome da cidade arquivo txt eu preciso colocar em um datagridview a listas das coordenadas e o nome da cidade mais estou com dificuldade , eu não consigo ler o xml , o procedimento que tenho ler xml , mais esse não <?xml version="1.0" encoding="UTF-8" ?> - <searchresults timestamp="Thu, 18 Nov 21 01:36:26 +0000" attribution="Data © OpenStreetMap contributors, ODbL 1.0. http://www.openstreetmap.org/copyright" querystring="centro, Cuiaba Gerais, Brazil" exclude_place_ids="98415946,241126356,144782900,154971813,240519628,188761987,239459010,176623637,161991581,157650392" more_url="https://nominatim.openstreetmap.org/search/?street=centro&city=Cuiaba+Gerais&country=Brazil&exclude_place_ids=98415946%2C241126356%2C144782900%2C154971813%2C240519628%2C188761987%2C239459010%2C176623637%2C161991581%2C157650392&format=xml&accept-language=pt-BR"> <place place_id="98415946" osm_type="way" osm_id="9704093" place_rank="26" address_rank="26" boundingbox="-19.9281033,-19.9279313,-43.9578232,-43.9576731" lat="-19.9281033" lon="-43.9578232" display_name="Rua Cuiabá, Barro Preto, Regional Centro-Sul, Belo Horizonte, Região Geográfica Imediata de Belo Horizonte, Região Metropolitana de Belo Horizonte, Região Geográfica Intermediária de Belo Horizonte, Minas Gerais, Região Sudeste, 30110-062, Brasil" class="highway" type="residential" importance="0.3" /> <place place_id="241126356" osm_type="way" osm_id="706524527" place_rank="26" address_rank="26" boundingbox="-19.9839298,-19.9838139,-44.0366471,-44.0354535" lat="-19.9838139" lon="-44.0360262" display_name="Rua Cuiaba, Vila Tirol, Barreiro, Belo Horizonte, Região Geográfica Imediata de Belo Horizonte, Região Metropolitana de Belo Horizonte, Região Geográfica Intermediária de Belo Horizonte, Minas Gerais, Região Sudeste, 30662-710, Brasil" class="highway" type="residential" importance="0.3" /> <place place_id="144782900" osm_type="way" osm_id="183653804" place_rank="26" address_rank="26" boundingbox="-19.4709816,-19.4685153,-44.2605449,-44.2602161" lat="-19.4691312" lon="-44.2604628" display_name="Rua Cuiaba, Santo Antônio, Sete Lagoas, Região Geográfica Imediata de Sete Lagoas, Região Geográfica Intermediária de Belo Horizonte, Minas Gerais, Região Sudeste, 35702-383, Brasil" class="highway" type="residential" importance="0.3" /> <place place_id="154971813" osm_type="way" osm_id="219571584" place_rank="26" address_rank="26" boundingbox="-19.8858592,-19.8855258,-43.8565044,-43.8563379" lat="-19.8855674" lon="-43.8564843" display_name="Rua Cuiaba, Vila Eugênio Rossi, Nações Unidas, Carvalho de Brito, Sabará, Região Geográfica Imediata de Belo Horizonte, Região Metropolitana de Belo Horizonte, Região Geográfica Intermediária de Belo Horizonte, Minas Gerais, Região Sudeste, 34590340, Brasil" class="highway" type="residential" importance="0.3" /> <place place_id="240519628" osm_type="way" osm_id="703189713" place_rank="26" address_rank="26" boundingbox="-19.3777459,-19.3772834,-42.5548416,-42.5537423" lat="-19.3775043" lon="-42.5542853" display_name="Rua Cuiaba, São Francisco, Santana do Paraíso, Região Geográfica Imediata de Ipatinga, Região Metropolitana do Vale do Aço, Região Geográfica Intermediária de Ipatinga, Minas Gerais, Região Sudeste, 35167-000, Brasil" class="highway" type="residential" importance="0.3" /> <place place_id="188761987" osm_type="way" osm_id="375570552" place_rank="26" address_rank="26" boundingbox="-19.6290482,-19.6288352,-42.6225288,-42.6210567" lat="-19.6289168" lon="-42.6216973" display_name="Rua Cuiaba, Cava Grande, Marliéria, Região Geográfica Imediata de Ipatinga, Região Geográfica Intermediária de Ipatinga, Minas Gerais, Região Sudeste, Brasil" class="highway" type="tertiary" importance="0.3" /> <place place_id="239459010" osm_type="way" osm_id="697854942" place_rank="26" address_rank="26" boundingbox="-21.36471,-21.3639319,-45.5059779,-45.5059484" lat="-21.3643503" lon="-45.5059779" display_name="Rua Cuiabá, Vila Romana, Três Pontas, Região Geográfica Imediata de Três Pontas - Boa Esperança, Região Geográfica Intermediária de Varginha, Minas Gerais, Região Sudeste, 37190000, Brasil" class="highway" type="residential" importance="0.2" /> <place place_id="176623637" osm_type="way" osm_id="314157083" place_rank="26" address_rank="26" boundingbox="-21.3666097,-21.36471,-45.5059919,-45.5054563" lat="-21.3654966" lon="-45.5059919" display_name="Rua Cuiabá, Padre Vitor, Três Pontas, Região Geográfica Imediata de Três Pontas - Boa Esperança, Região Geográfica Intermediária de Varginha, Minas Gerais, Região Sudeste, 37190000, Brasil" class="highway" type="residential" importance="0.2" /> <place place_id="161991581" osm_type="way" osm_id="246131223" place_rank="26" address_rank="26" boundingbox="-21.0187898,-21.0162602,-46.5251098,-46.5245105" lat="-21.0171977" lon="-46.5248948" display_name="Rua Cuiabá, Novo Horizonte, Bom Jesus da Penha, Região Geográfica Imediata de Passos, Região Geográfica Intermediária de Varginha, Minas Gerais, Região Sudeste, Brasil" class="highway" type="residential" importance="0.2" /> <place place_id="157650392" osm_type="way" osm_id="229320053" place_rank="26" address_rank="26" boundingbox="-20.1462763,-20.1426447,-44.2082966,-44.2067983" lat="-20.1444014" lon="-44.2076298" display_name="Rua Cuiabá, São Sebastião, Brumadinho, Região Geográfica Imediata de Belo Horizonte, Região Metropolitana de Belo Horizonte, Região Geográfica Intermediária de Belo Horizonte, Minas Gerais, Região Sudeste, 35460-000, Brasil" class="highway" type="residential" importance="0.2" /> </searchresults> agora o meu código lendo Sub MostraTexto() Dim alterar As Boolean = False Dim Texto As String = "" Dim Linha() As String = Strings.Split(My.Computer.FileSystem.ReadAllText("I:\msdn2.xml", System.Text.Encoding.Default), ControlChars.CrLf) 'Verifica linha a linha For i As Integer = 0 To Linha.Length - 1 'Se não estiver vazia... If Linha(i) <> "" Then Texto &= Linha(i) & ControlChars.CrLf End If Next MsgBox(Texto) End Sub
  12. Hi, Como escrever e ler uma string num ficheiro tipo png ou jpg?
  13. Bom dia a todos. Incorporamos no nosso programa, as DLL para ler um cartão de cidadão. Agora estamos a tentar fazer o mesmo com o cartão da ordem dos médicos. Encontramos o middleware oficial da ordem dos médicos, o AWP. No entanto, não sabemos como usá-lo num programa Visual Studio. Não sabemos que DLLs devemos incluir num projecto Visual Studio para conseguir autenticar e assinar documentos, como fazemos com o cartão de cidadão. Será que alguém pode nos ajudar?
  14. Boa Noite alguém pode me um help para alinha exporta só que não estou conseguindo fazer o alinhamento das colunas com valores para direita Public Sub Exportar() Dim sfg As New SaveFileDialog sfg.FileName = '' sfg.Filter = 'Txt|*.txt' sfg.Title = ' Salvar/Exportar' If sfg.ShowDialog = Windows.Forms.DialogResult.OK Then Dim columnSizes As List(Of Integer) = New List(Of Integer)() For i As Integer = 0 To FrmCadastroProdutos.dgvProdutos.Columns.Count - 1 columnSizes.Add(FrmCadastroProdutos.dgvProdutos.Columns(i).HeaderText.Length) Next For Each row As DataGridViewRow In FrmCadastroProdutos.dgvProdutos.Rows For i As Integer = 0 To FrmCadastroProdutos.dgvProdutos.Columns.Count - 1 Dim valueString As String = Convert.ToString(row.Cells(i).Value) If valueString.Length > columnSizes(i) Then columnSizes(i) = valueString.Length Next Next Using writer As StreamWriter = New StreamWriter(sfg.FileName, False) For i As Integer = 0 To FrmCadastroProdutos.dgvProdutos.Columns.Count - 1 Dim headerText As String = FrmCadastroProdutos.dgvProdutos.Columns(i).HeaderText writer.Write(headerText) If headerText.Length < columnSizes(i) Then writer.Write(New String(' 'c, columnSizes(i) - headerText.Length)) writer.Write('|') Next writer.WriteLine('') writer.WriteLine('===========================================================================================================================') For Each row As DataGridViewRow In FrmCadastroProdutos.dgvProdutos.Rows For i As Integer = 0 To FrmCadastroProdutos.dgvProdutos.Columns.Count - 1 Dim valueString As String = Convert.ToString(row.Cells(i).Value) writer.Write(valueString) If valueString.Length < columnSizes(i) Then writer.Write(New String(' 'c, columnSizes(i) - valueString.Length)) writer.Write('|') Next writer.WriteLine('') writer.WriteLine('---------------------------------------------------------------------------------------------------------------------------') Next End Using End If End Sub
  15. Eu estou fazendo um relatório no excel usando a biblioteca eu estou usando uma Shapes.AddTextbox o meu grande problema é saber qual é a ultima linha que termina o texto escrito Tipo A36 para eu colocar os dados abaixo ou para eu saber a ultima linha da folha para eu colocar os texto abaixo tem como eu saber disso?
  16. Olá preciso de uma ajuda, não tenho idéia de como resolver , eu fiz um programinha em vb.net para fazer protocolamento de remédio de IATF , funciona legal do jeito que quero e também funciona na rede, normal só que tenho um bug que não consigo resolver e não tenho idéia de como resolver por isso entrei aqui no forum, quando eu faço uma lan usando servidor e cliente conectando no banco e o servidor cai o programa trava tudo isso é normal que o servidor caiu, porém quero implementar algum codigo que quando o servidor caí o programa desloga ou entra em modo invisivel até que o servidor voltar, se tiver alguma idéia que faça isso me ajuda toda vez que o usuario faz um sql vai nessa conexao Dim conSoftwareNow As New NpgsqlConnection("Server=" + ip + ";Port=" + porta + ";User Id=postgres;Password=*;Database=bdprotocolo;") conSoftware = conSoftwareNow normalmente ele trava nessa linha não vai nem para o catch Dim dr As NpgsqlDataReader = command.ExecuteReader() ai quando o servidor volta ele vai para o cacth
  17. If IsWindowVisible(hwnd) Then Dim text As String = Space(Int16.MaxValue) Dim pPid As Integer GetWindowText(hwnd, text, Int16.MaxValue) 'return integer value Dim tempprocess As Process GetWindowThreadProcessId(hwnd, pPid) tempprocess = Process.GetProcessById(pPid) text = tempprocess.MainWindowTitle If "Holyrics is free - v2.15.1 x64" = text Then End If End If Return True Bom dia. Estou a tentar programar o lançamento de executável, mas esse executável está a dar algumas dificuldades para ficar sendo controlado adequadamento, por isso queria experimentar guardar essa variavel process (neste caso a tempprocess) num ficheiro, uma vez que apos lançar esse executável algumas coisas mudam no processo original. Queria experimentar guardar a variável tempprocess num ficheiro, carregar o ficheiro e executar o executável. Mas não me lembro dos códigos para guardar esta variável. Pretendo guardar apenas quando o seu Mainwindow title estiver como definido no codigo.
  18. Bom dia, estou a completar o meu 12ºano e neste momento estou a fazer a PAP, o meu projeto consiste em um programa simples de gestão uma empresa empresa imobiliária. no entanto fiquei parado pois preciso de uma base de dados com as localizações( distrito, conselho, freguesia, rua e código postal e seus ID's) no entanto encontro sempre ou base de dados muito antigas, sem código postal ou com os nomes separados. Ninguém tem uma base de dados "simples" que possa enviar por favor? Ficava plenamente agradecido e adiantava muito o meu trabalho. Obrigado.
  19. Boa tarde a todos, Espero que exista uma alma milagrosa aqui que me consiga ajudar, agradeço desde já qualquer ajuda. Estou atualmente a desenvolver um projeto Web em ASP.net e VB.net e preciso de integrar a leitura do cartão de cidadão. Por exemplo carregar campos como nome, niss, nif, etc ... (todos os campos que preciso de carregar não necessitam de chave digital.) Acontece que neste momento eu consigo fazer a leitura e carregar tudo que preciso porém apenas a nível local, quando coloco no nosso servidor não é detetado sequer o leitor do utilizador. Já vi praticamente tudo que poderia ver a nível de documentação para entender onde está o erro porem não está nada fora do comum (a meu ver), já pesquisei em vários tópicos aqui do fórum porem não encontrei nada neste sentido. Já testei algumas situações que aqui vi mas o erro é sempre o mesmo. Este é o meu código. pt.portugal.eid.PTEID_ReaderSet.initSDK() Dim Card As pt.portugal.eid.PTEID_EIDCard Dim ContextReadr As pt.portugal.eid.PTEID_ReaderContext Dim ReaderSet As pt.portugal.eid.PTEID_ReaderSet ReaderSet = pt.portugal.eid.PTEID_ReaderSet.instance() If ReaderSet.readerList.Count < 0 Then pt.portugal.eid.PTEID_ReaderSet.releaseSDK() alerta.emitirnotificacao("Não foi detetado qualquer leitor de Cartões", "delete") Exit Sub End If For i As Integer = 0 To ReaderSet.readerCount() - 1 ContextReadr = ReaderSet.getReaderByNum(i) If ContextReadr.isCardPresent() Then Card = ContextReadr.getEIDCard() End If Next 'Verificar se o cartão está no sistema (leitor) Dim CardState As Boolean = ContextReadr.isCardPresent If CardState = True Then dropidentificacao.SelectedValue = 5 Dim eid As pt.portugal.eid.PTEID_EId = Card.getID Dim NomeAluno As String = eid.getGivenName + " " + eid.getSurname txtnome.Text = Generico.Fcn_FormatoTexto(Generico.Fcn_FormatoTexto(NomeAluno, "L"), "T") dropsexo.SelectedValue = eid.getGender Dim AnoValCC = Trim(eid.getValidityEndDate.Substring(5, 5)) Dim DiaValCC = eid.getValidityEndDate.Substring(0, 2) Dim MesValCC = eid.getValidityEndDate.Substring(3, 2) Dim AnoNasc = Trim(eid.getDateOfBirth.Substring(5, 5)) Dim DiaNasc = eid.getDateOfBirth.Substring(0, 2) Dim MesNasc = eid.getDateOfBirth.Substring(3, 2) txtdatanascimento.Text = AnoNasc + "-" + MesNasc + "-" + DiaNasc 'txtdatanascimento.Text = eid.getDateOfBirth txtvalidadebi.Text = AnoValCC + "-" + MesValCC + "-" + DiaValCC txtnidentbi.Text = eid.getCivilianIdNumber.Substring(0, 8) txtnumerocontrolo.Text = eid.getCivilianIdNumber.Substring(8) txtnutente.Text = eid.getHealthNumber txtsegsocial.Text = eid.getSocialSecurityNumber txtnif.Text = eid.getTaxNo Dim NomeMae As String = eid.getGivenNameMother + " " + eid.getSurnameMother txtnomemae.Text = Generico.Fcn_FormatoTexto(Generico.Fcn_FormatoTexto(NomeMae, "L"), "T") 'eid.getGivenNameMother + " " + eid.getSurnameMother Dim NomePai As String = eid.getGivenNameFather + " " + eid.getSurnameFather txtnomepai.Text = Generico.Fcn_FormatoTexto(Generico.Fcn_FormatoTexto(NomePai, "L"), "T") Dim Path As String = Guid.NewGuid().ToString Dim Caminhofoto As String = eid.getPhotoObj.getphoto.writeToFile(Server.MapPath("Fotos\alunos\" & Path.ToString & ".jpg")) ModuloAlunos.setdadosdoaluno(Request.QueryString("id"), "Foto", "alunos\" & Path.ToString & ".jpg") Imagefotografia.ImageUrl = "Fotos\alunos\" & Path.ToString & ".jpg" UpdatePanelfoto.Update() Else alerta.emitirnotificacao("Primeiro tem de inserir o cartão no leitor e depois carregar no botão ", "delete") End If Uma vez mais agradeço qualquer ajuda.
  20. Ola estou a desenvolver um trabalho para a escola o programa mostra nos locais onde pudemos lavar o nosso carro e o custo da lavagens antes tinha (me.databinding.movenext(ou previous se fosse o caso)). só que depois o que acontecia era que ao criar novos registos na base de dados os novos registos não eram vistos nos botões ao ter esse problema resolvi colocar uma datagriedview e sempre que clica-mos numa linha mostra nos os dados de cada empresa. Como é um instrumento de avaliação gostava que tivesse a parte gráfica apresentável dai querer usar aqueles botões Se me puderem ajudar ficaria grato Cumprimentos aguardo resposta :3 (mods se tiver feito algo errado desculpem é o meu 1 post) Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'Database1DataSet.Empresas' table. You can move, or remove it, as needed. userlbl.Text = My.Settings.Nome Me.HorizontalScroll.Maximum = 0 Me.AutoScroll = True Try Dim sql As String Dim cmd As New OleDb.OleDbCommand Dim dt As New DataTable Dim da As New OleDb.OleDbDataAdapter DBcon.Open() sql = "Select * from Empresas" cmd.Connection = DBcon cmd.CommandText = sql da.SelectCommand = cmd da.Fill(dt) DataGridView1.DataSource = dt tbid.Text = DataGridView1.CurrentRow.Cells(0).Value lblestabelecimento.Text = DataGridView1.CurrentRow.Cells(1).Value btnpreco.Text = DataGridView1.CurrentRow.Cells(2).Value btnpagamento.Text = DataGridView1.CurrentRow.Cells(3).Value btnemail.Text = DataGridView1.CurrentRow.Cells(4).Value btntelefone.Text = DataGridView1.CurrentRow.Cells(5).Value btnhorario.Text = DataGridView1.CurrentRow.Cells(6).Value btnendereco.Text = DataGridView1.CurrentRow.Cells(7).Value btndistrito.Text = DataGridView1.CurrentRow.Cells(8).Value Catch ex As Exception MsgBox(ex.Message) Finally DBcon.Close() End Try End Sub Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick tbid.Text = DataGridView1.CurrentRow.Cells(0).Value lblestabelecimento.Text = DataGridView1.CurrentRow.Cells(1).Value btnpreco.Text = DataGridView1.CurrentRow.Cells(2).Value btnpagamento.Text = DataGridView1.CurrentRow.Cells(3).Value btnemail.Text = DataGridView1.CurrentRow.Cells(4).Value btntelefone.Text = DataGridView1.CurrentRow.Cells(5).Value btnhorario.Text = DataGridView1.CurrentRow.Cells(6).Value btnendereco.Text = DataGridView1.CurrentRow.Cells(7).Value btndistrito.Text = DataGridView1.CurrentRow.Cells(8).Value End Sub
  21. Sou estudante de Programação e nunca tinha usado VBA e tenho de entregar um trabalho, mas nunca tive formação nesta linguagem, e estou a ter problemas no programa na parte de Pesquisar registros com filtros, já tentei ao máximo fazer seguindo tutoriais na internet, vídeo aulas e fórum mas está sempre a dar erro e não consigo resolver. Fico muito agradecido se alguém me conseguir ajudar. Link do Programa: https://drive.google.com/file/d/1qBprlBRX8eg8wRoK2_Yy_UZ3pfisrzWj/view?usp=sharing
  22. Olá a todos! Sou novo neste fórum, por isso peço desculpa se cometer algum erro ao colocar a minha dúvida. Estou a fazer um programa que consiste numa máquina de vendas. Para a pessoa conseguir "introduzir dinheiro na máquina", necessita de digitar numa TextBox o valor que deseja introduzir e, depois, clicar num botão para que "o pagamento seja efetuado" e seja apresentada a "fatura". No entanto, a TextBox está associada a uma variável do tipo Decimal e se a pessoa digitar uma letra ou qualquer outro dígito que não seja numérico e, de seguida, clicar no botão, o programa dá erro. O que queria fazer é que, quando a pessoa digitasse uma letra ou outro dígito não numérico, o meu programa apresentasse uma mensagem numa Label a dizer "Quantia inválida!". Para além disso, queria que o programa aceitasse valores décimais com pontos e não somente com vírgulas. Não estou a conseguir fazer nada disso e já procurei na Internet, mas não estou a achar exatamente o que eu quero. Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click Dim trocoA, trocoC, quantia, trocoB, trocoS, preçoA, preçoC, preçoB, preçoS As Decimal preçoA = 0.2 preçoC = 1.0 preçoB = 0.8 preçoS = 0.9 trocoA = quantia - preçoA trocoC = quantia - preçoC trocoB = quantia - preçoB trocoS = quantia - preçoS If Label1.Text = "Produto: Água 500 ml" & vbNewLine & "Preço: 0.20€" And quantia >= preçoA Then Label1.Text = "Produto: Água 500 ml" & vbNewLine & "Valor a pagar: 0.20€" & vbNewLine & "Valor inserido:" & quantia & "€" & vbNewLine & "Troco:" & trocoA & "€" & vbNewLine & "Compra efetuada com sucesso!" ElseIf Label1.Text = "Produto: Água 500 ml" & vbNewLine & "Preço: 0.20€" And quantia < preçoA Then Label1.Text = "Quantia insuficiente!" ElseIf Label1.Text = "Produto: Chocolate" & vbNewLine & "Preço: 1.00€" And quantia >= preçoC Then Label1.Text = "Produto: Chocolate" & vbNewLine & "Valor a pagar: 1.00€" & vbNewLine & "Valor inserido:" & quantia & "€" & vbNewLine & "Troco:" & trocoC & "€" & vbNewLine & "Compra efetuada com sucesso!" ElseIf Label1.Text = "Produto: Chocolate" & vbNewLine & "Preço: 1.00€" And quantia < preçoC Then Label1.Text = "Quantia insuficiente!" ElseIf Label1.Text = "Produto: Bolachas" & vbNewLine & "Preço: 0.80€" And quantia >= preçoB Then Label1.Text = "Produto: Bolachas" & vbNewLine & "Valor a pagar: 0.80€" & vbNewLine & "Valor inserido:" & quantia & "€" & vbNewLine & "Troco:" & trocoB & "€" & vbNewLine & "Compra efetuada com sucesso!" ElseIf Label1.Text = "Produto: Bolachas" & vbNewLine & "Preço: 0.80€" And quantia < preçoB Then Label1.Text = "Quantia insuficiente!" ElseIf Label1.Text = "Produto: Sumo" & vbNewLine & "Preço: 0.90€" And quantia >= preçoS Then Label1.Text = "Produto: Sumo" & vbNewLine & "Valor a pagar: 0.90€" & vbNewLine & "Valor inserido:" & quantia & "€" & vbNewLine & "Troco:" & trocoS & "€" & vbNewLine & "Compra efetuada com sucesso!" ElseIf Label1.Text = "Produto: Sumo" & vbNewLine & "Preço: 0.90€" And quantia < preçoS Then Label1.Text = "Quantia insuficiente!" End If
  23. Boas, Novos erros após actualização SQLite. Recentemente fiz um upgrade de uma máquina para windows 10 64 bits, actualizei a dll do sqlite para a versão 1.0.113.0 mas só tem surgido problemas. Para adicionar um novo registo tinha a seguinte rotina: If existe() = False Then strSQL = "INSERT INTO clientes (id,nome,morada1,morada2,codpostal,local,tel,movel,nif,email) " & "VALUES (@id,@nome,@morada1,@morada2,@codpostal,@local,@tel,@movel,@nif,@email)" Else strSQL = "UPDATE clientes set id=@id,nome=@nome,morada1=@morada1,morada2=@morada2,codpostal=@codpostal,local=@local,tel=@tel,movel=@movel,nif=@nif,email=@email WHERE id=@id" End If Dim cmd As New SQLiteCommand(strSQL, connection) connection.Open() With cmd.Parameters .Add("@id", SqlDbType.Int).Value = txt_numcli.Text .Add("@nome", SqlDbType.VarChar).Value = txt_nome.Text .Add("@morada1", SqlDbType.VarChar).Value = txt_morada1.Text .Add("@morada2", SqlDbType.VarChar).Value = txt_morada2.Text .Add("@codpostal", SqlDbType.VarChar).Value = txt_codpos.Text .Add("@local", SqlDbType.VarChar).Value = txt_localidade.Text .Add("@tel", SqlDbType.VarChar).Value = txt_tel.Text .Add("@movel", SqlDbType.VarChar).Value = txt_movel.Text .Add("@nif", SqlDbType.Int).Value = txt_nif.Text .Add("@email", SqlDbType.VarChar).Value = txt_email.Text End With cmd.ExecuteNonQuery() connection.Close() frm_orca_lista.txt_num_cliente.Text = txt_numcli.Text frm_pesqCliente.Close() Me.Close() Como posso resolver? Será que é a versão certa?...? Também para ler, tenho que alterar as rotinas. O que funcionava bem deixou de funcionar.
  24. Bom dia a todos, este é o meu primeiro post no Portugal a Programar, então por favor corrigem-me se algo neste post estiver errado. Como muitos sabem agora é necessários os talões saírem com um QRCode. Tentei já converter o QRCode para BMP, e mesmo assim a impressora não me imprime nenhum QRCode, ele até ignora as linhas de código de imprimir a imagem. Alguém tem solução para isto? Se tiverem para C# também serve... Agradeço imenso aqueles que me poderem ajudar. A minha impressora é uma Eurosys T9, consigo imprimir QRCode sem problema usando uma aplicação no meu telemóvel android, portanto suporta QRCodes. Muito obrigado a todos.
  25. Oi Tenho uma aplicação criada em vb .net tem corrido em várias máquinas sem problemas. Recentemente montei um novo pc com windows 10 64bits. Instalei o meu executável, mas quando faço para o executar não faz nada, nem sequer um erro. (simplesmente abre e fecha a aplicação) Já tentei o modo de compatibilidade e nada. Como resolver? Obrigado
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.