vb.net - Sub Procedure Data not showing in listbox -

vb.net - Sub Procedure Data not showing in listbox -

edit: have managed getdata function appear in list not computebalance entry. can't figure out have done wrong. unsure how info calculations appear in listbox.

'get users info via textbox input' private sub getdata(byref parcreditcard string, byref parbalance double, byref parpurchases double, byref parpayment double) parcreditcard = txtcreditcard.text parbalance = txtbalance.text parpurchases = txtpurchases.text parpayment = txtpayment.text end sub 'compute balance' private sub computebalance(byval parbalance, byval parpurchases, byval parpayment) dim financecharge, endbalance, minpayment double financecharge = parbalance * 0.015 endbalance = ((financecharge) + (parbalance) + (parpurchases)) - (parpayment) if parbalance <= 10 minpayment = endbalance else minpayment = (endbalance * 0.05) end if end sub 'display items list' private sub displaystatement(byval parcreditcard, byval parbalance, byval parpurchases, byval parpayment, byval financecharge, byval endbalance, byval minpayment) lststatement.items.clear() lststatement.items.add("credit card number:" & vbtab & parcreditcard & vbtab) lststatement.items.add("beginning balance:" & vbtab & parbalance & vbtab) lststatement.items.add("total purchases:" & vbtab & parpurchases & vbtab) lststatement.items.add("total payments:" & vbtab & parpayment & vbtab) lststatement.items.add("finance charges:" & vbtab & financecharge & vbtab) lststatement.items.add("end of month balance:" & vbtab & endbalance & vbtab) lststatement.items.add("minimum payment:" & vbtab & minpayment & vbtab) end sub private sub btncalculate_click(sender system.object, e system.eventargs) handles btncalculate.click dim parbalance, parpurchases, parpayment, financecharge, endbalance, minpayment double dim parcreditcard string getdata(parcreditcard, parbalance, parpurchases, parpayment) computebalance(endbalance, minpayment, financecharge) displaystatement(parcreditcard, parbalance, parpurchases, parpayment, financecharge, endbalance, minpayment) end sub private sub txtcreditcardnumber_textchanged(sender system.object, e system.eventargs) handles txtcreditcard.textchanged end sub private sub txtfirstbalance_textchanged(sender system.object, e system.eventargs) handles txtbalance.textchanged end sub end class

edit 2: managed work, sure way did can done in simpler way, nevertheless here code used:

public class lab4 'get users info via textbox input' public sub getdata(byref parcreditcard string, byref parbalance double, byref parpurchases double, byref parpayment double) parcreditcard = txtcreditcard.text parbalance = txtbalance.text parpurchases = txtpurchases.text parpayment = txtpayment.text end sub 'compute balance' private sub computebalance(byref parbalance double, byref parpurchases double, byref parpayment double) dim financecharge, endbalance, minpayment string parbalance = txtbalance.text parpayment = txtpayment.text parpurchases = txtpurchases.text financecharge = parbalance * 0.015 endbalance = ((financecharge) + (parbalance) + (parpurchases)) - (parpayment) if parbalance <= 10 minpayment = endbalance else minpayment = (endbalance * 0.05) end if txtfinance.text = financecharge txtendbalance.text = endbalance txtminpayment.text = minpayment end sub 'display items list' private sub displaystatement(byval parcreditcard, byval parbalance, byval parpurchases, byval parpayment, byval financecharge, byval endbalance, byval minpayment) financecharge = txtfinance.text endbalance = txtendbalance.text minpayment = txtminpayment.text lststatement.items.clear() lststatement.items.add("credit card number:" & vbtab & parcreditcard & vbtab) lststatement.items.add("beginning balance:" & vbtab & parbalance & vbtab) lststatement.items.add("total purchases:" & vbtab & parpurchases & vbtab) lststatement.items.add("total payments:" & vbtab & parpayment & vbtab) lststatement.items.add("finance charges:" & vbtab & financecharge & vbtab) lststatement.items.add("month end balance:" & vbtab & endbalance & vbtab) lststatement.items.add("minimum payment:" & vbtab & minpayment & vbtab) end sub private sub btncalculate_click(byval sender system.object, byval e system.eventargs) handles btncalculate.click dim parbalance, parpurchases, parpayment, financecharge, endbalance, minpayment double dim parcreditcard string getdata(parcreditcard, parbalance, parpurchases, parpayment) computebalance(parbalance, parpurchases, parpayment) displaystatement(parcreditcard, parbalance, parpurchases, parpayment, financecharge, endbalance, minpayment) end sub private sub txtcreditcardnumber_textchanged(byval sender system.object, byval e system.eventargs) handles txtcreditcard.textchanged end sub private sub txtfirstbalance_textchanged(byval sender system.object, byval e system.eventargs) handles txtbalance.textchanged end sub private sub lststatement_selectedindexchanged(byval sender system.object, byval e system.eventargs) handles lststatement.selectedindexchanged end sub private sub lab4_load(byval sender system.object, byval e system.eventargs) handles mybase.load end sub end class

first, financecharge, endbalance, , minpayment declared local variables sub computebalance. second, declared different set of variables named financecharge, endbalance, , minpayment local variables in sub btncalculate_click. meant declare variables (at module level) whole form.

vb.net