French Allumage de la led

[JJM]

Bonjour,
Je n'arrive pas a trouver la commande me permettant d'allumer la led du flash de mon téléphone.
J'ai testé avec:
Dim PS As PhoneSensors


PS.Initialize (PS.TYPE_LIGHT )
If PS.StartListening("Eclairage")= True Then
Log("Led présente")
End If
...
Sub Eclairage_SensorChanged(value() As Float )
Log(value(0))
End Sub

Mais ensuite je suis incapable de l'allumer.

Merci par avance pour votre aide.
JJM

 

[klaus]

Jettes un coup d'oeil à CameraEx.