Search the Community

Bem Aja a todos Estou com um problema que não sei resolver Tenho uma aplicação feita por mim p/ meu uso pessoal de despesas e receita caseiras executado em Visual Studio 2015 que funcionava bem. Depois de desinstalar o Visual Studio 2022 (não me entendia bem com a configuração) eis que a minha aplicação deixou de funcionar bem nas rotinas de busca de dados ( Receitas; Despesas e outras) entre datas Junto codigo da rotina "Despesas" Agradeço ajuda se possivel Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim DataInicio As Date = DateTimePicker1.Value Dim DataFim As Date = DateTimePicker2.Value Dim ConnectionString As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\DespesasCaseiras\DespesasPessoaisFamiliares.mdb;") Dim Query As String = "SELECT Id,Data,Designacao,Despesa,Categoria,SubCategoria,Familiar FROM DadosActuais Where Data BETWEEN '" & DataInicio & "' AND '" & DataFim & "'AND Categoria Like '" & Trim(TextBox1.Text.ToString) & "%' AND SubCategoria Like '" & Trim(TextBox2.Text.ToString) & "%' AND Familiar Like '" & Trim(TextBox3.Text.ToString) & "%' Order By Id" Dim DataAdapter As New OleDbDataAdapter(Query, ConnectionString) Dim MyData As New DataSet DataAdapter.Fill(MyData, "DadosActuais") ' Neste caso utilizei uma datagridview para visualizar os dados Me.DataGridView1.DataSource = MyData.Tables("DadosActuais") Me.DataGridView1.Refresh() 'Conta as linhas da Grid e coloca na Label Label1.Text = Nothing Label1.Text = "Este Filtro encontrou - " & Me.DataGridView1.RowCount - 1 & " Registos" Button2.Enabled = True 'Button1.Enabled = False Call ControlaGrid() Call SomarColunas() End Sub

Olá, pessoal! Sou novato e do Brasil e é uma honra estar aqui com vocês. Estou tentando fazer com meu uma um arquivo ".mp3" seja reproduzido ao mesmo abrir o meu aplicativo Sendo que já está configurado no Windows como "Padrão" e coloquei até o código abaixo, o arquivo abre o aplicativo como teria que ser, pois é padrão mas o aplicativo não reproduz. Fico grato desde já pelas respostas. Aqui está o Código: ' Associação à definir no Registro Dim file_MP3 As String = ".mp3" ' extensão selecionada Dim appName As String = ProductName ' Nome do seu aplicativo ' Criar a chave no Registro para a associação de arquivo Dim NameKey As String = "Software\Classes\{file_MP3}" Dim key As RegistryKey = Registry.CurrentUser.CreateSubKey(NameKey) key.SetValue("", appName) ' Definir o nome do aplicativo como padrão para este tipo de arquivo key.Close() ' Criar a subchave para o nome do aplicativo key = Registry.CurrentUser.CreateSubKey("Software\Classes\{appName}\shell\open\command") key.SetValue("", Application.ExecutablePath & " %1") key.Close()

Olá boa noite: desenvolvi um pequeno programa em vb 2019, para preencher os cheques da empresa imprime o primeiro cheque ai quando vou imprimir o 2 não atualiza.ai tenho que deletar o primeiro para imprimir o segundo, conclusão fico sem os dados salvos no banco de dados do acesses, gostaria se alguém pode-se ajudar , pois sou um entusiasta em programação mas infelizmente em minha cidade não tem escola de vb, vou aprendendo algumas coisas na internet e também aqui no Portugal a Programar , desde já obrigado.

