Discussion :

[Roland Chastain]

Bonjour !

Voici un exemple de code Flash-Pascal, qui utilise les fonctions de l'unité Date.

Le mode "auto refresh" de l'éditeur (dans la version non officielle postée dernièrement par Paul TOTH) est épatant. Le résultat à l'écran se modifie à mesure qu'on modifie le code, de sorte qu'on peut voir tout de suite si ce qu'on a écrit est bon ou pas.

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
 
program DateDuJour;
 
{$FRAME_WIDTH    320}
{$FRAME_HEIGHT    32}
 
uses Flash8, Date;
 
var
  t:TextField;
  f:TextFormat;
  d:TDate;
 
begin
  t:=TextField.Create(nil,'t',0,0,0,320,32);
  f:=TextFormat.Create('Tahoma',24);
  d:=TDate.Create;
 
  case d.getDay of
    0:t.text:='Dimanche';
    1:t.text:='Lundi';
    2:t.text:='Mardi';
    3:t.text:='Mercredi';
    4:t.text:='Jeudi';
    5:t.text:='Vendredi';
    6:t.text:='Samedi';
  end;
  t.text:=t.text+#32;
 
  t.text:=t.text+IntToStr(d.getDay);
  t.text:=t.text+#32;
 
  case d.getMonth of
    1:t.text:=t.text+'Janvier';
    2:t.text:=t.text+'Février';
    3:t.text:=t.text+'Mars';
    4:t.text:=t.text+'Avril';
    5:t.text:=t.text+'Mai';
    6:t.text:=t.text+'Juin';
    7:t.text:=t.text+'Juillet';
    8:t.text:=t.text+'Août';
    9:t.text:=t.text+'Septembre';
    10:t.text:=t.text+'Octobre';
    11:t.text:=t.text+'Novembre';
    12:t.text:=t.text+'Décembre';
  end;
  t.text:=t.text+#32;
 
  t.text:=t.text+IntToStr(d.getFullYear);
 
  t.setTextFormat(f);
end.

[Paul TOTH]

Le mode "auto refresh" de l'éditeur (dans la version non officielle postée dernièrement par Paul TOTH) est épatant. Le résultat à l'écran se modifie à mesure qu'on modifie le code, de sorte qu'on peut voir tout de suite si ce qu'on a écrit est bon ou pas.

l'idée vient d'ici

[Archimède]

C'est vrai que ce mode est super sympa....on voit en direct les modifs......
Pense au copier-coller lol car ctr C et ctr V, c'est un peu pénible.
En tout cas et encore
Ne connaissant pas suffisamment les méthodes de movieclip, je galère un peu...
je regarde en ce moment actionscript pour me renseigner...

a+

[Roland Chastain]

Bonjour !

J'ai fait une page d'exemples Flash-Pascal sur mon site personnel. Je voulais réunir des exemples très simples qui puissent servir d'introduction. C'est une première version : j'espère la compléter et l'améliorer avec le temps. Suggestions bienvenues !

En revanche, je n'ai pas mis mon exemple "date du jour" (ci-dessus) parce que je me suis aperçu qu'il ne marchait pas bien. Je viens de l'essayer et j'obtiens ce résultat : "lundi 1 mars". Je ne sais pas si cela vient de mon code ou pas.

[Paul TOTH]

Bonjour !

J'ai fait une page d'exemples Flash-Pascal sur mon site personnel. Je voulais réunir des exemples très simples qui puissent servir d'introduction. C'est une première version : j'espère la compléter et l'améliorer avec le temps. Suggestions bienvenues !

En revanche, je n'ai pas mis mon exemple "date du jour" (ci-dessus) parce que je me suis aperçu qu'il ne marchait pas bien. Je viens de l'essayer et j'obtiens ce résultat : "lundi 1 mars". Je ne sais pas si cela vient de mon code ou pas.

ah super

oui il y a une petite erreur, le jour du mois c'est getDate(), getDay() c'est le jour de la semaine...que tu utilises correctement par ailleurs.

[Roland Chastain]

oui il y a une petite erreur, le jour du mois c'est getDate(), getDay() c'est le jour de la semaine...que tu utilises correctement par ailleurs.

Quel étourdi !

Merci pour la correction.

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
// version corrigée 
program DateDuJour;
 
{$FRAME_WIDTH    320}
{$FRAME_HEIGHT    32}
 
uses Flash8, Date;
 
var
  t:TextField;
  f:TextFormat;
  d:TDate;
 
begin
  t:=TextField.Create(nil,'t',0,0,0,320,32);
  f:=TextFormat.Create('Tahoma',24);
  d:=TDate.Create;
 
  case d.getDay of
    0:t.text:='Dimanche';
    1:t.text:='Lundi';
    2:t.text:='Mardi';
    3:t.text:='Mercredi';
    4:t.text:='Jeudi';
    5:t.text:='Vendredi';
    6:t.text:='Samedi';
  end;
 
  t.text:=t.text+#32;
 
  if d.getDate=1 then t.text:=t.text+'1er'
  else t.text:=t.text+IntToStr(d.getDate);
 
  t.text:=t.text+#32;
 
  case d.getMonth of
    1:t.text:=t.text+'Janvier';
    2:t.text:=t.text+'Février';
    3:t.text:=t.text+'Mars';
    4:t.text:=t.text+'Avril';
    5:t.text:=t.text+'Mai';
    6:t.text:=t.text+'Juin';
    7:t.text:=t.text+'Juillet';
    8:t.text:=t.text+'Août';
    9:t.text:=t.text+'Septembre';
    10:t.text:=t.text+'Octobre';
    11:t.text:=t.text+'Novembre';
    12:t.text:=t.text+'Décembre';
  end;
 
  t.text:=t.text+#32;
 
  t.text:=t.text+IntToStr(d.getFullYear);
 
  t.setTextFormat(f);
end.