write a program on visual basic to calculate the number of tiles required to cover the surface area of a house.

Question

input length and width of house in feet.input length and width of tiles in feet.add extra 2 % of the total requirements for waste.input price of unit tile.calculate amount payable.input number of tiles per box and output total number of tiles required,total amount payable,number of full boxes deliverable and number of unit tiles deliverable.

Answer 1

Public Class TileCalculator

Public Shared Sub Main()

' User Inputs

Console.Write("Enter length of house (ft): ")

Dim houseLength As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("Enter width of house (ft): ")

Dim houseWidth As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("Enter length of a tile (ft): ")

Dim tileLength As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("Enter width of a tile (ft): ")

Dim tileWidth As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("Enter price of one tile ($): ")

Dim tilePrice As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("Enter number of tiles per box: ")

Dim tilesPerBox As Integer = Convert.ToInt32(Console.ReadLine())

' Calculations

Dim houseArea As Double = houseLength * houseWidth ' Total area of the house

Dim tileArea As Double = tileLength * tileWidth ' Area covered by one tile

' Number of tiles required (without waste factor)

Dim tilesNeeded As Integer = Math.Ceiling(houseArea / tileArea)

' Add 2% extra tiles for waste

Dim totalTilesRequired As Integer = Math.Ceiling(tilesNeeded * 1.02)

' Calculate total cost

Dim totalCost As Double = totalTilesRequired * tilePrice

' Determine number of full boxes and remaining tiles

Dim fullBoxes As Integer = totalTilesRequired \ tilesPerBox ' Integer division for full boxes

Dim remainingTiles As Integer = totalTilesRequired Mod tilesPerBox ' Remaining loose tiles

' Display Results

Console.WriteLine(vbCrLf & "******* Calculation Results *******")

Console.WriteLine("Total tiles required (including waste): " & totalTilesRequired)

Console.WriteLine("Total amount payable: $" & Math.Round(totalCost, 2))

Console.WriteLine("Full boxes deliverable: " & fullBoxes)

Console.WriteLine("Remaining unit tiles: " & remainingTiles)

Console.WriteLine("**********************************")

' Wait for user input before exiting

Console.ReadLine()

End Sub

End Class