Skip to content

Instantly share code, notes, and snippets.

@jasongorman

jasongorman/frmCarpetQuote.frm

Last active April 3, 2019 07:40
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jasongorman/9e14c473d8d881bcd42c7d3784f39106 to your computer and use it in GitHub Desktop.
Save jasongorman/9e14c473d8d881bcd42c7d3784f39106 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
frmCarpetQuote.frm
Private Sub btnQuote_Click()
Dim quote As New CarpetQuote
Dim room As New Room
Dim carpet As New Carpet
room.Width = CDbl(txtWidth.Text)
room.Length = CDbl(txtLength.Text)
carpet.PricePerSqMtr = CDbl(txtPricePerSqMtr.Text)
carpet.RoundUp = chkRoundUp.value
lblPrice.Caption = "£" & quote.quote(room, carpet)
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment