begin process at 2010 02 10 07:51:20
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Exécution

 > BARRE UTILITAIRE

BARRE UTILITAIRE


 Information sur la source

Note :
Aucune note
Catégorie :Exécution Classé sous :barre, utilitaire, ini, date, eteindre Niveau :Débutant Date de création :09/12/2007 Date de mise à jour :15/08/2009 18:20:33 Vu / téléchargé :3 545 / 198

Auteur : ced55957

Ecrire un message privé
Site perso
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
voila une tite barre utilitaire elle sert pas a grand chose juste de mettre en pratique quelque notion comme lire écrire dans un INI , ouvrir et de fermer le lecteur DVD, d'éteindre le pc, de savoir la quantité mémoire restante et d'afficher la date

utilise le composant xibutton inclue avec l'archive : trouvé sur delphipage



 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  • Project1.~dprTélécharger ce fichier [Réservé aux membres club]338 octets
  • Project1.cfgTélécharger ce fichier [Réservé aux membres club]Voir ce fichier434 octets
  • Project1.dofTélécharger ce fichier [Réservé aux membres club]Voir ce fichier2 015 octets
  • Project1.dprTélécharger ce fichier [Réservé aux membres club]Voir ce fichier338 octets
  • Project1.resTélécharger ce fichier [Réservé aux membres club]876 octets
  • Unit1.~ddpTélécharger ce fichier [Réservé aux membres club]51 octets
  • Unit1.~dfmTélécharger ce fichier [Réservé aux membres club]5 838 octets
  • Unit1.~pasTélécharger ce fichier [Réservé aux membres club]8 517 octets
  • Unit1.dcuTélécharger ce fichier [Réservé aux membres club]13 214 octets
  • Unit1.ddpTélécharger ce fichier [Réservé aux membres club]51 octets
  • Unit1.dfmTélécharger ce fichier [Réservé aux membres club]5 838 octets
  • Unit1.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier8 519 octets
  • Unit2.~ddpTélécharger ce fichier [Réservé aux membres club]51 octets
  • Unit2.~dfmTélécharger ce fichier [Réservé aux membres club]285 030 octets
  • Unit2.~pasTélécharger ce fichier [Réservé aux membres club]6 546 octets
  • Unit2.dcuTélécharger ce fichier [Réservé aux membres club]10 602 octets
  • Unit2.ddpTélécharger ce fichier [Réservé aux membres club]51 octets
  • Unit2.dfmTélécharger ce fichier [Réservé aux membres club]285 030 octets
  • Unit2.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier6 546 octets
  • Unit3.dcuTélécharger ce fichier [Réservé aux membres club]4 037 octets
  • Unit3.dfmTélécharger ce fichier [Réservé aux membres club]973 octets
  • Unit3.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier650 octets
  • XiButton.dcuTélécharger ce fichier [Réservé aux membres club]32 718 octets
  • XiButton.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier35 269 octets
  • XiControls.resTélécharger ce fichier [Réservé aux membres club]7 312 octets

Télécharger le zip


 Historique

04 mars 2008 13:43:02 :
mise a jour
15 août 2009 18:20:43 :
changement de logiciel

 Sources du même auteur

Source avec Zip Source avec une capture LOGICIEL INTERRUPTEUR MONDIAL USB
Source avec Zip Source avec une capture CALCUL RÉSISTANCE DE PROTECTION POUR LED
Source avec Zip Source avec une capture COMMANDE PORT PARALLELE
Source avec Zip Source avec une capture UTILISER LE PORT COM OU USB POUR PILOTER UNE INSOLEUSE

 Sources de la même categorie

Source avec Zip GÉNÉRATEUR DE JET DE DÉS par koriteki
Source avec Zip Source avec une capture LES FIBERS : DES THREADS NON PRÉEMPTÉS PAR LE SYSTÈME par Caribensila
Source avec Zip Source avec une capture UAC (USER ACCOUNT CONTROL) - EXÉCUTER UNE APPLICATION EN TAN... par ni69
BLOQUER LE TASKMGR SANS CLÉ DE REGISTRE par craftsystem
Source avec Zip UTILISER LES MESSAGES WINDOWS POUR GERER LE NOMBRE D'INSTANC... par lotfi213_b19

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture DECOMPTEUR AVEC ENREGISTREMENT DES OPTIONS par michaelminelli1
Source avec Zip Source avec une capture WINHIDER _ CACHER UN PROGRAMME DE L'ÉCRAN ET DE LA BARRE DE ... par soldier8514
Source avec Zip Source avec une capture PSP SFOREADER par NeO78
Source avec Zip Source avec une capture BARRE DE PROGRESSION À LA CLEARLOOKS par yannbobu
Source avec Zip Source avec une capture MODIFIER LES DATES DE CRÉATION, DE MODIFICATION ET DE DERNIE... par ni69

Commentaires et avis

Commentaire de japee le 09/12/2007 13:01:11 administrateur CS

"une plaque de 200X300 mm vaut 10¤ et vous voulé savoir le tarif d'un bout de cette plaque 100X150 cliquer sur calculer et le resultat et de 5¤"

C'est mal barré...

Commentaire de japee le 09/12/2007 13:27:43 administrateur CS

Après vérif, on obtient 2,5 ¤ et non 5 ¤ comme tu l'affirmes plus haut.
Ouf... j'étais un peu inquiet, là.

Sinon, retire les ".~machin" et ".dpu" qui encombrent le zip et ne servent à rien.

Commentaire de ced55957 le 09/12/2007 13:49:43

ah oui dsl je viens de voir l'erreur je regle ça et je met à jour! merci

Commentaire de japee le 09/12/2007 16:03:23 administrateur CS

ced55957, voici quelques conseils :

Il faut donner des noms plus explicites à tes variables :
"n10,n11,n12,n13,n1,n2,n4,n5,n6,n7", ça évoque pas grand chose,
"Long1, Larg1, Aire1,Long2, Larg2, Aire2", Prix, par exemple, ça cause plus.
Nommer les composants permet de mieux s'y retrouver dans le code.
"EditPrix" ou "edPrix" est plus évocateur que "Edit7.Text".
Une fonction séparée pour le calcul du prix aurait été plus intéressante à mon avis.
Le code est un peu lourd et redondant.
Voici un petit allègement (et encore...) avec quelques commentaires :

procedure TForm1.Button3Click(Sender: TObject);
var
  Long1, Larg1, Aire1,
  Long2, Larg2, Aire2,
  PrixGros, PrixDetail : Extended;
begin
  Long1 := StrToFloat(Edit1.Text);
  Larg1 := StrToFloat(Edit2.Text);
  Aire1 := Long1 * Larg1; // surface de la plaque de depart
  Edit5.Text := FloatToStr(Aire1);

  Long2 := StrToInt(Edit3.Text);
  Larg2 := StrToInt(Edit4.Text);
  Aire2 := Long2 * Larg2; // surface de la plaque à obtenir
  Edit6.Text := Floattostr(Aire2);

  // les 2 lignes suivantes sont inutiles :
  //N11:=Strtofloat(Edit6.Text);
  //N13:=Strtofloat(Edit5.Text);
  PrixGros := StrToFloat(Edit7.Text);
  PrixDetail := (Aire2 * PrixGros) / Aire1;  //calcul le tarif de la plaque a obtenir
  Edit8.Text := Floattostr(PrixDetail);

  // ne pas mettre plusieur instructions sur la même ligne :
  if PrixGros = 0 then
    ShowMessage('Le tarif de la plaque de départ n est pas valide');
  
  if Long2 > Long1 then
    Edit3.Color := clred
  else edit3.Color := clwhite;
  if Larg2 > Larg1 then
    Edit4.Color := clred
  else Edit4.Color := clwhite;

  // pourquoi pas, mais il va toujours rester comme ça :
  edit8.Color := cllime;

  // simplification du code ici :
  if (Long2 > Long1) or (Larg2 > Larg1) then
  begin
    Edit8.Text := 'invalide';
    ShowMessage('ATTENTION!! La valeur à obtenir est plus grande que la valeur de depart');
  end;

  // pas vraiment utile :
  //if  (Long1 = Long2) and (Larg1 = Larg2)
  //  then edit8.text := (edit7.text);
end;

Voilà.

A +

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

modifier facile un ini [ par gigaset5 ] Bonjour,Je rencontre un petit soucis au sujet de fichiers ini. Simple a éditer avec le notepad, mon problème réside plus du fait que ceux avec qui je RadioButton : Check automatique en fonction d'un fichier [ par Toshiiro ] Bonjours à tous & à toutes :D.Voilà, je voudrais que les RadioButton ce check seul en fonction du contenue du fichier .ini.Le fichier .ini est bie lien entre 2 tdbcombobox [ par towtue ] Bonjour,Je voudrais savoir si quelqu'un saurait comment on peut faire pour relier 2 tdbcombobox. J'ai une base de donnée où il y a des dates de séance sauvgarde en .bat [ par tenorian ] bonjour voila je sui en train de fair un .bat pour sauvgarder tous les dossier d un disque dur compreser en winrar dan un dossier daté sur un autre di delphi liaison entre 2 tdblookupcombobox [ par towtue ] bonjour, Je voudrais savoir comment faire une liaison entre 2 tdblookupcombobox. Car j'ai fait un programme en delphi sur une base de donnée de progra Affichage de la date et l'heure à l'écran de connexion. [ par Benjamin00 ] Bonsoir,Je cherche un moyen d'afficher la date et l'heure complètement sur l'écran de connexion.Je m'explique : Sur mon bureau gnome, "Tableau de bord date et heure systeme fixe [ par mimichette ] salut,aidez moi svp c'est urgent!! dans mon application lorsque j'enregistre un fichier la date et l'heure systemes de l'enregistrement doivent s'affi masquer le contenu de datetimepicker [ par mimichette ] salut a tous, j'ai dans ma form un chekbox et 2 datetimepicker,un pour la date et l'autre pour l'heure et j'aimerai savoir comment ne pas afficher le DateTime et TimeZone [ par tlelong ] Bonjour à tous, me revoilà d'attaque pour vous poser une question de la mort. Je vais essayer de vous exposer tout le problème de façon claire et préc LA RECHERCHE PAR DATE [ par mimichette ] salut les amis, ouf enfin débarrassée du mémoire!!! , maintenant il me reste la présentation du logiciel et j'ai encore un problème:j'ai un datetimepi


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,936 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales