Visual Basic計算

Question

我正在嘗試爲我的程序創建摘要，但不知道如何操作。 這是我的程序代碼。這將通過存款，支票或服務費來計算銀行餘額。它還支付10美元的書面退款支票費用。

Private Sub CalculateTextBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculateTextBox.Click 
    'Calculate the transaction and display the new balance 
    Dim AmountDecimal As Decimal 

    If DepositRadioButton.Checked Or CheckRadioButton.Checked Or ChargeRadioButton.Checked Then 
     Try 
      AmountDecimal = Decimal.Parse(AmountTextBox.Text) 

      If DepositRadioButton.Checked = True Then 
       BalanceDecimal += AmountDecimal 
      ElseIf CheckRadioButton.Checked = True Or ChargeRadioButton.Checked = True Then 
       If (BalanceDecimal - AmountDecimal > 0) Then 
        BalanceDecimal -= AmountDecimal 
       Else 
        MessageBox.Show("Insufficient Funds. Service charge of $10. ") 
        BalanceDecimal = BalanceDecimal + 10 

       End If 
      End If 

      BalanceTextBox.Text = BalanceDecimal.ToString("C") 
     Catch AmountException As FormatException 
      MessageBox.Show("Please make sure that only numeric data has been entered.", 
       "Invalid Entry", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 
      With AmountTextBox 
       .Focus() 
       .SelectAll() 
      End With 
     Catch AnyException As Exception 
      MessageBox.Show("Error: " & AnyException.Message) 
     End Try 
    Else 
     MessageBox.Show("Please select deposit, check, or service charge", "Input needed") 
    End If 
End Sub 

我已經創建了一個摘要按鈕將顯示的存款總數，沉積物的總金額，支票的數目，和支票的金額。不要包含由於資金不足而退還的支票，但包含10美元的費用。我不知道如何寫這個總結，並會很感激任何幫助！我從哪說起呢？我怎樣才能做到這一點？

Answer 1

我只是猜測，但我的猜測是，每當用戶點擊CalculateTextBox，你添加一個存款。如果是這樣的話，你可以有一個變量來跟蹤存款的數量：

Private deposits as Integer = 0 
Private Sub CalculateTextBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalculateTextBox.Click 
    'Calculate the transaction and display the new balance 
    Dim AmountDecimal As Decimal 

    If DepositRadioButton.Checked Or CheckRadioButton.Checked Or ChargeRadioButton.Checked Then 
     ... 
      If DepositRadioButton.Checked = True Then 
       BalanceDecimal += AmountDecimal 
       deposits += 1 'Assuming this is when the user makes a deposit. 
           'Or place this line wherever a deposit is made. 
      ElseIf CheckRadioButton.Checked = True Or ChargeRadioButton.Checked = True Then 
       ... 
      End If 
    ... 
    End If 
End Sub