Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim item As String

        Dim weight As Decimal

        Dim num As Integer

        Dim i As Integer

        Dim g As String

        Dim c As String

        Dim s As String

        Dim tw As Decimal

        Dim reject As Integer

        Dim tg As Decimal = 0

        Dim tc As Decimal = 0

        Dim ts As Decimal = 0

        Dim ng As Integer

        Dim nc As Integer

        Dim ns As Integer

        Dim gc As Integer

        Dim gg As Integer

        Dim gs As Integer

        Dim p As Integer

        Dim discount As Integer = 0

        Dim tp As Integer = 0

        Console.WriteLine("How many sacks would you like in total?")

        num = Console.ReadLine

        Do

            Do

                Console.WriteLine("Press S for sand, G for gravel and C for cement")

                item = Console.ReadLine

                Select Case item.ToUpper

                    Case "S"

                        Do

                            Console.WriteLine("Type in the weight over 49.9 and under 50.1 kilograms ")

                            weight = Console.ReadLine

                            If 49.9 < weight And weight < 50.1 Then

                                Console.WriteLine()

                            Else

                                Console.WriteLine("invalid weight")

                                reject = reject + 1

                            End If

                        Loop Until weight > 49.9 And weight < 50.1

​

                        item = "Sand"

                        i = i + 1

                    Case "G"

                        Do

                            Console.WriteLine("Type in the weight over 49.9 and under 50.1 kilograms")

                            weight = Console.ReadLine

                            If 49.9 < weight And weight < 50.1 Then

                                Console.WriteLine()

                            Else

                                Console.WriteLine("invalid weight")

                                reject = reject + 1

                            End If

                        Loop Until 49.9 < weight And weight < 50.1

​

                        item = "Gravel"

                        i = i + 1

                    Case "C"

                        Do

                            Console.WriteLine("Type in the weight over 24.9 and under 25.1 kilograms")

                            weight = Console.ReadLine

                            If 24.9 < weight And weight < 25.1 Then

                                Console.WriteLine()

                            Else

                                Console.WriteLine("invalid weight")

                                reject = reject + 1

                            End If

                        Loop Until 24.9 < weight And weight < 25.1

​

                        item = "Cement"

                        i = i + 1

                    Case Else

                        Console.WriteLine("Incorrect sack")

                        reject = reject + 1

                End Select

            Loop Until item = "Sand" Or item = "Gravel" Or item = "Cement"

​

            If item = "Sand" Then

                s = item

                ns = ns + 1

                ts = ts + weight

            ElseIf item = "Gravel" Then

                g = item

                ng = ng + 1

                tg = tg + weight

            ElseIf item = "Cement" Then

                c = item

                nc = nc + 1

                tc = tc + weight

            End If

​

            tw = tw + weight

            p = 3 * nc + 2 * ns + 2 * ng

        Loop Until num = i

​

        gc = nc - 1

        gg = ng - 2

        gs = ns - 2

        If gc >= 0 And gg >= 0 And gs >= 0 Then

            discount = 10

        End If

​

        tp = p - discount

        Console.WriteLine("Number of rejection: " & reject)

        Console.WriteLine("Content: " & ns & " Sand" & " " & ng & " Gravel" & " " & nc & " Cement")

        Console.WriteLine("Weight of Sand: " & ts)

        Console.WriteLine("Weight of Gravel: " & tg)

        Console.WriteLine("Weight of Cement: " & tc)

        Console.WriteLine("Total Weight: " & tw)

        Console.WriteLine("Price is: $" & p)

        Console.WriteLine("Discount of: $" & discount)

        Console.WriteLine("The total price is: $" & tp)

    End Sub

End Module

​