VB Problem mit Wertzuweisung

  • VB.NET
  • .NET (FX) 3.0–3.5

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von VB1963.

    VB Problem mit Wertzuweisung

    Hallo,

    bin seit heute Registriert und bräuchte mal eure Hilfe. :)

    Ich möchte das den Output eine zahl zugerechnet wird leider bekomme ich wenn ich das ausführe ein 0 im Label.

    Hoffe Ihr könnt mir helfen.

    VB.NET-Quellcode

    1. Dim Outputp As Integer
    2. Dim Outputb As Integer
    3. Dim Outputv As Integer
    5. If vbsek.Checked = True Then
    6. lblgeld.Text += 90
    7. Outputp += 2
    8. Outputv += 1
    9. End If


    lblgeld.Text = Outputb.ToString
    lblpunkt.Text = Outputp.ToString
    lblverbot.Text = Outputv.ToString

    Hier ist der Gesamte Code für das Porgramm:

    VB.NET-Quellcode

    1. Option Strict Off
    2. Public Class frm1
    3. Private Sub bt1_Click_1(sender As Object, e As EventArgs) Handles bt1.Click
    4. Dim input As Integer
    5. Dim Outputp As Integer
    6. Dim Outputb As Integer
    7. Dim Outputv As Integer
    9. input = CInt(Me.txtin.Text)
    11. Select Case input
    12. Case 1 To 10
    13. Outputb = 10
    14. Outputp = 0
    15. Outputv = 0
    17. Case 11 To 15
    18. Outputb = 20
    19. Outputp = 0
    20. Outputv = 0
    21. Case 16 To 20
    22. Outputb = 30
    23. Outputp = 0
    24. Outputv = 0
    25. Case 21 To 25
    26. Outputb = 70
    27. Outputp = 1
    28. Outputv = 0
    29. Case 26 To 30
    30. Outputb = 80
    31. Outputp = 1
    32. Outputv = 1
    33. Case 31 To 40
    34. Outputb = 120
    35. Outputp = 2
    36. Outputv = 1
    37. Case 41 To 50
    38. Outputb = 160
    39. Outputp = 2
    40. Outputv = 1
    41. Case 51 To 60
    42. Outputb = 240
    43. Outputp = 2
    44. Outputv = 1
    45. Case 61 To 70
    46. Outputb = 440
    47. Outputp = 2
    48. Outputv = 2
    49. Case Is > 70
    50. Outputp = 2
    51. Outputv = 3
    52. Outputb = 600
    54. End Select
    56. If Cbinn.Checked = True Then
    57. Select Case input
    58. Case 1 To 10
    59. Outputb = 30
    60. Outputp = 0
    61. Outputv = 0
    63. Case 11 To 15
    64. Outputb = 50
    65. Outputp = 0
    66. Outputv = 0
    67. Case 16 To 20
    68. Outputb = 70
    69. Outputp = 0
    70. Outputv = 0
    71. Case 21 To 25
    72. Outputb = 80
    73. Outputp = 1
    74. Outputv = 0
    75. Case 26 To 30
    76. Outputb = 100
    77. Outputp = 1
    78. Outputv = 1
    79. Case 31 To 40
    80. Outputb = 160
    81. Outputp = 2
    82. Outputv = 1
    83. Case 41 To 50
    84. Outputb = 200
    85. Outputp = 2
    86. Outputv = 1
    87. Case 51 To 60
    88. Outputb = 280
    89. Outputp = 2
    90. Outputv = 1
    91. Case 61 To 70
    92. Outputb = 480
    93. Outputp = 2
    94. Outputv = 2
    95. Case Is > 70
    96. Outputp = 2
    97. Outputv = 3
    98. Outputb = 680
    99. End Select
    101. End If
    103. End Sub
    105. Private Sub Bt2_Click(sender As Object, e As EventArgs)
    106. Dim Outputp As Integer
    107. Dim Outputb As Integer
    108. Dim Outputv As Integer
    110. If vbsek.Checked = True Then
    111. Outputb += 200
    112. Outputp += 2
    113. Outputv += 1
    114. ElseIf CKges.Checked = True Then
    115. Outputb += 320
    116. Outputp += 2
    117. Outputv += 1
    118. ElseIf cksachs.Checked = True Then
    119. Outputb += 360
    120. Outputp += 2
    121. Outputv += 1
    122. ElseIf cbeinfach.Checked = True Then
    123. Outputb += 90
    124. Outputp += 1
    125. Outputv += 1
    126. ElseIf CBgefahre.Checked = True Then
    127. Outputb += 320
    128. Outputp += 2
    129. Outputv += 1
    130. ElseIf CKVere.Checked = True Then
    131. Outputb += 360
    132. Outputp += 2
    133. Outputv += 1
    134. ElseIf cbpfei.Checked = True Then
    136. Outputb += 90
    137. Outputp += 2
    138. Outputv += 1
    140. End If
    142. lblgeld.Text = Outputb.ToString
    143. lblpunkt.Text = Outputp.ToString
    144. lblverbot.Text = Outputv.ToString
    146. End Sub
    147. End Class

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

    @Genetic Willkommen im Forum. :thumbup:
    Aus

    VB.NET-Quellcode

    1. Private Sub Bt2_Click(sender As Object, e As EventArgs)
    machst Du

    VB.NET-Quellcode

    1. Private Sub Bt2_Click(sender As Object, e As EventArgs) Handles Bt2.Click
    Und dann noch dies zu Strict Off:
    Visual Studio - Empfohlene Einstellungen
    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!

    @Genetic
    ...und bei Rod's Verlinkung nicht nur das 1. Thema mit Strict OFF angehen, sondern auch die nächsten Punkte - wie VisualBasic-Namespace deaktivieren - weiter unten unbedingt durchlesen und anwenden!

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

    Und dann späßleshalber noch: Boolean-Vergleiche mit True sind überflüssig.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @Genetic
    Was mir noch aufgefallen ist - nie die Controls als Werthaltung lblgeld.Text += 90 im Code verwenden...
    Deklariere dazu eine eigene Variable mit richtigem Typ und verwende diese...
    Me.textin wird eine Textbox sein, in der nur Zahlen geführt wird --> nimm dazu besser ein NumericUpDown-Control. Da gibt es keine Wursteleien mit unrichtigen Eingaben...

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