Basic4Android 진동 패턴

Question

진동 패턴이 다른 응용 프로그램을 만들려고합니다.

PhoneVibrate 클래스에는 진동 (TimeMs as Long) 기능 만 있습니다. 또한 또한 패턴 을 (여기 참조 : http://mobile.tutsplus.com/tutorials/android/android-vibrator/) 지원하는 다른 자바 기능이 있음을 보았다

그것이 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