estou a seguir o seguinte tutorial: https://www.youtube.com/watch?v=pdFqfOTmd60 na tela do vídeo ele tem tudo alinhado e usando o flex:1 se eu uso flex 1 tudo que esta na tela, fica fora das bordas segue logo abaixo o meu código: import React, { useState, useEffect } from 'react'; import { View, Text, Image, TextInput, TouchableOpacity, StyleSheet, KeyboardAvoidingView, Animated } from 'react-native'; import { StatusBar } from 'react-native'; export default function App() { const [offset] = useState(new Animated.ValueXY({ x: 0, y: 80 })) useEffect(() => { Animated.spring(offset.y, { toValue: 0, speed: 4, bounciness: 30, useNativeDriver: true, }).start(); }, []); return ( <KeyboardAvoidingView style={styles.background}> <StatusBar hidden={true} translucent={false} networkActivityIndicatorVisible={true} /> <View style={styles.containerLogo}> <Image source={require('./images/logo1.png')} /> </View> <Animated.View style={[styles.container, { transform: [{ translateY: offset.y }] }]}> <TextInput style={styles.imput} placeholder="Email" autoCorrect={false} onChangeText={() => { }} /> <TextInput style={styles.imput} placeholder="Senha" autoCorrect={false} onChangeText={() => { }} /> <TouchableOpacity style={styles.btnSubmit}> <Text style={styles.submitText} >Entrar</Text> </TouchableOpacity> <TouchableOpacity style={styles.btnRegister}> <Text style={styles.RegisterText} >Criar Conta</Text> </TouchableOpacity> </Animated.View> </KeyboardAvoidingView> ); } const styles = StyleSheet.create({ background: { backgroundColor: 'black', alignItems: 'center', justifyContent: 'center', backgroundColor: '#191919' }, containerLogo: { justifyContent: 'center', alignItems: 'center', }, container: { paddingBottom: 50, alignItems: 'center', justifyContent: 'center', width: '90%', }, imput: { backgroundColor: '#FFF', width: '90%', marginBottom: 15, color: '#222', fontSize: 17, borderRadius: 7, padding: 10 }, btnSubmit: { color: 'blue', width: '90%', height: 45, alignItems: 'center', justifyContent: 'center', borderRadius: 7, }, submitText: { color: '#FFF', fontSize: 18 }, btnRegister: { marginTop: 10, }, RegisterText: { color: 'white' } }); esqueci de avisar que se eu tirar o flex 1,consigo ver somente metade da tela

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.

Olá. Quero colocar uma imagem de fundo num programa que estou a fazer, para isto criei uma textura. No entanto estou a ter os seguintes problemas: a textura está a aparecer com uns tons azulados, já tentei mudar os vértices que correspondem às cores mas só fica pior. E outro problema: não estou a conseguir com que ocupe a janela toda: caso coloque o 3ºvértice (z) a -1 fica a ocupar a janela toda mas fica à frente dos outros objetos, o que não é suposto, aliás a partir de -5 fica à frente dos mesmos, só -6 ou valores inferiores fazem com que não se sobreponha em relação aos objetos (tornando a imagem mais pequena). float vertices[] = { -1.0f, -1.0f, -6.0f, 0.0f, 0.0f, 0.00f, 0.0f, 1.0f, 0.0f, 1.0f, -1.0f, -6.0f, 1.0f, 0.0f, 0.00f, 0.0f, 1.0f, 0.0f, 1.0f, 1.0f, -6.0f, 1.0f, 1.0f, 0.00f, 0.0f, 1.0f, 0.0f, 1.0f, 1.0f, -6.0f, 1.0f, 1.0f, 0.00f, 0.0f, 1.0f, 0.0f, -1.0f, 1.0f, -6.0f, 0.0f, 1.0f, 0.00f, 0.0f, 1.0f, 0.0f, -1.0f, -1.0f, -6.0f, 0.0f, 0.0f, 0.00f, 0.0f, 1.0f, 0.0f}; Estive a pesquisar sobre a transparência duma textura, e supostamente teria que usar a função que já está declarada no código: glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); No while do main: glActiveTexture(GL_TEXTURE0); glBindTexture(GL_TEXTURE_2D, texture1); ourShader.use(); glm::mat4 model = glm::mat4(1.0f); glm::mat4 view = glm::mat4(1.0f); glm::mat4 projection = glm::mat4(1.0f); projection = glm::perspective(glm::radians(45.0f), (float) SCR_WIDTH / (float) SCR_HEIGHT, 0.1f, 100.0f); unsigned int modelLoc = glGetUniformLocation(ourShader.ID, "model"); unsigned int viewLoc = glGetUniformLocation(ourShader.ID, "view"); glUniformMatrix4fv(modelLoc, 1, GL_FALSE, glm::value_ptr(model)); glUniformMatrix4fv(viewLoc, 1, GL_FALSE, &view[0][0]); ourShader.setMat4("projection", projection); glBindVertexArray(VAO); glDrawArrays(GL_TRIANGLES, 0, 6); Finalmente para se ter uma ideia do que está a acontecer: imagem que não consigo pôr aqui

