1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    janvier 2018
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Administrateur de base de données

    Informations forums :
    Inscription : janvier 2018
    Messages : 3
    Points : 1
    Points
    1

    Par défaut Affichage d'un sablier

    Bonjour,

    J'ai besoin d'un code source pour un sablier qui marche avec le temp, svp.
    Et merci d'avance.

  2. #2
    Responsable Pascal, Delphi et Assembleur


    Avatar de Alcatîz
    Homme Profil pro
    Ressources humaines
    Inscrit en
    mars 2003
    Messages
    7 514
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : Belgique

    Informations professionnelles :
    Activité : Ressources humaines
    Secteur : Service public

    Informations forums :
    Inscription : mars 2003
    Messages : 7 514
    Points : 48 437
    Points
    48 437
    Billets dans le blog
    2

    Par défaut

    Bonjour et bienvenue,

    Pourrais-tu être plus précis dans ta demande ? S'agit-il d'afficher un curseur d'attente pendant une opération, ou autre chose ?
    Règles du forum
    Cours et tutoriels Pascal, Delphi, Lazarus et Assembleur
    Avant de poser une question, consultez les FAQ Pascal, Delphi, Lazarus et Assembleur
    Mes tutoriels et sources Pascal

    Le problème en ce bas monde est que les imbéciles sont sûrs d'eux et fiers comme des coqs de basse cour, alors que les gens intelligents sont emplis de doute. [Bertrand Russell]

  3. #3
    Nouveau Candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    janvier 2018
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Administrateur de base de données

    Informations forums :
    Inscription : janvier 2018
    Messages : 3
    Points : 1
    Points
    1

    Par défaut

    J'ai un exemple en C++.

    Code C : 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
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    /*
    	File: hourglass.cpp
    	Created by: 
    	Creation Date: 10/8/2014
    	Synopsis: prints an hour glass using 
    	  asterisks and an maximum top row from user
    */
     
    #include <iostream>
    #include <cmath>
    using namespace std;
     
    int main()
    {
     
      // Declare and initialize variables
     
    	int row_top(0);
    	int row(0);
    	int i(0);
    	int k(0);
    	int j(0);
     
     
      // Repeatedly prompt for top row size until valid value is entered
     
    cout << "Enter size of the top row: " ;
    cin >> row_top;
     
    	while(row_top < 3)
    	{
    	cout << "Size of the top tow must be at least three." << endl;
    	cout << "Enter size of the top row again: "; 
    	cin >> row_top;
    	}
     
     
      // Repeatedly prompt for the number of rows until valid value is entered
     
    cout << "Enter number of rows: ";
    cin >> row;
     
    	while(row == 0 || row_top/row < 2.0  || row < 1.0 )
    	{
    	cout << "Invalid number of rows." << endl;
    	cout << "Enter number of top row again: "; 
    	cin >> row;
    	}
     
     
      // Print the hour glass
    cout << endl;
     
    	for (i=1; i <= row * 2 ; i++)
    	{
    		if (i <= row+1)
    		{	for (j=1; j <= i-1; j++)
    			{ 
    			cout << " ";
    			}
     
     
     
    			for (k=1; k <= row_top-(i*2-2); k++)
    			{
    			cout << "*";
    			}
    			if (row != i)
    			{
    			cout << endl;
    			}
    		}
    		else 
    		{
    			for (j=row;  j >= i-(row-1); j--)
    			{ 
    			cout << "o";
    			}
     
     
     
    			for (k=1; k >= row_top-(i*2-2); k--)
    			{
    			cout << "*";
    			}
    			cout << endl;	
    		}
    	}
     
     
      // end program
      return 0;
    }

    Nom : 26654740_336148613533260_1163755504_o.png
