The Psychiatric Ward

Option Strict On

Public Class frmDigitalDownloads

' Cost per download - used in multiple procedures
Const _cdecPricePerDownload As Decimal = 0.99D

Private Sub btnCalculateCost_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculateCost.Click
' This event handler is executed when the user clicks the
' Calculate Cost button. It calculates and displays the cost
' of music downloads (number of downloads times the cost per download).

Dim strNumberOfSongs As String
Dim intNumberOfSongs As Integer
Dim decTotalCostOfDownloads As Decimal

strNumberOfSongs = txtNumberOfDownloads.Text
intNumberOfSongs = Convert.ToInt32(strNumberOfSongs)
decTotalCostOfDownloads = intNumberOfSongs * _cdecPricePerDownload
lblTotalCostOfDownloads.Text = decTotalCostOfDownloads.ToString("C")

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
' This event handler is executed when the user clicks the
' Clear button. It clears teh number of songs text box
' and the Text property of the Total Cost of Downloads label.
' Then, it sets the focus on the txtNumberOfSongs Textbox objects

txtNumberOfDownloads.Clear()
lblTotalCostOfDownloads.Text = ""
txtNumberOfDownloads.Focus()

End Sub

Private Sub frmDigitalDownloads_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' This event handler is executed when the form is loaded.
' It displays the cost heading, clears the Text property of the
' Total Cost of Downloads label, and sets the focus on
' the txtNumberOfSongs Textbox object.

lblCostHeading.Text = _cdecPricePerDownload.ToString("C") & " Per Download"
lblTotalCostOfDownloads.Text = ""
txtNumberOfDownloads.Focus()

End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Close()

End Sub
End Class