LiveCode Forums.

Code: Select all

function calculatePercentage pType, pPrice
   -- the parameters passed to this function have been given more meaningful names
   
   -- check if the pType parameter was "Private" or not
   if pType = "Private" then
      -- yes it is, so do our other checks on pPrice and return a value accordingly
      if pPrice > 2000000.01 then
         return (7/100)
      else if pPrice > 1000000.01 then
         return (5/100)
      else if pPrice > 500000.01 then
         return (4/100)
      else if pPrice > 250000.01 then
         return (3/100)
      else
         return (1/100)
      end if
   else
      -- no pType was not "Private" so return the appropriate value
      return 15
   end if
   
end calculatePercentage

on Calculate
   put (fld "UO" * (45/100)) into field "ITS fee"
   put (fld "ITS Fee" * (20/100)) into field "VAT"
   put (fld "ITS Fee" + fld "VAT") into fld "Total Fee"
   put (fld "UO" - fld "Total Fee") into fld "Savings"
end Calculate

Code: Select all

on mouseUp
   -- get the values from the field and the menu button label and put into variables
   -- simply to make it easier to pass them to the function
   put the label of button "Purchase Type" into tPurchaseType
   put field "Price Input" into tPrice
   
   -- pass those values to the function (which is on the card script so all the buttons on the card can use it)
   -- and take the returned value from the function
   -- and store it in the destination field 
   put calculatePercentage (tPurchaseType, tPrice) into field "UO %age"
   -- this sends the values in variables tPurchaseType and tPrice to the calculatePercentage function
   -- gets the value returned from the function and puts it in the field
   put (fld "Price Input" * fld "UO %age") into field "UO"
   send "Calculate" to card "Stamp Duty Calculator"
   
end mouseUp

Code: Select all

on mouseUp
  put "private" into tPurchaseType
  put 525000 into tPrice
  put calculatePercentage (tPurchaseType, tPrice) into percnt
  put (tPrice * percnt) into UO
  calculate tPurchaseType,tPrice
end mouseUp

Code: Select all

on preOpenStack
   send "resizeStack" to card "Stamp Duty Calculator"
   wait 0.05 seconds
   send "resizeStack" to card "Stamp Duty Calculator"
   wait 0.05 seconds
   send "resizeStack" to card "Stamp Duty Calculator"
end preOpenStack