Haptic Touch

Hi, i want to share this snippet that is a SLIGHTLY modified version of the Erel one.
Maybe it can be found easly with this specific thread name:

Private FeedbackGenerator As NativeObject  'globals

FeedbackGenerator.Initialize("UIImpactFeedbackGenerator")

Sub Set_HapticTouch_Impact(Strenght As String) 'LIGHT, MEDIUM, HEAVY
    If FeedbackGenerator.IsInitialized Then
        Dim s As Int = 0
        Select Strenght
            Case "LIGHT"
                s = 0
            Case "MEDIUM"
                s = 1
            Case "HEAVY"
                s = 2
        End Select
        FeedbackGenerator = FeedbackGenerator.RunMethod("alloc", Null).RunMethod("initWithStyle:", Array(s))
    End If
End Sub

Call

FeedbackGenerator.RunMethod("impactOccurred", Null)

to actually Start the vibration

 

[Erel]

Your code creates a new feedback generator each time. It is a mistake. You should reuse the same generator.

 

[Mike1970]

Your code creates a new feedback generator each time. It is a mistake. You should reuse the same generator.

Your code creates a new feedback generator each time. It is a mistake. You should reuse the same generator.

Ok i think now it's ok

 

[Erel]

Almost.

Better like this:

Private FeedbackGenerator As NativeObject  'globals

'Call CreateGenerator in AppStart.


' Strength - LIGHT, MEDIUM, HEAVY
Sub CreateGenerator (Strength As String)
   FeedbackGenerator.Initialize("UIImpactFeedbackGenerator")
    If FeedbackGenerator.IsInitialized Then
        Dim s As Int = 0
        Select Strength 
            Case "LIGHT"
                s = 0
            Case "MEDIUM"
                s = 1
            Case "HEAVY"
                s = 2
        End Select
        FeedbackGenerator = FeedbackGenerator.RunMethod("alloc", Null).RunMethod("initWithStyle:", Array(s))
    End If
End Sub

Sub Vibrate
 If FeedbackGenerator.IsInitialized Then
   FeedbackGenerator.RunMethod("impactOccurred", Null)
 End If
End Sub