Sub astream1_NewText(Text As String)
Dim s1 As String
test1(k)=Text 'Inputdata
k=k+1
If k=133 Then
Idxmax=test1(1)
Idxmin=test1(2)
ma=test1(3)
mi=test1(4)
For k=0 To 5
test1(k)=(ma+mi)/2
Next
k=0
s1="x"&Chr(13)&Chr(10)'Request transmission of new Set of Data (133)
astream1.Write(s1)
s1=pwm&Chr(13)&Chr(10)
astream1.Write(s1)
Plott
End If
End Sub
Sub Plott
If LCGetDataJ1.IsInitialized=True Then LCGetDataJ1.RunMethod("remove",Array As Object(SeriesJ1))
SeriesJ1.InitializeNewInstance("javafx.scene.chart.XYChart.Series",Null)
GetDataJ1 = SeriesJ1.RunMethod("getData",Null)
For i=0 To 132
AddData(GetDataJ1, i, test1(i))
Next
LCGetDataJ1 = LineChartJ1.RunMethod("getData",Null)
LCGetDataJ1.RunMethod("add",Array As Object(Array As Object(SeriesJ1)))
End Sub