Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' declare constants and variables
Dim cm As Integer
Dim m As Double
Dim g As Integer
Dim kg As Double
mtextbox.Text = ""
kgtextbox.Text = ""
' converting from cm to m
Integer.TryParse(cmTextBox.Text, cm)
m = cm / 100
' converting from g to kg
Integer.TryParse(gtextbox.Text, g)
kg = g / 1000
' display the converted result (cm to m)
If user enter integer then
MsgBox(m)
Else
MessageBox.Show("Please enter a number.")
End If
cmtextbox.Text = Convert.ToString(m)
' display the converted result (g to kg)
If user enter integer then
MsgBox(kg)
Else
MessageBox.Show("Please enter a number.")
End If
gtextbox.Text = Convert.ToString(kg)
'set focus
mtextbox.Focus()
kgtextbox.Focus()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
cmtextbox.Text = ""
gtextbox.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End Sub
End Class
Can someone help me with it? I need to help in before 26/1/2010.
I need to convert from cm to m and g to kg.
I need to use If...Else...Then statements, Select case statements, For...Next statements, Do & While loop, error handling, function without passing argument, function with passing argument.
Thanks in advance.
Edited by WingedPanther, 23 January 2010 - 05:34 PM.
add code tags (the # button)


Sign In
Create Account

Back to top










