-
Conteúdo Similar
-
Por lindomar55
ola amigos preciso de uma ajudinha, estou montando uma aplicaçao usando vb.net windows forms. nela tenho um botao onde chamo uma url no chrome com o seguinte comando.
Private Sub Btn_abrir_site_Click(sender As Object, e As EventArgs) Handles Btn_abrir_site.Click
Dim url As String = “https://www.rico.com.você/dashboard/tesouro-direto/“
Process.Start(url)
End Sub
no google entao eu acesso com meu logim manualmente(prefiro assim). e em realizo uma serie de operaçoes, chega um determinado momento que preciso passar passar os dados que o site me apresenta entao(apos as operaçoes) para o aplicativo. ai é que esta o problema. neste ponto estou boiando.
no codigo abaixo por exemplo: precisava obter os valores 12,36 e 8806,84 de forma automatica e colocar em textbox.
vi exemplos na net que mostram com webbrowser porem eu prefiro que seja com o chrome. e nesses exemplos ele abre a pagina e ja obtem os dados. eu preciso trabalhar na pagina muiiiito e so depois baixar os dados programaticamente.
qualquer ajuda sera bem vinda....
-
Por lucasrodrigues
Estou com esse problema ao tentar vincular uma tabela do MySql a um DataSet. Utilizo o MySqlConnector 8.0.13, MySql-For-VisualStudio 1.2.8.
-
Por igadino
Boa Tarde pessoal eu peguei esta função no link abaixo parece que e em C# e transformei em vb.net só que esta dando o erro na linha em destaque
https://github.com/BoletoNet/boletonet/blob/master/src/Boleto.Net.MVC/Models/Exemplos.cs
Public Sub GeraBoletoCE(ByVal qtde As Integer)
' Cria o boleto, e passa os parâmetros usuais
Dim ce As BoletoBancario
Dim boletos As New List(Of BoletoBancario)()
For i As Integer = 0 To qtde - 1
ce = New BoletoBancario()
ce.CodigoBanco = _codigoBanco
Dim vencimento As New DateTime(2007, 9, 10)
Dim instr As New Instrucao(1)
Dim c As New Cedente("00.000.000/0000-00", "Next Consultoria Ltda.", "0123", "100618", "9")
c.Codigo = 112233
' BoletoNet.Boleto b = new BoletoNet.Boleto(vencimento, 20.00m, "14", "0123456789", c);
Dim b As New Boleto(vencimento, 2952.95, "14", "0123456789", c)
b.NumeroDocumento = "21212114779797" '1b.NossoNumero
b.Sacado = New Sacado("000.000.000-00", "Jose Pedro Ongueira de Oliveira")
b.Sacado.Endereco.[End] = "Rua Dr. Henrique Portugal, 12"
b.Sacado.Endereco.Bairro = "Loteamento Lago Sul"
b.Sacado.Endereco.Cidade = "Palmas"
b.Sacado.Endereco.CEP = "77062141"
b.Sacado.Endereco.UF = "TO"
b.Sacado.Endereco.Logradouro = "Rua Dr. Henrique Duarte Lima"
b.Sacado.Endereco.Numero = "8980978987"
b.Sacado.Endereco.Complemento = "Casa"
b.NumeroDocumento = "00001"
b.DataProcessamento = DateTime.Now
b.DataDocumento = DateTime.Now
instr.Descricao = "Não Receber após o vencimento"
b.Instrucoes.Add(instr)
ce.Boleto = b
ce.Boleto.Valida()
boletos.Add(ce)
Next
GeraLayout(boletos)
End Sub
-
Por Marcos PP
A algum tempo atras um programador criou um sisteminha de leitura de porta serial para mim, este sistema lia uns valores vindo de uma balança este valor era processado e enviado para uma tabela em MYSQL.
E infelizmente não consigo falar com ele mais,
O sistema esta pronto e rodando, porem hoje fui instalar ele em um PC para uma nova balança e a pontuação da balança vem diferente, e creio que por isso não esta gravando no banco
Tenho o fonte do sistema que foi desenvolvido em Visual Studio 2010, porem o desenvolvedor me falou na época que era bem simples que pode ser editado ate em 2007, como não entendo muito, queria ver se alguém me da uma ajuda de colocar esta configuração de casas decimais no arquivo de configuração, onde eu altero Usuário e senha do banco e mais algumas funções, de rrrepente ate ja tem , mais não sei onde devo alterar
O resumo e o seginte,
A balança manda o valor assim
PB: 000,120 T: 000,000
Este PB: na frente significa que o peso esta parado, não existe mudança, então a tabela so atualiza quando vem **:
Ate ai tudo ok.
O problema e que a nova balança me envia o valor assim
PB: 120,0 T: 000,000
Vou colocar o arquivo de configuração aqui, ai se alguém souber mais me fala se da para mudar só nele
<?xml version="1.0" encoding="utf-8" ?> <configuration> <configSections> <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" > <section name="LogSerialPort.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" /> </sectionGroup> </configSections> <startup> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7" /> </startup> <applicationSettings> <LogSerialPort.My.MySettings> <setting name="constr" serializeAs="String"> <value>Driver={MySQL ODBC 5.1 Driver};Server=localhost;charset=UTF8MB4;Database=balanca;User=root; Password=;Option=3;</value> </setting> <setting name="PortName" serializeAs="String"> <value>COM3</value> </setting> <setting name="BaudRate" serializeAs="String"> <value>9600</value> </setting> <setting name="Parity" serializeAs="String"> <value>None</value> </setting> <setting name="DataBits" serializeAs="String"> <value>8</value> </setting> <setting name="StopBits" serializeAs="String"> <value>One</value> </setting> <setting name="Handshake" serializeAs="String"> <value>None</value> </setting> <setting name="Debug" serializeAs="String"> <value>On</value> </setting> <setting name="Lista_Parity" serializeAs="String"> <value>None, Odd, Even, Mark, Space</value> </setting> <setting name="Lista_StopBits" serializeAs="String"> <value>None, One, Two, OnePointFive</value> </setting> <setting name="Lista_Handshake" serializeAs="String"> <value>None, XOnXOff, RequestToSend, RequestToSendXOnXOff</value> </setting> <setting name="ConnectionTimeout" serializeAs="String"> <value>10</value> </setting> <setting name="CommandTimeout" serializeAs="String"> <value>2</value> </setting> <setting name="SQLCommandText" serializeAs="String"> <value>UPDATE peso SET peso_atual = {0};</value> </setting> </LogSerialPort.My.MySettings> </applicationSettings> </configuration>
-
Por amenum
Pessoal, tudo bem? Fiquei parado da programação um bom tempo, e agora que retornei, queria dar manutenção nas minhas aplicações web que estão em vb.net webforms. Comprei um template de bootstrap (https://seantheme.com/color-admin-v4.2/admin/html/index_v2.html) e queria controlar os elementos via code behind in vb.net, mas estou sofrendo aqui por conta do meu limitado conhecimento.
Alguém poderia me dar uma luz em base neste link:
https://seantheme.com/color-admin-v4.2/admin/html/ui_modal_notification.html
Ao clicar na maioria dos botões dessa página, abre um modal ou alert. Pois bem, eu gostaria de simular essa abertura a partir de uma lógica no code behind, por exemplo, em um formulário, caso alguma regra não esteja sendo cumprida. Simples assim.
No código original, temos:
Chamada:
<a href="#modal-dialog" class="btn btn-sm btn-success" data-toggle="modal">Demo</a>
Div do modal
<div class="modal fade" id="modal-dialog" runat="server">
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header">
<h4 class="modal-title">Modal Dialog</h4>
<button type="button" class="close" data-dismiss="modal" aria-hidden="true">×</button>
</div>
<div class="modal-body">
<p>
Modal body content here...
</p>
</div>
<div class="modal-footer">
<a href="javascript:;" class="btn btn-white" data-dismiss="modal">Close</a>
<a href="javascript:;" class="btn btn-success">Action</a>
</div>
</div>
</div>
</div>
o que eu preciso?
No code behind
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
try
if verificaCampos() = false then ABRE O MODAL DIV COM A MENSAGEM DE ERRO
Catch ex As Exception
Throw ex
end try
End Sub
Alguém pode me ajudar?
muito obrigado.
-
