# how to use left function

• 08-19-2013, 03:51 AM
jaganath
how to use left function
hi I am doing forest management project i have to calculate the diameter , volume ,and total volume of tree species in particular plot for that i used the left function in vb.net but there are error that creates a warning indicating: Function `Left' conflicts with property `Left' in the base class `Control' and should be declared `Shadows'. Can
any body plz can help me??
the code is as follows....
code:

Public Class Form2
Dim rows, c, tot_vol
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim tsi, d

If ComboBox1.SelectedIndex = -1 Then
Exit Sub
End If
r.ColumnCount = 1
r.Text = c
r.ColumnCount = 2
r.Text = ComboBox1.Text
r.ColumnCount = 3
r.Text = TextBox2.Text
r.ColumnCount = 4
r.Text = TextBox3.Text
r.ColumnCount = 5
Console.WriteLine(Microsoft.VisualBasic.Left(TextBox3.Text / (3.1416 * 100), 7))
d = left(TextBox2.Text / (3.1416 * 100), 7)

r.Text = d
r.ColumnCount = 6
tsi = ComboBox1.SelectedIndex()
If tsi = 0 Then
r.Text = Left((-0.08687 + 2.72192 * d) ^ 2, 7)
ElseIf tsi = 1 Then
r.Text = Left((0.00189 + 2.10033 * d) ^ 2, 7)
ElseIf tsi = 2 Then
r.Text = Left(1.65081 - 4.57531 * (d ^ 0.5) + 11.62114 * d ^ 2, 7)
ElseIf tsi = 3 Then
r.Text = Left((0.49487 + 618662 * d - 2.95076 * (d ^ 0.5)) ^ 2, 7)
ElseIf tsi = 4 Then
r.Text = Left((-0.27525 + 3.0319 * d) ^ 2, 7)
ElseIf tsi = 5 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 6 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 7 Then
r.Text = Left(0.13333 - 2.18825 * d + 13.12678 * d ^ 2, 7)
ElseIf tsi = 8 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 9 Then
r.Text = Left((-0.07109 + 2.99732 * d - 0.26953 * (d ^ 0.5)) ^ 2, 7)
ElseIf tsi = 10 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 11 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 12 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 13 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 14 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 7, 7)
ElseIf tsi = 15 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 16 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 5, 7)
ElseIf tsi = 17 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 18 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 4, 7)
ElseIf tsi = 19 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 20 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 5, 7)
ElseIf tsi = 21 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 5, 7)
ElseIf tsi = 22 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 23 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 24 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 25 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 5, 7)
ElseIf tsi = 26 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 27 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 28 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 29 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 30 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 31 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 32 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 33 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 5, 7)
ElseIf tsi = 34 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 5, 7)
ElseIf tsi = 35 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 5, 7)
ElseIf tsi = 36 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 37 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 5, 7)
ElseIf tsi = 38 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 5, 7)
ElseIf tsi = 39 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 40 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 41 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 42 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 7, 7)
ElseIf tsi = 43 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 44 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 45 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 5, 7)
ElseIf tsi = 46 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 5, 7)
ElseIf tsi = 47 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 48 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 49 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 50 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 51 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 52 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 5, 7)
ElseIf tsi = 53 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 5, 7)
ElseIf tsi = 54 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 55 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 5, 7)
ElseIf tsi = 56 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)
ElseIf tsi = 57 Then
r.Text = Left(0.11079 - 1.81103 * d + 11.4132 * d ^ 2 + 0.38528 * d ^ 3, 7)

.
.
.
ElseIf tsi = 116 Then
r.Text = Left((0.03629 + 3.95389 * d - 0.84421 * sqrt() * d) ^ 2, 7)
ElseIf tsi = 117 Then
r.Text = Left((0.03629 + 3.95389 * d - 0.84421 * sqrt() * d) ^ 2, 7)
ElseIf tsi = 118 Then
r.Text = Left((0.03629 + 3.95389 * d - 0.84421 * sqrt() * d) ^ 2, 7)
ElseIf tsi = 119 Then
r.Text = Left((0.03629 + 3.95389 * d - 0.84421 * sqrt() * d) ^ 2, 7)
ElseIf tsi = 120 Then
r.Text = Left((0.03629 + 3.95389 * d - 0.84421 * sqrt() * d) ^ 2, 7)
End If
tot_vol = tot_vol + (r.Text * 1)
vol.Text = tot_vol
rows = rows + 1
c = c + 1
ct.Text = c
End Sub

Private Function vol() As Object
Throw New NotImplementedException
End Function

Private Function ct() As Object
Throw New NotImplementedException
End Function

Private Function sqrt() As Double
Throw New NotImplementedException
End Function

Private Function left(ByVal p1 As Object, ByVal p2 As Integer) As String
Throw New NotImplementedException
End Function