'Resets the program 'When the reset button is pressed: 'Change label text to will display here “Answer “” 'Change to nothing “txtFrom” “” 'Change to nothing “txtAmount” “” 'Change to nothing “txtTo” “” 'Change to nothing “txtRate” “” 'Put cursor to the field of the form or “txtFrom” lblAnwser.Text = "Answer will display here" txtFrom.Text = "" txtAmount.Text = "" txtTo.Text = "" txtRate.Text = " " txtFrom.Focus() End Sub Private Sub btnProcess_Click(sender As Object, e As EventArgs) Handles btnProcess.Click 'Validate the data ' When the process button is clicked then perform the following statements. 'If the length of the text in is equal to zero then display a “txtFrom” message box error sure you type the name of your currency” ‘stating “Make 'Reset text in to nothing or “txtFrom” ““ 'Put cursor in the box “txtFrom”
'Resets the program 'When the reset button is pressed: 'Change label text to “Answer will display here “” 'Change “txtFrom” to nothing “” 'Change “txtAmount” to nothing “” 'Change “txtTo” to nothing “” 'Change “txtRate” to nothing “” 'Put cursor to the field of the form or “txtFrom” lblAnwser.Text = "Answer will display here" txtFrom.Text = "" txtAmount.Text = "" txtTo.Text = "" txtRate.Text = " " txtFrom.Focus() End Sub Private Sub btnProcess_Click(sender As Object, e As EventArgs) Handles btnProcess.Click 'Validate the data ' When the process button is clicked then perform the following statements. 'If the length of the text in “txtFrom” is equal to zero then display a message box ‘stating error “Make sure you type the name of your currency” 'Reset text in “txtFrom” to nothing or ““ 'Put cursor in the “txtFrom” box
design_the_program_full.docx