100% satisfaction guarantee Immediately available after payment Both online and in PDF No strings attached
logo-home
Summary ICT2611 hands on project assignment 4 2022 $11.04
Add to cart

Summary

Summary ICT2611 hands on project assignment 4 2022

 73 views  1 purchase
  • Course
  • Institution

solutions to some of the visual basic hands on project

Preview 2 out of 5  pages

  • September 27, 2022
  • 5
  • 2022/2023
  • Summary
avatar-seller
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

The benefits of buying summaries with Stuvia:

Guaranteed quality through customer reviews

Guaranteed quality through customer reviews

Stuvia customers have reviewed more than 700,000 summaries. This how you know that you are buying the best documents.

Quick and easy check-out

Quick and easy check-out

You can quickly pay through credit card or Stuvia-credit for the summaries. There is no membership needed.

Focus on what matters

Focus on what matters

Your fellow students write the study notes themselves, which is why the documents are always reliable and up-to-date. This ensures you quickly get to the core!

Frequently asked questions

What do I get when I buy this document?

You get a PDF, available immediately after your purchase. The purchased document is accessible anytime, anywhere and indefinitely through your profile.

Satisfaction guarantee: how does it work?

Our satisfaction guarantee ensures that you always find a study document that suits you well. You fill out a form, and our customer service team takes care of the rest.

Who am I buying these notes from?

Stuvia is a marketplace, so you are not buying this document from us, but from seller phegelelo. Stuvia facilitates payment to the seller.

Will I be stuck with a subscription?

No, you only buy these notes for $11.04. You're not tied to anything after your purchase.

Can Stuvia be trusted?

4.6 stars on Google & Trustpilot (+1000 reviews)

52355 documents were sold in the last 30 days

Founded in 2010, the go-to place to buy study notes for 14 years now

Start selling
$11.04  1x  sold
  • (0)
Add to cart
Added