Olá, Estou com o seguinte problema: num programa do Visual Studio em que uso c++, tenho algumas figuras que constituem uma casa como o telhado, a porta, a janela. Sendo que faço cada um deste elementos deslocar-se para um sítio, como está no código seguinte (aqui está o exemplo da porta, o da janela terá uma deslocação para um sítio diferente, já o telhado e as paredes ficam no mesmo sítio) que funciona bem: glm::mat4 mvp = glm::ortho(-40.0f, 40.0f, -40.0f, 40.0f); unsigned int matrix = glGetUniformLocation(programID, "mvp"); glUniformMatrix4fv(matrix, 1, GL_FALSE, &mvp[0][0]); glm::mat4 trans; trans = glm::translate(glm::mat4(1.0), glm::vec3(delta, delta, 0.0f)); //direção da deslocação (se puser -delta vai na direção contrária unsigned int m = glGetUniformLocation(programID, "trans"); glUniformMatrix4fv(m, 1, GL_FALSE, &trans[0][0]); Acontece que gostava que cada elemento que se desloca também rodasse sobre si próprio, ou seja fizesse uma rotação, o código que pus a seguir ao de cima não está a ter efeito, e não estou a conseguir resolver o assunto: glm:mat4 rot = glm::mat4(1.0f); rot = glm::rotate(rot, glm::radians(0.0f), glm::vec3(0.0f, 0.0f, 1.0f)); GLint r = glGetUniformLocation(programID, "rot"); glUniformMatrix4fv(r, 1, GL_FALSE, &rot[0][0]); Será que me podiam ajudar?

Boa tarde, Comecei a aprender a programar à relativamente pouco tempo e gostaria de criar um simulador de euromilhões. Vi alguns tutoriais e consegui colocar a funcionar perfeitamente a gerar uma chave com 5 números diferentes e 2 estrelas diferentes. No entanto, eu fiz no visual studio 2019, gostaria de saber se é possível adicionar o efeito que vou deixar para ver no site abaixo e se sim se possível me ajudarem com o código: https://www.euro-millions.com/pt/gerador-aleatorio-de-numeros Os números e as estrelas eu já consegui fazer e está funcional porém gostava daquele efeito visual nos números quando clicamos em gerar. ( o efeito dos numeros a girar ) Alguém me consegue ajudar?

Pessoal, preciso obter o status de windows defender(on/off), mas não sei como fazer isso com o vb.net, Estou usando esse código, mas não é exatamente como eu quero. Vocês podem me ajudar com algo mais simples? Dim av_searcher As New ManagementObjectSearcher("root\SecurityCenter2", "SELECT * FROM AntivirusProduct") For Each info As ManagementObject In av_searcher.Get() MsgBox(info.Properties("displayName").Value.ToString()) Dim AvStatus = Hex(info.Properties("ProductState").Value.ToString()) If Mid(AvStatus, 2, 2) = "10" Or Mid(AvStatus, 2, 2) = "11" Then MsgBox("AntiVirus enabled") ElseIf Mid(AvStatus, 2, 2) = "00" Or Mid(AvStatus, 2, 2) = "01" Then MsgBox("AntiVirus disabled") End If Next info

Pessoal, eu preciso colocar meu programa para iniciar junto com o windows, mas meu programa tem um arquivo de configuração (app.config), como eu faço? agradeço desde já.

Boas. Tenho uma base de dados em oracle e queria saber se é possivel utilizar o Oracle PL/SQL para consultar e tratar esses dados e em seguida com recurso ao visual studio exibir os dados tratados. Obrigado, Abraço. Afonso Mira.

Boas estou com alguns problemas a mexer com sql pois é a primeira vez que mexo. Já tenho o código para inserir os dados na listbox e o código para adicionar novos dados a base de dados. Mas não estou a conseguir fazer um código para eliminar esses dados. O que eu pretendia fazer era criar 2 botões para movimentar de um registo para outro e com o botão eliminar apagar o registo que eu iria selecionar na listbox. Se alguem me conseguir ajudar fico muito agradecido. Aqui fica o meu código atual: (Obs: Se tiver algo mal no código por favor informar obrigado 🙂) Imports System.Data.SqlClient Public Class Form1 Dim conexao As New SqlConnection() Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load conexao.ConnectionString = "Data Source = WKSACR022\ACRPROJETOS; INITIAL CATALOG = ACRBAL; USER ID = sa; PASSWORD = terena00;" End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click carregaListBox(ListBox1, "SELECT produto FROM TbProdutos") End Sub Private Sub carregaListbox(ByVal Lst As ListBox, ByVal query As String) Lst.Items.Clear() conexao.Open() Dim cmd As New SqlCommand(query, conexao) Dim db_reader As SqlDataReader = cmd.ExecuteReader(CommandBehavior.Default) Dim texto As String Dim i As Integer Do While db_reader.Read texto = db_reader.Item(0).ToString For i = 1 To db_reader.FieldCount - 1 texto &= vbTab & db_reader.Item(i).ToString Next i Lst.Items.Add(texto) Loop conexao.Close() End Sub Dim myConnectionString As String = "Data Source = WKSACR022\ACRPROJETOS; INITIAL CATALOG = ACRBAL; USER ID = sa; PASSWORD = terena00;" Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim SQL As String = "INSERT INTO TbProdutos([Produto],[Observacao]) VALUES (@produto, @observacoes)" Dim connection As New SqlConnection(myConnectionString) Dim command As New SqlCommand(SQL, connection) command.Parameters.Add("@produto", SqlDbType.NChar).Value = TxtProduto.Text command.Parameters.Add("@observacoes", SqlDbType.NChar).Value = TxtObservacoes.Text connection.Open() Dim x As Integer = command.ExecuteNonQuery() If x < 1 Then MessageBox.Show("A operação efectudada não retomou qualqer resultado.") End If connection.Close() connection = Nothing command = Nothing End Sub End Class

Boas. (Primeira vez que faço um relatório) Tenho uma aplicação já feita em linguagem vb.net de registo de pesagens para a empresa onde estou a estagiar. Está tudo a funcionar, o problema é que eles querem imprimir esses registo. O crystal report não funciona pois dá me erros e então decidi fazer pelo report que já vem com o vs10. Até aqui tudo bem fiz tudo direitinho como vi em alguns tutoriais e em fóruns, como aqui no P@P e no Macorrati. O problema é o seguinte: Ele faz me o relatório de todas as pesagens registadas e eu queria apenas de uma só pesagem, com a opção do utilizador escolher qual pesagem registada deseja imprimir. Alguém tem uma ideia de como poderei fazer este relatório. Obrigado 🙂

Boas estou com um pequeno problema no meu projeto. Tenho a seguinte tabela : TbProduto com os campos IdProduto, Produto e Observações. Quando faço add new o IdProduto fica a -1 Tenho esse campo como preenchimento automático e mesmo assim nada. Quando fecho o form e volto a abrir esse número passa para 1, mas ao adicionar outro produto novo o Id volta a ser -1. Algúem consegue ajudar? Obrigado.

Tenho um form onde insiro os dados na base de dados e outro form onde visualizo. Nesse que visualizo os dados, gostava de poder carregar em um dos dados e que depois abrisse um novo form. Exemplo: | Referências | |-------------------------| |PRVT DO 20 0750| |-------------------------| |PRVT DO 20 0350| Ao Carregar em "PRVT DO 20 0750" na tabela este abriria outro form com os componentes dessa mesma referencia. Se alguém souber de alguma forma de o fazer agradecia a ajuda. Obrigado. Afonso Mira😄

Existe alguma maneira de Arredondar os botões padrões do Visual Basic? O meu projeto está com os botões padrões mas gostaria de embelezar o projeto e arrendondar as bordas/cantos dos botões, se alguém tiver uma solução que responda. Obrigado, Afonso Mira

Pessoal, como eu faço pra checar quais versões do .Net Framework estão instalados no windows?

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á.

