Bonjour,

J'ai pu effectuer mon vol, avec une humeur "haineuse" envers le lyconosaure qui n'a pas voulu démarrer avec le froid (bon, il est vrai que je n'avais pas appliqué la bonne procédure comme me l'a indiqué le mécanicien)

Donc le fichier du jour à décoder à de très nombreuses lignes avec une vitesse < 10 km/h car j'ai du voler sur un autre avion.
Le fichier original à 6501 lignes, et le fichier traité n'en a plus que 1919 (environ 1/2 heure de vol)

Voici les performances de traitement :

Fichier excel original sans ma modification de correction du GUND : 4'53"

Fichier avec ma modification de correction du GUNG avec GUND = 0 et le test gund <> 0 ( voir ci-dessous le coding modifié) : 4'53"

Fichier avec ma modification de correction du GUNG avec GUND = -48 et le test gund <> 0 : 6'18"

Ce fichier est vraiment super pour nettoyer la trace pour afficher dans google earth (vitesse < 10km/h) Merci Régis !

& "la vitesse de décolage et la taille de la trace" & vbCr _
& "Indiquez la valeur du GUND (0 ou valeur moy -45 (-48 LFBL))", vbOKOnly + vbDefaultButton1 + vbExclamation, " Décodage de la trace ")
Application.ScreenUpdating = False


End Sub

Sub Effacement_Lignes_Vitesse()
'
Application.ScreenUpdating = False

Application.Goto Reference:="Val_GUND"
Gund = ActiveCell.Value

Application.Goto Reference:="Vitesse_de_décollage"
Vitesse = ActiveCell.Value

If Vitesse = "0" Then
MsgBox " Indiquez une vitesse de décollage SVP " & vbCr & _
" ou " & vbCr & _
" Rechargez un autre fichier", vbOKOnly + vbDefaultButton1 + vbExclamation, "Aucune vitesse à " & Vitesse_Kmh & " Km/h"
ActiveSheet.Shapes("Bouton Décoder").visible = True
ActiveSheet.Shapes("Bouton Ouvrir").visible = True
Range("K1").Select
End
End If
'atteindre la derniere cellule de la collone E
Columns(5).Find("*", , , , , xlPrevious).Offset(0, 0).Select
derniereligne = ActiveCell.Row 'dernière ligne
derL = derniereligne
For N = derL To 2 Step -1
If Gund <> "" And Gund <> 0 Then
Valtemp1 = Range("D" & N).Value + Gund
Range("D" & N) = Round(Valtemp1, 0)
End If


If Range("E" & N).Value < Vitesse Then Rows(N).Delete

Enfin pour illustrer le "je roule trop haut", voici ce que ça donne dans google earth pour les manœuvres au sol

Trace non corrigée



Trace corrigée (le GPS n'est pas à la hauteur du sol mais du tableau de bord)



Bon vols

EM

Bonsoir Pegaze_87, bonsoir à tous,

Cet après-midi et ce soir, j'ai retravailler un peu le code et je me suis dit qu'il était inutile d'agir sur des lignes qui étaient inférieur à la vitesse de décollage et vouées à être effacé ou avec une valeur de Gund de 0 et j'en suis arriver à :(pour la partie prise en compte du GUND)


For N = derL To 2 Step -1
' prise en compte du GUND
If Range("E" & N).Value >= Vitesse Then
If Gund <> 0 Then
Valtemp1 = Range("D" & N).Value + Gund
Range("D" & N) = Round(Valtemp1, 0)
End If
End If
If Range("E" & N).Value < Vitesse Then Rows(N).Delete
Next

voir ci-dessous la modification en rouge sur les 2 procédures
**********************************************
Sub Message1()
Range("A1").Select
ActiveSheet.Shapes("Bouton Ouvrir").visible = False
ActiveSheet.Shapes("Bouton Décoder").visible = True 'False
ActiveCell.FormulaR1C1 = _
" Modifiez éventuellement votre vitesse de décollage et la valeur du GUND"
Application.ScreenUpdating = True
Temp = MsgBox("Choisisez votre vitesse de décollage" & vbCr _
& "Indiquez la valeur du GUND (0 à -45 valeur moy )" & vbCr & vbCr _
& "Et cliquez sur le bouton 'Décoder la trace'" & vbCr _
& "Ce processus peut être long selon " & vbCr _
& "la vitesse de décolage et la taille de la trace" & vbCr, vbOKOnly + vbDefaultButton1 + vbExclamation, " Décodage de la trace ")
Application.ScreenUpdating = False
End Sub
***************************************
Sub Effacement_Lignes_Vitesse()
'
Application.ScreenUpdating = False
Application.Goto Reference:="Val_GUND"
Gund = ActiveCell.Value
Application.Goto Reference:="Vitesse_de_décollage"
Vitesse = ActiveCell.Value
If Vitesse = "0" Then
MsgBox " Indiquez une vitesse de décollage SVP " & vbCr & _
" ou " & vbCr & _
" Rechargez un autre fichier", vbOKOnly + vbDefaultButton1 + vbExclamation, "Aucune vitesse à " & Vitesse_Kmh & " Km/h"
ActiveSheet.Shapes("Bouton Décoder").visible = True
ActiveSheet.Shapes("Bouton Ouvrir").visible = True
Range("K1").Select
End
End If
'atteindre la derniere cellule de la collone E
Columns(5).Find("*", , , , , xlPrevious).Offset(0, 0).Select
derniereligne = ActiveCell.Row 'dernière ligne
derL = derniereligne
For N = derL To 2 Step -1
' prise en compte du GUND
If Range("E" & N).Value >= Vitesse Then
If Gund <> 0 Then
Valtemp1 = Range("D" & N).Value + Gund
Range("D" & N) = Round(Valtemp1, 0)
End If
End If
If Range("E" & N).Value < Vitesse Then Rows(N).Delete

Next
ActiveWindow.ScrollRow = 1
Range("A2").Select
End Sub
************************************
Merci Pegaze
Bon vols à tous
Régis

Bonjour,

Performance avec cette optimisation pertinente pour le même fichier trace initial : 5'08"

Le gain est évident sur ce fichier ou il y a beaucoup de ligne à enlever.

Merci Régis

Bon we et bon vols

EM

Bonjour Pegaze,

Pour l'exportation dans google earth, je suppose que vous avez enregistré la trace décodée en .txt depuis Excel ensuite export dans VFR et export en .KML vers google earth, ou bien avez-vous utilisé un programme de conversion pour txt vers kml?

Régis

Bonjour,

Oui, j'enregistre la trace décodée en .txt et je l'importe dans l'excellent Navigation de Foufou (ou la Nav a été conçue), qui me permet de l'exporter en .kml.

Bon Vols

EM

Bonsoir à tous,
J'utilise l'application de Régis/f4crw à partir de vieilles tracs (novembre 2016).
Tout fonctionne bien.
J'attends les beaux jours pour d'autres vols, conduits plus rigoureusement (Vitesse & Vario).

Quelles sont les autres expériences parmi nous ici ?
Surtout d'un (ou plusieurs) utilisant le capteur barométrique de la tablette pour l'altitude ?
Mon Archos Oxygen 70 n'en est pas équipée; l'altitude est donc fournie par le GPS; je suppose que c'est de la que vient une "volatilité" certaine des résultats calculés pour Vy et la pente, bons en moyenne, mais très hachés, comme le révèle le graphique.
A moins que l'un d'entre-vous ne publie ici en PJ, une ou plusieurs traces établies en utilisant le capteur intégré, je pourrais les décoder, pour voir.
D'avance, merci.