CONVERTER CóDIGO VB6 PARA VB.NET

 Tópico anterior Próximo tópico Novo tópico

CONVERTER CóDIGO VB6 PARA VB.NET

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#498588 - 22/11/2021 16:45:29

JOHNSTEVE
COSMOPOLIS-SP
Cadast. em:Janeiro/2016


Galera, gostaria de uma ajuda de vcs, alguem poderia converter esse código de VB6 para Vb.net ? por gentileza

Pessoal estou dando um exemplo de como estou tentando automatizer a balança

Estas são as funções que acessa a dll e ficam no modulo.

  Declare Function PegaPeso Lib 'P05.DLL' (ByVal OpcaoEscrita As Long, ByVal Peso As String, ByVal Diretorio As String) As Long
    Declare Function AbrePorta Lib 'P05.DLL' (ByVal Porta As Long, ByVal BaudRate As Long, ByVal DataBits As Long, ByVal Paridade As Long) As Long
    Declare Function FechaPorta Lib 'P05.DLL' () As Long
    Declare Function FechaPortaP05 Lib 'P05.DLL' () As Long
    Declare Sub VersaoDLL Lib 'P05.DLL' (ByVal Versao As String)
    Declare Function DeterminaUmStopBit Lib 'P05.DLL' () As Long

E aqui esta o chamado a função que fica no form e dentro do evento click de um button.

Retorno = AbrePorta(1, 0, 0, 2)
        If Retorno = 1 Then
            Retorno = MsgBox('Abriu!', vbOKOnly, 'P05 - VB')
        Else
            Retorno = MsgBox('Erro!', vbOKOnly, 'P05 - VB')
        End If

'pegando peso da balança
If Rs!balanca = 'S' And Len(txtbalanca.Text) > 0 Then
   Retbal = AbrePorta(Mid(txtbalanca.Text, 1, 1), Mid(txtbalanca.Text, 2, 1), Mid(txtbalanca.Text, 3, 1), Mid(txtbalanca.Text, 4, 1))
  If Retbal = 1 Then
   Retbal = PegaPeso(0, Pesobal, 'C:\')
   If Retbal = 1 And IsNumeric(Pesobal) And Val(Pesobal) > 0 Then
    pesboal = Format(Pesobal, '00000')
    Pesobal = Format((Pesobal / 1000), '#0.000')
    txtqtde.Text = Pesobal
    Retbal = FechaPortaP05()
   Else
    Retbal = FechaPortaP05()
    aviso = MsgBox('Não foi possível ler o peso da balança', vbInformation, 'Aviso ao usuário')
    txtpro.SetFocus
    Exit Sub
   End If
  Else
   aviso = MsgBox('Não foi possível se comunicar com a balança', vbInformation, 'Aviso ao usuário')
   txtpro.SetFocus
   Exit Sub
  End If
End If






#498602 - 23/11/2021 18:05:44

JABA
CABO FRIO
Cadast. em:Agosto/2005


Dificilmente alguém vai querer fazer gratuitamente.

_______________________________________________________________________________________________

Se a alma ou esprito so imateriais, como eles fazem para se localizar quando o corpo est em movimento?



Resposta escolhida #498603 - 23/11/2021 18:15:37

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


Tem muitas formas em .net

    public frmbalanca(string codigoproduto)
        {
            InitializeComponent();
            BUSCACONFIGBALANCA();
            porta = PORTABALANCA;
            serialPort1.PortName = porta;
            serialPort1.BaudRate = 4800;
            serialPort1.DataBits = 8;
            serialPort1.DtrEnable = true;
            serialPort1.StopBits = StopBits.One;
            serialPort1.DataBits = 7;
            serialPort1.NewLine = 'vbCr';
            serialPort1.ReadTimeout = 500;
            serialPort1.WriteTimeout = 500;
            textBox2.Text = codigoproduto;
        }
  private void Inicio_Click(object sender, EventArgs e)
        {
            try
            {
                serialPort1.Open();
                if (serialPort1.IsOpen)
                {
                    Inicio.Enabled = false;
                    Parar.Enabled = true;
                    transferir.Enabled = true;
                }
            }
            catch
            {
            }
        }
        private void serialPort1_DataReceived(object sender, SerialDataReceivedEventArgs e)
        {
              try
            {
                RxString = serialPort1.ReadExisting();
                //    RxString = serialPort1.ReadTo('\x0D');
                RxString = RxString.Replace('\x02', '');
                RxString = RxString.Replace('00.', '0.');
                RxString = RxString.Replace('.', ',');
                this.Invoke(new EventHandler(DisplayText));
            }
            catch
            {
            }
        }

alguns trechos do meu codigo



#498613 - 24/11/2021 10:34:03

JOHNSTEVE
COSMOPOLIS-SP
Cadast. em:Janeiro/2016


Citação:
:
Tem muitas formas em .net

    public frmbalanca(string codigoproduto)
        {
            InitializeComponent();
            BUSCACONFIGBALANCA();
            porta = PORTABALANCA;
            serialPort1.PortName = porta;
            serialPort1.BaudRate = 4800;
            serialPort1.DataBits = 8;
            serialPort1.DtrEnable = true;
            serialPort1.StopBits = StopBits.One;
            serialPort1.DataBits = 7;
            serialPort1.NewLine = 'vbCr';
            serialPort1.ReadTimeout = 500;
            serialPort1.WriteTimeout = 500;
            textBox2.Text = codigoproduto;
        }
  private void Inicio_Click(object sender, EventArgs e)
        {
            try
            {
                serialPort1.Open();
                if (serialPort1.IsOpen)
                {
                    Inicio.Enabled = false;
                    Parar.Enabled = true;
                    transferir.Enabled = true;
                }
            }
            catch
            {
            }
        }
        private void serialPort1_DataReceived(object sender, SerialDataReceivedEventArgs e)
        {
              try
            {
                RxString = serialPort1.ReadExisting();
                //    RxString = serialPort1.ReadTo('
');
                RxString = RxString.Replace('', '');
                RxString = RxString.Replace('00.', '0.');
                RxString = RxString.Replace('.', ',');
                this.Invoke(new EventHandler(DisplayText));
            }
            catch
            {
            }
        }

alguns trechos do meu codigo



Obrigado fabricio



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por JOHNSTEVE em 24/11/2021 10:34:20