this is a conversion converter. when i enter 2, im supposed to have output values, not zeros... someone help please
Public Class Form1
Private Sub btnConvert_Click(sender As Object, e As EventArgs) Handles btnConvert.Click
' Declare variables
Dim decYard As Decimal ' Yard amount from txtYard
Dim decFeet As Decimal ' Feet
Dim decInches As Decimal ' Inches
Dim decCentimeters As Decimal ' Centimeters
Const decFEET_FACTOR As Decimal = 3.0
Const decINCHES_FACTOR As Decimal = 36.0
Const decCENTIMETERS_FACTOR As Decimal = 91.44
Try
' Calculate and display Yards to Feet
decFeet = decYard * decFEET_FACTOR
lblFeet.Text = decFeet.ToString("n")
' Calculate and display Yards to Inches
decInches = decYard * decINCHES_FACTOR
lblInches.Text = decInches.ToString("n")
' Calculate and display Yards to Centimeters
decCentimeters = decYard * decCENTIMETERS_FACTOR
lblCentimeters.Text = decCentimeters.ToString("n")
Catch ex As Exception
MessageBox.Show("Please enter numeric values", "Error detected in input")
End Try
End Sub
Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
' Close the form
Me.Close()
End Sub
Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
txtYard.Text = String.Empty
lblFeet.Text = String.Empty
lblInches.Text = String.Empty
lblCentimeters.Text = String.Empty
' Set the focus to txtYard
txtYard.Focus()
End Sub
End Class