Basic4Android振動模式

Question

我正在嘗試創建具有不同振動模式的應用程序。

我見過PhoneVibrate類只有一個振動（TimeMs as Long）功能。 我也看到了，有也是支持模式 （在這裏看到：http://mobile.tutsplus.com/tutorials/android/android-vibrator/）另一個Java功能

是否有可能使用它Basic4Android？我該如何解決這個問題？ 問候，

尼古拉

Answer 1

您可以使用此代碼（需要手機圖書館和反思庫）：

Sub Process_Globals 
    Dim pv As PhoneVibrate 'Required to add the Vibrate permission 
End Sub 

Sub Globals 

End Sub 
Sub Activity_Create(FirstTime As Boolean) 
    Vibrate(500, 300) 
    ToastMessageShow("Click anywhere to stop vibrate.", True) 
End Sub 

Sub Activity_Pause (UserClosed As Boolean) 

End Sub 
Sub Activity_Resume 

End Sub 

Sub Activity_Click 
    CancelVibrate 
End Sub 

Sub Vibrate(On As Long, Off As Long) 
    Dim r As Reflector 
    r.Target = r.GetContext 
    r.Target = r.RunMethod2("getSystemService", "vibrator", "java.lang.String") 
    Dim pattern(2) As Long 
    pattern(0) = On 
    pattern(1) = Off 
    r.RunMethod4("vibrate", Array As Object(pattern, 0), Array As String("[J", "java.lang.int")) 
End Sub 

Sub CancelVibrate 
    Dim r As Reflector 
    r.Target = r.GetContext 
    r.Target = r.RunMethod2("getSystemService", "vibrator", "java.lang.String") 
    r.RunMethod("cancel") 
End Sub