Public Class FMessung
  Dim Counter As Integer = 0
  Dim row As DataGridViewRow
 
  Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
    System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    SignalPort.Close()
    DatenPort.Close()
  End Sub
 
  Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles Me.Load
    SignalPort.Open()
    DatenPort.Open()
  End Sub
 
  Private Sub SignalPort_PinChanged(ByVal sender As Object, ByVal e As _
    System.IO.Ports.SerialPinChangedEventArgs) Handles SignalPort.PinChanged
    Select Case e.EventType
      Case IO.Ports.SerialPinChange.DsrChanged
        If SignalPort.DsrHolding Then
          '***Reset
        End If
      Case IO.Ports.SerialPinChange.CDChanged
        If SignalPort.CDHolding Then
          If SignalPort.CtsHolding Then
            Invoke(New ReadDglLinks(AddressOf ReadLinks))
          Else
            Invoke(New ReadDglRechts(AddressOf ReadRechts))
          End If
        End If
    End Select
  End Sub
 
  Private Delegate Sub ReadDglLinks()
  Private Sub ReadLinks()
    row = New DataGridViewRow
    row.CreateCells(Grd)
    row.Cells(0).Value = Counter
    DatenPort.WriteLine("MSV?3;") 'Speicher S3 des Messverstärker Aktivieren
    row.Cells(1).Value = DatenPort.ReadLine 'Linke Messwert
  End Sub
  Private Delegate Sub ReadDglRechts()
  Private Sub ReadRechts()
    DatenPort.WriteLine("MSV?4;") 'Speicher S4 des Messverstärker 
    ' Aktivieren
    row.Cells(2).Value = DatenPort.ReadLine ' Rechte Messwert
    Grd.Rows.Add(row)
    DatenPort.WriteLine("CPV;") ' **Speicherwert des Messverstärker löschen
  End Sub
End Class