12 Chapitre 1 : Introduction à Delphi7 TP3 : CALCUL DU FACTORIEL Interface: Étapes 1-insérer les composants suivants de la palette standard: Composant Propriété Valeur Edit1 Text Edit2 Text Label1 Caption Nombre Label2 Caption Factoriel Button1 Caption Calcul 2-double clique sur le bouton1 (calcul) et écrire dans la procédure : (Supprimer le et end de la procédure et coller tous le code source suivant) var a,b,fact :integer; Begin a:= strtoint(edit1.text); if a>=0 then fact:=1; for b:=1 to a do fact:=fact*b; edit2.text:= inttostr (fact); End Else Showmessage ('pas de factoriel pour un nombre négatif'); end; 3- Lancer l éxécution par la touche F9, ou par le bouton ; Et verifier le bon fonctionnement de la fiche
14 Chapitre 1 : Introduction à Delphi7 LEÇON 3 : AVANCER PLUS TP1 : INTERFACE DE COULEURS Interface : Étapes : Partie1 : 1- insérer les composants suivants de la palette standard: Composant Propriété Valeur Radiobutton1 Caption Bleu Radiobutton2 Caption Rouge Radiobutton3 Caption Vert 2- double clique sur le Radiobutton1 (Bleu) et écrire dans la procédure : Form1.color:=clblue; 3- taper F12 et double clique sur le Radiobutton2 (ROUGE) et écrire dans la procédure : Form1.color:=clred; 4- taper F12 et double clique sur le Radiobutton3 (Vert) et écrire dans la procédure : Form1.color:=clgreen; 5- Lancer l éxécution par la touche F9, ou par le bouton ; Et verifier le bon fonctionnement de la fiche. Partie 2 : 1- insérer un composant Label1 (palette standard) et ecrire dans sa propriété caption : couleur. 2- insérer un composant Combobox1 (palette standard) et ecrire sa propriété text : (vide). 3- clique sur le composant Combobox1 et dans son inspecteur d objet on choisit la propriété : Clique ici pour écrire les élements de la liste Et dans la fenêtre qui s affiche on écrit les éléments de la liste ligne par ligne (bleu, rouge, vert) comme suite : A la fin, clic sur ce bouton pour fermer la fenetre
Sunisoft SUIPack V6 2 Standard F
15 Chapitre 1 : Introduction à Delphi7 4- double clique sur le Combobox1 et écrire dans la procédure (attention au lettres majuscules): If combobox1.text= Bleu then form1.color:=clblue; if combobox1.text= Rouge then form1.color:=clred; if combobox1.text= Vert then form1.color:=clgreen; 5- Lancer l éxécution par la touche F9, ou par le bouton ; Et verifier le bon fonctionnement de la fiche. Partie 3 : 1- insérer un composant button1 (palette standard) et écrire dans sa propriété caption : couleur. 2- insérer un composant popupmenu1 (palette standard), c est un menu contextuel qui s affiche lors du clique par le bouton droit de la sourie sur un composant lié à ce menu. 3- double clique sur le popupmenu1, une fenêtre d édition du menu contextuel s affiche : Clic sur la case d un élément du menu contextuel 1 2 Écrire le titre de cet élément du menu 3 Clic sur la case suivante pour ecrire les éléments suivants De cette façon, on écrit les eléments suivant : A la fin fermer la fenêtre de l editeur de menu. 4- double clique sur le Popupmenu1 et double clique sur l élément Bleu et écrire dans la procédure : Form1.color:=clblue ; Et taper F12 pour revenir à la fiche. 5- double clique sur le popupmenu1et double clique sur l élément Rouge et écrire dans la procédure : Form1.color:=clred ; Et taper F12 pour revenir à la fiche. 6- double clique sur le popupmenu1et double clique sur l élément Vert et écrire dans la procédure : Form1.color:=clgreen ; Et taper F12 pour revenir à la fiche. 7-dans la fiche clique sur le bouton1 (couleur) et dans son inspecteur d objet choisir la propriété : Clic ici pour choisir le menu : PopupMenu1 Cette propriété assure que si on clique par le bouton droit de la sourie sur le Bouton1 le popupmenu1 s affiche. 8- Lancer l éxécution par la touche F9, ou par le bouton ; Et verifier le bon fonctionnement de la fiche
18 Chapitre 1 : Introduction à Delphi7 LEÇON 4 : MESSAGES, MULTIMEDIA TP1 : LES MESSAGES DE DIALOGUE Delphi propose 2 types de messages de dialogue : 1-les messages simples : C est un message d information Exemple - L instruction qui appelle ce message est : Showmessage( bonjour tous le monde ) ; - on peut insérer un bouton de la palette standard et double clique sur ce dernier et écrire l instruction au-dessus. 2-les messages avec options : Exemple : Messagedlg ( voulez vous quitter le logiciel, Mtconfirmation, [Mbyes, Mbno], 0) Message De Le texte du message MT=Message MB=Message Numéro du fichier Dialogue (C est un choix libre) Type Button D aide Les types de messages possibles : Mtconfirmation = Confirmation Mtinformation = Information Mterror = Erreur Mtwarning = Avertissement Les boutons des messages possibles : mbyes = Un bouton avec le texte "Oui". mbno = Un bouton avec le texte "Non". mbok = Un bouton avec le texte "OK". mbcancel = Un bouton avec le texte "Annuler". mbabort = Un bouton avec le texte "Abandonner". mbretry = Un bouton avec le texte "Réessayer". mbignore = Un bouton avec le texte "Ignorer". mball = Un bouton avec le texte "Tous". mbnotoall = Un bouton avec le texte "Non à tout". mbyestoall = Un bouton avec le texte "Oui à tout". mbhelp = Un bouton avec le texte "Aide". Le Numéro du fichier d aide 0 = pas de fichier d aide Exemple : If Messagedlg ( voulez vous quitter le logiciel, mtconfirmation, [mbyes, mbno, mbcancel],0) =mryes then Application.terminate Else Showmessage( vous pouvez continuer ) ;
20 Chapitre 1 : Introduction à Delphi7 TP 4 : LES BOUCLES DE TEMPS Interface : Étapes : 1- insérer un composant Timer1 (palette système) 2- insérer un composant Label1 (palette standard) 3- double clique sur le composant Timer1 et écrire dans la procédure : Label1.caption :=timetostr(time) 4- Lancer l éxécution par la touche F9, ou par le bouton ; Et verifier le bon fonctionnement de la fiche. TP 5 : DESSINER UNE FONCTION Interface : Étapes : 1- insérer un composant Timer1 (palette système) 2- double clique sur ce composant et écrire dans la procédure : Form1.canvas.lineto (i*15, trunc(sin(i)*15)+100); I:=i+1 ; 3- en haut de l unité on trouve la partie des variables globales comme suite : Var form1 :tform ; I :integer ; //insérer la déclaration d une variable globale Implementation 4- lancer l éxécution Remarques: 1- le dessin sur écran se fait en pixel (Picture Element) donc pour avoir un dessin visible il faut amplifier les coordonnées (x,y),en plus il faut décaler le dessin vers le milieu de la fiche par l ajout de 100 pixels aux coordonnées (y) comme suite : Form1.canvas.lineto (i*15, trunc(sin(i)*15)+100); 2- le composant Timer a une propriété intéressante : Interval (On peut donner dans cette propriété la fréquence de répétition du Timer) 3- le canvas est une feuille transparente sur chaque fiche Delphi qui aide à dessiner des graphes. TP 6 : BARRE DE PROGRESSION Interface : Étapes : 1- insérer un composant Timer1 de la palette Système et modifier sa propriété : interval insérer un composant ProgressBar1 de la palette Win32 et modifier ses propriétés : 3- Double clique sur le timer1 et écrire dans sa procédure : progressbar1.position:=progressbar1.position+1; 4- Lancer l éxécution pour voir la progression dans cette barre
21 Chapitre 1 : Introduction à Delphi7 LEÇON 5 : MENU PRICIPAL, BARRES D OUTILS TP 1 : LE MENU PRINCIPAL Interface : Étapes : 1- insérer de la palette standard le composant Mainmenu1 2- double clique sur le composant Mainmenu1 et écrire les éléments du menu dans leurs propriétés caption 3- pour faire une ligne de séparation on écrit dans la propriété "caption" le caractère "-" 4- pour chaque élément du menu on choisit une lettre et on écrit avant elle le symbole "&" pour assurer un raccourci clavier : Exemple : &Edition Edition Donc : on tape le raccourci clavier Alt+E pour voir le menu Edition. 5- pour choisir un raccourci Clavier quelconque on sélectionne un élément du menu et dans la propriété on choisit le raccourci adéquat (exemple : Ctrl + N pour l élément Nouveau du menu). 6- pour insère un sous menu dans un élément du menu : On clique sur cet élément et on tape les touches clavier : CTRL + et on écrit les éléments du sous menu. 7- pour insère des icônes dans les éléments du menu ou insère le composant "imagelist1" (palette "Win 32") Et double clique sur ce composant "imagelist1" Et clique sur le bouton Et choisir une image dans le chemin : c:\program files\fichiers communs\borland shared\images\buttons Et clique sur Ensuite sur Et répéter Ajouter pour tous les autres images et enfin clique sur Ensuit clique sur le composant "Mainmenu1" et choisir dans sa propriété : Enfin : double clique sur " MainMenu1" et pour chaque élément du menu on choisit une image par sa propriété :
44 Chapitre 1 : Introduction à Delphi7 TP2 : UNE FICHE SIMPLE DE CONNEXION ET D AFFICHAGE ET D IMPRESSION D UNE TABLE 1- Pour créer cette fiche on procède comme suite : Dans le menu Delphi on choisit : fichier nouveau Dans la boite de dialogue qui s affiche on choisit l onglés affaires et dans ce dernier on choisit l icône expert fiche base de données et clique sur le bouton Ok. Dans l assistant qui s affiche on choisit dans la première étape le type de la fiche : Créer une fiche simple Clique sur le bouton Suite. Choisir dans la liste lecteur ou nom de l alias notre alias scolarité Clique sur la table étudiant et clique sur Suivant et clique sur le bouton >> et clique sur Suivant. Clique sur l option dans une grille et clique sur Suivant. Enfin clique sur l option fiche seulement et clique sur Terminer 2- Clique sur le composant dbgrid1 et choisir dans sa propriété align none, et réduire la taille de ce dbgrid vers le bas; et clique sur le composant table1 et modifier sa propriété : Active true. 3- Double clique sur le composant table1 et clique droit sur la petite fenêtre et clique sur ajouter tous les champs 4- Glisser les champs un par un vers l éspace libre en haut de notre fiche. 5- Clique sur la nouvelle fiche en évitant le clic sur l un de ses composants et écrire dans sa propriété : name fiche_etudiant. Ensuite, clique sur (menu Delphi) : fichier enregistrer, et nommer l unité : etudiant. 6- On doit maintenant préparer l impression de la liste des étudiants comme suite : Choisir dans le menu Delphi : fichier nouveau et clique dans la fenêtre qui s affiche sur l onglé affaires. Clique sur l élément : expert quickreport et clique sur Ok. Clique sur le bouton lancer l expert, et choisir l alias scolarité et la table etudiant. Clique sur le bouton >> qui fait passer tous les champs vers la droite pour les imprimer tous et clique sur Ok. Clique sur la nouvelle fiche en évitant le clic sur le composant quickrep1 et écrire dans sa propriété : name fiche_etat_etudiant. Ensuite, clique sur (menu Delphi) : fichier enregistrer, et nommer l unité : etat_etudiant. 7- On tape Shift+F12 pour afficher la liste des fiches et on choisit la fiche fiche_etudiant et on clique sur Ok. Ensuite, et pour une impression bien présentée des étudiants on insère un composant popupmenu (palette standard). Ensuite, on double clique sur ce composant et on introduit les deux éléments previsualiser et imprimer. Ensuite, on ferme la petite fenêtre du popupmenu et on insère de la palette supplément le composant speedubutton1 et on clique sur ce composant qui représente l impression et dans son inspecteur d objet on choisit dans sa propriété popupmenu l élément popupmenu1. Ensuite : pour programmer le composant popupmenu1 on double clique sur ce dernier et on double clique sur l élément previsualiser et on écrit dans sa procédure : fiche_etat_etudiant.quickrep1.preview ; Ensuit : on tape F12 pour retourner à la fiche et on double clique sur le composant popupmenu1 et on double clique sur l élément imprimer et on écrit dans sa procédure : fiche_etat_etudiant.quickrep1.print ; Ensuite : on compile notre logiciel par les touches Ctrl + F9 et automatiquement Delphi vous demande la confirmation de la liaison entre la fiche_etudiant et la fiche_etat_etudiant et on doit cliquer sur Oui pour chaque demande de confirmation
2ff7e9595c
Comments