Discussion :

[kheiropc]

Bonsoir à tous
j'ai fais une petite application dont sont objectif et de faire jouer un mp3 a chaque moment donné
et là je bloque pour trouver la fonction qui incremente l'heure insèrer dans listbox, je veux aussi que a chaque fin de lecture le second élement de listbox s'affecte a un label

Code :

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

1
2
3
4
label1.caption:=timetostr(now);
 
if label1.Caption=label2.Caption then
windowsmediaplayer1.controls.play;

et

Code :

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

1
2
3
4
listbox1.Items.Add(edit2.Text);
if edit2.Text=edit2.Text then
begin
edit2.Clear;

et

Code :

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

1
2
3
4
If ListBox1.ItemIndex < ListBox1.Count
        then begin
        ListBox1.ItemIndex:=ListBox1.ItemIndex+0;
        Label2.Caption := ListBox1.Items.Strings[ListBox1.ItemIndex];

Merci d'avance de m'aider

[andreditdd]

Bonjour,
je ne suis pas devant Delphi mais déja:

if edit2.Text=edit2.Text

n'a pas de sens car ce sera tjrs vrai comme condition

ensuite:

ListBox1.ItemIndex:=ListBox1.ItemIndex+0;

n'apporte rien.

Pour la suite, je mettrais:

Label2.Caption := IntToStr(ListBox1.ItemIndex);

Je ne vois nulle part un endroit où tu parles de l'heure...

Voila, je répete que je ne suis pas devant Delphi et qu'il est tôt

André

[kheiropc]

Merci andré pour ta réponse
je réalise les érreurs que j'ai fais
sinon je voudrais incrémenter les éléments de listbox automatiquement
exemple lors de l'execution de premier éléments de listbox le deuxieme sera affecter et mise en attente pour l'executer
c'est là que je bloque

[anapurna]

salut

Code :

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

1
2
3
4
5
if  ListBox1.ItemIndex <  ListBox1.Items.Count Then
ListBox1.ItemIndex:=ListBox1.ItemIndex+1
else 
  ListBox1.ItemIndex:=0;

@+ Phil

[kheiropc]

Re Bonjour!
Tout d'abord je tiens a remercie anapurna pour sa réponse
mais celà ne résoud pas mon problème
si j'ai fais que tu m'avait dit lors d'affection c'est le deuxieme éléments de listbox qui sera affecter a label
je vous laisse la source pour mieux comprendre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, WMPLib_TLB, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    WindowsMediaPlayer1: TWindowsMediaPlayer;
    Label1: TLabel;
    Label2: TLabel;
    Timer1: TTimer;
    ListBox1: TListBox;
    Edit2: TEdit;
    Button2: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Button1: TButton;
    Button3: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   label1.caption:=timetostr(now);
 
   if label1.Caption=label2.Caption then
   windowsmediaplayer1.controls.play;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  listbox1.Items.Add(edit2.Text);
 
  edit2.Clear;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
 
If ListBox1.ItemIndex < ListBox1.Items.Count
        then
         begin
         ListBox1.ItemIndex:=ListBox1.ItemIndex+0;
         Label2.Caption := ListBox1.Items.Strings[ListBox1.ItemIndex+0]
         end
         else
         listbox1.ItemIndex:=0;
 
end;
 
end.

[ero-sennin]

Salut,

Dans ton code, tu as ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
 
begin
 
If ListBox1.ItemIndex < ListBox1.Items.Count
        then
         begin
         ListBox1.ItemIndex:=ListBox1.ItemIndex+0;
         Label2.Caption := ListBox1.Items.Strings[ListBox1.ItemIndex+0]
         end
         else
         listbox1.ItemIndex:=0;
 
end;

Je ne comprends pas pourquoi tu fais

Code :

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

ListBox1.ItemIndex:=ListBox1.ItemIndex+0;

Pareillement pour les autres ...
En fait, si tu veux incrémenter l'itemIndex, c'est un +1 qu'il faut faire,le +0 ne fera rien du tout, sinon, ça reviendrai à écrire ceci :

Code :

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

ListBox1.ItemIndex:=ListBox1.ItemIndex;