Sub Daten_holen
For i = 1 To 3
Einlesen.Daten_einlesen
Next
Ende_Zeit = DateTime.Time(DateTime.Now)
Label2.Text = Ende_Zeit
Sleep(0)
For i = 1 To 3
Einlesen.Daten_2_einlesen
Next
Ende_Zeit = DateTime.Time(DateTime.Now)
Label2.Text = Ende_Zeit
Sleep(0)
CallSubDelayed(Me, "After_Daten_holen") 'There will be a warning here. Ignore it. It is a bug.
End Sub
Sub Button1_MouseClicked (EventData As MouseEvent)
Label1.Visible = True
Label2.Visible = True
Label3.Visible = True
Start_Zeit = DateTime.Time(DateTime.Now)
Label2.Text = Start_Zeit
Sleep(0)
For z = 1 To 3
' Sleep(0)
Label2.Text = z & ". Hauptschleife Start"
Sleep(0)
Log(z & ". Hauptschleife Start")
Daten_holen
Next
For i = 1 To 3
Wait For After_Daten_holen
Next
Dim res As Int = fx.Msgbox2(MainForm, "Möchten sie weitere Daten einlesen oder das Programm beenden ?", "Abfrage", "Weiter Einlesen", "", "Programm beenden",fx.MSGBOX_WARNING)
If res = fx.DialogResponse.POSITIVE Then
'Fenster wird geschlossen und es können neue Daten eingelesen werden
Button1.Visible = True
Else
Close_Main
End If
End Sub