Mein Akku funktioniert nicht in VB (Visual Studio 2010)

Question

Mein Akku (decTotalCredits) funktioniert nicht richtig und wird mit jedem Eintrag auf Null zurückgesetzt. Ich brauche den Akku, um in jeder Benutzereingabe hinzuzufügen, bis es 125 erreicht. Wie es normalerweise ist, bin ich sicher, dass es etwas Kleines ist. Vielen Dank im Voraus für Ihre Hilfe!

' Declaring variable for Credit Entered by User 
    Dim decCredit As Decimal = CDec(txtCredit.Text) 
    ' Declaring the accumulator 
    Dim decTotalCredits As Decimal 

    If IsNumeric(txtCredit.Text) Then 
     decCredit = Convert.ToDecimal(txtCredit.Text) 
     Select Case decCredit 
      Case Is = 5 
      Case Is = 10 
      Case Is = 25 
      Case Is = 100 
      Case Else 
       MsgBox("Please enter a valid coin amount", , "Invalid Amount Entered") 
     End Select 

     If decTotalCredits < 125 Then 

      decTotalCredits += decCredit 
      lblTotal.Text = CStr(decTotalCredits) 
      lblTotal.Visible = True 

      txtCredit.Clear() 
      txtCredit.Focus() 

     Else 

      ' Once the credits are reached the prompt to make selection is visible. 
      lblMakeSelection.Visible = True 

      ' Once the credits are reached, the buttons for selection become enabled. 
      btnDietPepsi.Enabled = True 
      btnPepsi.Enabled = True 
      btnSierraMist.Enabled = True 
      btnLemonade.Enabled = True 
      btnDrPepper.Enabled = True 
      btnWater.Enabled = True 
     End If 
    Else 
     MsgBox("Please enter a valid Coin amount", , "Input Error") 


    End If 

Answer 1

Es ist neu deklariert werden ..

• Wenn Sie das in einer Schleife brauchen, ist DecTotalCredits außerhalb der Schleife zu erklären.
• Wenn dies in einem Event-Handler ist, müssen Sie DecTotalCredits An der Spitze des Codes (rechts unterhalb der Deklaration der Klasse) erklären, dass so, wie es nicht neu deklariert jedes Mal bekommt der Handler läuft