Sub setGimbalStateListener
Try
Dim aircraftjo As JavaObject = Main.aircraft
Dim gimbal As JavaObject = aircraftjo.RunMethod("getGimbal", Null)
If gimbal.IsInitialized Then
Dim callback As Object = gimbal.CreateEventFromUI("dji.common.gimbal.GimbalState$Callback", "gimbalState", Null)
gimbal.RunMethod("setStateCallback", Array(callback))
End If
Catch
Log(LastException)
End Try
End Sub
Sub gimbalState_Event (MethodName As String, Args() As Object) As Object
Dim gimbalState As JavaObject = Args(0)
Dim gimbalAttitude As JavaObject
Dim r, y As Float
gimbalAttitude.InitializeNewInstance("dji.common.gimbal.Attitude", Array(myCameraState.gimbalPitch,r,y) )
gimbalAttitude = gimbalState.RunMethod("getAttitudeInDegrees", Null)
myCameraState.gimbalPitch = gimbalAttitude.RunMethod("getPitch",Null)
Return Null
End Sub