Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Exo 3 DEUST AMRL Orsay février Delphi séance N Boucles Objectif simuler le fonctionnement d'un compteur de magnétophone magnétoscope ou lecteur de CD avec quelques gadgets accès rapide à une position lecture d'une zone déterminée répétition en boucle de c

DEUST AMRL Orsay février Delphi séance N Boucles Objectif simuler le fonctionnement d'un compteur de magnétophone magnétoscope ou lecteur de CD avec quelques gadgets accès rapide à une position lecture d'une zone déterminée répétition en boucle de cette lecture bnFin panel nlCompteur panel bnRetour bnVers neBut nlCent nlDix nlUn neDebut neFin nlCompteur bnUneFois bnRetour panel bnFin bnBoucle bnStop N'hésitez pas à tester la démo K EXE qui est sur F DEUST DELPHI DEMOS Légende de la copie d'écran début du nom composant ne NumEdit nl NumLabel bn Button pa Panel Le texte qui suit para? t long mais c'est pour mieux vous guider dans vos premières boucles N'oubliez pas d'enregistrer vos sources unité et projet avant chaque exécution d'autant plus que les boucles tant que et répéter jusqu'à peuvent tourner indé ?niment si elles sont mal écrites ? Découpage de la fenêtre On commence par dessiner panels dans cet ordre en les calant dans un angle le long d'un bord de la ?che gr? ce à leur propriété Align nom dessiné dans composant parent propriété Align panel Fiche alLeft panel panel alTop panel panel alClient panel Fiche alClient C Première forme de boucle a Dessinez les composants du panneau panel situé en haut à gauche b Réagissez au clic sur le bouton bnFin ? gr? ce à une boucle for faire avancer une variable entière de à dans cette boucle ? a ?chez dans nlCompteur la valeur de cette variable ? placez également l'instruction Application ProcessMessages sans laquelle on ne verrait pas avancer le compteur neCompteur la valeur serait seulement a ?chée à la ?n de la boucle ProcessMessages donne à Windows la possibilité de traiter les messages même à l'intérieur d'une boucle for while ou repeat nlCompteur Value ? est un message c Réagissez au clic sur le bouton bnRetour ? gr? ce à une boucle for faire reculer une variable entière de à dans cette boucle ? a ?chez dans nlCompteur la valeur de cette variable ? placez également l'instruction Application ProcessMessages d Réagissez au clic sur le bouton bnVers ? gr? ce à une boucle tant que faire avancer une variable entière depuis la valeur a ?chée dans le compteur jusqu'à la valeur qui sera entrée par l'utilisateur dans neBut dans cette boucle ? a ?chez dans nlCompteur la valeur de cette variable ? placez également l'instruction Application ProcessMessages Si le compteur a ?che déjà une valeur supérieure à ce qu'on veut atteindre on ne bougera pas Deuxième forme de boucle a Dessinez les composants du panneau panel situé en bas à gauche b Réagissez au clic sur le bouton bnFin ? déclarez trois variables de type integer un dix et cent qui serviront de variable pour les boucles ci-dessous ? gr? ce à boucles for placées dans le bon ordre simuler un compteur à chi ?res celui des unités celui des dizaines et celui des centaines ? dans la première instruction de chaque boucle a ?chez dans le NumLabel correspondant la valeur de la variable gérée