Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub btn_exit_Click(sender As Object, e As EventArgs) Handles btn_exit.Click
- Me.Close()
- End Sub
- Private Sub btn_clear_Click(sender As Object, e As EventArgs) Handles btn_clear.Click
- txt_avg.Clear()
- txt_begin.Clear()
- txt_end.Clear()
- txt_sold.Clear()
- txt_turn.Clear()
- End Sub
- Private Sub txt_sold_TextChanged(sender As Object, e As EventArgs) Handles txt_sold.TextChanged
- End Sub
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- End Sub
- Private Sub btn_calculate_Click(sender As Object, e As EventArgs) Handles btn_calculate.Click
- Dim begin_Inventory As Decimal = Decimal.Parse(txt_begin.Text)
- Dim end_Inventory As Decimal = Decimal.Parse(txt_end.Text)
- Dim cost As Decimal = Decimal.Parse(txt_sold.Text)
- Dim avg As Decimal = (end_Inventory + begin_Inventory) / 2
- Dim turnover As Decimal = cost / avg
- txt_avg.Text = avg.ToString("C")
- txt_turn.Text = txt_turn.ToString
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement