Imports System.Windows.Forms
Imports System.ComponentModel
Imports System.Collections
 
 
Public Class Record
    Dim BufferList As ArrayList
    Public RecordActive As Boolean = False
    Dim aQueue As New Queue
    Dim Path As String
    Public ItemList As New ArrayList
    Dim FirstTimeFlag As Boolean
    Dim EndTime As Date
    Public Mode As Integer
    Public BufferFull As Boolean
 
 
 
 
    'Berechnet die Länge des Ringpuffers für die Items die Aufgezeichnet werden 
    ' sollen 
    Function GetBufferSize() As Integer
        Dim Minimum As Integer = getMinimumRate()
        Dim BeforeStart As Integer = nudTimeBeforeStart.Value
        GetBufferSize = BeforeStart * 1000 / Minimum
    End Function
 
 
 
    'Füllt den Ringspeicher zum Aufzeichnen der Daten 
    Sub FillBuffer()
        Dim Queuelist As New ArrayList
        Dim Trash As ArrayList
        Queuelist = ItemList
        Dim Buffersize As Integer = GetBufferSize()
 
        'Bevor der Puffer Ausgelesen werden kann muss er gefüllt werden
        If aQueue.Count < Buffersize Then
            aQueue.Enqueue(Queuelist)
 
        End If
        'Wenn der Buffer gefüllt ist kann er entweder ausgelesen werden wenn 
        ' die Record Bedingung erfüllt ist 
        'oder das letzte Item wird gelöscht
        If aQueue.Count >= Buffersize Then
            BufferFull = True
 
            If Queuelist.Count > 0 Then
 
                Trash = aQueue.Dequeue()
 
                aQueue.Enqueue(Queuelist)
                Trash.Clear()
            End If
        End If
 
        Queuelist.Clear()
    End Sub
 
    'Schreibt den Ringpuffer in eine .csv-Datei 
    Sub RecordBuffer()
 
        Header()
        Dim Length As Integer = aQueue.Count - 1
        Dim DequeueList As ArrayList
 
        For i As Integer = 0 To Length
 
 
            DequeueList = aQueue.Dequeue()
 
            For k As Integer = 0 To DequeueList.Count - 1 Step 2
 
                My.Computer.FileSystem.WriteAllText(Path, "" & ";" & _
                  DequeueList.Item(k) & ";" & DequeueList.Item(k + 1) & ";", _
                  True)
 
            Next
            aQueue.Enqueue(DequeueList)
            DequeueList.Clear()
 
            My.Computer.FileSystem.WriteAllText(Path, ";" & vbCrLf, True)
        Next
 
        BufferFull = False
        RecordActive = True
 
    End Sub
 
 
    'Erstellung der Kopfzeile einer Aufzeichnung
    Sub Header()
 
        For i As Integer = 0 To ItemList.Count - 1
            My.Computer.FileSystem.WriteAllText(Path, ItemList.Item(i).ItemID & _
              ";" & "Value" & ";" & "Timestamp" & ";", True)
        Next
        My.Computer.FileSystem.WriteAllText(Path, vbCrLf, True)
 
    End Sub
 
 
End Class