Discussion :

[cincap]

Bonjour à toutes et à tous,

Pour passer mon temps je relis certaines applications D3 et je me suis toujours demandé si c'était possible en utilisant un composant TGauge si on pouvait lorsque la barre arrive à 100% soit (MaxValue := 100) créer une action comme émettre un bip.

Merci,

@+,

cincap

[Charly910]

Bonjour Cincap,
oui, je pense, avec un timer qui surveille la position du TGauge
A+
Charly

[cincap]

@ Charly910, merci de ta réponse,

La partie timer est en ordre, le TGauge indique bien la progression de 0% à 100% mais j'aurai aimé avoir une indication supplémentaire (Beep par ex) lorsque le TGauge indique 100%.

J'utilise une commande MCISendString et c'est pour la fin d'un fichier .mid

C'est un problème que je n'arrive pas à solutionner et pourtant j'ai testé plusieurs solutions.

@+,

cincap

[ShaiLeTroll]

Le TGauge ne progresse pas tout seul, suffit de mettre un PlaySound SND_ASYNC au moment où c'est la Gauge est modifié à 100%

Montre un extrait simplifier de la boucle qui fait avancer la TGauge

un truc genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Gauge.Progress := Gauge.Progress + 1;
//if Gauge.PercentDone = 100 then
if Gauge.Progress = MaxValue then
  PlaySound('MySound.wav', 0, SND_ASYNC);

[cincap]

@ ShaiLeTroll, bonjour et merci de ta réponse,

Comme je l'ai précisé à Charly910, tout ce code est déjà fonctionnel, mon TGauge progresse jusqu'à la fin de lecture du fichier et indique 100%.

Ce que je cherche c'est lorsque le TGauge arrive à 100% c'est d'obtenir une indication supplémentaire comme soit un beep soit un message et c'est sur ce point que je bute.

Si ce n'est pas faisable pas de problème.

@+,

cincap

[ShaiLeTroll]

Ma réponse correspond à ce besoin "si 100 alors Son"
C'est exactement le code fourni, quel est le problème ?

Comme je l'ai précisé à Charly910, tout ce code est déjà fonctionnel, mon TGauge progresse jusqu'à la fin de lecture du fichier et indique 100%.

Oui, c'était clair, si vous sentez le besoin de le repéter c'est que ma réponse n'a pas été comprise
Le plus simple c'est de fournir votre code !

Montrez votre code de progression et de tentative de Son.
Avez-vous simplement tenter un TLabel ou un ShowMessage ?

TLabel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Gauge.Progress := Gauge.Progress + 1;
//if Gauge.PercentDone = 100 then
if Gauge.Progress = Gauge.MaxValue then
  LabelPourGauge.Caption := 'Terminé';

ShowMessage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Gauge.Progress := Gauge.Progress + 1;
//if Gauge.PercentDone = 100 then
if Gauge.Progress = Gauge.MaxValue then
  ShowMessage('Terminé');

PlaySound

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Gauge.Progress := Gauge.Progress + 1;
//if Gauge.PercentDone = 100 then
if Gauge.Progress =  Gauge.MaxValue then
  PlaySound('MySound.wav', 0, SND_ASYNC);

Et votre foncion PlayMid ( à base de mciSendString)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Gauge.Progress := Gauge.Progress + 1;
//if Gauge.PercentDone = 100 then
if Gauge.Progress =  Gauge.MaxValue then
  PlayMid('MySound.mid');

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure PlayMid(const AMidiFile: string; AAsynchrone: Boolean = True);
var
  VCmd: string;
begin 
  VCmd := 'play ' + AMidiFile;
  if not AAsynchrone then
    VCmd := VCmd + ' wait';
  MCISendString(PChar(VCmd), nil, 0, 0);
end;

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure PlayMid(const AMidiFile: string; AAsynchrone: Boolean = True);
var
  VCmd: string;
begin
   MCISendString(PChar('close midibeep'), nil, 0, 0);
   MCISendString(PChar('open ' + AMidiFile+ ' alias midibeep'),nil , 0, 0);
   VCmd := 'play midibeep';
   if not AAsynchrone then
     VCmd := VCmd + ' wait';
   MCISendString(PChar(VCmd), nil, 0, 0);
  if not AAsynchrone then
    MCISendString(PChar('close midibeep'), nil, 0, 0);
end;

Il faut mettre juste après la modification de la propriété Progress du TGauge