(will cashapp you & name you ! ) send me a code (visual studio basics) to display this.

The UI is in the picture below.

Here is the code. If you want a ZIP let me know.

Public Class Form1

   Private _orderNumber As Integer = 0

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Dim oi = New OrderItem With {.Name = "Large", .Price = 4}

       rbnLarge.Tag = oi

       rbnLarge.Name = oi.Name

       oi = New OrderItem With {.Name = "Medium", .Price = 3.25}

       rbnMedium.Tag = oi

       rbnMedium.Name = oi.Name

       oi = New OrderItem With {.Name = "Small", .Price = 2.5}

       rbnSmall.Tag = oi

       rbnSmall.Name = oi.Name

       Dim MeatOptions = {New OrderItem With {.Name = "Turkey", .Price = 0.6},

           New OrderItem With {.Name = "Ham", .Price = 0.6},

           New OrderItem With {.Name = "Roast Beef", .Price = 0.6}}

       clbMeatOptions.Items.AddRange(MeatOptions)

       Dim Fixings = {New OrderItem With {.Name = "Lettuce", .Price = 0.1},

           New OrderItem With {.Name = "Tomato", .Price = 0.25},

           New OrderItem With {.Name = "Mustard", .Price = 0.0},

           New OrderItem With {.Name = "Onion", .Price = 0.1},

           New OrderItem With {.Name = "Cheese", .Price = 0.5},

           New OrderItem With {.Name = "Mayonnaise", .Price = 0.0}}

       clbFixings.Items.AddRange(Fixings)

       ResetInterface()

   End Sub

   Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click

       Dim Price As Double

       If rbnLarge.Checked Then

           Price = TryCast(rbnLarge.Tag, OrderItem).Price

       ElseIf rbnMedium.Checked Then

           Price = TryCast(rbnMedium.Tag, OrderItem).Price

       ElseIf rbnSmall.Checked Then

           Price = TryCast(rbnSmall.Tag, OrderItem).Price

       End If

       For Each item In clbMeatOptions.CheckedItems

           Price += TryCast(item, OrderItem).Price

       Next

       For Each item In clbFixings.CheckedItems

           Price += TryCast(item, OrderItem).Price

       Next

       txtSubTotal.Text = String.Format("${0:0.00}", Price)

       Dim Tax As Double

       Tax = Price * 0.079

       txtTax.Text = String.Format("${0:0.00}", Tax)

       txtTotal.Text = String.Format("${0:0.00}", Price + Tax)

       _orderNumber += 1

       lblOrderNumber.Text = String.Format("{0:D4}", _orderNumber)

       MessageBox.Show("Please thank the customer for their business!!")

       ResetInterface()

   End Sub

   Private Sub ResetInterface()

       rbnMedium.Checked = True

       ClearCLB(clbMeatOptions)

       ClearCLB(clbFixings)

       txtSubTotal.Text = ""

       txtTax.Text = ""

       txtTotal.Text = ""

       lblOrderNumber.Text = ""

   End Sub

   Private Sub ClearCLB(clb As CheckedListBox)

       For i As Integer = 0 To clb.Items.Count - 1

           clb.SetItemChecked(i, False)

       Next

       clb.ClearSelected()

   End Sub

End Class

Public Class OrderItem

   Public Name As String

   Public Price As Double

   Public Overrides Function ToString() As String

       Return Name

   End Function

End Class

answeroperating system;