Zuweisen von Public Sub als ByVal einer 2. Sub

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

    Zuweisen von Public Sub als ByVal einer 2. Sub

    Hallo zusammen,

    ich hab da eine Frage zu der ich bisher noch keine Lösung finden konnte.

    Ich versuche zur Zeit einige Subs auf ihre Geschwindigkeit ( Ausführdauer) zu Testen.
    Nun bin ich notorisch eher faul. Ich teste die Ausführdauer so:

    VB.NET-Quellcode

    1. Private Sub AktuellToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AktuellToolStripMenuItem.Click
    3. Startzeit = System.DateTime.Now
    4. _NeueForm.Erstellen("Aktuell")
    5. Debug.Print((System.DateTime.Now.Subtract(Startzeit).TotalMilliseconds).ToString)
    7. End Sub


    Meine Frage ist jetzt:

    Kann ich einer Sub eine Andere Sub als ByVal mitgeben?
    Dann könnte ich in der Sub meine Startzeit festlegen usw.

    Im Code sähe das dann so aus:

    VB.NET-Quellcode

    1. Private Sub AktuellToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AktuellToolStripMenuItem.Click
    3. DebugZeit(_NeueForm.Erstellen("Aktuell")) 'Hier wird der Sub DebugZeit die Sub _NeueFormErstellen(byVals) zugewiesen
    5. End Sub
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

    Danke erst mal.
    Leider schaffe ich es heute nicht mehr mich mit den Delegates genau zu befassen. Aber ich werde das morgen tun und dann rückmelden ob es das war was ich wollte.

    @VincentTB das Beispiel von stack arbeitet mit functionen. Zeigt aber prinzipiel das was ich suchte. Ich muss mir das morgen nochmal in ruhe durchlesen wie ich das auf Subs umbauen kann.
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

    Zum Messen einer Dauer stellt das Framework eine StopWatch bereit.
    Sofern Dein PC einen Multimedia-Timer hat (und den hat es), ist StopWatch genauer als die DateTime-Differenz.

    VB.NET-Quellcode

    1. Dim sw As New Stopwatch
    2. sw.Start()
    3. ' das auszumessende
    4. sw.Stop()
    5. 'MessageBox.Show(sw.Elapsed.ToString)
    6. MessageBox.Show(sw.ElapsedMilliseconds.ToString)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Guten Morgen!

    Danke für den Tip
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

    Hi
    du kannst für sowas auch ein kleines Programm schreiben, das für dich testet. Hab' mal schnell ein kleines zusammengeschrieben:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public MustInherit Class Testing
    2. Private Sub New()
    3. End Sub
    5. Friend Shared Sub Test()
    6. Test(GetType(Testing), True)
    7. End Sub
    9. Public Shared Sub Test(ByVal type As Type, ByVal includeNonPublic As Boolean)
    10. 'Alle Methoden, die mit einem TestAttribute-Attribut versehen wurden zum PerformTest durchreichen
    11. For Each m As MethodInfo In type.GetMethods(BindingFlags.Public Or BindingFlags.Static Or If(includeNonPublic, BindingFlags.NonPublic, BindingFlags.Default))
    12. Dim tatt() As TestAttribute = DirectCast(m.GetCustomAttributes(GetType(TestAttribute), True), TestAttribute())
    13. If tatt.Length = 1 Then
    14. If tatt(0).Enabled Then PerformTest(DirectCast([Delegate].CreateDelegate(GetType(Action), m), Action), m, tatt(0))
    15. End If
    16. Next
    17. End Sub
    19. Private Shared Sub PerformTest(ByVal method As Action, ByVal info As MethodInfo, ByVal attribute As TestAttribute)
    20. Dim result As New System.Text.StringBuilder()
    21. Dim tests As Integer = 0
    23. 'Ausgabe erzeugen
    24. result.Append(info.Name)
    26. If attribute.Technique IsNot Nothing Then
    27. result.Append(" (""").Append(attribute.Technique).Append(""")")
    28. End If
    30. result.Append(":"c).AppendLine()
    32. Dim prf() As PerformanceTestAttribute = DirectCast(info.GetCustomAttributes(GetType(PerformanceTestAttribute), False), PerformanceTestAttribute())
    34. If prf.Length = 1 Then 'Wenn Performancetests durchgefuehrt werden sollen
    35. Dim t As Integer = prf(0).Milliseconds
    36. Dim it = MeasureIterations(method, t)
    37. result.Append("Number of iterations in " & prf(0).Milliseconds & "ms: ")
    38. result.Append(it).Append(" (~").Append((TimeSpan.TicksPerMillisecond * t / it).ToString("0.0000")).Append(" ticks/iteration)").AppendLine()
    39. tests += 1 'Anzahl der Tests inkrementieren (==> polymorphe Gestaltung des Testings ist nat. wesentlich schoener)
    40. End If
    42. If tests = 0 Then
    43. method()
    44. End If
    45. result.Append("-"c, 16).AppendLine()
    46. System.Diagnostics.Debug.Print(result.ToString())
    47. End Sub
    49. Private Shared Function MeasureIterations(ByVal method As Action, ByVal milliseconds As Integer) As Long
    50. Dim sw As Stopwatch = Stopwatch.StartNew()
    51. Dim iterations As Long = 0
    52. While sw.ElapsedMilliseconds < milliseconds
    53. method()
    54. iterations += 1
    55. End While
    57. Return iterations
    58. End Function
    59. End Class
    61. <AttributeUsage(AttributeTargets.Method, AllowMultiple:=False, Inherited:=False)> _
    62. Public Class TestAttribute
    63. Inherits Attribute
    65. Private _enabled As Boolean
    66. Private _technique As String
    68. Public Sub New()
    69. Me.New(Nothing, True)
    70. End Sub
    72. Public Sub New(ByVal enabled As Boolean)
    73. Me.New(Nothing, enabled)
    74. End Sub
    76. Public Sub New(ByVal technique As String)
    77. Me.New(technique, True)
    78. End Sub
    80. Public Sub New(ByVal technique As String, ByVal enabled As Boolean)
    81. _technique = technique
    82. _enabled = enabled
    83. End Sub
    85. Public ReadOnly Property Enabled As Boolean
    86. Get
    87. Return _enabled
    88. End Get
    89. End Property
    91. Public ReadOnly Property Technique As String
    92. Get
    93. Return _technique
    94. End Get
    95. End Property
    96. End Class
    98. <AttributeUsage(AttributeTargets.Method, AllowMultiple:=False, Inherited:=False)> _
    99. Public Class PerformanceTestAttribute
    100. Inherits Attribute
    102. Private _milliseconds As Integer
    104. Public Sub New(ByVal milliseconds As Integer)
    105. If milliseconds < 0 Then Throw New ArgumentOutOfRangeException("milliseconds", "Amount of milliseconds must be greater than zero.")
    106. _milliseconds = milliseconds
    107. End Sub
    109. Public ReadOnly Property Milliseconds As Integer
    110. Get
    111. Return _milliseconds
    112. End Get
    113. End Property
    114. End Class

    Das ist zwar von der Gestaltung und Ausarbeitung her noch sehr unschön, aber es erfüllt seinen Zweck vorerst. Tests legst du in einer partiellen Klasse Testing ab:

    VB.NET-Quellcode

    1. Partial Class Testing
    2. <Test("Some empty test")>
    3. <PerformanceTest(1000)>
    4. Public Shared Sub SomePerformanceTest()
    6. End Sub
    7. End Class

    Test definiert, dass eine Methode zu testen ist (sofern Enabled = True, Technique beschreibt die Methode genauer), PerformanceTest definiert dann Werte für den Performancetest. Weitere Tests würde man in PerformTest hinzufügen. Die Methode ist in dieser Ausführung aber hässlich. Tests sollte man eher als Klasse modellieren. Übrigens hätte man auch ein Modul verwenden können, ich bin aber von den Eigenschaften von VB-Modulen eher nicht begeistert.

    Gruß
    ~blaze~

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „~blaze~“ ()