Affichages : 85
Taille : 78,8 Ko

  4. #4
    Responsable Pascal, Delphi et Assembleur


    Avatar de Alcatîz
    Homme Profil pro
    Ressources humaines
    Inscrit en
    mars 2003
    Messages
    7 514
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : Belgique

    Informations professionnelles :
    Activité : Ressources humaines
    Secteur : Service public

    Informations forums :
    Inscription : mars 2003
    Messages : 7 514
    Points : 48 437
    Points
    48 437
    Billets dans le blog
    2

    Par défaut

    L'idéal quand on aborde ce genre de problème, c'est de tenter de le résoudre sur une feuille de papier, en essayant de trouver un algorithme que l'on transpose ensuite en Pascal.

    Tu peux t'inspirer de ce petit exercice, qui consiste en l'affichage d'un carré (mais qui nécessite deux boucles imbriquées) : https://www.developpez.net/forums/d1...l-utilisateur/. Exécute-le sur papier puis vois comment passer du carré au sablier.

    Règles du forum
    Cours et tutoriels Pascal, Delphi, Lazarus et Assembleur
    Avant de poser une question, consultez les FAQ Pascal, Delphi, Lazarus et Assembleur
    Mes tutoriels et sources Pascal

    Le problème en ce bas monde est que les imbéciles sont sûrs d'eux et fiers comme des coqs de basse cour, alors que les gens intelligents sont emplis de doute. [Bertrand Russell]

  5. #5
    Nouveau Candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    janvier 2018
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Administrateur de base de données

    Informations forums :
    Inscription : janvier 2018
    Messages : 3
    Points : 1
    Points
    1

    Par défaut

    mrc alcatiz

  6. #6
    Membre éprouvé

    Homme Profil pro
    Formation: Chimie et Physique (structure de la matière)
    Inscrit en
    décembre 2010
    Messages
    640
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Formation: Chimie et Physique (structure de la matière)
    Secteur : Enseignement

    Informations forums :
    Inscription : décembre 2010
    Messages : 640
    Points : 1 294
    Points
    1 294
    Billets dans le blog
    5

    Par défaut Affichage d'un sablier

    Bonjour,

    Je vois trois questions à résoudre dans le cas de ton projet:

    1°) La définition de la zone de l'écran texte occupée par le sablier: ici deux trapèzes adjacents, soit pas moins de 7 frontières rectilignes à définir ! Pas très simple finalement, pour un schéma d'apparence élémentaire ... Cependant la symétrie permet des simplifications.

    Nom : Sablier.png
Affichages : 51
Taille : 28,6 Ko

    2°) Le transfert progressif des (N) "particules" de sable (ici des caractères) de la moitié supérieure du domaine à l'autre, réalisable à l'aide d'un tableau de coordonnées (x, y) de longueur supérieure à (2*N); cette question est de fait intimement liée à la précédente, dans la mesure où la liste en question mémorise, au-delà de l'ensemble des positions actuelles des particules, celui des positions possibles - soit par conséquent la forme du sablier.
    Il faut d'ailleurs, à ce stade, régler un petit détail: la figure doit comporter non pas un mais deux sortes de caractères , afin de bien distinguer les cases occupées ('*', 'o' ou 'O') de celles qui sont vides (' ' ou '█').

    3°) Le couplage éventuel de l'évolution de la figure affichée à l'horloge interne, algorithme qui bien que peu décrit n'est pas très difficile.

    Tu pourrais justement commencer par ce dernier point, en t'en tenant provisoirement à un ensemble d'étoiles alignées.
    Tu trouveras ici le lien vers un programme classique de Turbo Pascal, sur un sujet apparenté; il te suffit de n'en retenir que ce qui est en lien direct avec la procédure GetTime.

    Si cela te paraît trop compliqué, il te reste encore une solution très simple, qui consiste à intercaler un délai d'attente entre deux déplacements d'étoiles, par l'instruction Delay(1000) - dont la durée vaut ici 1000 ms = 1s .


    Le français, notre affaire à tous
    Grand Dictionnaire Terminologique

  7. #7
    Membre éprouvé

    Homme Profil pro
    Formation: Chimie et Physique (structure de la matière)
    Inscrit en
    décembre 2010
    Messages
    640
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Formation: Chimie et Physique (structure de la matière)
    Secteur : Enseignement

    Informations forums :
    Inscription : décembre 2010
    Messages : 640
    Points : 1 294
    Points
    1 294
    Billets dans le blog
    5

    Par défaut Affichage d'un sablier

    Les caractéristiques de la figure envisagée relèvent d'un calcul simple au niveau des constantes, et à partir de quelques unes d'entre elles.

    Nom : Sablier_02.png
Affichages : 42
Taille : 29,6 Ko

    1°) Elle s'inscrit dans un rectangle dont la base est paire (2*5) et la hauteur impaire(9); de plus, comme l'on peut choisir les coordonnées (X1, Y1) de son coin supérieur gauche, il est déjà possible d'exprimer quelques termes en fonction de la demi-largeur (Lx), ici égale à (5):
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     CONST Lx =  5;  Lx2 = 2 * Lx;
           X1 = 51;  X2  = X1 + (Lx2 - 1);
           Y1 =  2;  Y2  = Y1 + (Lx2 - 2);
    2°) Le tracé du sablier relève d'un balayage ligne par ligne, entre deux bornes (Xmin, Xmax) qu'il convient de définir conformément au contour de l'objet:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    (y - Y1)   (Xmin - X1)   (X2 - Xmax)
       0            0            0
       1            1            1
       2            2            2
       3            3            3
       4            4            4
       5            5            5
       6            4            4
       7            3            3
       8            2            2
       9            1            1
      10            0            0
    Le décalage entre ces bornes et les abscisses extrêmes (X1, X2) de la figure dépend linéairement (en deux morceaux) de l'ordonnée (y) de la ligne considérée; c'est tout simplement le plus petit des écarts (y - Y1, Y2 - y), soit:
    h = Min(y - Y1, Y2 - y) - propriété qui interviendra dans l'inventaire des cases.

    3°) Le nombre de particules occupant complètement la partie supérieure du sablier, au-dessus du secteur le plus étroit, est:
    Npart = 2*((1+2+3+4+5) - 1) = 2*((5*6/2) - 1) = 5*6 - 2 = Lx*(Lx + 1) - 2 (ici 28);
    l'étendue du sablier (nombre total de cases disponibles): NcSab = 2*Npart + 2 (ici 58);
    d'où la panoplie complète des constantes intervenant dans le programme - la dernière ligne concernant le temps total d'écoulement du sablier, et la représentation des particules
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     CONST Lx =  5;  Lx2 = 2 * Lx;
           X1 = 51;  X2  = X1 + (Lx2 - 1);
           Y1 =  2;  Y2  = Y1 + (Lx2 - 2);
           NpMax = Lx * (Lx + 1) - 2;                 // Npart = 5*6 - 2 = 28
           Nmax  = 2 * NpMax + 2;                     // Nsab  =  2*28 + 2 = 58
           Tmin = 1; Tms = Tmin * 60000; o = 'o';
    Les positions des cases et des particules seront mémorisées dans un liste
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     TYPE Point = RECORD  t: Bool; u, v: Byte  END;
          LstP  = ARRAY[1..Nmax] OF Point;
    dont tous les termes seront initialisés à (False, 0, 0); un booléen de valeur True correspondant à la présence d'une particule à l'endroit considéré (x = u, y = v).

    Ces instructions préliminaires permettent de passer facilement à un sablier de taille quelconque, par la seule modification de la demi-largeur (Lx) de la figure:

    Nom : Sablier_05.png
Affichages : 35
Taille : 6,3 Ko_Nom : Sablier12.png
Affichages : 37
Taille : 10,7 Ko


    Le français, notre affaire à tous
    Grand Dictionnaire Terminologique

Discussions similaires

  1. Affichage du sablier ?
    Par Zebulon777 dans le forum IGN API Géoportail
    Réponses: 5
    Dernier message: 05/03/2013, 14h10
  2. Affichage Sablier pendant un traitement de job
    Par Macao35 dans le forum Développement de jobs
    Réponses: 0
    Dernier message: 10/04/2012, 17h56
  3. Affichage sablier lors d'un enregistrement
    Par jpegue dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 15/10/2009, 09h03
  4. [ASP .NET2] Affichage d'un sablier
    Par prez dans le forum ASP.NET
    Réponses: 4
    Dernier message: 25/07/2007, 13h52

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