Summary ICT2611 hands on project assignment 4 2022

Source code for some of the hands on project
Calculator
Rental
Palindrome



please run the program on your vs code editor and design to
suit your needs
these are just my designs so I won’t be responsible for any
mark you get nor copyright, if you just copy and past


Calculator
Public Class Form1
Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles
BtnAdd.Click
Dim iNumber1 As Integer
Dim iNumber2 As Integer
Dim iAns As Integer

iNumber1 = txtNum1.Text
iNumber2 = txtNum2.Text


iAns = iNumber1 + iNumber2

txtAns.Text = iAns
End Sub

Private Sub BtnMultiplication_Click(sender As Object, e As EventArgs)
Handles BtnMultiplication.Click
Dim iNumber1 As Integer
Dim iNumber2 As Integer
Dim iAns As Integer


iNumber1 = txtNum1.Text
iNumber2 = txtNum2.Text


iAns = iNumber1 * iNumber2

txtAns.Text = iAns

End Sub

Private Sub BtnDivision_Click(sender As Object, e As EventArgs) Handles
BtnDivision.Click
Dim iNumber1 As Integer
Dim iNumber2 As Integer
Dim iAns As Integer

iNumber1 = txtNum1.Text
iNumber2 = txtNum2.Text

, iAns = iNumber1 / iNumber2

txtAns.Text = iAns
End Sub

Private Sub BtnSubstract_Click(sender As Object, e As EventArgs) Handles
BtnSubstract.Click
Dim iNumber1 As Integer
Dim iNumber2 As Integer
Dim iAns As Integer

iNumber1 = txtNum1.Text
iNumber2 = txtNum2.Text

iAns = iNumber1 - iNumber2

txtAns.Text = iAns
End Sub
End Class




Rental Cost

Public Class Form1
Private Sub btnDisplayRentalRates_Click(sender As Object, e As EventArgs)
Handles btnDisplayRentalRates.Click
lstRentalRates.Items.Add("Price of Equipment" & vbTab & "Half Day" &
vbTab & "Full Day")
lstRentalRates.Items.Add("1. Rug cleaner" & vbTab & "$16.00" & vbTab
& "$24.00")
lstRentalRates.Items.Add("2. Lawn mower" & vbTab & "$12.00" & vbTab &
"$18.00")
lstRentalRates.Items.Add("3. Paint sprayer" & vbTab & "$20.00" &
vbTab & "$30.00")

End Sub