Implementierung Testfunktion Hashrate Server

App_Code/TestPerformance.vb

@@ -122,8 +122,7 @@ Public Class TestPerformance
         Dim arrzeitp1 As New List(Of Long)
         Dim arrzeitp2 As New List(Of Long)
         Dim arrzeitp3 As New List(Of Long)
-        Dim arrzeitp4 As New List(Of Long)
+        Dim finalarr As New List(Of Byte())
-
         Dim sw1 As Stopwatch = New Stopwatch
         Dim sw2 As Stopwatch = New Stopwatch
 
@@ -145,6 +144,24 @@ Public Class TestPerformance
             sw2.Reset()
         Next
 
+        For Each zp1 In arrzeitp1
+                If arrzeitp1(zp1) < arrzeitp2(zp1) Then
+                    arrzeitp3.Add(arrzeitp1.Item(zp1))
+                Else
+                    arrzeitp3.Add(arrzeitp2.Item(zp1))
+                End If
+            Next
+        For Each zp2 In arrzeitp2
+            If arrzeitp2(zp2) > arrzeitp1(zp2) Then
+                arrzeitp3.Add(arrzeitp2.Item(zp2))
+            Else
+                arrzeitp3.Add(arrzeitp1.Item(zp2))
+            End If
+        Next
+        For Each z3 In arrzeitp3
+            finalarr.Add(hashbytes(z3))
+        Next
+        'Ausgabe
         Return False
     End Function
 End Class