I M Having Difficulty With Visual Basic The Assign Directions Is First Followed

Outside back cover

1.40

Table 2 – Markup by Location

Step 1: Create the Project:

Create a Visual Basic Project using the project name “BuzzAdvertising”.

Step 2 – Design the Form:

Design the form as shown in Figure 1. You will need three button controls, eight radio buttons, two group boxes, seven labels, and one picture box. Load the downloaded bee.jpg image into the picture box. Remove the control box because this program will run in a kiosk.

Step 3 – Create the Ad class

Add a Class file named Ad to the project. The Ad class should have the following properties: company, telephone, run date, size, location, and price. Create a method in the Ad class that calculates the final price of an ad.

Step 4 – Write code in the main form:

Set the size and location based on the radio button selections. Create a new Ad object, passing in the required data values to the constructor. After the Ad object has been created, call the Ad object’s calculate method to obtain the final price. Display the final price with appropriate formatting.

Step 7 – Finish up:

Be sure to add the code for the Clear and Exit buttons.

Step 8: Save and run

Save all files, then start the application. Figures 2 and 3 show sample runs of this program demonstrating the restrictions.

Here’s my .vb:

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Sub Sub reserveButton_Click(ByVal sender System.Object, ByVal e System.EventArgs) Handles reserveButton.Click Dim ad Ad_to_project halfPageButton.Checked = outBackCoverButton.Enabled = quarterPageButton.Checked = outBackCoverButton.Enabled = businessCardButton.Checked = inFrontCoverButton.Enabled = inBackCoverButton.Enabled = outBackCoverButton.Enabled = companyTextBox.Text = String.Empty AndAlso telephoneTextBox.Text = String.Empty AndAlso dateTextBox.Text = String.Empty MessageBox.Show(, , MessageBoxButtons.OK, MessageBoxIcon.Error) fullPageButton.Checked = ad.Size = halfPageButton.Checked = ad.Size = * quarterPageButton.Checked = ad.Size = * businessCardButton.Checked = ad.Size = outBackCoverButton.Checked = ad.Location = inBackCoverButton.Checked = ad.Location = inFrontCoverButton.Checked = ad.Location = interiorPageButton.Checked = ad.Location = priceLabel.Text = ad.Price.ToString() Sub Sub exitButton_Click(ByVal sender System.Object, ByVal e System.EventArgs) Handles exitButton.Click Me.Close() Sub Sub reserveButton_Click(ByVal sender System.Object, ByVal e System.EventArgs) Handles reserveButton.Click Dim ad Ad_to_project outBackCoverButton.Checked = AndAlso insidebackRadioButton.Checked = AndAlso insidefrontRadioButton.Checked = AndAlso interiorRadioButton.Checked = MessageBox.Show(, , MessageBoxButtons.OK, MessageBoxIcon.Information) Sub companyTextBox.Text = String.Empty AndAlso telephoneTextBox.Text = String.Empty AndAlso dateTextBox.Text = String.Empty MessageBox.Show(, , MessageBoxButtons.OK, MessageBoxIcon.Information) Sub fullPageButton.Checked = ad.Size = halfPageButton.Checked = ad.Size = * quarterPageButton.Checked = ad.Size = * businessCardButton.Checked = ad.Size = outBackCoverButton.Checked = ad.Location = ElseIf inBackCoverButton.Checked = ad.Location = ElseIf inFrontCoverButton.Checked = ad.Location = ElseIf interiorPageButton.Checked = ad.Location = priceLabel.Text = ad.Price.ToString()

and here’s the error list:

* Attachment 1
* Attachment 2
* Attachment 3

Place this order or similar order and get an amazing discount. USE Discount code “GET20” for 20% discount