Sub und Funktion zusammenlegen zu einer einzigen Sub

  • VB.NET

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

    Sub und Funktion zusammenlegen zu einer einzigen Sub

    Hallo.

    Ich habe 2 Subs bzw eine Sub und eine Funktion, die als Boolean funzt. Wie kann man solche Subs zusammenlegen / umschreiben zu einer einzigen Sub, die trotzdem die Funktionalität hat, wie beide zusammen?
    Starten möchte ich die Sub dann mit der "Handles MyBase.Load"-Sub.




    Quellcode

    1. ​ Private Function Initialize() As Boolean
    3. Try
    4. Dim Kopfzeile As String
    5. Dim i, j As Integer
    7. Dim FileColumnNames() As String
    8. Dim InputName As String
    9. Dim NameCounter As Integer
    11. Call DR1.LoadDataRecApp(TextBox5.Text)
    13. ReDim InputParameter(DR1.ParameterCount)
    15. For i = 1 To DR1.ParameterCount
    16. With InputParameter(i)
    17. .Min = DR1.Parameters(i).Min
    18. .Max = DR1.Parameters(i).Max
    19. .RelError = DR1.RelativeModelAccuracy(i)
    20. .AbsError = DR1.AbsoluteModelAccuracy(i)
    21. End With
    22. Next
    24. If RecordNumber > 0 Then
    25. sr.Close()
    26. sw.Close()
    27. End If
    29. InputFileName = TextBox6.Text
    30. If InputFileName = "" Then InputFileName = DR1.Path & "\" & DR1.Application & ".pat"
    31. sr = New IO.StreamReader(InputFileName)
    32. LineString = sr.ReadLine
    34. FileColumnNames = LineString.Split(CChar(";"))
    36. ReDim ColumnPointer(DR1.ParameterCount)
    38. For i = 1 To DR1.ParameterCount
    39. InputName = DR1.Parameters(i).Name
    40. ColumnPointer(i) = -1
    41. NameCounter = 0
    42. For j = 0 To FileColumnNames.GetUpperBound(0)
    43. If FileColumnNames(j) = InputName Then
    44. ColumnPointer(i) = j
    45. NameCounter += 1
    46. End If
    47. Next
    49. If NameCounter > 1 Then
    50. MsgBox("Multiple occcurence of column name: " & InputName)
    51. Exit Function
    52. End If
    54. If ColumnPointer(i) < 0 Then
    55. MsgBox("Input not found in file: " & InputName)
    56. Exit Function
    57. End If
    58. Next
    60. For i = 1 To DR1.ParameterCount
    61. Debug.Print(CStr(i) & " " & ColumnPointer(i) & " " & DR1.Parameters(i).Name & " " & FileColumnNames(ColumnPointer(i)))
    62. Next
    64. OutputFilename = TextBox7.Text
    65. sw = New IO.StreamWriter(OutputFilename)
    66. Kopfzeile = "No.;"
    67. For i = 1 To DR1.ParameterCount
    68. Kopfzeile += DR1.Parameters(i).Name & "_meas;"
    69. Next
    71. sw.WriteLine(Kopfzeile)
    73. RecordNumber = 0
    74. Initialize = True
    76. Catch ex As Exception
    77. MsgBox(ex.Message)
    78. Initialize = False
    79. Exit Function
    80. End Try
    82. End Function
    85. Private Sub EvaluateRecord()
    87. Try
    89. Dim i As Integer
    90. Dim Zeile, hString As String
    91. Dim ActiveRecord, ARSplit() As String
    93. If Not sr.EndOfStream Then
    94. ActiveRecord = sr.ReadLine
    96. RecordNumber += 1
    97. ARSplit = ActiveRecord.Split(CChar(";"))
    99. For i = 1 To DR1.ParameterCount
    100. DR1.InPut(i) = ARSplit(ColumnPointer(i))
    101. Next
    103. DR1.EvalF()
    105. Zeile = CStr(RecordNumber) & ";"
    107. For i = 1 To DR1.ParameterCount
    108. hString = ""
    109. If IsNumeric(ARSplit(ColumnPointer(i))) Then hString = ARSplit(ColumnPointer(i))
    110. Zeile += hString & ";" & DR1.OutPut(i) & ";"
    111. Next
    113. Zeile += DR1.ValueIncompleteCount & ";" & DR1.Iterations & ";" & DR1.deltarel & ";" & DR1.PCA_MaximumNumberIterations & ";" & DR1.PCA_ReconstructionAccuracy
    114. sw.WriteLine(Zeile)
    116. TextBox1.Text = CStr(RecordNumber)
    117. Me.Refresh()
    119. Else
    120. sr.Close()
    121. sw.Close()
    122. End If
    124. Catch ex As Exception
    125. MsgBox(ex.Message)
    126. sr.Close()
    127. sw.Close()
    128. Exit Sub
    129. End Try
    131. End Sub

    Wenn du in einer Function ein Argument als ByRef(By reference) angibst, wird die referenzierte Variable verwendet.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. Dim i As Integer = -1
    5. For counter As Integer = 0 To 10
    6. Debug.WriteLine(X(i) & " : " & i)
    7. Next
    8. End Sub
    10. Private Function X(ByRef var As Integer) As Boolean
    11. var += 1
    12. Return var < 10
    13. End Function
    15. End Class

    And i think to myself... what a wonderfuL World!

    Wie kann man 2 Funktionen zu einer machen?

    Man schreibt den Inhalt beider Funktionen in eine Funktion.

    Anhand deines Codes kann ich nicht mal einen direkten Zusammenhang zwischen beiden Funktionen sehen (da Sie sich nicht aufrufen). Ich sehe lediglich das beide Funktionen offenbar iwelche globalen Variablen verwenden und das der Code vermutlich aus VB6 stammt oder von jemanden der aus VB6 kommt geschrieben wurde.

    Also ändere ich meine Antwort doch noch mal.

    Als erstes muss man verstehen was die Funktionen eigentlich machen und auch Grundlagen zur Programmierung im Allgemeinen verstehen.
    Dann kann man Code von anderen auch umschreiben und anpassen.
    Das ist meine Signatur und sie wird wunderbar sein!

    @Sweet Dein Plan ist die Schaffung von Spagetticode, das solltest Du lassen. Solcher Code ist nicht oder nur schlecht pflegbar, und in einem halben Jahr weißt Du nicht mehr, was Du getan hast.
    Besser ist das Gegenteil, die Auslagerung von in sich geschlossenem Programmcode in einzelne Prozeduren.
    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!

Facebook