IMPLEMENTATION
Unit 14 Event Driven Programming
ELIOT HUNTER
Sunderland College
, Eliot Hunter (ID: 16002495) Assignment B Unit 14 Event Driven Programming
Implementation
User Interface
Sign in Form
The purpose of this form is to get the user to sign in to the whole program so they can fill out the
customers contact details, what car they want and the pricing at the end. This is the code:
Public Class FormSignIn
Dim Attempt As Integer = 0
Private Sub SignInBtn_Click(sender As Object, e As EventArgs) Handles SignInBtn.Click
Dim CorrectPassword As String = "carhire"
Dim CorrectUsername As String = "carhire"
Dim InputPassword As String = txtPassword.Text
Do Until (InputPassword = CorrectPassword) Or (Attempt = 5)
Attempt += 1
MsgBox("Password invalid", MsgBoxStyle.Critical, "Login Error.")
txtPassword.Text = ""
txtPassword.Focus()
Exit Sub
Loop
If Attempt < 5 Then
MsgBox("Welcome to Especially For you.") 'This gives the user 5 attempts to log into
the system.
Me.Hide()
FormContactDetails.Show()
Else
MsgBox("Access Denied too many times, System has locked you out.") 'If the user has
had more than 5 attempts then the system locks you out.
txtPassword.Enabled = False
SignInBtn.Enabled = False
btnHelpSignIn.Enabled = False
1|Page
Unit 14 Event Driven Programming
ELIOT HUNTER
Sunderland College
, Eliot Hunter (ID: 16002495) Assignment B Unit 14 Event Driven Programming
Implementation
User Interface
Sign in Form
The purpose of this form is to get the user to sign in to the whole program so they can fill out the
customers contact details, what car they want and the pricing at the end. This is the code:
Public Class FormSignIn
Dim Attempt As Integer = 0
Private Sub SignInBtn_Click(sender As Object, e As EventArgs) Handles SignInBtn.Click
Dim CorrectPassword As String = "carhire"
Dim CorrectUsername As String = "carhire"
Dim InputPassword As String = txtPassword.Text
Do Until (InputPassword = CorrectPassword) Or (Attempt = 5)
Attempt += 1
MsgBox("Password invalid", MsgBoxStyle.Critical, "Login Error.")
txtPassword.Text = ""
txtPassword.Focus()
Exit Sub
Loop
If Attempt < 5 Then
MsgBox("Welcome to Especially For you.") 'This gives the user 5 attempts to log into
the system.
Me.Hide()
FormContactDetails.Show()
Else
MsgBox("Access Denied too many times, System has locked you out.") 'If the user has
had more than 5 attempts then the system locks you out.
txtPassword.Enabled = False
SignInBtn.Enabled = False
btnHelpSignIn.Enabled = False
1|Page
