我的toast消息没有显示

时间:2016-09-18 13:09:27

标签: android

我遇到的问题是我的通知没有显示。我最初使用的是一个有效的小吃吧,但突然停止了工作。我认为这个问题与小吃店类有关,而是转而使用吐司,但那些也没有显示出来。我已经检查过以确保我的应用中没有关闭通知。

Sub Test()
    Dim x As Double
    Dim y As Double
    Dim z As Double

    x = Cells(1, 1).Value
    y = Cells(1, 2).Value
    z = NewtRap("Fun1", "dFun1", x, y)
    Cells(1, 3).Value = z
End Sub

Private Function NewtRap(fname As String, dfname As String, x_guess As Double, y_value As Double) As Double
  Dim cur_x As Double
  Dim Maxiter As Double
  Dim Eps As Double

  Maxiter = 500
  Eps = 0.00001
  cur_x = x_guess
  For i = 1 To Maxiter
    If (fname = "Fun1") Then
      fx = Fun1(cur_x)
    ElseIf (fname = "dFun1") Then
      fx = dFun1(cur_x)
    ElseIf (fname = "f") Then
      fx = f(cur_x, y_value)
    End If
    If (dfname = "Fun1") Then
      fx = Fun1(cur_x)
    ElseIf (dfname = "dFun1") Then
      fx = dFun1(cur_x)
    ElseIf (dfname = "f") Then
      fx = f(cur_x, y_value)
    End If
    If (Abs(dx) < Eps) Then Exit For
    cur_x = cur_x - (fx / dx)
  Next i
  NewtRap = cur_x
End Function

Function f(x As Double, y As Double) As Double
    f = x ^ 3 - y
End Function

Function Fun1(x As Double) As Double
  Fun1 = x ^ 2 - 7 * x + 10
End Function

Function dFun1(x As Double) As Double
  dFun1 = 2 * x - 7
End Function

0 个答案:

没有答案