Discussion :

[Roland Chastain]

Bonjour ! Je vous propose un petit truc que j'ai fait pour répondre à une question sur le forum anglophone.

Il s'agissait de dessiner une roue avec des chiffres et de la faire tourner. Pour dessiner la roue j'ai écrit un petit programme utilisant Cairo.



Ensuite j'ai modifié ce programme pour qu'il accepte un paramètre (un angle en degrés), ce qui m'a permis de générer 36 images correspondant à 36 positions différentes de la roue.

Puis j'ai fait un premier projet Lazarus, qui fait tourner la roue en fonction de la valeur d'un TSpinEdit, pour montrer le principe d'une animation.



Puis un deuxième projet qui simule un lancement de la roue avec une force aléatoire, pour finalement s'arrêter sur un nombre, comme dans un jeu.



J'ai dû réduire la taille des images pour que le fichier ne soit pas trop lourd. Vous pouvez facilement en générer de plus grandes (en modifiant l'unité constants.pas).

J'ai essayé de faire en sorte qu'il n'y ait pas trop de nombres magiques dans le code, mais il y en a quand même. J'ai passé l'après-midi à faire du calcul mental.

Voilà, vos éventuelles observations sont bienvenues.

[Jipété]

Bonsoir, et bravo et merci pour ce sympathique projet.

Mais dans le projet Demo, j'ai un petit souci avec mon vieux Linux et mon vieux Lazarus : en incrémentant le compteur, une fois arrivé à 350 tout se fige et terminé !
Pourtant le code est tout bête :

Code :

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

1
2
  if SEAngle.Value = 360 then
    SEAngle.Value := 0;

Je t'avoue que j'ai une grosse flemme à déverminer le truc, ayant d'autres chats à fouetter.

Quant au demo-timer, il m'a fallu remplacer FBuffer.EraseRect(Rect(0, 0, 159, 159), 255);, inconnu chez moi, par ce que j'ai trouvé de plus approchant, FBuffer.EraseRectAntialias(0, 0, 159, 159, 255);, pour que ça compile (là aussi j'ai une vieille version).

Mais une fois lancé, j'ai été bien bluffé ! Pas mal du tout pour un 1^er janvier !


Bonne année et bons codes,

[Roland Chastain]

Bonsoir JP. Merci pour ton retour.

Mais dans le projet Demo, j'ai un petit souci avec mon vieux Linux et mon vieux Lazarus : en incrémentant le compteur, une fois arrivé à 350 tout se fige et terminé !
Pourtant le code est tout bête :

Code :

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

1
2
  if SEAngle.Value = 360 then
    SEAngle.Value := 0;

J'ai eu un doute en écrivant cette partie. Est-ce une bonne chose de changer la valeur du TSpinEdit dans son propre événement OnChange ? Chez moi, ça marchait, donc je l'ai laissé comme ça.

Bonne année et bons codes,

Bonne année à toi aussi.

[Jipété]

Salut bonjour,

en lisant ta réponse, j'ai fait un test basique et ultra-light,

Code :

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

1
2
3
4
5
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  caption := inttostr(spinedit1.Value);
  if spinedit1.Value = 5 then spinedit1.Value := 0;
end;

ou

Code :

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

1
2
3
4
5
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  if spinedit1.Value = 5 then spinedit1.Value := 0;
  caption := inttostr(spinedit1.Value);
end;

et dans les deux cas c'est pareil, hang après la valeur 4.

La solution en deux procédures :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  caption := inttostr(spinedit1.Value);
end;
 
procedure TForm1.SpinEdit1Click(Sender: TObject);
begin
  if spinedit1.Value = 5 then spinedit1.Value := 0;
end;

et donc dans ton projet demo (testé et validé) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.SEAngleChange(Sender: TObject);
begin
  FIndex := SEAngle.Value div 10;
end;
 
procedure TForm1.SEAngleClick(Sender: TObject);
begin
  if SEAngle.Value = 360 then
    SEAngle.Value := 0;
  PBAnimation.Invalidate;
end;

Bon dimanche,

[Roland Chastain]

Effectivement, maintenant que tu le dis, ça paraît plus logique comme ça. Pas étonnant que ça marche mieux !

Paresse de mettre à jour la pièce jointe, mais je vais faire la correction dans mon code. Merci, et bon dimanche à toi.