Windows Forms Start-Cancel-Button

  • VB.NET

Es gibt 40 Antworten in diesem Thema. Der letzte Beitrag () ist von MichiGee.

    Windows Forms Start-Cancel-Button

    Hallo Leute,

    ich schreibe gerade an meiner Masterarbeit (Bauingenieurwesen) ein Optimierungsprogramm.
    habe mir jetzt eine kleine Windows Forms Anwendung dazu erstellt.
    Im Wesentlichen habe ich da ein paar Eingabeparameter und Checkboxes bzw. Radiobuttons und das wichtigste einen Start und einen Close Button.
    Das ganze sieht dann so aus wie im Anhang.

    Wenn ich jetzt auf start klicke werden meine Prozeduren und Funktionen etc. aufgerufen und Text ausgegeben
    in etwa so.

    VB.NET-Quellcode

    1. Public Sub bttn_start_Click(ByVal sender As Object, ByVal e As EventArgs) Handles bttn_start.Click
    2. bttn_close.Text = "Cancel"
    3. bttn_close.Enabled = True
    5. Main() 'hier werden verschiedene Klassen mit Prozeduren und Funktionen aufgerufen.
    7. End Sub


    Mein Problem ist jetzt natürlich, dass während der Ausführung die Start-Taste "gedrückt" ist und die komplette Anwendung gefroren ist.
    Würde jetzt gerne einfach einen Cancel Button einbauen um während der Ausführung des Programms das ganze abbrechen zu können.

    Habe auch schon einiges über Backgroundworker etc gelesen, hatte aber eigentlich gehofft etwas in etwa wie folgendes zu machen und das Problem zu lösen.

    Wenn der Button gecklickt wird (z.b. ne Boolean-Abfrage einbauen)
    Dann me.cancel

    oder so. Also etwas relativ einfaches, es soll auch niemand während das Programm rechnet was ändern, sondern nur abbrechen.
    Habt ihr da eine Lösung für mich, würd mich freuen.
    Nicht das dass jetzt hier falsch rüberkommt, aber des zählt 0,00 für meine Masterarbeit, mein Betreuer wäre auch mit einer Konsolenanwendung zufrieden ;)

    P.s. Mit Application.Dowork() funktioniert es leider nicht
    Da es sich um einen Code im Rahmen einer Master Thesis handelt und ich programmieren nie gelernt habe, bitte nett bleiben ;)

    Danke
    Lg Michi
    Bilder

    • Winform.PNG

      37,08 kB, 531×470, 164 mal angesehen

    Du müsstest dich dafür mit Threading beschäftigen (gibt viele gute Artikel im Internet darüber, einfach mal googeln). Ein wichtiger Tipp zum Thema noch: CheckForIllegalChrossThreadCalls = False​ ist ein nogo.

    Willkommen im Forum. :thumbup:
    Lagere

    MichiGee schrieb:

    VB.NET-Quellcode

    1. Main()
    in einen Thread aus.
    Beim Drücken des Cancel-Buttons setzt Du ein Flag, das Du in Deiner Prozedur gelegentlich / regelmäßig abfragen musst, um die Prozedur sinnvoll zu beenden.
    Du kannst den Thread auch mit dem Holzhammer beenden, das ist allerdings kein guter Stil.
    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!

    oder zeig mal die Funktionen, die soviel Zeit in Anspruch nehmen.
    Es ist nämlich nicht ausgeschlossen, dass man die so schnell kriegt, dass da nix mehr einfriert.
    Das sollte das erste sein, was man versucht, weil Threading erweist sich immer wieder als doch vertrackter als es anfangs aussieht.

    Das wird leider nichts bringen, da ich ein Optimierungsprogramm schreibe mit Hilfe eines kommerzielen Stabwerkprogramms.
    Und ich bilde mittels Finite Differenzen, Ableitungen, und das ganze in für n-Iterationsschritte.

    Pseudocode:
    Ich lese eine Struktur ein (aus XML bzw. dem Stabwerkprogramm)
    Lasse das Stabwerkprogramm rechnen und mir die Schnittgrößen ausgeben.
    Verändere die einzelnen Designvariablen nacheinander (z.b. z-Koordinate um z+delta) und lasse mir wieder die Schnittgrößen ausgeben.
    Und bilde somit die Ableitung.

    Da ich das für viele Variablen mache und für n-Iterationsschritte friert während der gesamte Prozedur meine Windows Form.

    Werde das mit dem Threadening einfach mal probieren.

    Oder kann ich das ganze einfach irgendwie auslagern?

    MichiGee schrieb:

    irgendwie auslagern?
    In einen Thread.
    Allerdings solltest Du da eine Abbruch-Abfrage einbauen, dass Du ihn geordnet beenden und die Daten speichern kannst.
    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!

    also ohne die Algos mal anzugucken kann man natürlich nix sagen.

    oder nur ganz allgemeine allgemeinPlätze:
    viele performance-Sündenwerden bei String-Verarbeitung begangen, bei Array-Deklarationen und beim Suchen in Auflistungen.
    Diese Liste ist unvollständig.

    beachte #3 der Rules Of Optimization
    d.h. finde den Code-Abschnitt, wo er 95% der zeit verbrät, und stelle erstmal sicher, dass dieser Teil effizient gecodet ist.

    Vorher kein Threading (was das Grauen nur verschleiert, oder gar neues Grauen heraufbeschwört ;) ).

    Eine COM-Schnittstelle kann etwas anderes mit einer TypeLibrary ansteuern.
    In Visual Studio über Projekt-->Verweis hinzufügen --> COM

    Ich schreibe Daten vor allem in die Klasse Node, die neue Geometrie wird in RFEM geladen, die neuen Schnittgrößen werden berechnet und dann lese ich diese wieder aus.

    Der Main-Teil

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub Main()
    3. '// Timer
    4. Dim start, ende As Date
    5. Dim timer As New Stopwatch
    6. timer.Reset()
    7. timer.Start()
    8. start = Now
    9. lbl_start.Text = start
    11. '// Text from Input
    12. Dim folder As String = Txt_browser.Text
    13. Dim MaxIterations As Integer = CInt(txt_maxIt.Text)
    14. Dim epsilon As Double = CDbl(txt_epsilon.Text)
    15. Dim alpha As Double = CDbl(txt_alpha.Text)
    16. Dim delta As Double = CDbl(txt_delta.Text)
    17. Dim structurename As String = txt_structurename.Text
    18. Dim optimethod As String = comboOptiMethod.SelectedItem
    19. Txt_Box.Clear()
    21. '// Class Data
    22. 'Dim data As New Data
    24. '''''''''''''''''''''''''''''''''''''''''''''''''''
    25. ' Opti
    26. '''''''''''''''''''''''''''''''''''''''''''''''''''
    27. Dim opti As New GradientOpti
    29. '// Optimization with RFEM-Structure
    30. If bttn_RFEM.Checked = True Then
    32. Txt_Box.AppendText("------------------------------------------------------------" & vbCrLf & _
    33. "Loading Structure from RFEM" & vbCrLf & _
    34. "------------------------------------------------------------" & vbCrLf)
    36. data.RFGetStructure(folder)
    37. data.RFGetLoads(folder)
    38. data.CreateNewStructure(structurename, folder, MaxIterations, epsilon, alpha, delta, optimethod, Txt_Box, txt_CostFunction)
    40. ElseIf bttn_XML.Checked = True Then
    42. Txt_Box.AppendText("------------------------------------------------------------" & vbCrLf & _
    43. "Loading Structure from XML" & vbCrLf & _
    44. "------------------------------------------------------------" & vbCrLf)
    46. data.CreateNewStructure(structurename, folder, MaxIterations, epsilon, alpha, delta, optimethod, Txt_Box, txt_CostFunction)
    47. End If
    49. 10:
    50. 'Release RFEM and Clean Garbage
    51. IStr = Nothing
    52. System.GC.Collect()
    54. '______________________________________________________________________________________
    56. timer.Stop()
    57. ende = Now
    58. lbl_finished.Text = ende
    60. Dim ts As TimeSpan = Timer.Elapsed
    62. ' Format and display the TimeSpan value.
    63. Dim elapsedTime As String = String.Format("{0:00}:{1:00}:{2:00}.{3:00}", ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds / 10)
    64. lbl_calctime.Text = elapsedTime
    66. bttn_close.Text = "Close"
    68. End Sub



    Bei "Createnewstructure" wird eine Übergabe gestartet und springt dann in die Optimization Prozedur

    Das ist der Optimierungsteil des Codes, dieser hat noch Klassen für XML und die Übergabe an RFEM..

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Sub Optimization(ByRef folder As String, ByRef MaxIterations As Integer, ByRef epsilon As Double, ByRef alpha As Double, _
    2. ByRef delta As Double, ByRef OptiMethod As String, ByRef txt_box As TextBox, ByRef txt_CostFunction As TextBox, _
    3. ByRef Istructure As IrfStructure, ByRef Idata As IrfStructuralData, ByRef Ires As IrfResults, ByRef Structurename As String)
    5. '-------------------------------------------------------
    6. '// 1. INPUT
    7. '------------------------------------------------------
    9. '// Get Structure from XML
    10. Dim MyStr As MyStructure = XMLGetStructure(folder)
    11. Dim RefStr As RefStructure = MyStr.RefStructure(0)
    13. '// Dim Update Structure
    14. Dim UpdateStr As New MyStructure
    15. Dim Str(0) As UpdateStructure
    16. Str(0) = New UpdateStructure
    18. '// Get Design-Variables
    19. Dim i As Integer 'Count Variables
    20. Dim count_n As Integer = RefStr.Node.Count
    21. Dim Node(count_n - 1) As Nodes
    22. Dim rfn(count_n - 1) As RF_NODE
    24. For i = 0 To count_n - 1
    25. ' Save Nodes from XML in my Nodes -- Neccessary to Update the Structure
    26. Node(i) = New Nodes
    27. Node(i).nr = RefStr.Node(i).nr
    28. Node(i).x = RefStr.Node(i).x
    29. Node(i).y = RefStr.Node(i).y
    30. Node(i).z = RefStr.Node(i).z
    31. Next i
    33. Dim count_s As Integer = RefStr.NodeSupport.Count
    35. 'Settin Designvariables (-1 = support, 1 = dof)
    36. Dim x((count_n * 3) - 1) As Double
    37. x = opti.Designvariables(x, count_s, count_n, RefStr)
    39. ' Restrictions
    40. Dim upper As Double = 5
    41. Dim under As Double = -5
    43. Dim xupper(x.Length - 1) As Double
    44. Dim xunder(x.Length - 1) As Double
    46. For i = 0 To x.Length - 1
    47. If x(i) = 1 Then
    48. xupper(i) = x(i) * upper
    49. xunder(i) = x(i) * under
    50. End If
    51. Next
    53. ' End Criterium
    54. Dim eps As Double
    56. '-------------------------------------------------------
    57. '// 2. OPTIMIZATION WITH STEEPEST DESCENT
    58. '-------------------------------------------------------
    60. '// OBJECTIVE FUNCTION f(X)
    62. Dim f As Double
    63. f = opti.ObjectiveFunction(OptiMethod, txt_CostFunction, Istructure, Idata, Ires) 'Objective Function
    64. If f = 0 Then
    65. GoTo 10
    66. End If
    68. '// GRADIENT g(X)
    69. '-----
    70. timer.Reset()
    71. timer.Start()
    72. txt_CostFunction.AppendText("df_i = " & vbCrLf)
    73. '-----
    74. Dim g(x.Length - 1) As Double
    75. g = opti.FDAForward(Node, UpdateStr, Str, x, delta, folder, OptiMethod, txt_CostFunction, f, Istructure, Idata, Ires)
    76. g = opti.NormGradient(g) 'Norm Gradient
    78. '// SEARCH VECTOR:
    79. Dim s(g.Length - 1) As Double
    80. For i = 0 To g.Length - 1
    81. s(i) = -g(i) 'Search Vector as Negative Gradient
    82. Next
    84. '// UPDATE GEOMETRY - AND CALCULATE ALL
    86. UpdateStr = opti.RFGeoPlus(Node, UpdateStr, Str, x, s, alpha, folder, Istructure, Idata) 'First Updated Structure
    88. '// CALCULATE UPDATED GEOMETRY
    89. RFCalculate("All", Istructure, Idata, Ires)
    91. '// PROOF END OF ITERATION
    92. eps = opti.Norm(g)
    94. If eps = 0 Then
    95. GoTo 20
    96. ElseIf eps <= epsilon Then
    97. GoTo 30
    98. ElseIf MaxIterations = 1 Then
    99. GoTo 40
    100. End If
    102. ' Unlock RFEM-License
    103. Istructure.rfGetApplication().rfUnlockLicence()
    105. '-------------------------------------------------------
    106. '// 3. OPTIMIZATION WITH CONJUGATED GRADIENT METHOD
    107. '-------------------------------------------------------
    109. Dim gk(g.Length - 1) As Double 'Dimension Gradient(k)
    110. Dim sk(g.Length - 1) As Double 'Dimension Search Vector(k)
    111. Dim Beta As Double
    112. Dim fk As Double
    113. Dim k As Integer
    115. '// ALGORITHM
    116. For k = 2 To MaxIterations
    118. '// GRADIENT g(X)
    120. Istructure.rfGetApplication().rfLockLicence()
    122. 'Cost Function for every DOF to build Gradient
    123. gk = opti.FDAForward(Node, UpdateStr, Str, x, delta, folder, OptiMethod, txt_CostFunction, fk, Istructure, Idata, Ires)
    124. gk = opti.NormGradient(gk)
    126. '// BETA - Correction Factor
    127. Beta = (opti.Norm(gk) / opti.Norm(g)) ^ 2
    129. '// SEARCH VECTOR: w.r.t BETA
    130. For i = 0 To gk.Length - 1
    131. sk(i) = -gk(i) + Beta * s(i) 'Search Vector * beta
    132. Next
    134. '// LINE SEARCH
    136. alpha = opti.InterpolationPapa(Node, UpdateStr, Str, x, sk, f, folder, OptiMethod, txt_CostFunction, Istructure, Idata, Ires)
    138. '// UPDATE GEOMETRY
    140. UpdateStr = opti.RFGeoPlus(Node, UpdateStr, Str, x, sk, alpha, folder, Istructure, Idata)
    142. '// CALCULATE UPDATED GEOMETRY
    143. RFCalculate("All", Istructure, Idata, Ires)
    145. '// Update Objective Function
    146. txt_CostFunction.AppendText("f_k = " & vbCrLf)
    147. fk = opti.ObjectiveFunction(OptiMethod, txt_CostFunction, Istructure, Idata, Ires)
    149. '// Norm gk
    150. eps = opti.Norm(gk) - 1
    152. '// PROOF END OF ITERATION
    154. If OptiMethod = "Mass" Then
    155. If eps <= epsilon Then 'Abs(f - fk) <= epsilon Or
    156. GoTo 30
    157. End If
    158. Else
    159. If eps <= epsilon Or fk <= epsilon Then
    160. GoTo 30
    161. ElseIf k = MaxIterations Then
    162. GoTo 40
    163. End If
    164. End If
    166. '// Set fk+1 to f & gk+1 to g
    167. g = gk.Clone
    168. f = fk
    170. Istructure.rfGetApplication().rfUnlockLicence()
    171. Next
    173. '// SKIP MARKS - END OF ALGORITHM
    175. 10: 'Objective Function = 0
    176. MsgBox("Objective Function = 0")
    177. Istructure.rfGetApplication().rfUnlockLicence()
    178. Exit Sub
    180. 20: 'Small StepSize or Optimum Reached
    181. MsgBox("Small StepSize")
    182. Istructure.rfGetApplication().rfUnlockLicence()
    183. Exit Sub
    185. 30: 'Converged
    186. MsgBox("Convergence reached after " & k & " Steps", MsgBoxStyle.OkOnly)
    187. Istructure.rfGetApplication().rfUnlockLicence()
    188. Exit Sub
    190. 40: 'Max Iterations
    191. MsgBox("Reached Max. Iterations", MsgBoxStyle.OkOnly)
    192. Istructure.rfGetApplication().rfUnlockLicence()
    193. End Sub
    195. #End Region
    197. End Class



    Daten werden in versch. Funktionen weggeschrieben z.B.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Sub RFUpdateNodes(ByRef Istructure As IrfStructure, ByRef Idata As IrfStructuralData, ByRef folder As String, ByRef mystr As MyStructure)
    3. ''// RFEM-Structure
    4. Idata = Istructure.rfGetStructuralData()
    6. '// Get Structure from XML and save into My_Structure
    7. Dim Str As UpdateStructure = mystr.UpdateStructure(0)
    9. '// RFEM Modification
    10. Idata.rfPrepareModification()
    12. '//
    13. '// 1. Nodes
    14. '//
    16. '// Checks if Nodes are empty
    17. If Str.Node Is Nothing Then
    18. Else
    20. '// Counts Nodes from XML
    21. Dim count_n As Integer = Str.Node.Count
    22. Dim i_n As Integer
    24. '// Declaration of nodes
    25. Dim node(count_n - 1) As Nodes
    26. Dim rfnode(count_n - 1) As RF_NODE
    28. '// Loop over Nodes
    29. For i_n = 0 To count_n - 1
    31. node(i_n) = New Nodes
    32. rfnode(i_n) = New RF_NODE
    33. node(i_n) = Str.Node(i_n)
    35. rfnode(i_n).iNo = node(i_n).nr
    36. rfnode(i_n).x = node(i_n).x
    37. rfnode(i_n).y = node(i_n).y
    38. rfnode(i_n).z = node(i_n).z
    39. rfnode(i_n).csType = node(i_n).cs
    40. rfnode(i_n).iRefObjectNo = node(i_n).ref
    42. 'Get RFEMNode and update with new Data
    43. Idata.rfGetNode(rfnode(i_n).iNo, ITEM_AT.AT_NO).rfSetData(rfnode(i_n))
    45. Next
    47. End If
    49. '// RFEM Finish Modification
    50. Idata.rfFinishModification()
    52. End Sub



    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „MichiGee“ ()

    @MichiGee Nur mal so interessehalber:
    Du kommunizierst per RS232 mit einem anderen Computer, in dem die FEM stattfindet? Suboptimaler ginge es kaum.
    Editier bitte Deinen letzten Post, markiere den Quellcode (außerhalb [ vbnet ][ /vbnet ]) und mach einen Spoiler drum.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dein Code
    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!

    nicht mit einem anderen Computer, mit einem anderen Programm.
    Also mein Programm steuert den Solver von RFEM an und ich schreibe Daten und bekomme Daten davon.

    Aber prinzipiell will ich einfach nur meinem Programm einen Abbruch Knopf geben!

    Des Bild ist n Auszug aus der Hilfe, so siehts für VBA aus, funktioniert prinzipiell genauso für VB
    Bilder

    • DlubalCOMStartEN.jpg

      256,34 kB, 1.240×1.754, 137 mal angesehen

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „MichiGee“ ()

    Du kommunizierst

    MichiGee schrieb:

    mit einem anderen Programm.
    über RS232?
    Brrrrrrrrrrrrrrrrrrrrrrrr.
    Du musst beim Drücken Deines Buttons ein Flag setzen, das Du in einer inneren Schleife abfragen musst.
    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!

    warum RS232? ich gehe über

    VB.NET-Quellcode

    1. Imports Dlubal.RFEM 'Namespace liegt in ner DLL welche über Verweis hinzugefügt wird!

    Diese Ansteuerung gibt es eben von dem Hersteller und mein Betreuer fand des cool, also mache ich das ;)

    Aber das mit dem Flag klingt ganz gut, mal schauen ob ich des hinbekomme.

    Muchas Gracias

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

    MichiGee schrieb:

    und mein Betreuer fand des cool
    Kommunikation 2er Programme auf einem Rechner über solch? Suboptimalst vom Feinsten.
    Ich nehme mal an, Dein Betreuer hat absolut keine Ahnung und / oder absolut keinen Plan. ;(
    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!