calculate specific cutting forces in end-milling

'Activity module
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.

    'These variables can only be accessed from this module.
    
    Dim texts(3) As EditText 
    Dim btn As Button 
End Sub

Sub Activity_Create(FirstTime As Boolean)
For k=0 To 2
    texts(k).Initialize ("texts")
    texts(k).Text=""
    Activity.AddView (texts(k),0,k*80,Activity.Width /2,50dip)
Next
btn.Initialize ("btn")
btn.Text="calc"
Activity.Addview (btn,0,4*80,Activity.Width /2,50dip)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btn_click
calculate
End Sub
Sub calculate
Dim v(3) As Double
'a=v(0)
'b=v(1)
'E=v(2)
'a=E/b
'b=E/a
'E=ab
For k=0 To 2
    Try
        v(k)=texts(k).Text 
    Catch
        v(k)=0
    End Try
Next
' we construct all possible formula combinations
' first index is the variable we wish to calculate
' second and third index are the indexes of given variables
Dim formulas(3,3,3)
Try
    formulas(0,1,2)=v(2)/v(1)
    ' formulas(0,1,2)=formulas(a,b,E)=E/b
Catch
    formulas(0,1,2)=0
End Try
Try
    formulas(1,0,2)=v(2)/v(0)
Catch
    formulas(1,0,2)=v(2)/v(0)
End Try
Try
    formulas(2,0,1)=v(0)*v(1)
Catch
    formulas(2,0,1)=0
End Try

Dim BoxesFilled As String 
Dim boxesEmpty As String 
' here we find fields that are input by user and empty fields
For k=0 To 2
    If texts(k).Text.Length >0 Then
        BoxesFilled=BoxesFilled & k & ","
    Else
        boxesEmpty=boxesEmpty & k & ","
    End If
Next
If BoxesFilled.Length=6 OR BoxesFilled.Length <=2 Then
    Msgbox("Check your input","error")
    Return
Else
    Dim emptyFields() As String 
    Dim inputfields() As String 
    inputfields=Regex.split (",",BoxesFilled)
    For k=0 To 2
        If boxesEmpty.Contains (k) Then
            Dim tempVal As String 
            tempVal=formulas(k,inputfields(0),inputfields(1))
            texts(k).Text =tempVal
        End If
    Next
End If
End Sub