Search the Community

Showing results for tags 'vb.net'.

  • 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
    • Acerca do P@P
  • 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 288 results

  1. Olá, estou com um impasse como posso/devo realizar de maneira correta a verificação de que se um usuário já estiver cadastrado no db eu não conseguir cadastrar outro meu code para registrar: como posso adptar? Private Sub kRegistraUsuario() Using con As OleDbConnection = GetConection() Try con.Open() Dim sql As String = "INSERT INTO tbl_Kan (Usuario,Senha,Perfil) VALUES (?,?,?)" Dim cmd As OleDbCommand = New OleDbCommand(sql, con) cmd.Parameters.Add(New OleDb.OleDbParameter("@Usuario", txbUsuario.Text)) cmd.Parameters.Add(New OleDb.OleDbParameter("@Senha", txbSenha.Text)) cmd.Parameters.Add(New OleDb.OleDbParameter("@Perfil", cmbPerfil.Text)) cmd.ExecuteNonQuery() MsgBox("Usuário cadastrado no sistema com sucesso!", MsgBoxStyle.Information, "Informativo") Catch ex As Exception MsgBox(ex.Message) Finally con.Close() End Try End Using End Sub Agradeço desde já! att 'A.J
  2. Boas alguém me consegue ajudar como a apagar dados de um FTP de um tipo por exemplo *.zip com uma data por exemplo superior a 5 dias. Outro ponto também preciso de fazer download de um ficheiro mas isso eu penso que seja fácil fazer e a enciclopedia google deve ter alguns exemplos, mas queria descompacta lo por exemplo e msm substituindo ficheiros se eles forem iguais
  3. Boas! Estou usando o Microsoft Windows Image Acquisition Library v2.0 (WIA) para digitalizar imagens. Porém, cada imagem está ficando com 25mb em média (jpg, bmp, png, gif ou tiff da na mesma). A ideia é converter para PDF após a digitalização; mesmo assim, o arquivo PDF está ficando com 8mb em média. Pensei então em diminuir a resolução da imagem digitalizada, mas estou encontrando dificuldade para lidar com essa propriedade. Alguém pode ajudar? Ou sugerir alguma outra forma de obter imagens menores em MB? Obrigado. Código da Class usada. Imports WIA Public Class class_cp_Scanner Private ReadOnly _deviceInfo As DeviceInfo Public Sub New(deviceInfo As DeviceInfo) Me._deviceInfo = deviceInfo End Sub Public Function Scan() As ImageFile ' Connect to the device Dim device = Me._deviceInfo.Connect() 'define dialogo para telas de scan (para scan com barra de progresso) Dim dialog = New WIA.CommonDialogClass() ' Start the scan Dim item = device.Items(1) 'scan sem barra de progresso ''''Dim imageFile = DirectCast(item.Transfer(FormatID.wiaFormatJPEG), ImageFile) AdjustScannerSettings(item, 300, 0, 0, 1010, 620, 0, 0) 'scan com barra de progresso Dim imageFile = TryCast(dialog.ShowTransfer(item, WIA.FormatID.wiaFormatJPEG), WIA.ImageFile) ' Return the imageFile Return imageFile End Function Public Overrides Function ToString() As String Return Me._deviceInfo.Properties("Name").Value.ToString ' get_Value().ToString() End Function Public Sub SetWIAProperty(properties As IProperties, propName As Object, propValue As Object) Dim prop As [Property] = properties.get_Item(propName) prop.set_Value(propValue) End Sub Public Sub AdjustScannerSettings(scannnerItem As IItem, scanResolutionDPI As Integer, scanStartLeftPixel As Integer, scanStartTopPixel As Integer, scanWidthPixels As Integer, scanHeightPixels As Integer, _ brightnessPercents As Integer, contrastPercents As Integer) Const WIA_HORIZONTAL_SCAN_RESOLUTION_DPI As String = "6147" Const WIA_VERTICAL_SCAN_RESOLUTION_DPI As String = "6148" Const WIA_HORIZONTAL_SCAN_START_PIXEL As String = "6149" Const WIA_VERTICAL_SCAN_START_PIXEL As String = "6150" Const WIA_HORIZONTAL_SCAN_SIZE_PIXELS As String = "6151" Const WIA_VERTICAL_SCAN_SIZE_PIXELS As String = "6152" Const WIA_SCAN_BRIGHTNESS_PERCENTS As String = "6154" Const WIA_SCAN_CONTRAST_PERCENTS As String = "6155" SetWIAProperty(scannnerItem.Properties, WIA_HORIZONTAL_SCAN_RESOLUTION_DPI, scanResolutionDPI) SetWIAProperty(scannnerItem.Properties, WIA_VERTICAL_SCAN_RESOLUTION_DPI, scanResolutionDPI) SetWIAProperty(scannnerItem.Properties, WIA_HORIZONTAL_SCAN_START_PIXEL, scanStartLeftPixel) SetWIAProperty(scannnerItem.Properties, WIA_VERTICAL_SCAN_START_PIXEL, scanStartTopPixel) SetWIAProperty(scannnerItem.Properties, WIA_HORIZONTAL_SCAN_SIZE_PIXELS, scanWidthPixels) SetWIAProperty(scannnerItem.Properties, WIA_VERTICAL_SCAN_SIZE_PIXELS, scanHeightPixels) SetWIAProperty(scannnerItem.Properties, WIA_SCAN_BRIGHTNESS_PERCENTS, brightnessPercents) SetWIAProperty(scannnerItem.Properties, WIA_SCAN_CONTRAST_PERCENTS, contrastPercents) End Sub End Class Erro obtido na linha: AdjustScannerSettings(item, 300, 0, 0, 1010, 620, 0, 0) An unhandled exception of type 'System.MissingMemberException' occurred in Microsoft.VisualBasic.dll Additional information: Public member 'get_Item' on type 'PropertiesClass' not found. Referência: http://www.nakov.com/blog/2009/11/17/playing-with-the-scanner-with-wia-and-c/ Usando: VB.NET 2013
  4. Olá , boa noite . estou precisando de ajuda... Eu queria colocar um atalho para apertar o botão do formulário quando ele estive-se minizimado. obrigado pela atenção !
  5. Ola pessoal , preciso de uma ajuda , nao sei quase nada de vb.net. Eu quero cria um programa em que tenha um arquivo dentro dele , e quando um processo do computador iniciar esse arquivo que esta dentro do programa ser exportado para uma determinada pasta , e quando o processo for fechado o arquivo que foi exportado se auto delete. Supondo que o nome do processo fosse : processo1.exe O nome do arquivo : crash.ini Diretorio da pasta : uma pasta aberta pelo openfilediog.
  6. 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
  7. Olá a todos, existe um método replace para imagens? Exemplo: texto = texto.Replace("<foto>", PictureBox1.Image) Deixando claro que esse método não funciona, pois "<foto>" é uma string e "PictureBox1.Image" é um objeto, esse é um exemplo, tem algum método de fazer essa substituição? Código completo: Dim texto As String Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click texto = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\modelo.rtf") texto = fileReader.Replace("<nome>", TextBox1.Text) 'texto = texto.Replace("<foto>", PictureBox1.Image) - Não funciona SaveFileDialog1.ShowDialog() End Sub
  8. Olá, eu estou tentando editar um arquivo .RTF via vb.net, utilizo ele como modelo pra não precisar usar nenhum tipo de relatório, assim eu o abro toda vez, substituo as informações necessárias e salvo uma cópia. Estou usando o seguinte: 'Abrir Dim fileReader As String fileReader = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\modelo.rtf") fileReader = fileReader.Replace("<nome_da_pessoa>", TextBox1.Text) 'Salvar Dim StreamW As New IO.StreamWriter(SaveFileDialog1.FileName, True, System.Text.Encoding.Default) StreamW.Write(fileReader) StreamW.Close() Tudo certo até aí, mas agora gostaria de substituir a string "foto_da_pessoa" por uma imagem e salvar essa imagem no arquivo RTF, como posso fazer isso de uma maneira bem simplificada? Obrigado
  9. Olá, estou a fazer a quinta versão do meu programa "Facebook Auto-Post". Como é um programa que trabalha com WebBrowser tenho de dar algum tempo para o programa processar informações. Já experimentei com o "sleep", porém, este para a execução do programa. Antes utilizava os timers mas confundia muito na hora de programar. Bem, espero que tenham percebido e se puderem ajudem!
  10. Boas, Estou com dificuldade em acertar o fuso horário para uma aplicação que tenho que fazer para correr em PDA (.net compact framework). Eu quero meter o fuso horário de lisboa mas por alguma razão é-me colocado o fuso de Monróvia (a Hora é igual mas é uma timezone diferente) O meu código é este (Estou a usar a class de Opennet): Dim TZC As New TimeZoneCollection TZC.Initialize(0) For Each tzi As TimeZoneInformation In TZC If tzi.StandardName = "GMT Standard Time" Then Application.DoEvents() DateTimeHelper.SetTimeZoneInformation(tzi) Exit For End If Quando imprimo em messagebox a variavel tzi ela surge com o fuso de Londres, Lisboa mas coloca com o de Monrovia Alguma ideia? Obrigado!
  11. 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)
  12. Bom, tenho a seguinte situação: Em BackgroundWorker1_DoWork coloquei For i = 0 To lista.Items.Count - 1 , cada item percorrido nessa lista eu adiciono 1 a uma contagem. Dentro do FOR tenho o seguinte código If contagem.text = 5 then Timer1.Start() 'esse timer, é apenas para fazer contagem regressiva para voltar a percorrer a lista else contagem = contagem +1 Enf If Minha intenção é a seguinte, percorrer 5 itens, pausar um tempo de acordo com o timer, e voltar a percorrer a partir de onde parou, o problema aqui é que o IF está dentro do FOR, então quando chega a 5 ele pára, inicia o timer, mas não reinicia de onde parou, inicia tudo novamente a partir do primeiro item da lista. Gostaria de ajuda, uma solução para eu poder "Pausar" o BackgroundWorker, ou "Lembrar" onde parou na lista. Já tentei salvar o valor index do FOR, mas ele salva o último item sempre, não aquele que parou. Alguma solução?
  13. Olá, eu gostava de saber como acessar uma pasta que está no diretório da aplicação Ex.: A pasta dados está dentro da pasta aplicação que contém o executável, e nessa pasta (dados) há um ficheiro que pretendo abrir. Já agora obrigado
  14. Boas pessoal. Tenho uma dúvida. Eu tenho uma dúvida. Imagem que eu tenho esta página de programa: Quando eu requisito por exemplo o livro "Razvan" (o que está a azul), eu quero que ele desapareça dessa tabela. Como é que eu posso fazer isso? Obrigado!
  15. Boa noite, tenho uma ListView com a coluna "usuarios", vou percorrer uma lista de usuários, e preciso conferir quantas vezes o nome de cada um aparece na coluna "usuarios" da listview. Me parece simples, mas não estou recordando da solução, se alguém puder me refrescar a memória, agradeço.
  16. Boas pessoal. Eu estou com um grande problema. Quero criar um programa de gestão de uma biblioteca, e agora estou na parte em que quero requisitar um livro. Já criei uma base de dados para alunos *aqueles que requisitam*, e para os livros *os que são requisitados*. Agora estou completamente perdido e não sei como fazer para requisitar um livro. O que aconselham fazer? Não precisa de ser grande dica, apenas um buraco p/ começar a pensar. Provavelmente até é fácil, mas estou perdido. Obrigado!
  17. Boa noite, Preciso de uma ajudinha, tenho um erro no meu programa, O Programa consiste em mostrar o estado da bateria do meu PC. O código que estou a usar é este, e funciona bem: // Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Dim ESTADO As Type = GetType(PowerStatus) Dim PROPIEDADES As PropertyInfo() = ESTADO.GetProperties Dim CARGA As PropertyInfo = PROPIEDADES(3) Dim VALOR As Object = CARGA.GetValue(SystemInformation.PowerStatus, Nothing) Label1.Text = (VALOR * 100) & " %" ProgressBar1.Value = VALOR * 100 Dim CONECTADO As PropertyInfo = PROPIEDADES(0) Dim CONEXION As Object = CONECTADO.GetValue(SystemInformation.PowerStatus, Nothing) If CONEXION = 1 Then PictureBox4.Visible = True SendMessage(ProgressBar1.Handle, 1040, 3, 0) Else PictureBox4.Visible = False SendMessage(ProgressBar1.Handle, 1040, 1, 0) End If Dim TIEMPO As PropertyInfo = PROPIEDADES(4) Dim SEGUNDOS As Object = TIEMPO.GetValue(SystemInformation.PowerStatus, Nothing) End Sub Agora adicionei o código seguinte é que dá o erro (imagem em baixo),queria quando a bateria tivesse nos 10% ( Label1 = 10 ) mostra-se uma MsgBox. // Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick If Label1.Text = 10 Then '----> erro aqui MessageBox.Show("Bateria Fraca,Ligue o Tablet à corrente.") End If End Sub Obrigado
  18. Olá pessoal! Gostaria de saber como criptografar compôs do tipo integer, date, binário ou seja Campos que não são texto é possível fazer isso? A minha ideia é criptografar todos os campos da tabela seja texto ou integer. Não tenho a certeza se é boa ideia porque depois vou querercriar relação entre tabela. Toda ajuda seria útil.
  19. bom gente, eu to usando um comando shell para abrir um arquivo Shell("CMD.EXE /c D: & cd pathcompleto\doarquivo & start arquivo.exe & pause") eu queria o seguinte, criar um arquivo txt, ou de preferencia ini, e tivesse as seguintes definições disco = D: path = pasta/doarquivo e conseguisse colocar no comando shell e enviar a informação das definições para o mesmo Shell("CMD.EXE /c "e outra aqui" & cd "variavel aqui" & start arquivo.exe & pause")
  20. Boa Tarde, Precisava de uma ajuda num erro que não estou a conseguir resolver. O programa consiste em um Trial Demo para um programa. No programa inicial tem o numero de dias na fonte para o programa expirar, agora queria colocar o numero de dias no ficheiro TXT, para isso fiz as seguintes alterações no seguinte código: // Public Class cTrial Private m_DaysUsed As Integer = 0 'Private m_MaxDays As Integer = 8 ---> Código original Private m_MaxDays As String() = System.IO.File.ReadAllLines( "d:\teste.txt") Private m_Ended As Boolean = False Private m_Filename As String = vbNullString Public ReadOnly Property DaysUsed As Integer Get 'Return number of days used. Return m_DaysUsed End Get End Property Public ReadOnly Property DaysLeft As Integer Get 'Return number of days left. Return (MaxDays - m_DaysUsed) End Get End Property Public Property Filename As String Get Return m_Filename End Get Set(ByVal value As String) 'Set filename. m_Filename = value 'Check if trial file is found. If Not File.Exists(Filename) Then 'Create trial file. If Not UpdateFile(Now.Date.AddDays(MaxDays), 0) Then Throw New FileNotFoundException Exit Property End If End If 'Check the date. CheckDate(Now.Date) End Set End Property Public ReadOnly Property HasEnded As Boolean Get Return m_Ended End Get End Property Public Property MaxDays As String Get Return m_MaxDays '---> Erro aqui (Error BC30311 Value of type 'String()' cannot be converted to 'String') End Get Set(ByVal value As String) 'm_MaxDays = value---> Código original m_MaxDays = System.IO.File.ReadAllLines(tdayscont) End Set End Property Private Sub CheckDate(ByVal Date1 As DateTime) Dim sr As StreamReader = Nothing Dim Date2 As DateTime = Nothing Dim Flag As Integer = 0 Dim Tmp As String = vbNullString Try sr = New StreamReader(Filename) 'Read in file contents. Tmp = XorString(sr.ReadToEnd()) 'Close file. sr.Close() 'Read trial flag. Flag = Integer.Parse(Tmp(0)) 'Read date. Date2 = Tmp.Substring(1) 'Check if trial finished. If (Flag <> 0) Then m_DaysUsed = MaxDays m_Ended = True Else 'Return number of days used. m_DaysUsed = MaxDays - DateDiff("d", Date1, Date2) + 1 'Check if in range. m_Ended = (DaysUsed <= 0) Or (DaysUsed > MaxDays) End If Catch ex As Exception m_DaysUsed = MaxDays m_Ended = True End Try If HasEnded Then m_DaysUsed = MaxDays 'Add date and trial end flag. UpdateFile(Date2, 1) End If End Sub Private Function UpdateFile(ByVal EndDate As DateTime, ByVal Flag As Integer) As Boolean Dim sw As StreamWriter = Nothing 'File Format() Is as follows flag, Date 'Flag 0 = still in trial 'Flag 1 = trial has ended. Try sw = New StreamWriter(Filename) 'Write date and trial flag. sw.Write(XorString(Flag & EndDate.Date)) 'Close file. sw.Close() Catch ex As Exception Return False End Try Return True End Function Private Function XorString(ByVal source As String) As String Dim sb As New System.Text.StringBuilder() Rnd(-1) 'Set Random seed. Randomize(1830) For Each c As Char In source 'Encrypt bye Dim b As Byte = Asc(c) Xor Int(Rnd() * 256) Mod 255 'Append char to stringbuilder. sb.Append(Chr(b)) Next c 'Return string Return sb.ToString() End Function End Class Obrigado
  21. Boa noite a todo pessoal, agradeço imenso que me pode-se ajudar nesta questão. Eu gostaria de criptografar todos os campos no banco de dados sql server por exemplo Registo é campo integer Nome é campo nvachar E data é campo datetime Como posso criptografar dados de Campos datetime e integer? Ou seja todos os campo que não sejam do tipo text ou nvachar como os posso criptografar sem alterar para nvachar porque a ideia é criptografar todos os dados no banco de dados.
  22. Boas, como faço pra ler um xml para depois modificá-lo?
  23. Olá, eu queria saber se posso gravar texto escrito numa label (neste caso dinheiro) num ficheiro excel que está protegido por password e depois carregá-lo outra vez. Já agora, sou o neon_yt, esqueci-me da palavra-passe daqui e do meu mail antigo
  24. Boa tarde, Venho por aqui ver se há alguém aqui que me possa ajudar com este problema. Tenho um Report que só mostra a última página, apesar de ter diversas. O que faz é: 1. Mostrar o report, 2. Criar um pdf 3. enviar um email desse pdf. O que está a acontecer é que, os passos 2 e 3 faz correctamente e no final, no reportviewer, apenas mostra o último enviado (aparece página 1 de 1 no cabeçalho). Segue parte do código (onde aparece "(...)" é código que não interfere) para verem o que poderei estar a fazer de errado. (...) Dim Params(19) As Microsoft.Reporting.WinForms.ReportParameter (...) myCmd.CommandText = "SELECT * FROM Tabela " myConn.Open() myReader = myCmd.ExecuteReader() Do While myReader.Read() Params(0) = New Microsoft.Reporting.WinForms.ReportParameter("Nome", myReader.Item("NOME").ToString) (...) Params(19) = New Microsoft.Reporting.WinForms.ReportParameter("MORADA", myReader.Item("MORADA").ToString) ReportViewer1.LocalReport.SetParameters(Params) ReportViewer1.RefreshReport() (...) -> Exporta para PDF. Ok! (...) -> Envia email. Ok! Loop No final, fico com todos os PDF numa pasta previamente seleccionada, os emails são todos enviados correctamente, mas... no reportviewer fico só com o último registo. Este report não tem tabelas, é como se fosse uma carta. Se fizer um stop (uma msgbox) após o RefreshReport aparece-me o relatório respectivo, só que depois o loop vai "limpá-lo" e substituir pelo próximo em vez de acrescentar uma nova página. Desde já agradeço a v/ disponibilidade.
  25. Olá, eu quero que, ao selecionar um item na ListBox, seja somado o preço dele a uma label. (Fazer a soma já sei, é label.text += quantidade) Exemplo: O jogo custa 6EUR, e ao selecionar o jogo ele soma automaticamente os 6EUR à label. Alguém me explica?