If Auwahl mit Combobox

  • VB.NET

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

    If Auwahl mit Combobox

    Hallo,
    ich komme gerade nicht ganz weiter.
    Ich will vorgegebene Zahlen in eine Textbox schreiben.

    Das der Code zu länge wär für eine zeile habe ich mehrer ,gelsen wird aber immer nur genau die erste :(
    Schreibe ich den code in einer Zeile wird es klappen !!



    Visual Basic-Quellcode

    1. Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    3. Dim Auswahl As String = ComboBox1.Text
    7. If Auswahl = "Gang Getriebe : FDP" Then TextBox1.Text = "17" : TextBox2.Text = " 9"
    8. TextBox3.Text = "28" : TextBox4.Text = "8"
    9. TextBox5.Text = "34" : TextBox6.Text = "18"
    10. TextBox7.Text = "33" : TextBox8.Text = "25"
    11. TextBox9.Text = "30" : TextBox10.Text = "29"
    12. TextBox11.Text = "29" : TextBox12.Text = "36"
    13. TextBox13.Text = "26" : TextBox14.Text = "38"
    14. TextBox15.Text = "38" : TextBox16.Text = "11"
    16. If Auswahl = "Gang Getriebe : FRQ" Then TextBox1.Text = "27" : TextBox2.Text = " 9"
    17. TextBox3.Text = "28" : TextBox4.Text = "8"
    18. TextBox5.Text = "34" : TextBox6.Text = "18"
    19. TextBox7.Text = "32" : TextBox8.Text = "26"
    20. TextBox9.Text = "29" : TextBox10.Text = "30"
    21. TextBox11.Text = "29" : TextBox12.Text = "36"
    22. TextBox13.Text = "26" : TextBox14.Text = "38"
    23. TextBox15.Text = "38" : TextBox16.Text = "11"

    Mach doch einfach eine mehrzeilige If-Abfrage:

    VB.NET-Quellcode

    1. ​If Auswahl = "Gang Getriebe : FDP" Then
    2. TextBox1.Text = "17" : TextBox2.Text = " 9"
    3. TextBox3.Text = "28" : TextBox4.Text = "8"
    4. TextBox5.Text = "34" : TextBox6.Text = "18"
    5. TextBox7.Text = "33" : TextBox8.Text = "25"
    6. TextBox9.Text = "30" : TextBox10.Text = "29"
    7. TextBox11.Text = "29" : TextBox12.Text = "36"
    8. TextBox13.Text = "26" : TextBox14.Text = "38"
    9. TextBox15.Text = "38" : TextBox16.Text = "11"
    10. End If

    Habe nun alles geändert,
    Wähle ich das erste If klappt es ,versuche ich ein anderes bekomme ich einen Fehler .

    "Dim a = Double.Parse(TextBox1.Text)" genau hier.
    Ich vermute das hängt mit dem END IF zusammen oder?
    Hier unten habe die Berechnung hinterlegt der einzelnen werte.

    Visual Basic-Quellcode

    1. ublic Class Form1
    3. Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    5. Dim Auswahl As String = ComboBox1.Text
    9. If Auswahl = "Audi B5 S4 2.7T 265PS/6 Gang Schaltgetriebe DSY " Then
    10. TextBox1.Text = "37" : TextBox2.Text = " 9" 'Achsantrieb
    11. TextBox3.Text = "28" : TextBox4.Text = "8" 'Gang 1
    12. TextBox5.Text = "34" : TextBox6.Text = "18" 'Gang 2
    13. TextBox7.Text = "32" : TextBox8.Text = "26" 'Gang 3
    14. TextBox9.Text = "29" : TextBox10.Text = "30" 'Gang 4
    15. TextBox11.Text = "29" : TextBox12.Text = "36" 'Gang 5
    16. TextBox13.Text = "26" : TextBox14.Text = "38" 'Gang 6
    17. TextBox15.Text = "38" : TextBox16.Text = "11" 'Retour Gang
    18. End If
    20. If Auswahl = "Audi B5 S4 2.7T 265PS/6 Gang Schaltgetriebe EDU " Then
    21. TextBox1.Text = "37" : TextBox2.Text = " 9" 'Achsantrieb
    22. TextBox3.Text = "28" : TextBox4.Text = "8" 'Gang 1
    23. TextBox5.Text = "34" : TextBox6.Text = "18" 'Gang 2
    24. TextBox7.Text = "32" : TextBox8.Text = "26" 'Gang 3
    25. TextBox9.Text = "29" : TextBox10.Text = "30" 'Gang 4
    26. TextBox11.Text = "29" : TextBox12.Text = "36" 'Gang 5
    27. TextBox13.Text = "26" : TextBox14.Text = "38" 'Gang 6
    28. TextBox15.Text = "38" : TextBox16.Text = "11" 'Retour Gang
    29. End If
    31. If Auswahl = "Audi B5 S4 2.7T 265PS/6 Gang Schaltgetriebe FRQ " Then
    32. TextBox1.Text = "37" : TextBox2.Text = " 9" 'Achsantrieb
    33. TextBox3.Text = "28" : TextBox4.Text = "8" 'Gang 1
    34. TextBox5.Text = "34" : TextBox6.Text = "18" 'Gang 2
    35. TextBox7.Text = "32" : TextBox8.Text = "26" 'Gang 3
    36. TextBox9.Text = "29" : TextBox10.Text = "30" 'Gang 4
    37. TextBox11.Text = "29" : TextBox12.Text = "36" 'Gang 5
    38. TextBox13.Text = "26" : TextBox14.Text = "38" 'Gang 6
    39. TextBox15.Text = "38" : TextBox16.Text = "11" 'Retour Gang
    40. End If
    42. If Auswahl = "Audi B5 S4 2.7T 265PS/6 Gang Schaltgetriebe FTG " Then
    43. TextBox1.Text = "37" : TextBox2.Text = " 9" 'Achsantrieb
    44. TextBox3.Text = "28" : TextBox4.Text = "8" 'Gang 1
    45. TextBox5.Text = "34" : TextBox6.Text = "18" 'Gang 2
    46. TextBox7.Text = "32" : TextBox8.Text = "26" 'Gang 3
    47. TextBox9.Text = "29" : TextBox10.Text = "30" 'Gang 4
    48. TextBox11.Text = "29" : TextBox12.Text = "36" 'Gang 5
    49. TextBox13.Text = "26" : TextBox14.Text = "38" 'Gang 6
    50. TextBox15.Text = "38" : TextBox16.Text = "11" 'Retour Gang
    51. End If
    53. If Auswahl = "Audi B5 RS4 2.7T 380PS/6 Gang Schaltgetriebe FDP " Then
    54. TextBox1.Text = "37" : TextBox2.Text = " 9" 'Achsantrieb
    55. TextBox3.Text = "28" : TextBox4.Text = "8" 'Gang 1
    56. TextBox5.Text = "34" : TextBox6.Text = "18" 'Gang 2
    57. TextBox7.Text = "33" : TextBox8.Text = "25" 'Gang 3
    58. TextBox9.Text = "30" : TextBox10.Text = "29" 'Gang 4
    59. TextBox11.Text = "29" : TextBox12.Text = "36" 'Gang 5
    60. TextBox13.Text = "26" : TextBox14.Text = "38" 'Gang 6
    61. TextBox15.Text = "38" : TextBox16.Text = "11" 'Retour Gang
    62. End If
    64. If Auswahl = "Audi B5 RS4 2.7T 380PS/6 Gang Schaltgetriebe FTU " Then
    65. TextBox1.Text = "37" : TextBox2.Text = " 9" 'Achsantrieb
    66. TextBox3.Text = "28" : TextBox4.Text = "8" 'Gang 1
    67. TextBox5.Text = "34" : TextBox6.Text = "18" 'Gang 2
    68. TextBox7.Text = "33" : TextBox8.Text = "25" 'Gang 3
    69. TextBox9.Text = "30" : TextBox10.Text = "29" 'Gang 4
    70. TextBox11.Text = "29" : TextBox12.Text = "36" 'Gang 5
    71. TextBox13.Text = "26" : TextBox14.Text = "38" 'Gang 6
    72. TextBox15.Text = "38" : TextBox16.Text = "11" 'Retour Gang
    73. End If
    75. Dim a = Double.Parse(TextBox1.Text)
    76. Dim b = Double.Parse(TextBox2.Text)
    77. Dim c = Double.Parse(TextBox3.Text)
    78. Dim d = Double.Parse(TextBox4.Text)
    79. Dim h = Double.Parse(TextBox5.Text)
    80. Dim f = Double.Parse(TextBox6.Text)
    81. Dim g = Double.Parse(TextBox7.Text)
    82. Dim i = Double.Parse(TextBox8.Text)
    83. Dim j = Double.Parse(TextBox9.Text)
    84. Dim k = Double.Parse(TextBox10.Text)
    85. Dim l = Double.Parse(TextBox11.Text)
    86. Dim m = Double.Parse(TextBox12.Text)
    87. Dim n = Double.Parse(TextBox13.Text)
    88. Dim o = Double.Parse(TextBox14.Text)
    89. Dim p = Double.Parse(TextBox15.Text)
    90. Dim q = Double.Parse(TextBox16.Text)
    92. Dim res1 = a / b
    93. Dim res2 = c / d
    94. Dim res3 = h / f
    95. Dim res4 = g / i
    96. Dim res5 = j / k
    97. Dim res6 = l / m
    98. Dim res7 = n / o
    99. Dim res8 = p / q
    101. Label17.Text = res1.ToString("0.###")
    102. Label19.Text = res2.ToString("0.###")
    103. Label20.Text = res3.ToString("0.###")
    104. Label21.Text = res4.ToString("0.###")
    105. Label22.Text = res5.ToString("0.###")
    106. Label23.Text = res6.ToString("0.###")
    107. Label24.Text = res7.ToString("0.###")
    108. Label25.Text = res8.ToString("0.###")
    110. Dim res10 = (res1) * (res2)
    111. Dim res11 = (res1) * (res3)
    112. Dim res12 = (res1) * (res4)
    113. Dim res13 = (res1) * (res5)
    114. Dim res14 = (res1) * (res6)
    115. Dim res15 = (res1) * (res7)
    116. Dim res16 = (res1) * (res8)
    118. Label39.Text = res10.ToString("0.###")
    119. Label38.Text = res11.ToString("0.###")
    120. Label37.Text = res12.ToString("0.###")
    121. Label36.Text = res13.ToString("0.###")
    122. Label35.Text = res14.ToString("0.###")
    123. Label34.Text = res15.ToString("0.###")
    124. Label33.Text = res16.ToString("0.###")
    126. End Sub
    128. Private Function res10() As Object
    129. Throw New NotImplementedException
    130. End Function
    132. End Class

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

    brembo00 schrieb:

    was ich falsch gemacht habe
    Du hast deutlich zu viele TextBoxen in Deinem Design.
    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!

    brembo00 schrieb:

    ich kapier echt nicht wo der Fehler steckt sprich was ich falsch gemacht habe !!!
    Wie bereits gesagt: Untersuche das Problem.
    Bist du die Geschichte mal mit einem Haltepunkt und dann im Einzelschritt durchgegangen?

    Bitte antworte - ich bin recht schnell beleidigt, wenn man mich ignoriert, und es ist auch zu deinem eigenen Schaden, wenn du dir die Haltepunkte entgehen lässt.

    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 der Fehler steht genau auf Zeile 175 ,mit dem Fehler Text " Format Exception wurde nicht behandelt "

    Ich habe da die Textboxen zugewissen,kann es sein das er das jetzt durch das End IF nicht mehr fressen will ?
    Das mit dem Haltepunkt versuche ich dann gleich mal aus.

    So ich habe jetzt mal alles über Zeile 74 rausgenommen !
    Es werden die Textboxen nur gefüllt wenn ich die erste IF auswahl wähle.
    Schliesse ich das Debuggen und Starte es wieder dann mit der 2 If auswahl oder einer anderen passiert nichts.

    HAltepunkt setzte ich ,jedoch zeigt er mir da unten nichts an ,was im Video dargestellt ist.

    brembo00 schrieb:

    Zeile 175
    von 132 möglichen Zeilen?
    Hier gibt es kein Video.
    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!

    Upps sah es jetzt erst ,meinte ab zeile 75 :)

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    5. Dim Auswahl As String = ComboBox1.Text
    9. If Auswahl = "Audi B5 S4 2.7T 265PS/6 Gang Schaltgetriebe DSY " Then
    10. TextBox1.Text = "37" : TextBox2.Text = " 9" 'Achsantrieb
    11. TextBox3.Text = "28" : TextBox4.Text = "8" 'Gang 1
    12. TextBox5.Text = "34" : TextBox6.Text = "18" 'Gang 2
    13. TextBox7.Text = "32" : TextBox8.Text = "26" 'Gang 3
    14. TextBox9.Text = "29" : TextBox10.Text = "30" 'Gang 4
    15. TextBox11.Text = "29" : TextBox12.Text = "36" 'Gang 5
    16. TextBox13.Text = "26" : TextBox14.Text = "38" 'Gang 6
    17. TextBox15.Text = "38" : TextBox16.Text = "11" 'Retour Gang
    18. End If
    20. If Auswahl = "Audi B5 S4 2.7T 265PS/6 Gang Schaltgetriebe EDU " Then
    21. TextBox1.Text = "37" : TextBox2.Text = " 9" 'Achsantrieb
    22. TextBox3.Text = "28" : TextBox4.Text = "8" 'Gang 1
    23. TextBox5.Text = "34" : TextBox6.Text = "18" 'Gang 2
    24. TextBox7.Text = "32" : TextBox8.Text = "26" 'Gang 3
    25. TextBox9.Text = "29" : TextBox10.Text = "30" 'Gang 4
    26. TextBox11.Text = "29" : TextBox12.Text = "36" 'Gang 5
    27. TextBox13.Text = "26" : TextBox14.Text = "38" 'Gang 6
    28. TextBox15.Text = "38" : TextBox16.Text = "11" 'Retour Gang
    29. End If
    31. If Auswahl = "Audi B5 S4 2.7T 265PS/6 Gang Schaltgetriebe FRQ " Then
    32. TextBox1.Text = "37" : TextBox2.Text = " 9" 'Achsantrieb
    33. TextBox3.Text = "28" : TextBox4.Text = "8" 'Gang 1
    34. TextBox5.Text = "34" : TextBox6.Text = "18" 'Gang 2
    35. TextBox7.Text = "32" : TextBox8.Text = "26" 'Gang 3
    36. TextBox9.Text = "29" : TextBox10.Text = "30" 'Gang 4
    37. TextBox11.Text = "29" : TextBox12.Text = "36" 'Gang 5
    38. TextBox13.Text = "26" : TextBox14.Text = "38" 'Gang 6
    39. TextBox15.Text = "38" : TextBox16.Text = "11" 'Retour Gang
    40. End If
    42. If Auswahl = "Audi B5 S4 2.7T 265PS/6 Gang Schaltgetriebe FTG " Then
    43. TextBox1.Text = "37" : TextBox2.Text = " 9" 'Achsantrieb
    44. TextBox3.Text = "28" : TextBox4.Text = "8" 'Gang 1
    45. TextBox5.Text = "34" : TextBox6.Text = "18" 'Gang 2
    46. TextBox7.Text = "32" : TextBox8.Text = "26" 'Gang 3
    47. TextBox9.Text = "29" : TextBox10.Text = "30" 'Gang 4
    48. TextBox11.Text = "29" : TextBox12.Text = "36" 'Gang 5
    49. TextBox13.Text = "26" : TextBox14.Text = "38" 'Gang 6
    50. TextBox15.Text = "38" : TextBox16.Text = "11" 'Retour Gang
    51. End If
    53. If Auswahl = "Audi B5 RS4 2.7T 380PS/6 Gang Schaltgetriebe FDP " Then
    54. TextBox1.Text = "37" : TextBox2.Text = " 9" 'Achsantrieb
    55. TextBox3.Text = "28" : TextBox4.Text = "8" 'Gang 1
    56. TextBox5.Text = "34" : TextBox6.Text = "18" 'Gang 2
    57. TextBox7.Text = "33" : TextBox8.Text = "25" 'Gang 3
    58. TextBox9.Text = "30" : TextBox10.Text = "29" 'Gang 4
    59. TextBox11.Text = "29" : TextBox12.Text = "36" 'Gang 5
    60. TextBox13.Text = "26" : TextBox14.Text = "38" 'Gang 6
    61. TextBox15.Text = "38" : TextBox16.Text = "11" 'Retour Gang
    62. End If
    64. If Auswahl = "Audi B5 RS4 2.7T 380PS/6 Gang Schaltgetriebe FTU " Then
    65. TextBox1.Text = "37" : TextBox2.Text = " 9" 'Achsantrieb
    66. TextBox3.Text = "28" : TextBox4.Text = "8" 'Gang 1
    67. TextBox5.Text = "34" : TextBox6.Text = "18" 'Gang 2
    68. TextBox7.Text = "33" : TextBox8.Text = "25" 'Gang 3
    69. TextBox9.Text = "30" : TextBox10.Text = "29" 'Gang 4
    70. TextBox11.Text = "29" : TextBox12.Text = "36" 'Gang 5
    71. TextBox13.Text = "26" : TextBox14.Text = "38" 'Gang 6
    72. TextBox15.Text = "8" : TextBox16.Text = "11" 'Retour Gang
    73. End If
    75. Dim a = Double.Parse(TextBox1.Text)
    76. Dim b = Double.Parse(TextBox2.Text)
    77. Dim c = Double.Parse(TextBox3.Text)
    78. Dim d = Double.Parse(TextBox4.Text)
    79. Dim h = Double.Parse(TextBox5.Text)
    80. Dim f = Double.Parse(TextBox6.Text)
    81. Dim g = Double.Parse(TextBox7.Text)
    82. Dim i = Double.Parse(TextBox8.Text)
    83. Dim j = Double.Parse(TextBox9.Text)
    84. Dim k = Double.Parse(TextBox10.Text)
    85. Dim l = Double.Parse(TextBox11.Text)
    86. Dim m = Double.Parse(TextBox12.Text)
    87. Dim n = Double.Parse(TextBox13.Text)
    88. Dim o = Double.Parse(TextBox14.Text)
    89. Dim p = Double.Parse(TextBox15.Text)
    90. Dim q = Double.Parse(TextBox16.Text)
    92. Dim res1 = a / b
    93. Dim res2 = c / d
    94. Dim res3 = h / f
    95. Dim res4 = g / i
    96. Dim res5 = j / k
    97. Dim res6 = l / m
    98. Dim res7 = n / o
    99. Dim res8 = p / q
    101. Label17.Text = res1.ToString("0.###")
    102. Label19.Text = res2.ToString("0.###")
    103. Label20.Text = res3.ToString("0.###")
    104. Label21.Text = res4.ToString("0.###")
    105. Label22.Text = res5.ToString("0.###")
    106. Label23.Text = res6.ToString("0.###")
    107. Label24.Text = res7.ToString("0.###")
    108. Label25.Text = res8.ToString("0.###")
    110. Dim res10 = (res1) * (res2)
    111. Dim res11 = (res1) * (res3)
    112. Dim res12 = (res1) * (res4)
    113. Dim res13 = (res1) * (res5)
    114. Dim res14 = (res1) * (res6)
    115. Dim res15 = (res1) * (res7)
    116. Dim res16 = (res1) * (res8)
    118. Label39.Text = res10.ToString("0.###")
    119. Label38.Text = res11.ToString("0.###")
    120. Label37.Text = res12.ToString("0.###")
    121. Label36.Text = res13.ToString("0.###")
    122. Label35.Text = res14.ToString("0.###")
    123. Label34.Text = res15.ToString("0.###")
    124. Label33.Text = res16.ToString("0.###")
    126. End Sub
    128. Private Function res10() As Object
    129. Throw New NotImplementedException
    130. End Function
    132. End Class

    brembo00 schrieb:

    HAltepunkt setzte ich ,jedoch zeigt er mir da unten nichts an ,was im Video dargestellt ist.
    ich denke, du solltest eher dem nachgehen, als alles nochmal.

    Nun ist die Aussage "jedoch zeigt er mir da unten nichts an ,was im Video dargestellt ist" völlig unklar, aber deutet daraufhin, dass du nicht debuggen kannst.
    Und da hilft nicht, es neu anzufangen, sondern man musses halt lernen.

    Dazu musste das aber besser beschreiben, auf "zeigt unten nichts an, was im Video" kann man dir nichts antworten, was dem abhelfen könnte.

    brembo00 schrieb:

    VB.NET-Quellcode

    1. Dim a = Double.Parse(TextBox1.Text)
    Was ganz genau steht denn in TextBox1 drinn? "Roullade mit Klößen"?
    Mach aus den TextBoxen ==> NumericUpDowns, da stimmt der Typ und die Darstellung.
    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