Hallo und guten Morgen
Angesteckt von der Dart WM im Fernsehen versuche ich gerade mir eine kleine Dartverwaltung zu schreiben.
Um zu wissen, wie oft habe ich welches Feld getroffen, habe ich folgenden Weg gewählt:
Da es ja 22 Felder (1-20 , Singlebull,Doppelbull) sind werden es 64 elseif Abfragen.
Kann man das eleganter lösen, und wenn ja wie
trebron57
Angesteckt von der Dart WM im Fernsehen versuche ich gerade mir eine kleine Dartverwaltung zu schreiben.
Um zu wissen, wie oft habe ich welches Feld getroffen, habe ich folgenden Weg gewählt:
VB.NET-Quellcode
- If var1_dran_bool = True And Feld1_1 = "S" And zahl1_1 = 1 Then
- zaehlen_1_S1 = zaehlen_1_S1 + 1
- ElseIf var1_dran_bool = True And Feld2_1 = "S" And zahl2_1 = 1 Then
- zaehlen_1_S1 = zaehlen_1_S1 + 1
- ElseIf var1_dran_bool = True And Feld3_1 = "S" And zahl3_1 = 1 Then
- zaehlen_1_S1 = zaehlen_1_S1 + 1
- ' Die doppelte 1
- ElseIf var1_dran_bool = True And Feld1_1 = "D" And zahl1_1 = 1 Then
- zaehlen_1_D1 = zaehlen_1_D1 + 1
- ElseIf var1_dran_bool = True And Feld2_1 = "D" And zahl2_1 = 1 Then
- zaehlen_1_D1 = zaehlen_1_D1 + 1
- ElseIf var1_dran_bool = True And Feld3_1 = "D" And zahl3_1 = 1 Then
- zaehlen_1_D1 = zaehlen_1_D1 + 1
- ' Die dreifache 1
- ElseIf var1_dran_bool = True And Feld1_1 = "T" And zahl1_1 = 1 Then
- zaehlen_1_T1 = zaehlen_1_T1 + 1
- ElseIf var1_dran_bool = True And Feld2_1 = "T" And zahl2_1 = 1 Then
- zaehlen_1_T1 = zaehlen_1_T1 + 1
- ElseIf var1_dran_bool = True And Feld3_1 = "T" And zahl3_1 = 1 Then
- zaehlen_1_T1 = zaehlen_1_T1 + 1
- ' Die einfache 2
- ElseIf var1_dran_bool = True And Feld1_1 = "S" And zahl1_1 = 2 Then
- zaehlen_1_S2 = zaehlen_1_S2 + 1
- ElseIf var1_dran_bool = True And Feld2_1 = "S" And zahl2_1 = 2 Then
- zaehlen_1_S2 = zaehlen_1_S2 + 1
- ElseIf var1_dran_bool = True And Feld3_1 = "S" And zahl3_1 = 2 Then
- zaehlen_1_S2 = zaehlen_1_S2 + 1
- ' Die doppelte 1
- ElseIf var1_dran_bool = True And Feld1_1 = "D" And zahl1_1 = 2 Then
- zaehlen_1_D2 = zaehlen_1_D2 + 1
- ElseIf var1_dran_bool = True And Feld2_1 = "D" And zahl2_1 = 2 Then
- zaehlen_1_D2 = zaehlen_1_D2 + 1
- ElseIf var1_dran_bool = True And Feld3_1 = "D" And zahl3_1 = 2 Then
- zaehlen_1_D2 = zaehlen_1_D2 + 1
- ' Die dreifache 1
- ElseIf var1_dran_bool = True And Feld1_1 = "T" And zahl1_1 = 2 Then
- zaehlen_1_T2 = zaehlen_1_T2 + 1
- ElseIf var1_dran_bool = True And Feld2_1 = "T" And zahl2_1 = 2 Then
- zaehlen_1_T2 = zaehlen_1_T2 + 1
- ElseIf var1_dran_bool = True And Feld3_1 = "T" And zahl3_1 = 2 Then
- zaehlen_1_T2 = zaehlen_1_T2 + 1
- .... noch bis zum Doppelbull
- End If
Da es ja 22 Felder (1-20 , Singlebull,Doppelbull) sind werden es 64 elseif Abfragen.
Kann man das eleganter lösen, und wenn ja wie
trebron57