This question is for Visual Basics.....I have written a code but I can\'t see wh

Question

This question is for Visual Basics.....I have written a code but I can't see where I am missing it that it does not calculate the Kinetic Energy...What am I missing

Public Class Form1

'Function Statement for kinetic energy

Function energy(ByVal dblMass As Double, ByVal dblVelocity As Double) As Double

Return (0.5) * dblMass * dblVelocity ^ 2

End Function

Private Sub btnCalculate_Click(sender As Object, KineticEnergy As EventArgs) Handles btnCalculate.Click

'Declare variables

Dim dblMass As Double

Dim dblVelocity As Double

Dim dblKineticEnergy As Double

'Calculate Kinetic Energy

dblKineticEnergy = (0.5) * dblMass * dblVelocity ^ 2

lblKineticEnergyLevel.Text = dblKineticEnergy.ToString("n3")

End Sub

Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click

'This will clear text boxes

txtMass.Clear()

txtVelocity.Clear()

'This will clear label boxes

lblKineticEnergyLevel.Text = String.Empty

'This will reset focus.

txtMass.Focus()

End Sub

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

'Close the Form

Me.Close()

End Sub

End Class

Explanation / Answer

calculations are fine, but you are passing n3 in tostring method which is not correct. Except that remaining code is fine..

And main inportant thing is you declared variables but not inititalized.. we have to fetch values from textboxes into those variables...

Public Class Form1
'Function Statement for kinetic energy
Function energy(ByVal dblMass As Double, ByVal dblVelocity As Double) As Double
Return (0.5) * dblMass * dblVelocity ^ 2
End Function
Private Sub btnCalculate_Click(sender As Object, KineticEnergy As EventArgs) Handles btnCalculate.Click
'Declare variables
Dim dblMass As Double
Dim dblVelocity As Double
Dim dblKineticEnergy As Double
dblMass = Convert.ToDouble(txtMass.Text.ToString());
dblVelocity = Convert.ToDouble(txtVelocity.Text.ToString());
'Calculate Kinetic Energy
dblKineticEnergy = (0.5) * dblMass * dblVelocity ^ 2;
lblKineticEnergyLevel.Text = dblKineticEnergy.ToString();
End Sub
Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
'This will clear text boxes
txtMass.Clear()
txtVelocity.Clear()
'This will clear label boxes
lblKineticEnergyLevel.Text = String.Empty

'This will reset focus.
txtMass.Focus()
End Sub
Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
'Close the Form
Me.Close()
End Sub
End Class

Related Questions

Navigate

• Browse (All)
• Browse T
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.