Decompteur avec enregistrement des options

Soyez le premier à donner votre avis sur cette source.

Vue 6 225 fois - Téléchargée 1 749 fois

Description

Bonjour,

Cette Application est un decompteur(chrono a l'envers exemple :1mn - 59s - 58s)

Fonctions :
1) Decompteur
2) Enregistrement : Temps, Option et Son

Option :
1) Possibiliter de l'aissez le decompteur en premier plan
2) Possibiliter de choisir un son parmis 6
3) Possibiliter d'utiliser un autre son personnel

Source / Exemple :


Dans cette application les outils suivant sont utilisé:

Timer
Fichier INI
Ouverture de fichier
Plugin Windows Media Player
Plugin VLC

Information :
Mettre le dossier nommé Timer a la racine du C:\ --> Il contient le fichier de configuration ainsi que qulque alarme utilisée par le programme

Conclusion :


Voila j'espere que cela vous aidera

Bonne Journée

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
9
Date d'inscription
dimanche 18 mai 2014
Statut
Membre
Dernière intervention
3 septembre 2015

bah juste un point pour : Ini := TIniFile.Create('Configuration.ini');

il faut éssayé ca Ini := TIniFile.Create(getcurrentdir+'\Configuration.ini'); pour metre vos fichiers INI dans le répertoire ou se trouve l'application
Messages postés
250
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
2 décembre 2019
5
et un exemple en gardant la structure de
tous ça :

heurestr := inttostr(heure);
minutestr := inttostr(minute);
secondestr := inttostr(seconde);
If (heure < 10) then
begin
heurestr := '0' + heurestr;
end;
If (minute < 10) then
begin
minutestr := '0' + minutestr;
end;
If (seconde < 10) then
begin
secondestr := '0' + secondestr;
end;
Label1.Caption := heurestr + ' : ' + minutestr + ' : ' + secondestr;

équivalent à ça :

Label1.Caption:=FormatDateTime('hh" : "mm" : "ss',StrToDateTimeDef(IntToStr(heure)+':'+IntToStr(minute)+':'+IntToStr(seconde),0));

@+ bon courage
Messages postés
43
Date d'inscription
dimanche 18 janvier 2009
Statut
Membre
Dernière intervention
25 juin 2009

Il ya beaucoup de travail pour exécuter ta source
Debiars Junior
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
13
Salut, bonne idée mais mal exploité je pense.

1) Ne jamais mettre en dur un chemin "C:\Timer"
Mon disque principal est le D:\ je n'ai pas de C:\ comment faire ?
Surtout POURQUOI mettre un chemin en dur !?
Ini := TIniFile.Create('C:\Timer\Configuration.ini'); < pas bien
Ini := TIniFile.Create('Configuration.ini'); < Bien
Ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Configuration.ini'); < Bien

2) Nomme tes composants ! De tête, à quoi sert ton "Button1" ? "Button4" ? je pense que "bt_Option" est quand même plus parlant ...

3) heure := StrToInt(Edit1.Text); donc dès que j'écris "a" BIM ça pète ... Utilise StrToIntDef(Edit1.Text, 0); a la place. (grrr Edit1 ça ne veut rien dire ...)

4) Dans procedure TForm2.RadioClick(Sender: TObject);
mets des ELSE entre tes IF puisque il est impossible d'en cocher 2 en même temps, pourquoi se taper la vérification de toutes ces conditions !

5) Tu fais " if RadioGroup1.ItemIndex = 0 then
begin
...
end
else
begin
if RadioGroup1.ItemIndex = 1 then "
mais si ce n'est pas 0, c'est forcement 1 puisqu'il n'y a que 2 choix ! Pourquoi le retester ?

6) Corrige les fautes quand meme ... "Démarrer" et pas "Demmarer"

Allez je m'arrete la, ya deja pas mal ^^

Bonne journée
Messages postés
4199
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
2 janvier 2019
29
1) pense a indenter ton code, regarde les notres, francky, cari, cirec, jlen pour voir comment organiser un code.

2) familliarise toi avec les conventions et regles d'ecriture, il y a des tutos qui en parle dans la rubrique tutoriaux.
3) if condition true then, est une chose inutile, une condition IF est toujours booléene, donc if condition then (condition true) ou if not condition then (condition = false).

4) creation et liberation d'instance dans une même procedure ? on encadre avec un bloc Try..Finally, de plus pour tout ce qui est IniFile ou Regitry on peut utiliser ceci :

with TIniFile.Create('fichier') do
try

WriteString('[test]', 'Test', 'Hello World');

finally
Free;
end;

5) relit toujours ton code au fur et a mesure, supprime l'inutile.
condition imbriquée non necessaire par exemple :
if condtion then
if contition then
if condition then
FaireUnTruc
else
FaireUnAutreTruc;

sera remplacé par :
if (condition and condition) and condition then
FaireUnTruc
else
FaireUnAutreTruc;

voila et d'autre truc parci parla qui t'aideront a mieux coder.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.