IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Contribuez Delphi Discussion :

Animation pour patienter


Sujet :

Contribuez Delphi

  1. #1
    Expert éminent sénior
    Avatar de Paul TOTH
    Homme Profil pro
    Freelance
    Inscrit en
    Novembre 2002
    Messages
    8 964
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2002
    Messages : 8 964
    Points : 28 430
    Points
    28 430
    Par défaut Animation pour patienter
    Bonjour,

    Je vous propose un petit bout de code amusant pour dessiner cette animation :
    Nom : wait.gif
Affichages : 579
Taille : 5,4 Ko

    je vous propose en petit jeu de présenter vos formules mathématiques permettant de donner d'autres effets sympa

    voici le code placé dans un TPaintBox.OnPaint et animé par un Timer

    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
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
     
    procedure TForm1.PaintBox1Paint(Sender: TObject);
    var
      t: Cardinal;
      d: Cardinal;
      i: Integer;
      r: TRect;
      x,y: Integer;
      w: Integer;
      cs, sn: Single;
      c: Integer;
    begin
      t := GetTickCount;
     
      if FTicks = 0 then
      begin
        d := 0;
        FTicks := t;
      end else begin
        d := (t - FTicks) mod 4000;
      end;
     
      with PaintBox1.Canvas do
      begin
     
        Brush.Color := Self.Color;
        FillRect(PaintBox1.ClientRect);
     
        x := PaintBox1.Width div 2;
        y := PaintBox1.Height div 2;
        w := 2 * x div 3;
     
        for i := 0 to 7 do
        begin
     
          c := 255 - 64 + Round(32 * Cos(PI * i / 4));
          Brush.Color := RGB(c, c, c);
     
          SinCos(PI * ((1 + i/4) * Cos(PI * d / 4000)), cs, sn);
     
          r.Left := x + Round(w * cs) - 2;
          r.Top  := y + Round(w * sn) - 2;
          r.Right := r.Left + 4;
          r.Bottom := r.Top + 4;
          FillRect(r);
     
        end;
     
      end;
     
    end;
    le projet complet sous Delphi XE8 (mais il devrait fonctionner avec n'importe quelle version aux uses près)
    Wait.zip
    Developpez.com: Mes articles, forum FlashPascal
    Entreprise: Execute SARL
    Le Store Excute Store

  2. #2
    Expert éminent sénior
    Avatar de Paul TOTH
    Homme Profil pro
    Freelance
    Inscrit en
    Novembre 2002
    Messages
    8 964
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Freelance
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Novembre 2002
    Messages : 8 964
    Points : 28 430
    Points
    28 430
    Par défaut
    le même principe appliqué à quelques TSphere sous Firemonkey avec un effet GaussianBlur en prime

    Nom : wait3d.gif
Affichages : 768
Taille : 112,2 Ko

    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
    22
    23
    24
    25
    26
    27
    28
    29
     
    procedure TForm1.Timer1Timer(Sender: TObject);
    var
      t: TDateTime;
      d: Integer;
      i: Integer;
      w: Single;
      cs, sn: Single;
    begin
      t := Now();
     
      d := MillisecondsBetween(t, FStart) mod 4000;
      t := FStart;
     
      w := 2;
     
      GaussianBlurEffect1.BlurAmount := 0.25 - Cos(PI * d/2000)/8;
      for i := 0 to 7 do
      begin
     
        SinCos(PI * ((1 + i/4) * Cos(PI * d / 4000)), cs, sn);
     
        FSpheres[i].Position.x := w * cs;
        FSpheres[i].Position.y := w * sn;
        FSpheres[i].Opacity := 0.75 - Cos(PI * i / 4)/4;
     
      end;
     
    end;
    Developpez.com: Mes articles, forum FlashPascal
    Entreprise: Execute SARL
    Le Store Excute Store

  3. #3
    Membre éclairé
    Avatar de FOCUS77
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Août 2014
    Messages
    336
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : Algérie

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Août 2014
    Messages : 336
    Points : 680
    Points
    680
    Par défaut Plus de simplification
    Bonsoir paul

    A vrai dire je suis intéressé par votre code et j'ai essayé de l'appliquer plusieurs fois, pour une application Laz,
    mais en vain.
    si vous pouviez me définir ces variables:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    GetTickCount, FTicks, cs et sn
    .

    et cette formule:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     SinCos(PI * ((1 + i/4) * Cos(PI * d / 4000)), cs, sn);
    1/SinCos=Sin(Cos())?
    2/la fonction Sin() à 3 arguments comment?
    3/ou sera t-elle placée (la formule)?

    merci d'avance.

  4. #4
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    Décembre 2011
    Messages
    4 062
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Décembre 2011
    Messages : 4 062
    Points : 15 353
    Points
    15 353
    Billets dans le blog
    9
    Par défaut
    @FOCUS77

    La procédure SinCos de l'unité Math renvoie en même temps le cosinus et le sinus du nombre passé en premier argument dans les variables cs (cosinus) et sn (sinus).

    La fonction GetTickCount provient de l'unité Windows. Elle permet de mesurer le temps écoulé.

    FTicks est déclaré en même temps que le type TForm1 :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    type
      TForm1 = class(TForm)
        PaintBox1: TPaintBox;
        Timer1: TTimer;
        procedure PaintBox1Paint(Sender: TObject);
      private
        { Déclarations privées }
        FTicks: Cardinal;
    Mon site personnel consacré à MSEide+MSEgui : msegui.net

  5. #5
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    Décembre 2011
    Messages
    4 062
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Décembre 2011
    Messages : 4 062
    Points : 15 353
    Points
    15 353
    Billets dans le blog
    9
    Par défaut
    Il n'y a rien à changer dans le code pour construire un projet Lazarus, à part le nom des unités (comme Paul l'avait d'ailleurs signalé).

    Je l'ai fait à la main mais je pense que même une conversion automatique aurait fonctionné (après correction des noms d'unités).
    Fichiers attachés Fichiers attachés
    Mon site personnel consacré à MSEide+MSEgui : msegui.net

  6. #6
    Membre éclairé
    Avatar de FOCUS77
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Août 2014
    Messages
    336
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : Algérie

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Août 2014
    Messages : 336
    Points : 680
    Points
    680
    Par défaut OK c'est reglé
    Bonsoir Roland et merci pour ton explication
    une fois j'ai ajouté Math et windows à use et FTicks: Cardinal; à Private et j'ai changer cs, sn: single; à cs, sn: Extended;
    le programme a fonctionné automatiquement et qu'elle était grande ma joie
    merci encore une autre fois.

  7. #7
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    Décembre 2011
    Messages
    4 062
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Décembre 2011
    Messages : 4 062
    Points : 15 353
    Points
    15 353
    Billets dans le blog
    9
    Par défaut
    Au fait, l'ordre des deux derniers paramètres de SinCos, ce serait plutôt :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    SinCos(PI * ((1 + i / 4) * Cos(PI * d / 4000)), sn, cs);
    Mais ça ne change rien au résultat. Vraiment très joli programme.

    J'aime bien aussi le résultat du programme visible dans une image GIF. Je suis en train d'essayer de faire la même chose.
    Mon site personnel consacré à MSEide+MSEgui : msegui.net

  8. #8
    Membre éclairé
    Avatar de FOCUS77
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Août 2014
    Messages
    336
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : Algérie

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Août 2014
    Messages : 336
    Points : 680
    Points
    680
    Par défaut
    Bonsoir Roland
    tu as raison, ce programme est très joli.
    quant à moi j'utilise ces couleurs
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     Brush.Color :=RGB(3*c,c,2*c);
    c'est encore plus joli

    Bon courage pour tes travaux Roland !

  9. #9
    Membre éclairé
    Avatar de FOCUS77
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Août 2014
    Messages
    336
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : Algérie

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Août 2014
    Messages : 336
    Points : 680
    Points
    680
    Par défaut
    Bonsoir à tous

    Je vous propose un autre mouvement:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     for i := 0 to 10 do
        begin
          c := 255 - 64 + Round(32 * Cos(PI * i / 4));
          Brush.Color :=RGB(3*c,c,2*c);
          SinCos((PI*i*d/21000),sn, cs);
          r.Left := x + Round(w * sn) - 2;
          r.Top  := y + Round(w * cs) - 2;
          r.Right := r.Left + 4;
          r.Bottom := r.Top + 4;
          FillRect(r);
        end;
    merci à tous

  10. #10
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    Décembre 2011
    Messages
    4 062
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Décembre 2011
    Messages : 4 062
    Points : 15 353
    Points
    15 353
    Billets dans le blog
    9
    Par défaut
    Citation Envoyé par FOCUS77 Voir le message
    Je vous propose un autre mouvement:
    Pas mal !
    Mon site personnel consacré à MSEide+MSEgui : msegui.net

  11. #11
    Membre éclairé
    Avatar de FOCUS77
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Août 2014
    Messages
    336
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : Algérie

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Août 2014
    Messages : 336
    Points : 680
    Points
    680
    Par défaut
    Celui là peut-être ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     for i := 0 to 40 do
        begin
          if j<7 then  j:=j+1 else j:=0;
          Brush.Color :=Random(120000);
          SinCos((PI*i*d/80000),sn, cs);
          r.Left := x + Round(w * cs*0.2*j) - 2;
          r.Top  := y + Round(w *sn*0.2*j) - 2;
          r.Right := r.Left + 3;
          r.Bottom := r.Top + 3;
          FillRect(r);
        end;

Discussions similaires

  1. [WD16] Animation pour faire patienter l'utilisateur
    Par bombseb dans le forum WinDev
    Réponses: 8
    Dernier message: 14/02/2012, 16h19
  2. Animation pour bureau Windows
    Par kahya dans le forum Windows
    Réponses: 1
    Dernier message: 12/02/2007, 17h51
  3. Animation pour faire disparaitre une page
    Par Tony. dans le forum Flash
    Réponses: 3
    Dernier message: 20/09/2006, 18h10
  4. Enregistrer une animation pour le web
    Par paradeofphp dans le forum Flash
    Réponses: 1
    Dernier message: 01/08/2006, 15h30
  5. [C#] CF - Affichage du camembert pour patienter
    Par freddyboy dans le forum Windows Forms
    Réponses: 5
    Dernier message: 11/06/2004, 17h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo