Jump to content

Search the Community

Showing results for tags 'Visual Basic'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Q&A Desenvolvimento
    • Perguntas e respostas rápidas
  • Desenvolvimento e Banco de Dados
    • HTML e CSS
    • Java
    • Javascript
    • .NET
    • PHP
    • Python
    • Ruby
    • Mobile
    • Ambientes de Desenvolvimento
    • Arquitetura e Métodos Ágeis
    • Banco de Dados
    • DevOps
    • Desenvolvimento de Games
    • E-Commerce e Pagamentos Online
    • SEO e Otimizações
    • WordPress
    • Algoritmos & Outras Tecnologias
  • Design e Produto
    • Fotografia
    • Photoshop
    • Design de interfaces e UX
    • Edição/Produção de Vídeos
    • Marketing Online
    • Desenho, Ilustração e 3D
  • Entretenimento e uso pessoal
    • Geral
    • Segurança & Malwares
    • Gadgets e wearable
    • Softwares e Apps
    • Entretenimento

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Google+


Hangouts


Skype


Twitter


deviantART


Github


Flickr


LinkedIn


Pinterest


Facebook


Site Pessoal


Localização


Interesses

Found 21 results

  1. Robson Wenzel

    Casas decimais

    Olá, sou novo no VB Estou desenvolvendo um programa de atendimento médico onde tem vários textboxs e um deles é de Valor (R$). O meu problema é o seguinte... No meu banco de dados o campo valor é do tipo moeda e o banco é em access No meu programa no dataset configurei ele para double e por código consegui colocar automaticamente ponto e virgula. Até ai acho que tudo bem... Só que quando eu clico para salvar ele automaticamente esquece do ponto e virgula e salva no datagridview o valor sem ponto e virgula, e dai quando eu seleciono o registro ele esquece dos centavos Ex.: Eu digito na text box: R$ 1.250,00 E quando eu salvo aparece na datagridview: 1250 Quando seleciono o mesmo registro ele fica assim na textbox: R$ 12,50 Só se os centavos não forem zerados ele salva mais se forem 00 ele não salva Por favor! me ajudem. Segue o código da formula para colocar os ponto e virgula para vocês darem uma olhada e ver se tem erros... -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Public Shared Sub Moeda(ByRef txt As TextBox) Dim n As String = String.Empty Dim v As Double = 0 Try n = txt.Text.Replace(",", "").Replace(".", "") If n.Equals("") Then n = "" n = n.PadLeft(3, "0") If n.Length > 3 And n.Substring(0, 1) = "0" Then n = n.Substring(1, n.Length - 1) v = Convert.ToString(n) / 100 txt.Text = String.Format("{0:C2}", v) txt.SelectionStart = txt.Text.Length Catch ex As Exception End Try End Sub Private Sub valortxt_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles valortxt.KeyPress Select Case (valortxt.TextLength) Case 4 valortxt.SelectionStart = 5 End Select End Sub Private Sub valortxt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles valortxt.TextChanged Atendimentos.Moeda(valortxt) End Sub ------------------------------------------------------------------------------------------------------------------------------------------------------------
  2. Roberto Paes

    executar código cmd em c#

    System.Diagnostics.Process process = new System.Diagnostics.Process(); System.Diagnostics.ProcessStartInfo startInfo = new System.Diagnostics.ProcessStartInfo(); startInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden; startInfo.FileName = "cmd.exe"; startInfo.Arguments = "/C start copy " + Application.StartupPath + @"\launcher\Sanchez.Patcher.exe " + Application.StartupPath; process.StartInfo = startInfo; process.Start(); Oi pessoal, Boa noite. Me chamo Roberto e estou tendo problemas em usar o cmd com o c#. O meu código funciona perfeitamente, mas eu não consigo ocultar a janela do cmd. Bom, apresentado o meu problema. Espero que possam me ajudar.
  3. felipegon02

    Comparar horário pra marcar consulta

    Gostaria da ajuda de vocês membros, estou fazendo um projeto que é pro meu TCC utilizando o MYSQL e o Visual Basic, neste projeto queria fazer agendamento de clientes, mas para isso, queria comparar o horário selecionado pelo cliente com o banco de dados, para ver se o horário está disponível mas não sei com fazer isso. Obrigado
  4. Estou iniciando no Visual Studio (VB) estou usando um banco de dados Access interligado com vários DBF., porém não consegui que o VS montasse a edição e gravação desta o VS dá uma mensagem de que tem erro com a grafia " Private Sub DBF_11ABindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles DBF_11ABindingNavigatorSaveItem.Click Me.Validate() Me.DBF_11ABindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.DatabaseSisdespDataSet) End Sub " alguém pode me ajudar?
  5. Otacildo

    Expressão não é um método

    Estou desenvolvendo um sistema em vb.net 2010. A solução contém cinco projetos, um EXE (Principal) e quatro DLL (Cadastro, Financeiro, Jurídico e Biblioteca). A Biblioteca.dll contém uma classe Utils com funções para validar CPF, encriptar Senha e outras. Referenciei a Biblioteca.dll no projeto Principal.exe. Quando chamo fValidaCPF(txtCPF.text) do Projeto Principal.exe é apresentado um erro “Expressão não é um método”. '---------------------------------------------------------------------- 'Projeto Principal.exe '---------------------------------------------------------------------- Imports Biblioteca Imports Biblioteca.Utils Imports System.Windows.Forms Public Class Principal Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click fValidaCPF(TextBox1.Text) End Sub End Class '---------------------------------------------------------------------- 'Projeto Biblioteca.dll 'Valida CPF '---------------------------------------------------------------------- Public Function FValidaCPF(ByVal CPF As String) As Boolean Dim i, x, n1, n2 As Integer CPF = CPF.Trim For i = 0 To dadosArray.Length - 1 If CPF.Length <> 14 Or dadosArray(i).Equals(CPF) Then Return False End If Next 'remove a maskara 'If Len(CPF) > 11 Then CPF = CPF.Substring(0, 3) + CPF.Substring(4, 3) + CPF.Substring(8, 3) + CPF.Substring(12) 'End If For x = 0 To 1 n1 = 0 For i = 0 To 8 + x n1 = n1 + Val(CPF.Substring(i, 1)) * (10 + x - i) Next n2 = 11 - (n1 - (Int(n1 / 11) * 11)) If n2 = 10 Or n2 = 11 Then n2 = 0 If n2 <> Val(CPF.Substring(9 + x, 1)) Then MsgBox("O CPF informado não é válido. Verifique se digitou corretamente.", _ MsgBoxStyle.Information, "GA .Net Consultoria") Return False End If Next MsgBox("O CPF informado é válido.", _ MsgBoxStyle.Information, "GA .Net Consultoria") Return True End Function
  6. Fala galera, to com uma dúvida que tá me fazendo coçar a cabeça. Talvez seja muito simples de resolver. Eu fiz este código para que, ao selecionar uma linha na ListView1 ele adicione a palavra "PAGO" na linha selecionada na coluna "N" da planilha "DBPEDIDOS" e está funcionando certo, mas só funciona quando tenho apenas 1 linha selecionada. For i = Listview1.ListItems.Count To 1 Step -1 If Listview1.ListItems(i).Selected = True Then Dim ID As Variant ID = Listview1.ListItems.Item(i) Listview1.ListItems.Remove i Plan6.Range("A2").Select With Worksheets("DBPEDIDOS").Range("A:A") Set C = .Find(ID, LookIn:=xlValues, lookat:=xlPart) If Not C Is Nothing Then C.Activate ActiveCell.Offset(0, 13).Value = "PAGO" End If End With End If Next i O que eu quero fazer é que ele insira a palavra "PAGO" em todas as linhas caso eu selecione mais de uma na listview. Se alguém puder dar uma força agradeço demais.
  7. Boa noite pessoal,Alguém sabe a maneira de passar os parametros do banco de dados para o Crystal Reports, sem que seja necessário informar no .rpt? Algo como um .INI?Pois, quando mudo o banco de dados, por mais que sejam todas as mesmas tabela, o banco de dados muda o nome, sendo assim preciso alterar todos os rpt.VB6 + MySQL + Crystal 8.5
  8. Olá amigos! Venho aqui neste forum com o maior respeito, sou novo em desenvolvimento e estou precisando de uma grande ajuda e orientação. Como eu crio um form para cadastrar o banco de dados e o servidor para quando for instalar minha aplicação em outras estacoes de trabalho, eu tenha a opção de apontar onde o meu banco de dados está. abaixo segue um resumo do que eu fiz e o que estou passando Criei uma aplicação em VB.NET com uma strig de conexão com o meu banco de dados em SQL, que está definida no app.config <?xml version="1.0" encoding="utf-8" ?> <configuration> <configSections> </configSections> <connectionStrings> <add name="SYS_MANAGMENT_ERP.My.MySettings.BD_ERPConnectionString" connectionString="Data Source=NOTEBOOK\SQLEXPRESS;Initial Catalog=BD_GESTAO;Integrated Security=True" providerName="System.Data.SqlClient" /> </connectionStrings> <startup> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" /> </startup> </configuration> Para todos os formulários da minha aplicação criei diversas public sub para carregar os dados do banco no Datagrid, combobox, form_load da minha aplicação.... Até ai, está tudo funcionando muito bem, veja um pequeno trecho do código que está em cada form. Imports System.Data Imports System.Data.SqlClient Imports System.IO Imports MetroFramework.Forms Public Class FormCadastroClientes Dim Strcon As String = My.Settings.BD_ERPConnectionString.ToString Dim conn As SqlConnection Dim cmd As SqlCommand Dim da As SqlDataAdapter Public Sub loadData() conn = New SqlConnection(Strcon) conn.Open() Dim str As String = "SELECT IDCLIENTE AS [Id Cliente], NOMERAZAO AS [Nome do Cliente] FROM CLIENTES ORDER BY NOMERAZAO ASC" da = New SqlDataAdapter(str, conn) Dim ds As New DataSet da.Fill(ds, "CLIENTES") dgvAgenda.DataSource = ds.Tables("CLIENTES") da.Dispose() conn.Close() End Sub End Class Ao final, criei um executável da minha aplicação no visual studio no nas propriedades do meu projeto à publish à publish wizard Agora, tenho que instalar essa aplicação em todas as maquinas da empresa e fazer a conexão com o banco de dados que está em um servidor dedicado chamado “DATA_SERVER”. O Meu maior problema é, eu não sei desenvolver uma tela para definir a conexão com o banco de dados para que todas as estações possam ser configuradas o caminho para o banco de dados. Dessa forma não precisarei deixar a string de conexão com o servidor fixada no meu código, mesmo porque, fiz um teste e eu só consigo conectar apenas uma estação no banco, quando eu instalo a aplicação em outra máquina ela dá esse erro: Bom... por favor, me ajude, como eu consigo criar uma aplicação na qual eu tenho um form para definir o alias do meu banco de dados, para quando o usuário for se conectar, defina apenas uma vez o alias de conexão e tenha acesso ao sistema, tipo igual a TOTVS como o print abaixo: Então os dados da conexão já fica salva para o usuário e dessa forma eu não venho a ter problema com conexão de banco de dados, pois se também o servidor mudar, terei que gerar um novo exe pois o nome do servidor está definida na minha string de conexão. Alguém tem algum videio, tutorial que ensina passo a passo como desenvolver e deixar salvo os dados do alias ?
  9. Eu fiz utilizando o método de captar do webbrowser e passa para a listbox os dados que eu quero. Funcionou certo em algum sites de imobiliárias, onde realmente tava trazendo apenas aqueles dados. Porem quando tento usar para pegar do OLX os imoveis ele vem com muitos dados. Aqui segue o codigo html que estou tentando pegar: <div class="OLXad-details mb30px"> <div class="atributes"> <h4 class="title">Detalhes do imóvel</h4> <ul class="list square-gray"> <li class="item"> <p class="text"> <span class="term">Tipo:</span> <strong class="description">Aluguel - apartamento kitchenette</strong> </p> </li> <li class="item"> <p class="text"> <span class="term">Área útil:</span> <strong class="description">50 m²</strong> </p> </li> <li class="item"> <p class="text"> <span class="term">Quartos:</span> <strong class="description">1</strong> </p> </li> <li class="item"> <p class="text"> <span class="term">Vagas na garagem:</span> <strong class="description">1</strong> </p> </li> </ul> <div class="OLXad-features mt20px"> <p class="text"> <span>Características:</span> <ul class="OLXad-features-list"> <li>Armários embutidos</li> <li>Varanda</li> <li>Área de serviço</li> </ul> </p> </div> </div> </div> <script type="text/javascript"> self.adParams = { 'real_estate_type': 'Aluguel - apartamento kitchenette', 'condominio': '', 'iptu': '', 'size': '50', 'rooms': '1', 'beds': '', 'garage_spaces': '1', 'features': '' } </script> <div class="OLXad-location mb20px"> <div class="atributes"> <h4 class="title">Localização</h4> <ul class="list square-gray"> <li class="item"> <p class="text"> <span class="term">Município:</span> <strong class="description"> Vila Velha </strong> </p> </li> <li class="item"> <p class="text"> <span class="term">CEP do imóvel:</span> <strong class="description"> 29118-060 </strong> </p> </li> <li class="item"> <p class="text"> <span class="term">Bairro:</span> <strong class="description"> Alecrim </strong> </p> </li> </ul> </div> </div> <div class="OLXad-id"> <p class="text"> <span class="term">Código do anúncio:</span> <strong class="description">417138772</strong> </p> </div> o Codigo que estou usando: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try ListBox1.Items.Clear() Dim Tags(1) As String Tags(0) = "span" Tags(1) = "div" If Not IsNothing(WebBrowser1.Document) Then For Each _Tag As String In Tags Dim elementos As IList(Of HtmlElement) = WebBrowser1.Document.GetElementsByTagName(_Tag).OfType(Of HtmlElement).ToList() If Not IsNothing(elementos) Then Dim elementosPesquisa As IList(Of HtmlElement) = _ elementos.Where(Function(w) w.OuterHtml.Contains("description")).ToList() If Not IsNothing(elementosPesquisa) AndAlso elementosPesquisa.Count > 0 Then For Each el As HtmlElement In elementosPesquisa ListBox1.Items.Add(el.OuterText) Next End If End If Next End If Catch ex As Exception MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Information) End Try End Sub Alguém pode me ajudar? Agradeço desde ja.
  10. Bom dia! tenho uma aplicação visual basic e quando o usuário vai fazer um cadastro de um contrato na tela do sistema, aparece a mensagem Run-time error '94' Invalid use of null. Como é possível resolver este erro: recompilar o executável do visual basic? Na inserção da tabela que cadastra a localização, não há campo nulo.
  11. Bom dia! tenho uma aplicação em visual basic que cadastra contratos vinculados a pastas. Porém, em alguns casos, ao tentar incluir o contrato em uma pasta(tabela) do sistema, mostra o erro Run_time error '94' invalid use of null. Por exemplo, ontem dia 02/10/2017, o meu usuário conseguiu incluir dois contratos e um não. O tamanho do CNPJ do contrato, o procedimento para cadastraro contrato no sistema não mudou. O erro ocorre em alguns casos e outros o sistema aceita. Alguém poderia me auxiliar?
  12. matheusmilita

    Preciso de ajuda sou iniciante

    Estou iniciando na programação, e estou querendo focar em aplicativos desktop, más queria uma linguagem facil e objetiva, não gosto de C#, eu sei um pouco de visual basic, e gostaria de começar no pyton, qual será melhor para mim que sou iniciante?
  13. matheusmilita

    Visual Basic.net

    Estou com a seguinte dúvida oque c# faz, vb.net também consegue? Estou começando no vb.net vale a pena? Eu procuro trabalhar sozinho, tipo em casa fazendo programas básicos para clientes entre outras coisas, não para trabalhar em empresas nem nada do tipo
  14. Boa tarde, tive qeu reabrir o topico pois embora eu tenha conseguido colocar o texto do webbrowser na label infelizmente não estou conseguindo atualizar ela a cada suponha 6 segundos, segue abaixo o código que estou usando no VB, agradeço a ajuda Public Class Form1 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick WebBrowser1.Refresh() End Sub Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted Me.WebBrowser1.Navigate("url do conteudo a ser pego") Try If Not IsNothing(WebBrowser1.Document) Then Dim elementos = WebBrowser1.Document.GetElementsByTagName("span") If (Not IsNothing(elementos) And elementos.Count > 0) Then Dim i As Integer = 0 While (i < elementos.Count AndAlso Not elementos.Item(i).OuterHtml().Contains("texto_musica")) i += 1 End While If (i < elementos.Count) Then resultado = elementos.Item(i).InnerText Label1.Text = resultado End If End If End If Catch ex As Exception End Try Timer1.Enabled = True Timer1.Interval = 3000 Timer1.Start() End Sub Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click End Sub Dim resultado As String Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub End Class
  15. Vinicius Nascimento Vieira

    Aprender VBA

    Galera, boa noite. Necessito saber como consigo aprender VBA para começar a criar minhas próprias macros, pois atualmente estou sendo submetido a automatizar as planilhas da minha empresa, onde que para isso estou buscando a automatização pelo VBA. Pensei em comprar os livros do Mr.Excel (VBA para leigos, Macros e VBA 2016...), porém não sei se vale a pena. No momento estou assistindo vídeo aulas no YouTube, mas queria ir além, pois estou com duvidas básicas, principalmente de como montar as estruturas e entender quando utilizar cada variável e seus códigos. Toda ajuda será bem vinda!!! Grato!
  16. Olá alguem poderia me ajudar a criar um código QUE A Label 2 ira gerar um numero aleatorio de 1 a 9 exemplo " 123654789 " (gerando numero aleatorio ) cada vez que eu clica no botão 2 o segundo ia gerar um nome de usuario a label é a 4 por exemplo o nome abcd1234 tem que ter pelo menos 6 letras ou numeros vão gerar aleatorio "abcd1234" ou "1235dfd" para o visual basic alguem me ajuda? RESUMINDO TODA VEZ QUE CLICA NO BOTÃO 2 VAI GERAR UM NOVO NUMERO ALEATORIO NA LABEL 2 E UM NOVO NOME DE USUARIO NA LABEL 4 VALE LEMBRA QUE A LABEL 2 TEM GERAR / 8 NUMEROS E A LABEL 4 GERAR 6 3 LETRAS 3 NUMEROS
  17. Olá, não sou desenvolvedor Delphi e na empresa que trabalho temos componente em Visual Basic para realizar autenticação do usuário. Temos um sistema em Delphi feito por um cliente que precisa consumir nossa dll e o analista está com dificuldades. Alguém poderia me ajudar a converter esse código para Delphi? Desde já agradeço. Dim obj as Object Dim codigoRetornoLogin As Integer Dim mensagemLogin As String 'Instanciar objeto COM Set obj = CreateObject("DB_Seguranca.GER_SEG") 'Preencher Módulo, login e senha obj.modulo = "CONTRAT" obj.usuario.User_ID = txtLogin.Text obj.usuario.Senha = txtSenha.Text 'Validar login codigoRetornoLogin = obj.Valida_acesso() 'Se retorno for <> 0, significa login é inválido If (codigoRetornoLogin <> 0) Then 'Obtém a mensagem de erro para exibição ao usuário mensagemLogin = obj.ObterMensagemLogin(codigoRetornoLogin) 'Mata objeto COM da memória Set obj = Nothing 'Exibe mensagem de negócio ao usuário MsgBox mensagemLogin Exit Sub End If Set obj = Nothing 'Usuario autenticado com sucesso 'Segue a vida...
  18. Guilherme NATIVIDADE

    TEXTBOX EXIBIR DADOS DE 3 TABELAS RELACIONADAS

    Boa tarde, pessoal! Sou iniciante em programação. Estou fazendo um sistema em vb.net para uma papelaria. Estou com uma probleminha no formulário consultar vendas, pois estou tentando trazer as informações da venda nas textbox, obs: mas são informações de mais de uma tabela. Utilizei um inner join para exibir por meio da datagridview todos os detalhes da venda, e esta funcionando. Porém nas textbox preciso trazer a forma de pagamento da venda e o produto que será vendido, ambas tabelas citadas estão relacionadas com a tabela Vendas. String sql que estou utilizando: "SELECT DISTINCT v.idVenda as CÓDIGO, V.PrecoUni AS VALOR_UNI, V.Qntd AS QUANTIDADE, V.Vl_Total AS VALOR_TOTAL, V.Descricao AS DESCRICAO_VENDA, FORMA.Tipo AS FORMA_PAGAMENTO , P.Descricao AS NOME_PRODUTO, cate.Descricao as CATEGORIA, FORN.Razao_Social AS NOME_FORN, USUARIOS.Nome AS VENDEDOR FROM tbVendas V INNER JOIN tbFormaPagamento FORMA ON FORMA.idFormaPag = V.idFormaPag INNER JOIN tbProdutos P ON P.IdProduto = V.IdProduto INNER JOIN tbCategoriaProduto cate on cate.IdCategoria = p.IdCategoria INNER JOIN tbFornecedor FORN ON P.IdFornecedor = FORN.idFornecedor INNER JOIN tbUsuarios USUARIOS ON USUARIOS.IdUsuario = V.IdUsuarios" sub que irá trazer os dados nas textbox Sub atualizarcampos() txtForma.Text = dt.Rows(IntNavega)("PagamentoForma").ToString end sub O erro apresentado é este: An unhandled exception of type 'System.ArgumentException' occurred in System.Data.dll Additional information: A coluna 'PagamentoFormas' não pertence à tabela . teria alguma forma de eu trazer os dados de tabelas relacionadas? criando uma tabela que irá receber todos os campos? algo do genero, por favor me ajudem é urgente.
  19. Olá amigos, estou desenvolvendo um projeto no qual, possuo uma tabela com nome de Proprietarios no banco e preciso passar dois valores para duas colunas dessa tabela, que possuem nome Placa1 e Placa2, fiz o código no sql e ocorreu tudo da forma que eu esperava, segue o código que usei abaixo. Quando fiz a programação em VB, criei as seguintes variáveis: Após criar as váriaveis criei o update, no botão de salvar: Ele executa o sistema porém não altera nenhum valor da o seguinte erro: Porém não consigo solucionar o erro, aguardo ajuda de alguém, valeu pela atenção pessoal!
  20. Boa tarde galera, Preciso de uma ajudinha. Estou desenvolvendo um pequeno projeto da faculdade onde é um sistema de contas a receber (diferente do cadastro de vendas que você lança produto por produto, o contas a receber você apenas lançará valor total e se quiser colocará os produtos vendidos no campo observação). Para cadastrar a conta a receber fiz um formulário onde solicita os seguintes campo: ID (numerador automático), Matricula (Número), Cliente (Texto Curto), ValorReceber (Moeda), DataCompra (Data/Hora), Observacao (Texto Longo) e StatusPagamento (Sim/Não) e logo em seguida armazena tudo no banco de dados. Até aqui o sistema fluiu e está ok! Está recebendo e armazenando os dados! O que me apertou foi o seguinte: Agora necessito de um outro formulário onde eu consulto pela matricula do cliente no banco de dados da contas a receber e somo tudo o que ele deve. Exemplo: Banco de dados: ID Matricula Nome ValorReceber DataCompra Obsevacao e StatusPagamento 1 12345678 João Pedro R$ 12,00 20/05/2016 Coca-Cola, Salgado Não 2 87654321 Ana R$ 2,50 30/05/2016 Coca-Cola Não 3 12345678 João Pedro R$ 6,00 25/05/2016 Coca-Cola Não 4 12345678 João Pedro R$ 6,00 30/05/2016 Coca-Cola Sim *Simulação do meu banco de dados Agora preciso que o sistema faça o seguinte: Recebe a matricula do João Pedro (logo é: 12345678) e calcule todos os valores que ele deve, que no caso seria: 12,00 + 6,00 = 18,00 *O produto/ContaReceber do ID "4" não somaria pois ele já tinha efetuado a compra e pago na hora. Espero que vocês tenham entendido. Estou no Aguardo.
  21. Olá! Gostária a ajuda de vocês para salvar dados em um arquivo (TXT). Até o momento consegui fazer para salvar o arquivo, mas o que quero fazer é isto: Pegar um texto em uma textbox Fazer com que este texto seja "colado" em uma txt seguido de algo que o separe de um conjunto de numeros que seram dados de um loop, por exemplo Nome;001 Nome:002 Nome:... Nome:999 Sendo que deve ser delimitado o For tipo quero que sejam colocados 100 numeros, no caso de 0 a 99 Esperam que tenham entendido o que quiz dizer! Até o momento fiz um sistema para salvar e não consegui fazer o loop que salve os dados que quero, estou bem perdido e obviamente sou iniciante em VB! Vlw a atenção de todos! Imports System.IO Public Class Form1 Dim contador As Integer Dim arquivo As System.IO.File Dim escArquivo As System.IO.StreamWriter Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim separador As String = ";" Dim texto As String email = TextBox1.Text For contador As Integer = 0 To 999999 WriteLine(texto + separador + contador) Next Dim salvarArquivo As SaveFileDialog = New SaveFileDialog() Dim caminho As DialogResult Dim fluxoTexto As IO.StreamWriter Dim arquivo As String salvarArquivo.CheckFileExists = False salvarArquivo.Title = "Arquivo Texto |*.txt |" caminho = salvarArquivo.ShowDialog arquivo = salvarArquivo.FileName If arquivo = Nothing Then MessageBox.Show("Arquivo Inválido", "Salvar Como", MessageBoxButtons.OK) Else fluxoTexto = New IO.StreamWriter(arquivo) fluxoTexto.Write(txtLinhas.Text) fluxoTexto.Close() End If End Sub Private Function txtLinhas() As Object Throw New NotImplementedException End Function
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.