Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #19799

Re: Popolare datagridview da rs232

Show key headers only | View raw

Il giorno mercoledì 3 giugno 2020 14:26:00 UTC+2, logica mente ha scritto:
> Il 03/06/2020 12:49, Marco75 ha scritto:
> 
> > 
> > io ho a disposizione Hyperterminal Putty non so se può fare le stesse cose... L'azienda non mi permette l'uso di software anche free che si installano sui PC, se ce n'è uno che non va installato ma lanciato direttamente posso provare... in ogni caso io i dati li ricevo, credo sia solo una questione di modificare il codice che li riceve, ora uso un timer, magari sbaglio lì
> > 
> 
> Puoi provare il programmino che trovi qui: 
> https://www.ennepisoft.it/test/testConn.7z
> è fatto in C++. Nello zip trovi anche un include e una classe per 
> facilitare l'uso della dll (che è il vero motore).
> 
> La dll è possibile utilizzarla anche in vb6.
> In https://www.ennepisoft.it/test/commsample.7z trovi un esempio, 
> trovato in rete, poi convertito per usare la mia dll.
> Il form non fa altro che preparare i dati per la connessione (primo 
> pulsante), poi aprirla, inviare la stringa 'READ' e aspettare i dati di 
> ritorno (era giusto una prova per un amico).
> Nel tuo caso potresti mettere la routine in un timer e verificare se ci 
> sono dati col comando 'cGetAvail' che ne ritorna il numero di disponibili.
> Saluti

credo di esserci....

Private Sub SerialPortBil_DataReceived(sender As Object, e As Ports.SerialDataReceivedEventArgs) Handles SerialPortBil.DataReceived

        Try
            If SerialPortBil.IsOpen Then
                spDrLine = spDrLine & SerialPortBil.ReadExisting()

                If InStr(1, spDrLine, vbCr) > 0 Or InStr(1, spDrLine, vbLf) > 0 Then
                    spBuffer = spDrLine
                    spDrLine = ""
                    Me.Invoke(New EventHandler(AddressOf DoProcess))
                Else
                    Exit Sub

                End If
            End If
        Catch ex As Exception

        End Try

    End Sub

Private Sub DoProcess()

        Dim f As Integer

        f = DgvDati.Rows.Count

        Dim n As Integer = DgvDati.Rows.Add()
        DgvDati.Rows.Item(n).Cells(0).Value = f '+ 1
        DgvDati.Rows.Item(n).Cells(1).Value = spBuffer 

End Sub

Spero che così funzioni tutto, per ora sembra andare

l'unica cosa è che ora ricevo il dato tipo 8.75 g mentre vorrei ricevere 8,75 senza la g
ci lavoro un po' e vedo se riesco così quando esporto in Excel i dati sono in formato numerico

Back to it.comp.lang.visual-basic | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Popolare datagridview da rs232 Marco75 <marcoporzi75@gmail.com> - 2020-05-26 10:26 -0700
  Re: Popolare datagridview da rs232 RobertoA <amorosik@tiscalinet.it> - 2020-05-27 08:04 +0200
    Re: Popolare datagridview da rs232 Marco75 <marcoporzi75@gmail.com> - 2020-05-26 23:18 -0700
    Re: Popolare datagridview da rs232 Marco75 <marcoporzi75@gmail.com> - 2020-05-26 23:21 -0700
      Re: Popolare datagridview da rs232 RobertoA <amorosik@tiscalinet.it> - 2020-05-27 08:46 +0200
        Re: Popolare datagridview da rs232 Marco75 <marcoporzi75@gmail.com> - 2020-05-27 02:46 -0700
          Re: Popolare datagridview da rs232 "Andrea (Work)" <andrea.isworkDELETEME@gmail.invalid> - 2020-05-27 18:01 +0200
            Re: Popolare datagridview da rs232 Marco75 <marcoporzi75@gmail.com> - 2020-05-27 09:12 -0700
              Re: Popolare datagridview da rs232 RobertoA <amorosik@tiscalinet.it> - 2020-05-28 08:06 +0200
                Re: Popolare datagridview da rs232 Marco75 <marcoporzi75@gmail.com> - 2020-05-27 23:17 -0700
                Re: Popolare datagridview da rs232 "Andrea (Work)" <andrea.isworkDELETEME@gmail.invalid> - 2020-05-30 10:17 +0200
                Re: Popolare datagridview da rs232 BobM <dbtools@email.it> - 2020-06-01 14:28 -0700
                Re: Popolare datagridview da rs232 Marco75 <marcoporzi75@gmail.com> - 2020-06-03 00:58 -0700
                Re: Popolare datagridview da rs232 RobertoA <amorosik@tiscalinet.it> - 2020-06-03 12:51 +0200
                Re: Popolare datagridview da rs232 Marco75 <marcoporzi75@gmail.com> - 2020-06-03 03:49 -0700
                Re: Popolare datagridview da rs232 logica mente <npaolini_no_spam_@ennepisoft.it> - 2020-06-03 14:25 +0200
                Re: Popolare datagridview da rs232 Marco75 <marcoporzi75@gmail.com> - 2020-06-03 05:57 -0700
                Re: Popolare datagridview da rs232 RobertoA <amorosik@tiscalinet.it> - 2020-06-03 16:34 +0200
                Re: Popolare datagridview da rs232 Marco75 <marcoporzi75@gmail.com> - 2020-06-03 07:21 -0700
                Re: Popolare datagridview da rs232 RobertoA <amorosik@tiscalinet.it> - 2020-06-03 15:42 +0200
                Re: Popolare datagridview da rs232 Marco75 <marcoporzi75@gmail.com> - 2020-06-03 06:57 -0700
                Re: Popolare datagridview da rs232 Franz_aRTiglio <franzgol@N0SPAMtin.it> - 2020-06-03 18:57 +0200
                Re: Popolare datagridview da rs232 Marco75 <marcoporzi75@gmail.com> - 2020-06-04 04:49 -0700
                Re: Popolare datagridview da rs232 Franz_aRTiglio <franzgol@N0SPAMtin.it> - 2020-06-04 21:47 +0200
                Re: Popolare datagridview da rs232 Marco75 <marcoporzi75@gmail.com> - 2020-06-04 23:12 -0700

csiph-web