programe pascal delphi

Version imprimable

salam

j'ai un programme qui me fais poussé des cheveux sur les dents :?
...

pour commencer je vais vous expliqué ce que je veut réalisé .

données :

- j'ai plusieurs machines.
-chaque machine je dois lui faire des maintenance (hebdomadaire, mensuel, ....annuel)

maintenant au lieu de planifier 365 jours manuellement je veut créer un programme qui le fait automatiquement .
pour ne pas brulé les étapes j'ai commencer a faire la panification des taches hebdomadaire.

voila le bous de code
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 procedure TForm1.BitBtn1Click(Sender: TObject); var s :TDateTime; begin executiontache.Open;//la planification des tache (a remplir) tache_poste_detail.Open;//liste des taches par poste en détail s:=Now; tache_poste_detail.first; while not tache_poste_detail.Eof do begin s := DateTimePicker1.Date; if tache_poste_detail.FieldByName('Fréquance').AsString = 'Hebdomadaire' then begin while s < DateTimePicker1.Date+365 do begin executiontache.insert; executiontache.FieldByName('Nposte_tache').AsInteger:=tache_poste_detail.FieldByName('Nposte_tache').AsInteger;//poster le nom de la machine executiontache.FieldByName('dateplan').AsDateTime:=s;//poster la date de planification de la tache executiontache.post; s := s + 7; end; end; tache_poste_detail.Next; end; end;
cella fonctionne mais la planification des taches ce fais au premier jours de la semaine , donc je me retrouve toujours avec un lundi remplie de tache ensuite le reste de la semaine y'a rien a faire , moi ce que je cherche c'est de répartir les tache sur tous les jours de la semaine et la je bloc , j'ai essayer d’incrémenté la date d'une journée a chaque changement de machine mais bon sur la 8 eme machine j'aurai un problème puisque la semaine a seulement 7 jours et il y aurai une semaine ou je ferai pas ça maintenance.
voila j’espère que je trouverai une solution pour ce problème , je vous remercie d'avance.

Bonjour,

Citation:

Envoyé par adelcrb

j'ai un programme qui me fais poussé des cheveux sur les dents :?

Je serais curieux de voir cela... :mouarf:

Citation:

Envoyé par adelcrb

cella fonctionne mais la planification des taches ce fais au premier jours de la semaine , donc je me retrouve toujours avec un lundi remplie de tache ensuite le reste de la semaine y'a rien a faire , moi ce que je cherche c'est de répartir les tache sur tous les jours de la semaine et la je bloc , j'ai essayer d’incrémenté la date d'une journée a chaque changement de machine mais bon sur la 8 eme machine j'aurai un problème puisque la semaine a seulement 7 jours et il y aurai une semaine ou je ferai pas ça maintenance.

Il faut appliquer un modulo 7 sur l'incrément de date donc:
Machines 1, 8, 15, 22 => 1° jour
Machines 2, 9, 16 => 2° jour
...
Machines 7, 14, 21 => 7° jour

Ensuite, attention en ajoutant 365 à votre date de départ, vous ne tenez pas compte des années bissextiles (366 jours).
Utilisez les fonctions de l'unité DateUtils : IncYear, IncWeek, IncDay, etc.

Enfin, utilisez des variables dont le sens est plus explicite, cela permettra une meilleure maintenance future du programme... :zoubi:

