Wird Threading in VB.net anders behandelt als in C#?

  • C#
  • .NET (FX) 4.5–4.8

    Wird Threading in VB.net anders behandelt als in C#?

    Einen wunderschönen guten Morgen,

    es geht um folgendes Problem: es stehen mehrere Methoden zur Auswahl. Jede Methode die aufgerufen wird, soll auf ihre Ausführungszeit überwacht
    werden und bei Ablauf eines Timeouts nochmal neu gestartet werden. Nach einer bestimmten Anzahl von Versuchen soll die Methode übergangen werden.
    Unter C# hab ich das ohne Probleme hingekriegt unter VB nicht. Dazu sei gesagt das ich neu in VB bin und aus der C# Ecke komme.
    Beispiele:

    C#-Quellcode

    1. using System;
    2. using System.Collections.Generic;
    3. using System.Linq;
    4. using System.Text;
    5. using System.Threading;
    6. using System.Threading.Tasks;
    8. namespace Test
    9. {
    10. class Class1
    11. {
    12. public delegate void ProcessRequestDelegateWithParam(object data);
    13. public void DoAllRequests()
    14. {
    15. DoRequestWithParam(ProcessRequest,100);
    16. DoRequestWithParam(ProcessRequest,2500);
    17. DoRequestWithParam(ProcessRequest,100);
    18. }
    19. public void DoRequestWithParam(ProcessRequestDelegateWithParam processRequest,int iMilliseconds)
    20. {
    22. bool requestWasSuccesful = false;
    23. bool requestTimeout = false;
    24. int numberOfTryings = 0;
    25. int maxNumberOfTryings = 5;
    26. int iMillisecondsToTimeOut = 2000;
    28. do
    29. {
    30. Thread workerThread = new Thread(new ParameterizedThreadStart(processRequest));
    32. workerThread.Start(iMilliseconds);
    34. System.Threading.Thread.Sleep(iMillisecondsToTimeOut);
    35. if (workerThread.IsAlive)
    36. {
    37. Console.WriteLine("Timed out trying again");
    38. numberOfTryings++;
    39. if (numberOfTryings == maxNumberOfTryings)
    40. {
    41. requestTimeout = true;
    42. Console.WriteLine(String.Format("-> Max Tryings reached: {0}", numberOfTryings));
    43. }
    44. }
    46. else
    47. {
    48. requestWasSuccesful = true;
    49. Console.WriteLine(String.Format("-> Single Request success: {0}", requestWasSuccesful));
    50. }
    52. }
    53. while (!requestWasSuccesful && !requestTimeout);
    55. Console.WriteLine(String.Format("-> Overall Success: {0}", requestWasSuccesful));
    57. }
    59. private void ProcessRequest(object str)
    60. {
    61. int intStr; bool intResultTryParse = int.TryParse(str.ToString(), out intStr);
    62. if (intResultTryParse == true)
    63. {
    64. System.Threading.Thread.Sleep(intStr);
    65. }
    67. }
    68. }
    69. }

    Quellcode

    1. -> Single Request success: True
    2. -> Overall Success: True
    3. Timed out trying again
    4. Timed out trying again
    5. Timed out trying again
    6. Timed out trying again
    7. Timed out trying again
    8. -> Max Tryings reached: 5
    9. -> Overall Success: False
    10. -> Single Request success: True
    11. -> Overall Success: True


    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Collections.Generic
    3. Imports System.Linq
    4. Imports System.Text
    5. Imports System.Threading
    6. Imports System.Threading.Tasks
    8. Namespace Test
    9. Class Class1
    10. Public Delegate Sub ProcessRequestDelegate(ByVal data As Object)
    12. Public Sub DoAllRequests()
    13. DoRequestWithParam(ProcessRequest(100))
    14. DoRequestWithParam(ProcessRequest(2500))
    15. DoRequestWithParam(ProcessRequest(100))
    16. End Sub
    18. Public Sub DoRequestWithParam(processRequest As [Delegate])
    19. Dim requestWasSuccesful As Boolean = False
    20. Dim requestTimeout As Boolean = False
    21. Dim numberOfTryings As Integer = 0
    22. Dim maxNumberOfTryings As Integer = 5
    23. Dim iMillisecondsToTimeOut As Integer = 2000
    25. Do
    26. Dim workerThread As Thread = New Thread(New ParameterizedThreadStart(Function() processRequest))
    27. workerThread.Start()
    29. System.Threading.Thread.Sleep(iMillisecondsToTimeOut)
    30. If workerThread.IsAlive Then
    31. Console.WriteLine("Timed out trying again")
    32. numberOfTryings = numberOfTryings + 1
    33. If (numberOfTryings = maxNumberOfTryings) Then
    34. requestTimeout = True
    35. Console.WriteLine(String.Format("-> Max Tryings reached: {0}", numberOfTryings))
    36. End If
    37. Else requestWasSuccesful = True
    38. Console.WriteLine(String.Format("-> Single Request success: {0}", requestWasSuccesful))
    39. End If
    41. Loop Until requestWasSuccesful Or requestTimeout
    43. Console.WriteLine(String.Format("-> Overall Success: {0}", requestWasSuccesful))
    45. End Sub
    47. Private Function ProcessRequest(ByVal str As Object)
    48. Dim intStr As Integer
    49. Dim intResultTryParse As Boolean = Integer.TryParse(str.ToString(), intStr)
    50. Console.WriteLine(String.Format("-> Process Request time: {0}", intStr))
    51. System.Threading.Thread.Sleep(intStr)
    52. End Function
    54. End Class
    55. End Namespace

    Quellcode

    1. -> Process Request time: 100
    2. -> Single Request success: True
    3. -> Overall Success: True
    4. -> Process Request time: 2500
    5. -> Single Request success: True
    6. -> Overall Success: True
    7. -> Process Request time: 100
    8. -> Single Request success: True
    9. -> Overall Success: True


    Wie man sieht, läuft mein C#-Code schön in den gewollten Timeout, während der VB.Net-Code es nicht macht. ?(

    Freundliche Grüße Era

Facebook
Telefonspende