Hi guys
I've been making a simple program using arrays and would like to add a function for a password instead of it being stored in one chunk of my button code. I'm not real good at functions yet and was wondering if someone could help me out. My code is working fine but the reason i would like it to be a function is for future development and just to teach myself more.
Public Class Form1
'Declares 2 arrays with a maximum of 4 entries
Dim strtotals(3) As String
Dim strsales(3) As String
Dim intPasswordCounter As Integer = 0
Private Sub btnDisplayTotals_Click(sender As System.Object, e As System.EventArgs) Handles btnDisplayTotals.Click
' Variables for handing data
Dim strPassword As String
Dim strIncomes2(3) As String
Dim sngSalary(3) As Single
Dim sngMaximum As Single
Dim sngCurSal As Single
Dim strEmployee As String
Dim strTotal(3) As String
Const Commission As Decimal = 0.015
Const Pay As Single = 400
strEmployee = ""
'Code to prompt user for password
strPassword = InputBox("Please Enter a Valid Password", "Password Input")
If strPassword = "admin" Then
intPasswordCounter = 0
sngCurSal = 0
For i = 0 To 3
'Calculations
If strsales(i) <> 0 Then
strTotal(i) = Str(strsales(i))
sngSalary(i) = Pay + Int(strsales(i)) * Commission
Else
strTotal(i) = 0
sngSalary(i) = Pay
End If
strIncomes2(i) = Str(sngSalary(i))
If sngSalary(i) > sngCurSal Then
sngMaximum = sngSalary(i)
strEmployee = lstNames.Items(i)
End If
sngCurSal = sngSalary(i)
strtotals(i) = "Sales Total for " + lstNames.Items(i) + " is $" + strTotal(i) + " Salary is $" + strIncomes2(i) + vbNewLine
Next
lblMessage1.Text = strtotals(0) + strtotals(1) + strtotals(2) + strtotals(3) + "The Highest Salary was $" + Str(sngMaximum) + " by " + strEmployee
'Password counter code
Else
intPasswordCounter += 1
If intPasswordCounter < 3 Then
MsgBox("Incorrect Password Please Try Again") 'Message box that appears when the user inputs an incorrect password
Else
MsgBox("Too many attempts. Closing...") 'Message box that appears when the user inputs an incorrect password 3 times
End
End If
End If
End Sub
Private Sub btnSale_Click(sender As System.Object, e As System.EventArgs) Handles btnSale.Click
'Sale(lstNames.SelectedIndex).intSales += Val(txtSales.Text)
For i = 0 To 3
If lstNames.SelectedIndex = i Then
strsales(i) = txtSales.Text 'Stores Sales data with the selected list name
txtSales.Text = ""
End If
Next
End Sub
Private Sub btnEnd_Click(sender As System.Object, e As System.EventArgs) Handles btnEnd.Click
End
End Sub
End Class