Discussion :

[unparia]

Je voudrais juste dire ceci :
Lorsque j'étais un débutant (aucun forum n'existait) , je m'efforçais de sérier les problèmes et les traitais un par un.
Qu'aurais-je à l'époque pensé et fait --->>
j'aurais mis de côté l'aspect déplacement d'image pour me consacrer à la seule étude du mécanisme d'un "timer".
Car il s'agit finalement de quoi, sinon d'exécuter un code à une fréquence déterminée ?
Et pour simplifier encore, j'aurais commencé (dans un premier temps) par une seule action : l'avancement d'un compteur, par exemple, à l'aide de la méthode Ontime
J'aurais fait dans un premier temps déclencher au clic d'un bouton, clic qui aurait appelé par la méthode Ontime, une procédure avançant de une unité ce compteur, procédure qui se serait rappelée elle-même jusqu'à obtenir la limite fixée pour ce compteur.
Dans un second temps et en prévision d'une procédure plus complexe d'avancement de 2 compteurs, j'aurais (mais toujours avec un seul compteur)
- déclaré une variable publique Go1 et :
- au clic sur le bouton, j'aurais mis à True GO1 et appelé la procédure par ontime
- au sein de ma procédure,
----- j'aurais écris que si GO1 = True, ma procédure se rappelait elle-même, sinon non
----- j'aurais mis GO1 à False dés que mon compteur aurait atteint la limite fixée
Ah ! ceci étant maîtrisé (et seulement alors), j'aurais exercé mon "art" avec deux compteurs (et donc également deux booléennes : GO1 et GO2)
Quelles modifications aurais-je apporté à ma procédure précédente ? --->>
tout bête :
- sortie de la procédure si à la fois G1 = False et GO2 = False
- je n'aurais avancé chaque compteur, que si (pour le 1er) GO1 = true et si (pour le second) GO2 = true.
Voilà. Commence par ce genre d'exercice salutaire. Le reste sera ensuite beaucoup moins ésotérique.

[RyuAutodidacte]

Coucou Jacques,

pour ce conseil très bien expliqué.
Et ce, même avec un forum, c'est une méthode que j'utilise pour appréhender tout nouveau code que je ne connais pas afin d'en comprendre réellement le mécanisme
ou vérifier un procéder imaginé par bout de code afin de prendre la bonne direction et faire un code complet

[Pierre Fauconnier]

Avec ou sans forum, la méthode préconisée par unparia est la seule valide à mon sens, et on nous l'apprend depuis qu'on est tout petit: Mettre un pied devant l'autre.

[furye01]

Super merci beaucoup ! je vais suivre tes instructions, je n'avais pas vu le problème sous cet angle. Un grand merci unparia, et bien sur à tout ceux qui ont contribué! je code et je viens poster mon essais

[mercatog]

En considérant le problème autrement avec comme données (pour chaque aéronef): un point de départ (Xi, Yi), un point d'arrivée (Xf, Yf), un temps de départ ti, une vitesse de vol constante V on peux déduire la position de l’aéronef (Xt, Yt) à l'instant t par: Xt=Xi+V.(t-Ti).Cos(phi) et Yt=Yi+V.(t-ti).Sin(Phi). Avec Tan(Phi)=(Yf-Yi)/(Xf-Xi).

Si c'est pour la pédagogie qui ne prend pas en compte l'évolution en temps réel sur la journée, une simple boucle permet de "photographier" la position des différents aéronefs sur chaque pas de temps.

Tant que NonArrivé
Calcul de la position des aéronefs
Affiche la position des aéronefs à l'instant i
i=i+1
Loop

Exemple à titre pédagogique

[Marc-L]

Salut mercatog !

Oui que ce soit via un pas ou par calcul de position temporelle   une simple boucle suffit …

Si les objets ont les mêmes principes - le cas de nos démonstrations - leurs caractéristiques peuvent être chargées
dans une variable tableau utilisée alors dans une seconde boucle interne à la principale, avant DoEvents,
afin d'éviter une redondance d'instructions pour chaque objet …

[furye01]

Salut Mercatog.
Je n'avais envisagé cela comme tu l'as fait. Mais c'est exactement ça le but de mon résultat final


merci Marc pour l'indication de la variable tableau je creuse de ce côté comme tu me l'as suggéré

[Marc-L]

Si tu es débutant, commencer par gérer un seul objet car ce qui compte c'est le mécanisme principal.
Ensuite une fois que tu en auras géré deux, ce sera simple de voir le redondant
afin de l'éviter via une seconde boucle sur une variable tableau par exemple,
comme déjà proposé dans l'exercice du post #28 …

[furye01]

D'accord. Une question par rapport à Ti, mes horaires sont au format usuel c'est à dire hh:mm:ss. Comment dois-je l'adapter pour qu'il puisse rentrer dans la formule indiquée ci dessus ?

[mercatog]

Il suffit de faire un changement de variable Ti'=(Ti-minimum de tous les Ti)

[Marc-L]

Déjà définir une unité temporelle : la seconde, la minute, …
Ensuite le premier mouvement, le premier horaire, sera le point temporel zéro.
Donc une boucle sur l'unité temporelle du point zéro jusqu'au dernier mouvement exprimé à partir de ce point zéro.

Exemple entre 7h et 23h30, cela fait une plage de 16h30 ou de 990 minutes, donc une boucle de 0 (7h) à 990 (23h30).

Comme il est aussi possible de boucler directement au format date / horaire,
c'est juste une question de respecter la logique selon l'unité temporelle …

[furye01]

Merci pour vos précisions. Je viens de me rendre compte Mercatog que les formules que tu as communiqué et bien en fait sans le savoir je les ai déjà appliquées à ma première ébauche. La ligne ratio dans ma feuille tableau correspond à ton tan(phi). Il ne me manquait que la variable temps non?

[mercatog]

Bien sur pour l'application, il faudra d'abord "normaliser" les unités utilisée (Échelle adéquate sur les X et les Y entre ton cas réel et les coordonnées sur la zone d'affichage de ta feuille)

Si tu travaille par une boucle, il faudra prendre l'heure minimale Hmin comme base (t=0) et pour chaque Heure Hi, la transformer en ti=Hi-Hmin. C'est simple, non?

J'attendrai que tu aies commencé quelque chose pour te montrer le code basique que j'ai utilisé dans la gif précédente.

Aussi, je rejoins Marc-L et unparia, que je salue, sur leurs recommandations de commencer par un cas basique: déplacer une figure d'un point A vers un point B que ce soit par une boucle que ce soit par Application.OnTime

[furye01]

D'accord merci. Pour le cas basique j'arrive à faire bouger une image d'un point A un point B comme dit dans mon premier post. Certes c'est pas le code le plus efficace et il me manquait sûrement des informations, ce pour quoi je suis ici, mais cela avait le mérite de ce déplacer ! Je suis également arriver à lancer mon code via le .OnTime comme conseillé. J'essaye de structurer mon code comme tu le suggère. Une autre question ta variable "t" fais référence à quel référence temporelle ?

[Marc-L]

Comme il est aussi possible de boucler directement au format date / horaire

A tester sur une feuille de calculs vierge :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Pause(Optional P! = 0.01)
      D! = Timer:  F! = D + P:  DoEvents
     While Timer < F
        If Timer < D Then F = F - 86400: D = 0
     Wend
End Sub
 
Sub TestD()
      Dim D As Date
    With [D2]
        .Value = #5/27/2017 9:00:00 AM#
        .Columns.AutoFit
         Pause 0.5
    For D = .Value To #5/27/2017 10:00:01 AM# Step #12:01:00 AM#
        .Value = D
         Pause 0.5
    Next
         Pause 0.5
        .Clear
    End With
End Sub

[furye01]

je trouve un peu rapide le défilement des secondes non?

[Marc-L]

C'est un pas d'une minute pourtant visible dans le code pour un défilement sur une heure entre 9 et 10 heures,
évidemment pas en temps réel sinon tu y serais encore !

Le but de cette démonstration étant juste une boucle au format date / heure …

[mercatog]

Une autre question ta variable "t" fais référence à quel référence temporelle ?

J'avais appris en cours de physique il y a des lustres qu'on devait utiliser le SI (Système international) dans la formule Xt=Xi+V*(t-ti)*Cos(phi)

Distance en m
Temps en s (à ne pas confondre avec l'heure): exemple j'ai un décollage à H1=07:10:00 et le second à H2=07:12:00, donc t1 sera 0s et t2=120s
Vitesse en m/s

Donc il faudra préalablement faire les transformation adéquates

[furye01]

@Marc-L
Oui en effet j'ai lu un peu trop vite et en regardant le résultat je n'ai pas fait attention. Merci pour ton exemple je pense qu'il pourra me resservir.

@mercatog
Pour les unités pas de soucis c'est comme cela que je comptais faire, c'est noté pour le t1=0 etc merci.

[unparia]

Bonjour mercatog (je suis cette discussion avec intérêt et une certaine curiosité)
il peut oublier les autres unités du SI et se contenter ici des seules du MKS
Amitiés