Converting to Slope and Angle

Hi

I am trying to figure out how to make a VBA routine converter

I have the form functional but I am trying to figure out the correct syntax.

In my form I am trying to figure out how to convert %grade Slope ie; 4/100
(4%)
to Angle Degrees 2.2906100.

To get the Angle Degrees you are using ARCTANGENT

..04ATAN = 2.2906100

so

in my command button


Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
TextBox1.Text = TextBox2.Text * 1.0936
Else
TextBox2.Text = TextBox1.Text * 0.9144
End If
End Sub


(the * 1.0936 and * 0.9144 is my example for converting Imperial/Metric for
Yards)

Thanks for the help!

 

So what's not working?

Regards

Wayne Ivory
IT Analyst Programmer
Wespine Industries Pty Ltd

 

Hi Wayne

Trying to figure out the correct syntax so what I have been trying is
this....

Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
TextBox1.Text = TextBox2.Text * ATAN
Else
TextBox2.Text = TextBox1.Text * TAN
End If
End Sub


but its erroring out at the ATAN.....

Not sure if i am way off here....

 

ATAN is not a valid function. check the VBA help for derived Math
Functions. I think you are looking for the Cotan which is 1/tan(x).

David Urban

 

Hi

Thanks I tried it and it seems to be keep erroring out at the 1/tan(x) point


Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
TextBox1.Text = TextBox2.Text * 1/tan(x)
Else
TextBox2.Text = TextBox1.Text * 1
End If
End Sub

 

The .Text property returns a string value. You can't use that value to do
math with until you use the VAL() function to convert it to a number. The
FORMAT() function turns a number into a string.

You're going to need something more like this...

Private Sub CommandButton1_Click()

If TextBox1.Text = "" Then
TextBox1.Text = Format(Atn(Val(TextBox2.Text)))
Else
TextBox2.Text = Format(Tan(Val(TextBox1.Text)))
End If

End Sub

HTH,
James

 

Looks mostly right James, except I think David was correct in that Max wants Cotangent rather than Arctangent, so the procedure would be:

Private Sub CommandButton1_Click()

If TextBox1.Text = "" Then
TextBox1.Text = Format(1/Tan(Val(TextBox2.Text)))
Else
TextBox2.Text = Format(Tan(Val(TextBox1.Text)))
End If

End Sub

Regards

Wayne Ivory
IT Analyst Programmer
Wespine Industries Pty Ltd