Boa tarde! Tenho de fazer um trabalho para programação que consiste em construir uma máquina de vendas. O enunciado é o seguinte : Elabore um programa em Visual Basic que simule duas “Máquinas Vending” (uma com produtos à sua escolha e outra com cafés), com mostra de produtos a vender e respetivos preços. Na máquina de cafés deve escolher as opções iniciais (como por exemplo, com ou sem açúcar, curto ou longo, ou outras à sua escolha). Após a seleção do produto desejado, tem que se introduzir uma quantia em moedas suficientes para a compra do produto, depois a máquina fornece o produto e o respetivo troco, contemplando a possibilidade da quantia introduzida ser inferior ao custo do produto. Alguém me pode ajudar ? Ou dizer onde posso encontrar um sitio para poder ver as linhas de código deste exercício ? Obrigado!

Boa tarde, Estou a desenvolver uma aplicação em vb.net para windows mobile no Visual Studio 2008. Quando tento fazer o deploy para o PDA, a primeira vez corre bem, depois disso aparece-me sempre a mensagem de erro "O Servidor de RPC não está disponivel". A única maneira de contornar o problema e reiniciar o VS o que se torna chato uma vez que preciso de fazer vários deploys ao longo do dia enquanto testo a aplicação. Alguma ideia sobre o que poderá estar a causar o problema?

Bom dia, Pessoal estou a precisar de uma grande ajuda e urgentemente. Estou a desenvolver um projeto final para a cadeira de programação de primeiro ano para universidade, e entao proposme a fazer um programa para gerir uma loja, com várias opçoes. Uma dessas opçoes era poder adicionar produtos, o interface está concluido, a base de dados criada e o progrma feito mas nao dá para gravar os dados que o utlizador insere, dentro da base de dados. O programa está aqui neste link para downoload (foi feito em visual studio 2017, com a linguaguem python) : https://www.dropbox.com/s/u09nqnxve0ru2wl/Gestao_de_lojas-Adicionar_Produtos(erro-introduzirprodutos_fianl).zip?dl=0 Agradecia muito a ajuda

Olá! Queria pedir uma ajuda e é super importante e urgente... Imaginemos que o usuário clica na picturebox estando uma imagem incialmente e mudar para uma imagem diferente ao clicar, como se faz? Sou nova neste programa!

Bom dia, tudo bem com vocês espero. Estou com um erro e após pesquisar e tentar algumas soluções achadas através do google, estou igual, ou seja desenvolvimento = 0 o erro é o seguinte: O erro é: Não foi possível carregar o ficheiro ou assemblagem 'Interop.MSDATASRC, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null' ou uma das respectivas dependências. O sistema não conseguiu localizar o ficheiro especificado. Já verifiquei a versão, neste momento tenho que trabalhar x86(este também era um erro ja resolvido) As bibliotecas estão correctas.O caminho está correcto, O app.config está certo, inclusive o que me faz mais confusão e que não tem lógica nenhuma é eu ter um projecto bastante similar com as mesmas configurações e esse não dá erro nenhum quando vai ler neste caso : Me.MainForm = Global.exemplo_CorrDocSConta.fCorrigeDoc Alguma orientação seria muito bem vinda. Obrigada

Boas. Sou bastante noob nestas andanças e estava a fazer uns teste em C# e Visual Studio e deparei-me com um problema ao carregar os dados do mySql para uma combobox. Se Carregar normalmente, como já vi em vários locais tudo corre bem, mas precisava de ter uma primeira opção com o item - Novo -. Aqui começaram os problemas. Se crio primeiro esse item e depois mando carregar com os dados da datatable o item desaparece. Tentei iterar sobre as linhas da data table mas apenas aparecia a informação sobre o campo onde estavam armazenados os dados e não os dados em si. Tive que iterar novamente sobre cada elemento em cada linha e escrever apenas o que precisava (estava na posição 1 do array). Está a funcionar correctamente mas parece-me que deve haver uma maneira mais compacta de resolver o problema. Deixo aqui o código para alguém com mais experiência me possa indicar uma solução mais refinada e correcta. Desde já muito obrigado. ConexaoMySQL.Ligar(); string inserir = "SELECT * FROM cidade "; ConexaoMySQL.comandos(inserir); MySqlDataReader dr = ConexaoMySQL.comando.ExecuteReader(); DataTable dt = new DataTable(); dt.Load(dr); cmbAtletaCidade.Items.Insert(0, "- Novo -"); foreach (DataRow dado in dt.Rows) { item = dado.ItemArray; cmbAtletaCidade.Items.Add(item[1]); } ConexaoMySQL.Desligar();