Sub Abtn_click
If Settings(0,2) = 0 Then Vibrate.Vibrate (50) ' Vibrate phone for 50 ms
If Settings(1,2) = 1 Then
MP.Stop
MP.Load(File.DirAssets,"Windows XP start.wav")
MP.Play
End If
If Record_flag = 0 Then Idisplay.Text = ""
'Handles the reading of keys 0-9
Private send As View
send = Sender
Log("Sender- "&Sender)
Log("Send.tag- "&send.Tag) 'Logs empty string
If shift_flag = 1 Then
shift_flag = 0
lblShift.Text = ""
If Radix_Flag <> 10 Then Return
If Play_Flag = 1 Or Record_flag = 1 Then
Idisplay.Text = "Illegal Input"
Return
End If
FNum = send.Tag
Play_Flag = 1
FPLAY
Return
End If
If send.tag < Radix_Flag Then
If Record_flag = 1 And input_flag = 0 Then
Step_count = Step_count + 1
Recording(FNum,Step_count,0) = "VAL"
End If
If Record_flag = 1 Then
If Idisplay.Text = "Recording" Then Idisplay.Text = ""
If IDispTXT_flag = 1 Then Idisplay.Text = IDispTXT
IDispTXT_flag = 0
Idisplay.Text = Idisplay.Text&send.Tag
End If
input_flag = 1
NDisplay(send.Tag)
lblEXP.Text = ""
If Two_flag = 1 Then
Idisplay.Text = IDispTXT
Two_flag = 0
End If
If Round_Flag = 1 Then 'If rounding function is active.
IntDis = Abs(Buffer)
IntDis = Min(IntDis, MaxRounding)
If Truncate_Flag = 1 Then
Idisplay.Text = "Truncate to " & IntDis & " decimal places"
Else
Idisplay.Text = "Round to " & IntDis & " decimal places"
End If
End If
End If
End Sub