Problèmes pour incrementer listbox1

Version imprimable

27/05/2009, 00h03
kheiropc

Problèmes pour incrementer listbox1
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:

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

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

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
27/05/2009, 07h18
andreditdd

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

Citation:

if edit2.Text=edit2.Text

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

ensuite:

Citation:

ListBox1.ItemIndex:=ListBox1.ItemIndex+0;

n'apporte rien.

Pour la suite, je mettrais:

Citation:

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é
28/05/2009, 22h48
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

salut

Code:

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

@+ Phil

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:

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.

Salut,

Dans ton code, tu as ceci :
Code:

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:

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:

ListBox1.ItemIndex:=ListBox1.ItemIndex;

Citation:
Envoyé par ero-sennin
Salut,

Dans ton code, tu as ceci :
Code:

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:

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:

ListBox1.ItemIndex:=ListBox1.ItemIndex;
Bonjour ero-senin
Merci pour ta réponse, le problème est a moitié résolu
Je pense que j'ai mal passé mon idée
je réexplique, je veux que quand le premier élément de listbox sera affecter a label qui fera le test a la fin de lecture de fichier mp3 le deuxieme éléments de listbox s'affecte a label pour refaire le test et redéclencher le mp3...etc pour le reste des éléments de listbox

30/05/2009, 18h40
ero-sennin

Re,

Pour poser le soucis autrement, tu cherches à faire une playList de fichier MP3 et selon tu souhaites gérer ta playList pour qu'elle lit le morceau actuel en affichant sa durée + son nom ?

Si oui, tu peux regarder ce tuto : Utiliser l'ActiveX WindowsMediaPlayer
Je pense que ça peut t'intéresser ;)

A+
30/05/2009, 23h15
kheiropc

Re,
Merci ero-sennin, je vais voir toute de suite :D
31/05/2009, 00h53
kheiropc

Je n'ai bien vue le toturial mais ca répond pas a ce que je cherche
ca fait une semaine de recherche et j'arrive pas
si quelqu'un pourrais m'apporter du l'aide ca serait vraiment sympa
Merci d'avance :D
31/05/2009, 00h58
kheiropc

Pour télécharger la source c'est par là
http://www.zshare.net/download/6073539173d9fb88/
Et encore merci

Salut,

Personnellement, je ne comprends pas ce que tu désires faire :roll:
Suis-je le seul ?

Ton interface comporte un bouton ajouter qui contient ce code :
Code:

1 2 3 4 5 6 7 8 9 10 procedure TForm1.Button1Click(Sender: TObject); begin If ListBox1.ItemIndex < ListBox1.Items.Count then begin ListBox1.ItemIndex:=ListBox1.ItemIndex+1;//deuxieme éléments de listbox1 label2.Caption:=listbox1.Items.Strings[listbox1.itemindex-1];//label2 reçoit le premier éléments de listbox1 end else listbox1.ItemIndex:=0; end;
Mais en fait, on ne fait pas d'affectation dans ce bout de code ...
La traduction en français de cet algo est :

Citation:

Si l'itemIndex de ma ListBox1 est inférieur au nombre d'items total de ListBox1, alors
début
ItemIndex de ListBox1 = ItemIndex de ListBox1 +1 (on sélectionne dans la ListBox1 l'item suivant)
Caption du Label2 = Texte de l'item de ListBox1 à la position de l'itemIndex -1 de ListBox1 (soit le texte précédent)
fin
sinon
ItemIndex de ListBox1 vaut 0 (on sélectionne le premier élément)
fin si

Je regarderai plus en détails plus tard si je peux

31/05/2009, 20h31
kheiropc

Merci ero-sennin :D
31/05/2009, 22h47
ero-sennin

Citation:

Envoyé par kheiropc

Merci ero-sennin :D

Je ne garanti rien, et il faut déjà que je comprennes correctement ta demande pour ne pas partir sur une fausse piste :)

A+ ;)
31/05/2009, 23h08
kheiropc

Je réexplique, désolé si je n'étais pas claire
Je veux faire jouer un morceau charger dans Twindowsmediaplayer en fonction du temps
C'est à dire faire jouer ce morceau a des heures différente que je choisit moi dans listbox
A plus tard ;)

Salut,

Voici un code avec un TValueListEditor :

Code:

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, OleCtrls, WMPLib_TLB, Grids, ValEdit, StdCtrls;
 
type
  TForm1 = class(TForm)
    AddMP3: TButton;
    MP3List: TValueListEditor;
    LecteurMP3: TWindowsMediaPlayer;
    Timer1: TTimer;
    OpenDialog1: TOpenDialog;
    procedure Timer1Timer(Sender: TObject);
    procedure AddMP3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.AddMP3Click(Sender: TObject);
begin
  if(OpenDialog1.Execute())then
  begin
    MP3List.Values[InputBox('Indiquer une heure','A quelle heure jouer: '+sLineBreak+ExtractFileName(OpenDialog1.FileName),TimeToStr(Now()))]:=OpenDialog1.FileName;
  end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to MP3List.Strings.Count do
  begin
    if(MP3List.Cells[0,i] = TimeToStr(Now)) then
    begin
      LecteurMP3.URL := MP3List.Cells[1,i];
      LecteurMP3.controls.play;
    end;
  end;
end;
 
end.

C'est un exemple très basique sans contrôle de quoi que ce soit :)
A+

01/06/2009, 23h05
kheiropc

Bonjour!
Je vois voir
Merci ero :ccool:
01/06/2009, 23h10
kheiropc

Parfait ca marche comme j'ai souhaiter
Merci beaucoup ero-sennin et merci à tous :D
de mon côté je vais essayé d'améliorer cette petite application
A plus tard :ccool:
02/06/2009, 08h41
ero-sennin

Pas de soucis ;)

N'oublies pas le :resolu: si tout est OK :)