Verbesserungs möglichkeit ?

  • VB.NET

Es gibt 36 Antworten in diesem Thema. Der letzte Beitrag () ist von SystemUnknow.

    Verbesserungs möglichkeit ?

    Hey ho,

    ich hab immer mal wieder sachen die recht gleich sind und frage mich gerade ob man sowas nicht besser lösen könnte.
    Hier ein Beispiel

    VB.NET-Quellcode

    1. Private Function Registriernummer() As Boolean
    2. HRAS = "R"c
    3. Label1.Text = "Registriernummer"
    4. Me.Visible = True
    5. While Me.Visible = True
    6. My.Application.DoEvents()
    7. End While
    8. If Form1.ComboBox12.Text <> "" Then
    9. Return True
    10. End If
    11. Return False
    12. End Function
    14. Private Function Hersteller() As Boolean
    15. HRAS = "H"c
    16. Label1.Text = "Hersteller"
    17. Me.Visible = True
    18. While Me.Visible = True
    19. My.Application.DoEvents()
    20. End While
    21. If Form1.ComboBox13.Text <> "" Then
    22. Return True
    23. End If
    24. Return False
    25. End Function
    27. Private Function Seriennummer() As Boolean
    28. HRAS = "S"c
    29. Label1.Text = "Seriennummer"
    30. Me.Visible = True
    32. While Me.Visible = True
    33. My.Application.DoEvents()
    34. End While
    35. If Form1.ComboBox14.Text <> "" Then
    36. Return True
    37. End If
    38. Return False
    39. End Function
    41. Private Function Auftragsnummer() As Boolean
    42. HRAS = "A"c
    43. Label1.Text = "Auftragsnummer"
    44. Me.Visible = True
    45. While Me.Visible = True
    46. My.Application.DoEvents()
    47. End While
    48. If Form1.ComboBox15.Text <> "" Then
    49. Return True
    50. End If
    51. Return False
    52. End Function


    Wäre für jeden Tipp dankbar ;)

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

    Pack Deine KeyWords in eine List(Of String) und gehe dann einfach die Liste durch. Bei einem neuen eintrag musst Du dann einfach nur die Liste erweitern.
    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!

    Naja ist nu nicht die Liste die du meintest :D

    VB.NET-Quellcode

    1. Dim List As New Hashtable
    2. Dim Combo As New HashSet(Of ComboBox)
    4. Private Function Art(ByVal Key As String) As Boolean
    5. HRAS = CChar(VB.Left(Key, 1))
    6. Label1.Text = Key
    7. Me.Visible = True
    8. While Me.Visible = True
    9. Threading.Thread.Sleep(100)
    10. My.Application.DoEvents()
    11. End While
    12. If Combo(CInt(List(Key))).Text <> "" Then
    13. Return True
    14. End If
    15. Dim i As Integer
    16. Integer.TryParse(Key, i)
    17. Return False
    18. End Function
    20. Private Sub FillHash()
    21. Combo.Add(Form1.ComboBox12)
    22. Combo.Add(Form1.ComboBox13)
    23. Combo.Add(Form1.ComboBox14)
    24. Combo.Add(Form1.ComboBox15)
    25. End Sub
    26. Private Sub FillList()
    27. List.Add("Regisriernummer", "0")
    28. List.Add("Hersteller", "1")
    29. List.Add("Seriennummer", "2")
    30. List.Add("Auftragsnummer", "3")
    31. End Sub

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

    Du solltest Application.DoEvents() vermeiden. In der Funktion Art(9 zum beispiel. Welchen Sinn hat es da überhaupt? Du führst eine simple If-Abfrage durch, die blockiert das GUI eigentlich nicht.
    Und noch zwei Tipps: Versuche von den alten VB6-Überbleibseln weg zu kommen (CInt usw.) und schalte Option Strict auf On.

    Viele Grüße, Phil.

    strict und explicit sind beide auf on ;)
    Und mit VB6 hab ich nie gearbeitet.
    Was soll man denn an stelle von CInt usw. nehmen?

    Das mit dem Do.events mache ich damit das Fenster reagiert. Wenn ich das weg mache kann ich ja keine Knöpfe usw. mehr betätigen.

    Zim schrieb:

    Wäre für jeden Tipp dankbar

    naja - erstmal vernünftig formatieren, oder stehen bei dir im Editor die Codeblöcke auch so ohne Einrückung?

    Und dann ühaupt erklären, was das soll, und in was für einer Klasse oder Modul diese Funktionen alle stehen, und was deren Funktion ist.
    Wieso gibt "RegistrierNummer" einen Bool zurück?

    ^^ das mit dem Formatieren kommt ja im Editor automatisch, liegt wohl am Copy Past :P

    Naja das ist aus ner Form. Da frag ich den Benutzer nach einem Hersteller, Registriernummer usw.
    Wenn keine Eingabe gemacht wurde kommt halt "false", daran erkenne ich dann einfach welche Eingabe gemacht wurde.

    Also ich paste immer im Quellcode-Editor des Forums ein, und geht fabelhaft (FireFox)

    VB.NET-Quellcode

    1. Private Function Registriernummer() As Boolean
    2. HRAS = "R"c
    3. Label1.Text = "Registriernummer"
    4. Me.Visible = True
    5. While Me.Visible = True
    6. My.Application.DoEvents()
    7. End While
    8. If Form1.ComboBox5.Text <> "" Then
    9. Return True
    10. End If
    11. Return False
    12. End Function
    14. Private Function Hersteller() As Boolean
    15. HRAS = "H"c
    16. Label1.Text = "Hersteller"
    17. Me.Visible = True
    18. While Me.Visible = True
    19. My.Application.DoEvents()
    20. End While
    21. If Form1.ComboBox6.Text <> "" Then
    22. Return True
    23. End If
    24. Return False
    25. End Function
    27. Private Function Seriennummer() As Boolean
    28. HRAS = "S"c
    29. Label1.Text = "Seriennummer"
    30. Me.Visible = True
    32. While Me.Visible = True
    33. My.Application.DoEvents()
    34. End While
    35. If Form1.ComboBox7.Text <> "" Then
    36. Return True
    37. End If
    38. Return False
    39. End Function
    41. Private Function Auftragsnummer() As Boolean
    42. HRAS = "A"c
    43. Label1.Text = "Auftragsnummer"
    44. Me.Visible = True
    45. While Me.Visible = True
    46. My.Application.DoEvents()
    47. End While
    48. If Form1.ComboBox8.Text <> "" Then
    49. Return True
    50. End If
    51. Return False
    52. End Function


    Und nochn Tipp: Versuchen, absolut exakt zu formulieren:

    Zim schrieb:

    Da frag ich den Benutzer nach einem Hersteller, Registriernummer usw.
    Wenn keine Eingabe gemacht wurde kommt halt "false",

    kann man nix mit anfangen. "fragen" und "halt kommen" - das gibts eiglich nicht im Computer.

    Ja gut ich hab das immer mit diesem VB umklammert.

    Naja, eigentlich ist es doch ohne bedeutung was das schlussendlich macht, es ist doch raus zu lesen was passiert. Und da sich das ja immer mehr oder weniger wiederholt hatte ich mir gedacht das es bestimmt schlauer zu lösen geht.

    Zim schrieb:

    es ist doch raus zu lesen was passiert.

    Sorry - absolut nicht.

    VB.NET-Quellcode

    1. While Me.Visible = True
    2. My.Application.DoEvents()
    3. End While
    muß man einfach als "schlimme Programmier-Sünde" bezeichnen - und ich hab keine Idee, was das soll.

    Ich denke fasst, du versuchst auf prozeduralem Weg etwas zu lösen, für das die Eventorientierte Denkweise erforderlich ist.

    Und da sich das ja immer mehr oder weniger wiederholt hatte ich mir gedacht das es bestimmt schlauer zu lösen geht.
    Das wiederum unterstütze ich vollundganz, das DRY-Prinzip ist vmtl. das wichtigste Programmierprinzip überhaupt.

    Eine Möglichkeit der Umstrukturierung wäre "Parametrisierung" - also dass man nur die veränderlichen Code-Teile als Paramter reingibt:

    VB.NET-Quellcode

    1. Private Function KeineAhnungWozu(ByVal text As String, _
    2. ByVal combo As ComboBox) As Boolean
    3. HRAS = text(0)
    4. Label1.Text = text
    5. Me.Visible = True
    6. '(das folgende glaubich einfach nicht)
    7. 'While Me.Visible = True
    8. ' My.Application.DoEvents()
    9. 'End While
    11. 'das folgende geht viel einfacher
    12. 'If combo.Text <> "" Then
    13. ' Return True
    14. 'End If
    15. 'Return False
    16. Return combo.Text <> "" 'nämlich so
    17. End Function


    Diese Methode könnte alle deine anneren ersetzen

    Ja ich komme aus dem Prozeduralem :P

    Ich hab halt ein Hauptfenster. So wenn ich da zb. auf einen Knopf drücke rufe ich eine Funktion auf und warte da auf eine Antwort. Diese Funktion ist halt diese: KeineAhnungWozu(). Die macht dann ein anderes Fenster sichtbar. Nachdem ich in diesem Fenster eine Eingabe gemacht habe und diese Kontrolliert habe mach ich das Fenster visible = false somit bricht die Schleife ab und er gibt einen Wert zurück.

    @Warfley
    Jop das tue ich :P

    CInt(), CStr(), ... kommen aus VB6
    in VB.Net gibt es jetzt dafür Convert.ToInt32(), Object.ToString() oder auch halt Integer.TryParse()

    ja, nur das mittm close hat ja garnix mit unserm Thema zu tun.

    Und zum beispiel die hashtable - hastedie von galileo? weil seit 2005 würdeman in deim Fall Dictionary(Of String, Integer) nehmen

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

    Mein ja nur :P
    Aber das für zu der nächsten frage :P
    Ich lade Bilder ein unter Form1_Load. So wenn ich das Fenster aber mit ShowDialog auf mache rennt er da ja immer durch. Der ist aber nicht zufällig so schlau und weiss das er gerade die selben Bilder wieder läd oder?

    Im einfachsten Fall fügt man Bilder den Ressourcen hinzu. Damit hat man sie global verfügbar, und also werden sie nur einmal geladen. Aber das ist statisch, also solche bilder zur laufzeit zu ändern ist nicht vorgesehen.

    So, du bist jetzt schon ein großer Programmierer, und kannst das Stichwort "Resource" selbst nachlesen. Meine Buchempfehlung kennsteja, aber mw probier auch Galileo oder gar google.

Facebook
Telefonspende