vb.net - Payroll program not displaying correct amount results -

i working on payroll program. first base class bonus class should contain 2 public properties salesid , sales. include default constructor , parameeterized constructor in class.also include a getbonus method(function) calculates salespersons bonus using formula sales*0.05 create derived class named premiumbonus derived clas getbonus mothod calculate bonus follows sales0.05 +(sales-2500)).01 include default , parameterized constructorin derived class. if sales on 2500 use this

i feel math off can please double check it? need suggestions , tried debug , getbonus seems stays on 0 no matter number put results in calculated box. below code

option explicit on option strict on option infer off

    ' base class     public class bonus     public property salesid string     public property sales double      public sub new()     _sales = 0     _salesid = string.empty         end sub    public sub new(byval dblb double,     byval strid string)      _sales = dblb     _salesid = strid    end sub    public overridable function getbonus() double     ' returns sales      return _sales * 0.05    end function   end class     ' derived class    public class premiumbonus     inherits bonus      public sub new()     mybase.new()    end sub     public sub new(byval dblb double,     byval strid string)     mybase.new(dblb, strid)     end sub       public overrides function getbonus() double     return mybase.getbonus + (sales - 2500) * 0.01    end function   end class        private sub btncalc_click(sender object, e eventargs) handles btncalc.click     ' calculates , displays bonus      dim mybonus new bonus     dim mypremiumbonus new premiumbonus     dim sales double      ' if sales on $2500, instantiate premiumbonus object     ' , calculate bonus     ' otherwise, instantiate bonus object , calculate bonus      if sales > 2500         double.tryparse(txtsales.text, mybonus.sales)         sales = mybonus.getbonus      else         double.tryparse(txtsales.text, mypremiumbonus.sales)         sales = mypremiumbonus.getbonus     end if 

based on title:

payroll program not displaying correct amount results

and part of description:

getbonus seems stays on 0 no matter number put results in calculated box

i pretty question "my output 0 regardless of input. what's wrong?"

---

i see in code:

dim sales double if sales > 2500     double.tryparse(txtsales.text, mybonus.sales)     sales = mybonus.getbonus 

you should @ populating sales value prior evaluating it, , it's idea not use same variable name in many places, makes code more difficult read. might try this:

dim mynewbonus double dim sales double double.tryparse(txtsales.text, sales) if sales > 2500     mybonus.sales = sales     mynewbonus = mybonus.getbonus() 

any if still fails try using debugger, or @ least strategically placed messagebox.show(somevalueishouldcheck.tostring)'s