Sub BtnPowerTwo_Click
Dim x As Float
Try
x = reg_x_txt.Text
x = Power(x,2)
reg_x_txt.Text = NumberFormat2(x,1,9,3,False)
Catch
Log(LastException)
End Try
Sub BtnSquareRoot_Click
Dim x As Float
Try
x = reg_x_txt.Text
x = Sqrt(x)
reg_x_txt.Text = NumberFormat2(x,1,9,3,False)
Catch
Log(LastException)
End Try
End Sub