Goto-Befehl ersetzten

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von Westerwälder.

    Goto-Befehl ersetzten

    Hallo zusammen,
    zur Zeit schreibe ich meine Programme um. Teilweise stammt der Code aus meiner ersten Vision mit VB5 und wurde in VB 2008 übernommen. Nun in der neuen Version mit VB 2010 möchte ich es eigentlich richtig machen. Option Strict auf On geschaltet und nun möchte ich die goto-Befehle raus haben. Mir ist nicht immer klar, welche Methode die richtige ist. Do .. loop oder doch besser select case. Da solche Sachen öfters in meinem Code vorkommen, hier ein Beispiel. Ich speichere seit Jahren die Lottozahlen in einer Datenbank ab und kann eine Statistik nach Häufigkeit der gezogenen Zahlen drucken.

    Hier mal der gesamte code der Sub
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub Statistik()
    5. Formular.Lottostatistik_Initalisieren()
    6. Formular.Zeile = 1
    8. With Formular
    9. .Zeilenschaltung(2)
    10. .B = "Deutscher Lottoblock 6 aus 49"
    11. .Excel_Eintragen(True, False, True)
    12. .Zeilenschaltung(2)
    13. End With
    15. Dim VonDatum As Date = CDate(Datum.Kurz)
    16. Dim BisDatum As Date = CDate("01.01.1901")
    17. Dim AnzahlZiehungen As Integer = 0
    18. Dim GezoLottozahlen(49) As Integer
    19. Dim TmpLottozahlen(50) As Integer
    20. Dim TmpZusatzzahlen(50) As Integer
    21. Dim FestLottozahlen(49) As Integer
    22. Dim GezoZusatzzahlen(49) As Integer
    23. Dim FestZusatzzahlen(49) As Integer
    26. For FLZ As Integer = 0 To 49
    27. FestLottozahlen(FLZ) = FLZ
    28. Next
    30. Dim GezoSuperzahlen(9) As Integer
    33. BankName = Programm.FinanzBank.BankName
    34. BankPfad = Programm.FinanzBank.BankPfad
    35. IdentNummer = 200003
    36. Initalisieren()
    39. ConIntern = New OleDb.OleDbConnection
    40. CmdIntern = New OleDb.OleDbCommand
    41. ConIntern.ConnectionString = BankVerbindung
    42. CmdIntern.Connection = ConIntern
    43. ConIntern.Open()
    45. CmdIntern.CommandText = "Select * from " & Banktabelle & " where Ident_Nummer like 200003"
    46. ReaderIntern = CmdIntern.ExecuteReader
    48. ' Ermitteln der bereits gezogenen Lottozahlen
    50. Do While ReaderIntern.Read
    52. AnzahlZiehungen = (AnzahlZiehungen + 1)
    54. If CDate(ReaderIntern("FN01").ToString) < VonDatum Then VonDatum = CDate(ReaderIntern("FN01").ToString)
    55. If CDate(ReaderIntern("FN01").ToString) > BisDatum Then BisDatum = CDate(ReaderIntern("FN01").ToString)
    57. GezoLottozahlen(CInt(Val(ReaderIntern("FN03").ToString))) = GezoLottozahlen(CInt(Val(ReaderIntern("FN03").ToString))) + 1
    58. GezoLottozahlen(CInt(Val(ReaderIntern("FN04").ToString))) = GezoLottozahlen(CInt(Val(ReaderIntern("FN04").ToString))) + 1
    59. GezoLottozahlen(CInt(Val(ReaderIntern("FN05").ToString))) = GezoLottozahlen(CInt(Val(ReaderIntern("FN05").ToString))) + 1
    60. GezoLottozahlen(CInt(Val(ReaderIntern("FN06").ToString))) = GezoLottozahlen(CInt(Val(ReaderIntern("FN06").ToString))) + 1
    61. GezoLottozahlen(CInt(Val(ReaderIntern("FN07").ToString))) = GezoLottozahlen(CInt(Val(ReaderIntern("FN07").ToString))) + 1
    62. GezoLottozahlen(CInt(Val(ReaderIntern("FN08").ToString))) = GezoLottozahlen(CInt(Val(ReaderIntern("FN08").ToString))) + 1
    63. GezoZusatzzahlen(CInt(Val(ReaderIntern("FN09").ToString))) = GezoZusatzzahlen(CInt(Val(ReaderIntern("FN09").ToString))) + 1
    64. GezoSuperzahlen(CInt(Val(ReaderIntern("FN10").ToString))) = GezoSuperzahlen(CInt(Val(ReaderIntern("FN10").ToString))) + 1
    66. Loop
    68. ConIntern.Close()
    70. For UL As Integer = 1 To 49
    71. TmpLottozahlen(UL) = GezoLottozahlen(UL)
    72. TmpZusatzzahlen(UL) = GezoZusatzzahlen(UL)
    73. Next
    75. Dim Zähler, Max As Integer
    76. Dim i, j As Integer
    77. Dim HL(49) As Integer
    78. Dim ML(49) As String
    79. Dim SL(49) As Boolean
    80. Dim Speicher(2) As String
    81. Dim n As Integer = 0
    83. ' Listbox1 wird durch ein Listoff ersetzt
    84. Finanz.ListBox1.Items.Clear()
    85. Finanz.ListBox1.Sorted = False
    88. 250: n = 0
    89. 260: n = n + 1
    90. If n = 50 Then GoTo 300
    91. SL(n) = False
    92. GoTo 260
    93. Stop
    97. 300: Max = 0
    100. n = 0
    101. 310: n = (n + 1)
    102. If n = 50 Then GoTo 350
    103. If TmpLottozahlen(n) > Max Then Max = TmpLottozahlen(n)
    104. GoTo 310
    105. Stop
    110. 350: Zähler = (Max + 1) : i = 0 : j = 0 : n = 0
    112. 360: Zähler = (Zähler - 1)
    113. If Zähler < 0 Then GoTo 600
    115. 370: i = (i + 1)
    116. If i = 50 Then i = 0 : GoTo 360
    117. If TmpLottozahlen(i) = Zähler Then GoTo 380
    118. GoTo 370
    119. Stop
    121. 380: If SL(i) = True Then GoTo 370
    123. SL(i) = True
    126. Speicher(2) = CStr(i)
    127. Speicher(1) = CStr(TmpLottozahlen(i))
    129. Anzeige = Speicher(1) + " x die " + Speicher(2)
    130. Finanz.ListBox1.Items.Add(Anzeige)
    132. GoTo 370
    133. Stop
    136. 600: ' Lottozahlen Häufigkeiten aufbereitet
    140. Finanz.ListBox2.Items.Clear()
    141. Finanz.ListBox2.Sorted = False
    144. 650: n = 0
    145. 660: n = n + 1
    146. If n = 50 Then GoTo 700
    147. SL(n) = False
    148. GoTo 660
    149. Stop
    153. 700: Max = 0
    156. n = 0
    157. 710: n = (n + 1)
    158. If n = 50 Then GoTo 750
    159. If TmpZusatzzahlen(n) > Max Then Max = TmpZusatzzahlen(n)
    160. GoTo 710
    161. Stop
    166. 750: Zähler = (Max + 1) : i = 0 : j = 0 : n = 0
    168. 760: Zähler = (Zähler - 1)
    169. If Zähler < 0 Then GoTo 800
    171. 770: i = (i + 1)
    172. If i = 50 Then i = 0 : GoTo 760
    173. If TmpZusatzzahlen(i) = Zähler Then GoTo 780
    174. GoTo 770
    175. Stop
    177. 780: If SL(i) = True Then GoTo 770
    179. SL(i) = True
    182. Speicher(2) = CStr(i)
    183. Speicher(1) = CStr(TmpZusatzzahlen(i))
    185. Anzeige = Speicher(1) + " x die " + Speicher(2)
    186. Finanz.ListBox2.Items.Add(Anzeige)
    188. GoTo 770
    189. Stop
    192. 800: ' Zusatzzahlen Häufigkeiten aufbereitet
    195. With Formular
    196. .B = "Die Statistik enthält Lottoziehungen vom " & VonDatum & " bis " & BisDatum & "."
    197. .Excel_Eintragen(False, False, False)
    198. .Zeilenschaltung(1)
    199. .B = "Es wurden insgesamt " & AnzahlZiehungen.ToString & " Ziehungen berücksichtigt."
    200. .Excel_Eintragen(False, False, False)
    201. .Zeilenschaltung(2)
    202. .B = "Zahlenauswertung"
    203. .F = "Häufigkeitsauswertung"
    204. .Excel_Eintragen(True, False, True)
    205. .Zeilenschaltung(1)
    206. .B = "Zahl"
    207. .C = "Lottozahl"
    208. .D = "Zusatzzahl"
    209. .E = "Superzahl"
    210. .F = "Lottozahl"
    211. .G = "Zusatzzahl"
    212. .H = "MZ"
    213. .Excel_Eintragen(False, False, False)
    214. .Zeilenschaltung(1)
    215. End With
    217. For Awertung As Integer = 0 To 49
    218. With Formular
    219. .Zeilenschaltung(1)
    220. .B = FestLottozahlen(Awertung)
    221. .C = GezoLottozahlen(Awertung)
    222. .D = GezoZusatzzahlen(Awertung)
    223. If Awertung < 10 Then
    224. .E = GezoSuperzahlen(Awertung)
    225. End If
    226. If Awertung > 0 And Awertung < 50 Then
    227. .F = Finanz.ListBox1.Items(0)
    228. With Finanz.ListBox1
    229. .Items.RemoveAt(0)
    230. .Refresh()
    231. End With
    232. .G = Finanz.ListBox2.Items(0)
    233. With Finanz.ListBox2
    234. .Items.RemoveAt(0)
    235. .Refresh()
    236. End With
    237. Ausdruck = Nothing
    238. Ausdruck = Basis.Right(.F, 2)
    239. If Val(Basis.Left(Ausdruck, 1)) < 1 Then Ausdruck = Basis.Right(.F, 1)
    241. Statistik_EigeneZahlen_Pruefung(Ausdruck)
    242. If MeineZahlStatistikDabei = True Then .H = "X"
    243. If MeineZahlStatistikDabei = False Then .H = Nothing
    244. End If
    245. .Excel_Eintragen(False, False, False)
    246. End With
    249. Next
    251. With Formular
    252. .Drucken_Tabellenblatt()
    253. .Speichern_und_Schliessen()
    254. .Excel_Speicher_Entfernung()
    255. .Excel_Speicher_Entfernung()
    256. End With
    258. MsgBox("Die Lottostatistik wurde erstellt. ", MsgBoxStyle.Information, PRGM.Meldung)








    [/vb]
    Gruß Markus

    oh, oh - kann komplett in die Tonne ;(

    Für leidlich modernen DB-Zugriff gugge "Datenbank in 10 Minuten" auf Movie-Tuts

    Auch inhaltlich kann man eiglich nix dazu sagen, ohne das DAtenmodell zu kennen.
    Dazu könnteste einen DB-Zugriff nach genanntem Tut einrichten, und dann hast du ein typisiertes DAtaset, und kannst davon einen Screenshot posten - dass man weiß, worüber gesprochen wird.

    Immer wieder lese ich hier, dass ich mit dem falschen Datenbankzugriff auf meine Access-Datenbank arbeite.
    Erlernt habe ich dieses aus dem Buch "Einstieg in Visual Basic 2008 von Thomas Theis / Galileo Computing" Seite 275 uff.
    Komme sehr gut damit zurecht und bisher sind auch keine Fehler aufgetreten.
    Die Daten übernehme ich dann meist in eine Klasse. Funkioniert alles super.
    Was spricht eigentlich dagegen?
    Gruß Markus

    Was spricht eigentlich dagegen?
    Dass du dir den Weg zu Databinding verbaut hast.

    guck dirmal die Sample-Solution von "Datenbank in 10 Minuten" auf Movie-Tuts, uind versuche, dieselbe Funktionalität mit deinem Ansatz umzusetzen.
    Dann zähl die Codezeilen, die du aufwendest, und wieviele ich aufwende.
    Und das ist noch ein ganz ganz einfacher View.

    Übrigens: Das VB-Openbook von Galileo ist Mist

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

    Um das Programm komplett in die Tonne zu werfen ist es dahingehend zu spät, dass Du bereits damit gearbeitet hast und so nicht frei genug bist, das ganze völlig neu aufzuziehen (Du bist nun voreingenommen).
    Allerdings lässt sich das ganze, wenn Du alles neu machst, relativ einfach testen, da Du mit dem neuen Programm und den alten Daten dieselben Ergebnisse erzielen 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!

    Gut, der Einwand ist berechtigt. Bei mir schaut das halt so aus:

    VB.NET-Quellcode

    1. Property Gewinnzahl1() As String
    2. Get
    3. Return Feld(3).Wert
    4. End Get
    5. Set(ByVal value As String)
    6. Feld(3).Wert = value
    7. End Set
    8. End Property
    9. Property Gewinnzahl2() As String
    10. Get
    11. Return Feld(4).Wert
    12. End Get
    13. Set(ByVal value As String)
    14. Feld(4).Wert = value
    15. End Set
    16. End Property

    Und habe bei Bedarf hier direkt die Möglichkeit noch was zu hinzu zugeben

    Return "Gewinnzahl 2 " & Feld(4).Wert

    Nur hilft mir dieses ja nun nicht weiter.
    Gruß Markus

    RodFromGermany schrieb:

    Um das Programm komplett in die Tonne zu werfen ist es dahingehend zu spät, dass Du bereits damit gearbeitet hast und so nicht frei genug bist, das ganze völlig neu aufzuziehen
    Versteh ich nicht.
    Neues Projekt anfangen, als erstes den DB-Zugriff konfigurieren, und los.
    Das habich schneller erledigt, als der TE auch nur ein einziges GoTo ausgewechselt hat ;)

    "Datenbank in 10 Minuten" auf Movie-Tuts heißt deshalb so, weil man mit dem KnowHow tatsächlich in 10 Minuten eine schon lauffähige Basis einer DB-Anwendung hinkloppen kann.

    Natürlich dauerts wesentlich länger, sich das KnowHow erstmal zu erarbeiten, aber hat mans erstmal, dann gilt das mit den 10 Minuten ungefähr für alles, was man anfasst.

    Die bestehenden Datenbanken kann ich nicht aufgeben.
    Und RodFromGermany hat schon Recht, da ich bereits zwei Monate an der Neuprogrammierung sitze.

    Mir geht es eigentlich nur um die nummerische Filterung der Zahlen nicht um deren Speicherung.
    Gruß Markus

    ich hab nicht gesagt, "die bestehenden Datenbanken aufgeben".

    Nur einen modernen Zugriff einrichten. Dass du da schon 2 Monate dran sitzt, spricht in meinen Augen nochmal dafür, es mal endlich richtig anzufangen.

    Du kannstes ja einfach mal probieren - das kostet dich vlt. einen Tag, um so weit zu kommen, abschätzen zu können, ob sich die Umstellung amortisieren wird.

    Und wenn du weiter in .Net machen willst, annere Projekte - willst du immer so weiter-wursteln?
    Ich sehe zum Umlernen keine Alternative. Es ist nie zu spät, aber je früher man anfängt, hat man doch Zeit gespart.

    ErfinderDesRades schrieb:

    Das habich schneller erledigt, als der TE auch nur ein einziges GoTo ausgewechselt hat
    Korrekt, denn Du bist nicht voreingenommen.
    Am besten ist es natürlich, die Datenbank und die Aufgabenstellung in die Hand zu nehmen und das alte Programm nicht anzusehen, wenn ein neues gemachtt wird.
    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!

    OK, wollte es mir anschauen, jedoch sind beim Konvertieren einige Fehler aufgetreten.

    Ich weiss ja nicht, ob deine Lösung mein System unterstützt. Zur Zeit arbeite ich mit so genannten Identnummern. D.h. jede meiner Datenbanken hat das gleiche Format und eine Tabelle namens CDS - ControlDatenSystem. Dort stehen die Kopfdatensätze, d.h. Informationen in welcher Tabelle der eigentliche Datensatz steht. Die Namensbeschrifter der Datenfelder 1 - 44 und bei erweiterbaren Datensatzsystem die nächste freie Nummer für den nächsten Datensatz.
    Wie gesagt wird dies alles über eine Identnummer gesteuert. So muss ich beim Lesen oder Suchen nur die Identnummer und das Feld(1) angeben.
    Gruß Markus

    RodFromGermany schrieb:

    Am besten ist es natürlich, die Datenbank und die Aufgabenstellung in die Hand zu nehmen und das alte Programm nicht anzusehen, wenn ein neues gemachtt wird.
    Naja - ich hab mich gelegentlich auch gewundert, wie schnell ich vorankam mit dem Neu-Schreiben eines VB6-Teiles, eben weil ich eine konkrete Vorstellung vom Anwendungs-Konzept hatte, und auch jederzeit spickeln konnte.
    Also eine bestehende Vorlage nachprogrammieren (und dabei partiell auch verbessern) geht wesentlich zügiger als eine Entwicklung, bei der sich die End-Form erst während des Wachstums herauskristallisiert.

    Westerwälder schrieb:

    D.h. jede meiner Datenbanken hat das gleiche Format und eine Tabelle namens CDS - ControlDatenSystem. Dort stehen die Kopfdatensätze, d.h. Informationen in welcher Tabelle der eigentliche Datensatz steht. Die Namensbeschrifter der Datenfelder 1 - 44 und bei erweiterbaren Datensatzsystem die nächste freie Nummer für den nächsten Datensatz.
    Das scheint mir ein wirres Datenmodell, auf dem man nix gescheites drauf aufbauen kann.
    Vermutlich enthält es sehr viele Design-Fehler, also sieh zu, wiede damit klar kommst.

    Inne Datenbänkerei muss man schon einen sehr sehr guten Grund haben, einen Datenbestand auf mehrere Datenbanken aufzuteilen. Und wo die bei dir auchnoch strukturell gleich sind, erscheint das besonders abstrus.

    aber ich frag mal: Warum sind deine Daten über mehrere DBs verstreut?

    Nun das hat mehrere Gründe,
    A) nutzt mein Sohn ein Teil des Programmes, hat aber nichts in den Mieterdaten verloren und
    B) möchte ich die Datenbanken nicht zu sehr anwachsen lassen.

    Also ich finde gerade das mein Modell eine besondere Ordnungsstruktur enthält und Verwechslungen absolut ausschliesst.
    Komplizierte Abfrage habe ich selten. Diese mache ich dann in den entsprechendne Klassen.
    Gruß Markus

    Das mit dem Sohn lässt sich sicherlich auch anners lösen.

    Das mit dem Anwachsen verstehe ich nicht. Datenbanken sind dazu da, riesige Datenbestände zu verwalten - das ist doch der Witz an der Sache.
    Für popelige 10000 Datensätze brauchst du keine Datenbank - die lädtste einfach so in den Speicher, und schreibst sie komplett auch wieder auf Platte (DB-Programmierung ohne Datenbank)

    Vllt jetzt nochmal als ernst gemeinter Hinweis:

    Die Verwendung von Goto und der daraus resultierende Spaghetticode führen zu einem extrem unwartbaren Code, da es sehr schwer nachzuvollziehen ist, wie der Programmfluss gerade verläuft. Statt Goto (das quasi nur als Relikt aus alten BASIC Zeiten überlebt hat) sollte man auf die von VB und allen anderen höheren Programmiersprachen bereigestellte Kontrollstrukturen zurückgreifen, vor allem "If" und "While" sowie "Select".

    ok, irgendwie kommen wir so nicht weiter.
    Leider kann ich keine lauffähige Version zur Verfügung stellen, da dies zu umfangreich und auch zu vertraulich ist.
    Kann dir aber eine DLL zukommen lassen, wo eigentlich alle wichtige Sachen ablaufen.

    Hallo Quadsoft:
    Diese Geschichte war auch mal Bestandteil eines GWBasic codes aus den 80 ziger von mir.
    Nun fragte ich ja bereits bei meinem ersten Post nach einer dieser Möglichkeiten.
    Gruß Markus

    Westerwälder schrieb:

    VB.NET-Quellcode

    1. 250: n = 0
    2. 260: n = n + 1
    3. If n = 50 Then GoTo 300
    4. SL(n) = False
    5. GoTo 260
    6. Stop
    8. 300: Max = 0
    9. n = 0
    10. 310: n = (n + 1)
    11. If n = 50 Then GoTo 350
    12. If TmpLottozahlen(n) > Max Then Max = TmpLottozahlen(n)
    13. GoTo 310
    14. Stop
    lässt sich so zusammenfassen:

    VB.NET-Quellcode

    1. Max = 0
    2. For n = 0 To 49
    3. SL(n) = False
    4. If TmpLottozahlen(n) > Max Then Max = TmpLottozahlen(n)
    5. Next
    und da gibt es noch etliche Strukturen, die genau so aussehen.
    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
Telefonspende