Untitled

 avatar
unknown
plain_text
2 months ago
2.0 kB
3
Indexable
Public Class frmBankingSystem
    
    Dim customerNames(100) As String
    Dim accountBalances(100) As Decimal
    Dim customerCount As Integer = 0 ' Counter for the number of customers

    Private Sub btnAddCustomer_Click(sender As Object, e As EventArgs) Handles btnAddCustomer.Click
        customerNames(customerCount) = txtCustomerName.Text
        accountBalances(customerCount) = Decimal.Parse(txtAccountBalance.Text)
        lstCustomers.Items.Add(txtCustomerName.Text) 
        customerCount += 1 ' Increment the customer count
        txtCustomerName.Clear()
        txtAccountBalance.Clear()
    End Sub

    Private Sub btnViewBalance_Click(sender As Object, e As EventArgs) Handles btnViewBalance.Click
        Dim selectedIndex As Integer = lstCustomers.SelectedIndex
        If selectedIndex >= 0 Then
            lblBalance.Text = "Balance: " & accountBalances(selectedIndex).ToString("C")
        Else
            lblBalance.Text = "Please select a customer."
        End If
    End Sub

    Private Sub btnDeposit_Click(sender As Object, e As EventArgs) Handles btnDeposit.Click
        Dim selectedIndex As Integer = lstCustomers.SelectedIndex
        If selectedIndex >= 0 Then
            Dim depositAmount As Decimal = Decimal.Parse(InputBox("Enter deposit amount:", "Deposit"))
            accountBalances(selectedIndex) += depositAmount
            lblBalance.Text = "Balance: " & accountBalances(selectedIndex).ToString("C")
        End If
    End Sub

    Private Sub btnWithdraw_Click(sender As Object, e As EventArgs) Handles btnWithdraw.Click
        Dim selectedIndex As Integer = lstCustomers.SelectedIndex
        If selectedIndex >= 0 Then
            Dim withdrawAmount As Decimal = Decimal.Parse(InputBox("Enter withdrawal amount:", "Withdraw"))
            accountBalances(selectedIndex) -= withdrawAmount
            lblBalance.Text = "Balance: " & accountBalances(selectedIndex).ToString("C")
        End If
    End Sub
End Class
Editor is loading...
Leave a Comment