Public Class Form1
Private CircularBuffer As New List(Of String)
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
CircularBuffer.Insert(0, CreateRandomString)
End Sub
Private Function CreateRandomString() As String
Const Range As Integer = 50
Const StartValue As Integer = 32
Dim counter As Integer
Dim StringBuffer As String = Nothing
Randomize()
For counter = 1 To 20
Dim RandomChar = Convert.ToInt32((Rnd() * Range) + StartValue)
StringBuffer += Chr(RandomChar)
Next
Return StringBuffer
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
CheckCircularBufferInfo()
End Sub
Private Sub CheckCircularBufferInfo()
TextBox1.Clear()
For Each ReceivedString In CircularBuffer
TextBox1.Text += ReceivedString & vbCrLf
Next
CircularBuffer.Clear()
End Sub
End Class
Public Class Form1
Private BufferString As String
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
BufferString += CreateRandomString()
End Sub
Private Function CreateRandomString() As String
Const Range As Integer = 50
Const StartValue As Integer = 32
Dim counter As Integer
Dim StringBuffer As String = Nothing
Randomize()
For counter = 1 To 20
Dim RandomChar = Convert.ToInt32((Rnd() * Range) + StartValue)
StringBuffer += Chr(RandomChar)
Next
Return StringBuffer
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
If BufferString.Length >= 50 Then
Dim MyCharsToProcess As Char() = BufferString.Substring(0, 50).ToCharArray
ProcessChars(MyCharsToProcess)
BufferString = BufferString.Substring(50, BufferString.Length - 50)
End If
End Sub
Private Sub ProcessChars(CharArray() As Char)
'plot the chart here
End Sub
End Class