Imports System

Public Module Module1

    Public Sub Main()

        Dim ch As Char

        ch="y"

        Dim tf As Integer

        Dim choice As Integer

        Dim tq As Integer

        Dim bQuantity As Integer

        Dim lQuantity As Integer

        Dim dQuantity As Integer

        Dim bprice As Integer

        Dim lprice As Integer

        Dim dprice As Integer

        Dim btp As Integer

        Dim ltp As Integer

        Dim dtp As Integer

        Dim item As Integer

        Dim bn As Integer

        Dim totalmoney As Integer

        Dim tp As Integer

        Dim finaltotal As Integer

        Console.WriteLine("**************DEEPAK HOTEL***************")

        tf=0

​

'ch="y"

While ch= "y"

Console.WriteLine("1.BREakfast")

Console.WriteLine("2.Lunch")

Console.WriteLine("3.Dinner")

Console.WriteLine("4.Print Bill")

Console.Write("Enter your Choice :" &choice)

Choice=Console.REAdline()

if choice=1 then

                  Console.WriteLine("---------------------------------------------------")

                  Console.WriteLine("                        BREakfast Time                         ")

                  Console.WriteLine("---------------------------------------------------")

                   Console.WriteLine("1.Burger")

                        Console.WriteLine("2.Dosa")

                     Console.WriteLine("3.POha")

                    Console.Write("Enter YOUR ITEM :" &item)

                      item=Console.REAdline()

                      Console.WriteLine("You HAve Selected:")

                                   if item=1 Then

                    Console.WriteLine("Burger")

                                    else if item=2 

                        Console.WriteLine("Dosa")

                                    else if item=3 

                            Console.WriteLine("POha")

                                         Else

                                        bQuantity=0    

                                    End IF

        tf=tf+1

                        Console.Write("Number of  PLate :" &bQuantity)

      bQuantity=Console.ReadLine()

      Console.WriteLine("price per PLate :50" )

       bprice=50

     btp=bQuantity*bprice

                            Console.Write("Do you Want to Continue:" &ch)

                        ch=Console.ReadLine()

                        choice=0

                        item=0

Else If choice=2 

                     Console.WriteLine("---------------------------------------------------")

                  Console.WriteLine("                        Lunch Time                         ")

                  Console.WriteLine("---------------------------------------------------")

                   Console.WriteLine("1.pAneer Masala")

                        Console.WriteLine("2.Mix Veg")

                     Console.WriteLine("3.Biryaani")

                    Console.WriteLine("Enter YOUR ITEM :" &item)

                      item=Console.REAdline()

                      Console.WriteLine("You HAve Selected")

                                   if item=1 Then

                                     Console.WriteLine("pAneer Masala")

                                    else if item=2 

                                     Console.WriteLine("Mix Veg")

                                    else if item=3 

                                      Console.WriteLine("Biryaani")

                                  Else

                      lQuantity=0

                                    End IF

            tf=tf+1

      Console.Write("Number of   PLate :" &lQuantity)

      lQuantity=Console.ReadLine()

       Console.WriteLine("price per PLate:100" )

       lprice=100

     ltp=lQuantity*lprice

                                    Console.Write("Do you Want to Continue:" &ch)

                                    ch=Console.ReadLine()

                                    choice=0

                                    item=0

​

Else If choice=3 

                     Console.WriteLine("---------------------------------------------------")

                  Console.WriteLine("                       Dinner Time                         ")

                  Console.WriteLine("---------------------------------------------------")

                   Console.WriteLine("1.Panch pakawan")

                        Console.WriteLine("2.Veg thali")

                     Console.WriteLine("3.Non-Veg thali")

                    Console.Write("Enter YOUR ITEM :" &item)

                      item=Console.REAdline()

                      Console.WriteLine("You HAve Selected")

                                   if item=1 Then

                                     Console.WriteLine(item)

                                    else if item=2 

                                     Console.WriteLine(item)

                                    else if item=3 

                                      Console.WriteLine(item)      

                                    else

                                          dQuantity=0

                                    End IF

             tf=tf+1

      Console.Write("Number of   PLate :" &dQuantity)

      dQuantity=Console.ReadLine()

       Console.WriteLine("price per PLate:200" )

       dprice=200

        dtp=dQuantity*dprice

                                                Console.Write("Do you Want to Continue:" &ch)

                                                ch=Console.ReadLine()

                                                choice=0

                                                item=0

​

Else if Choice=4 Then

 Console.WriteLine("Enter Bill Number :" &bn)

 bn=console.Readline()

 Console.WriteLine("Total Food :" &tf)

'tf=console.Readline()

tq=lQuantity+bQuantity+dQuantity

totalmoney=btp+ltp+dtp

Console.WriteLine("Total Price :" &totalmoney)

Console.WriteLine("GST : 7%")

Console.Writeline("SGST : 7%")

tp=totalmoney*(0.14)

finaltotal=totalmoney+tp 

Console.WriteLine("Total Price:" &finaltotal)

Console.WriteLine("Enter Bill Number :" &bn)

Console.WriteLine("Total Food:" &"        "&"Totalqty:" &"        "&"Total Price" &"        "&"Tax:" &"        "&"Final Amount:")

Console.WriteLine(     tf &"               "& tq &"              "& totalmoney &"            "& tp &"          "& finaltotal)

                                                    item=0

Else

Console.Write("Do you Want to Continue:" &ch)

ch=Console.ReadLine()                                                   

Console.WriteLine("::::NEXT TIME ALSO COME::::" )

​

​

​

​

​

End IF

​

End While

​

​

​

​

​

End Sub

End Module