Donc, votre code réaménagé ressemble à :
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 procedure TForm1.BitBtn1Click(Sender: TObject); var Debut, Fin: TDateTime; s: TDateTime; Delta: Integer; begin executiontache.Open;//la planification des tache (a remplir) tache_poste_detail.Open;//liste des taches par poste en détail {s := Now;} Debut := Now; Fin := IncYear(Debut, 1); Delta := 0; tache_poste_detail.first; while not tache_poste_detail.Eof do begin {s := DateTimePicker1.Date;} if tache_poste_detail.FieldByName('Fréquance').AsString = 'Hebdomadaire' then begin s := IncDay(Debut, Delta);; {while s < DateTimePicker1.Date+365 do} while s < Fin do begin executiontache.insert; //poster le nom de la machine executiontache.FieldByName('Nposte_tache').AsInteger := tache_poste_detail.FieldByName('Nposte_tache').AsInteger; //poster la date de planification de la tache executiontache.FieldByName('dateplan').AsDateTime := s; executiontache.post; {s := s + 7;} s := IncWeek(s, 1); // ou // s := IncDay(s, 7); end; // Décalage de 1 jour pour la machine suivante // avec retour en début de semaine Delta := (Delta + 1) mod 7; end; tache_poste_detail.Next; end; end;

merciiiii philipe ça marche voila le code final pour tous les fréquence:mrgreen:

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
74
75
76
77
78
79
80
81
82
83
84
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Debut, Fin: TDateTime;
  s: TDateTime;
  Delta: Integer;
begin
  executiontache.Open;
  tache_poste_detail.Open;
  Debut := DateTimePicker1.Date;
  Fin := IncYear(Debut, 1);
  Delta := 0;
 
  tache_poste_detail.first;
 
  while not tache_poste_detail.Eof do
  begin
    if tache_poste_detail.FieldByName('Fréquance').AsString = 'Hebdomadaire' then
    begin
      s := IncDay(Debut, Delta);
      while s < Fin  do
      begin
        executiontache.insert;
        executiontache.FieldByName('Nposte_tache').AsInteger := tache_poste_detail.FieldByName('Nposte_tache').AsInteger;
        executiontache.FieldByName('dateplan').AsDateTime := s;
        executiontache.post;
        s := IncWeek(s, 1);
      end;
      Delta := (Delta + 1) mod 7;
    end;
    if tache_poste_detail.FieldByName('Fréquance').AsString = 'Mensuel' then
    begin
      s := IncDay(Debut, Delta);
      while s < Fin  do
      begin
        executiontache.insert;
        executiontache.FieldByName('Nposte_tache').AsInteger := tache_poste_detail.FieldByName('Nposte_tache').AsInteger;
        executiontache.FieldByName('dateplan').AsDateTime := s;
        executiontache.post;
        s := IncMonth(s, 1);
      end;
      Delta := (Delta + 1) mod 7;
    end;
     if tache_poste_detail.FieldByName('Fréquance').AsString = 'Trimestriel' then
     begin
       s := IncDay(Debut, Delta);
       while s < Fin do
       begin
          executiontache.insert;
          executiontache.FieldByName('Nposte_tache').AsInteger := tache_poste_detail.FieldByName('Nposte_tache').AsInteger;
          executiontache.FieldByName('dateplan').AsDateTime := s;
          executiontache.post;
         s := IncMonth(s, 3);
       end;
       Delta := (Delta + 1) mod 7;
     end;
     if tache_poste_detail.FieldByName('Fréquance').AsString = 'Semestriel' then
    begin
      s := IncDay(Debut, Delta);
      while s < Fin  do
      begin
        executiontache.insert;
        executiontache.FieldByName('Nposte_tache').AsInteger := tache_poste_detail.FieldByName('Nposte_tache').AsInteger;
        executiontache.FieldByName('dateplan').AsDateTime := s;
        executiontache.post;
        s := IncMonth(s, 6);
      end;
      Delta := (Delta + 1) mod 7;
    end;
         if tache_poste_detail.FieldByName('Fréquance').AsString = 'Annuel' then
    begin
      s := IncDay(Debut, Delta);
      while s < Fin  do
      begin
        executiontache.insert;
        executiontache.FieldByName('Nposte_tache').AsInteger := tache_poste_detail.FieldByName('Nposte_tache').AsInteger;
        executiontache.FieldByName('dateplan').AsDateTime := s;
        executiontache.post;
        s := IncYear(s, 1);
      end;
      Delta := (Delta + 1) mod 7;
    end;
    tache_poste_detail.Next;
  end;
end;