title: Reciving Error BC30455: Argument not specified for parameter 'description' of 'Public Sub New(description As String, quanity As Integer)'
body: <p>This is my first time posting and i am really desperate. I have researched everywhere even my textbook to solve my issue and have came up empty after 20hrs(split between 3 days) of trying to fix this one error. Here is the exact text the code displays on a web page when trying to access one of my pages while debugging.</p>
  
  <p>`
      Server Error in '/MyApp' Application.
  Compilation Error
  Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.</p>
  
  <p>Compiler Error Message: BC30455: Argument not specified for parameter 'description' of 'Public Sub New(description As String, quanity As Integer)'.</p>
  
  <p>Source Error:</p>
  
  <pre><code>Line 52:         &lt;System.Diagnostics.DebuggerNonUserCodeAttribute()&gt;  _
  Line 53:         Public Sub New()
  Line 54:             MyBase.New
  Line 55:             Dim dependencies() As String
  Line 56:             CType(Me,Global.FinalProject.WebForm3).AppRelativeVirtualPath =       "~/PlasticWorms.aspx"
  
  
  Source File: C:\Users\christopher\AppData\Local\Temp\Temporary ASP.NET Files\myapp    \4b7a0ffe\8a9f18fa\App_Web_plasticworms.aspx.cdcab7d2.9_c0ynxq.0.vb    Line: 54
  </code></pre>
  
  <p>Show Detailed Compiler Output:</p>
  
  <p>Show Complete Compilation Source:</p>
  
  <p>Version Information: Microsoft .NET Framework Version:4.0.30319; ASP.NET Version:4.0.30319.34009 </p>
  
  <hr>
  
  <p>Public Class Display</p>
  
  <pre><code>Dim _customerFirstName As String
  Dim _customerLastName As String
  Dim _customerAddress As String
  Dim _description As String = ""
  Dim intQuanity As Integer = 0
  Dim decCustomerID As Decimal = 0D
  Dim customerInfo(3) As String
  Dim price As Decimal
  Dim decTotal As Decimal
  Dim _result As String
  Dim form4 As WebForm4
  Dim form3 As WebForm3
  Dim sale As Sale
  
  Sub New()
      MyBase.New()
  End Sub
  
  Sub prints()
      sale = New Sale(decTotal)
      form4 = New WebForm4(customerInfo(0), customerInfo(1), customerInfo(2), CDec(customerInfo(3)))
      form3 = New WebForm3(_description, intQuanity)
      For Each S As String In customerInfo
          _result = " , " &amp; vbNewLine &amp; S
      Next
      _result = " , " &amp; vbNewLine &amp; _description &amp; " , " &amp; vbNewLine &amp; decTotal
  
  
      form4.Result(_result)
  
  End Sub
  </code></pre>
  
  <p>End Class</p>
  
  <hr>
  
  <p>Public Class SaveData</p>
  
  <pre><code>Dim _customerFirstName As String
  Dim _customerLastName As String
  Dim _customerAddress As String
  Dim _description As String = ""
  Dim intQuanity As Integer = 0
  Dim decCustomerID As Decimal = 0D
  Dim price As Decimal
  Dim total As Decimal
  Dim _result As String
  Dim strFileLocation As String = "D:\Sales.txt"
  Dim form4 As WebForm4
  Dim form3 As WebForm3
  
  
  
  Sub New()
      MyBase.New()
  End Sub
  
  Sub save()
  
      form4 = New WebForm4(_customerFirstName, _customerLastName, _customerAddress, decCustomerID)
      form3 = New WebForm3(_description, intQuanity)
      Try
          Dim objWriter As IO.StreamWriter = _
              IO.File.AppendText(strFileLocation)
  
          objWriter.Write("ID: " &amp; decCustomerID &amp; ",")
          objWriter.Write("Customer First Name: " &amp; _customerFirstName &amp; ",")
          objWriter.Write("Customer Last Name: " &amp; _customerLastName &amp; ",")
          objWriter.Write("address: " &amp; _customerAddress &amp; ",")
          objWriter.Write("Purchase Description: " &amp; _description &amp; ",")
          objWriter.Write("Total: " &amp; total &amp; ",")
          objWriter.Close()
  
  
      Catch ex As Exception
          MsgBox("Log file could not be written. Please Check that you have an E:\ drive on you're computer.")
  
      End Try
  
      Try
  
  
      Catch ex As Exception
  
      End Try
  
  
  
  End Sub
  </code></pre>
  
  <p>End Class</p>
  
  <hr>
  
  <p>Public Class Sale</p>
  
  <pre><code>Dim _customerFirstName As String
  Dim _customerLastName As String
  Dim _customerAddress As String
  Dim _description As String = ""
  Dim intQuanity As Integer = 0
  Dim decCustomerID As Decimal = 0D
  Dim price As Decimal
  Dim decTotal As Decimal
  Dim _result As String
  
  
  
  Sub New(ByVal total As Decimal)
  
      total = decTotal
  End Sub
  
  Sub Calculate()
  
      price = 3.99D
      decTotal = intQuanity * price
  
  
  End Sub
  </code></pre>
  
  <p>End Class</p>
  
  <hr>
  
  <p>Public Class WebForm4
      Inherits System.Web.UI.Page</p>
  
  <pre><code>Dim _customerFirstName As String
  Dim _customerLastName As String
  Dim _customerAddress As String
  Dim _description As String = ""
  Dim intQuanity As Integer = 0
  Dim decCustomerID As Decimal = 0D
  Dim price As Decimal
  Dim decTotal As Decimal
  Dim _result As String
  Dim sale As Sale
  Dim display As New Display
  Dim saveData As New SaveData
  
  
  
  
  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  
  End Sub
  
  
  
  Protected Sub btnPlaceOrder_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnPlaceOrder.Click
      sale = New Sale(decTotal)
      _customerFirstName = txtFirstName.Text
      _customerLastName = txtLastName.Text
      _customerAddress = txtAddress.Text
      sale.Calculate()
      saveData.save()
      display.prints()
      VBMath.Randomize(decCustomerID)
  
  End Sub
  
  Sub New(ByVal customerFirstName As String, ByVal customerLastName As String, ByVal customerAddress As String, ByVal customerID As Decimal)
      MyBase.New()
      customerID = decCustomerID
      customerFirstName = _customerFirstName
      customerLastName = _customerLastName
      customerAddress = _customerAddress
  End Sub
  
  
  
  Sub Result(ByVal result As String)
      lblResult.Text = result
      Calendar1.SelectedDate.Day.Equals(Calendar1.TodaysDate.AddDays(3))
  
  End Sub
  </code></pre>
  
  <p>End Class</p>
  
  <hr>
  
  <p>Public Class WebForm3
      Inherits System.Web.UI.Page</p>
  
  <pre><code>Dim _description As String = ""
  Dim intQuanity As Integer = 0
  
  
  Sub New(ByVal description As String, ByVal quanity As Integer)
      MyBase.New()
      description = _description
      quanity = intQuanity
  
  End Sub
  
  
  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  
  End Sub
  
  Protected Sub btnCheckOut_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCheckout.Click
  
  
  
      If chkBlue.Checked = True Then
          _description += " , " &amp; chkBlue.Text
          intQuanity += CInt(txtBlueQty.Text)
      ElseIf chkBrown.Checked = True Then
          _description += " , " &amp; chkBrown.Text
          intQuanity += CInt(txtBrownQty.Text)
      ElseIf chkCrawDad.Checked = True Then
          _description += " , " &amp; chkCrawDad.Text
          intQuanity += CInt(txtCrawdadQty.Text)
      ElseIf chkMud.Checked = True Then
          _description += " , " &amp; chkMud.Text
          intQuanity += CInt(txtMudQty.Text)
      ElseIf chkPurple.Checked = True Then
          _description += " , " &amp; chkPurple.Text
          intQuanity += CInt(txtPurpleQty.Text)
      ElseIf chkPurpleSpeckled.Checked = True Then
          _description += " , " &amp; chkPurpleSpeckled.Text
          intQuanity += CInt(txtPurpleSpeckledQty.Text)
      ElseIf chkRedDeath.Checked = True Then
          _description += " , " &amp; chkRedDeath.Text
          intQuanity += CInt(txtRedDeathQty.Text)
      ElseIf chkSpeckledGray.Checked = True Then
          _description += " , " &amp; chkSpeckledGray.Text
          intQuanity += CInt(txtSpeckledGrayQty.Text)
      ElseIf chkTan.Checked = True Then
          _description += " , " &amp; chkTan.Text
          intQuanity += CInt(txtTanQty.Text)
      ElseIf chkWatermellon.Checked = True Then
          _description += " , " &amp; chkWatermellon.Text
          intQuanity += CInt(txtWatermellonQty.Text)
      ElseIf chkYellowGreen.Checked = True Then
          _description += " , " &amp; txtYellowGreenQty.Text
          intQuanity += CInt(txtYellowGreenQty.Text)
      Else
          MsgBox("ERROR")
  
      End If
  
  
      Server.Transfer("OrderRecipt.aspx")
  
  
  
  End Sub
  </code></pre>
  
  <p>End Class
  `</p>