Utilisation de l'unité Date

**Roland Chastain** · 12/04/2012, 11h45

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** · 12/04/2012, 12h20

Envoyé par Roland Chastain

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** · 12/04/2012, 18h34

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** · 23/04/2012, 09h18

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** · 23/04/2012, 10h04

Envoyé par 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.

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** · 23/04/2012, 10h47

Envoyé par Paul TOTH

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.

**Jipété** · 27/04/2012, 11h28

Salut,

Juste une petite remarque.
Pourquoi ne pas faire comme ceci (histoire d'économiser 2 lignes et 2 instructions,

) :

Envoyé par Roland Chastain

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
...
//  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 ';
  ...
  end;
 
//  t.text:=t.text+#32;
...

Au passage, je me permets de préciser que les noms de mois, en français, sont des noms communs, donc si tu veux afficher "Vendredi 27 avril 2012", ben y a pas de majuscule au mois !
Si si !

Idem pour les noms de jours, mais ça va être plus compliqué à gérer, selon que la date est en début de phrase, ou au milieu.

**Roland Chastain** · 27/04/2012, 22h05

Envoyé par Jipété

Juste une petite remarque.
Pourquoi ne pas faire comme ceci (histoire d'économiser 2 lignes et 2 instructions,

) :

Merci pour le coup d'œil et la remarque, même "petite".

Je pense que tu as raison mais personnellement je n'aime pas mettre des espaces dans les chaînes.

Envoyé par Jipété

Au passage, je me permets de préciser que les noms de mois, en français, sont des noms communs, donc si tu veux afficher "Vendredi 27 avril 2012", ben y a pas de majuscule au mois !
Si si !

Idem pour les noms de jours, mais ça va être plus compliqué à gérer, selon que la date est en début de phrase, ou au milieu.

Bien vu ! En effet c'est une faute. Je ferai la correction.

**M.Dlb** · 28/04/2012, 00h07

Envoyé par Roland Chastain

Je pense que tu as raison mais personnellement je n'aime pas mettre des espaces dans les chaînes.

Hello,

Juste pour rajouter mon grain de sel

La proposition était plutôt intéressante à mon goût: dans le but de faire du code générique, compréhensible, portable (PS: oui je suis d'accord c'est que pour du Flash Pascal mais quand même !!) et "relisable" par n'importe qui, il vaut mieux je pense écrire text := text + ' ', au lieu de text := text + #32.

Car tout le monde n'est pas au courant de cette écriture, de plus le code ASCII pour l'espace est bien 32, mais qui dit que ca ne changera pas un jour ! Le passage de ton code dans un autre jeu de caractère risque de ne plus le faire fonctionner correctement... De manière générale, éviter le codage avec des "nombres magiques"

**Roland Chastain** · 28/04/2012, 01h00

Envoyé par wormful_sickfoot

Hello,

Juste pour rajouter mon grain de sel

La proposition était plutôt intéressante à mon goût: dans le but de faire du code générique, compréhensible, portable (PS: oui je suis d'accord c'est que pour du Flash Pascal mais quand même !!) et "relisable" par n'importe qui, il vaut mieux je pense écrire text := text + ' ', au lieu de text := text + #32.

Je me rends !

**Roland Chastain** · 21/02/2013, 19h19

Voici une version améliorée de cet exemple.

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
{ Heure.fpr
  Exemple FlashPascal par R. Chastain
  Utilise l'unité Date :
  http://sourceforge.net/projects/flashpascal/
  FlashPascal 2 v13.01.02 :
  http://flashpascal.execute.re/ }
 
program Heure;
 
uses
  Date, Flash8;
 
{$FRAME_WIDTH 420}
{$FRAME_HEIGHT 594}
{$BACKGROUND $F5F5DC}{ Beige }
 
const
  NOM_JOUR: array of string = ('dimanche', 'lundi', 'mardi', 'mercredi',
    'jeudi', 'vendredi', 'samedi');
  NOM_MOIS: array of string = ('janvier', "février", 'mars', 'avril', 'mai',
    'juin', 'juillet', "août", 'septembre', 'octobre', 'novembre',
    "décembre");
 
var
  t: TextField;
  f: TextFormat;
  d: TDate;  
 
begin
  d := TDate.Create;
  f := TextFormat.Create('Courier', 16);
  t := TextField.Create(nil, 't', 0, 10, 10, 400, 574);
  t.setNewTextFormat(f);
  t.text := 'd.getDay='+IntToStr(d.getDay)+#13
          + 'd.getDate='+IntToStr(d.getDate)+#13
          + 'd.getMonth='+IntToStr(d.getMonth)+#13
          + 'd.getFullYear='+IntToStr(d.GetFullYear)+#13
          + 'd.getHours='+IntToStr(d.getHours)+#13
          + 'd.getMinutes='+IntToStr(d.getMinutes)+#13
          + 'd.getSeconds='+IntToStr(d.GetSeconds)+#13
          + 'd.getUTCDay='+IntToStr(d.getUTCDay)+#13
          + 'd.getUTCDate='+IntToStr(d.getUTCDate)+#13
          + 'd.getUTCMonth='+IntToStr(d.getUTCMonth)+#13
          + 'd.getUTCFullYear='+IntToStr(d.GetUTCFullYear)+#13
          + 'd.getUTCHours='+IntToStr(d.getUTCHours)+#13
          + 'd.getUTCMinutes='+IntToStr(d.getUTCMinutes)+#13
          + 'd.getUTCSeconds='+IntToStr(d.GetUTCSeconds)+#13
          + 'NOM_JOUR[d.getDay]='+'"'+NOM_JOUR[d.getDay]+'"'+#13
          + 'NOM_MOIS[d.getMonth]='+'"'+NOM_MOIS[d.getMonth]+'"';
  stage.scaleMode := 'noScale';
end.

J'ai travaillé aussi sur la façon d'insérer l'objet Flash dans une page HTML.

**Paul TOTH** · 22/02/2013, 06h15

tu sais que dans FlashPascal il y a un menu "Edition/Code HTML" qui te donne le code HTML nécessaire ?

Attention, l'option ne fonctionne qu'après compilation du projet (car c'est à la compilation que sont déterminées les dimensions de l'animation avec $FRAME_WIDTH et $FRAME_HEIGHT...l'IDE n'est pas encore assez intelligent pour les retrouver hors compilation)

**Roland Chastain** · 22/02/2013, 09h32

Envoyé par Paul TOTH

tu sais que dans FlashPascal il y a un menu "Edition/Code HTML" qui te donne le code HTML nécessaire ?

Oui, je connais cette fonction et d'ailleurs je l'ai utilisée pour faire les exemples ci-dessus. J'ai seulement rajouté à la main une table avec un titre :

Code html :

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

1
2
3
4
5
6
7
 
<table bgcolor="#FFFFFF" border="1">
  <caption style="font-family:courier;font-size:12px;text-align:center;">FlashPascal - Démonstration de l'unité Date</caption>
  <tr>
    <td><embed type="application/x-shockwave-flash" src="Heure.swf" width="420" height="594"/></td>
  </tr>
</table>

J'aime bien l'idée de la table. On pourrait faire une table avec un objet différent dans chaque cellule.

Soit dit en passant, je suis tombé sur un outil qui m'a paru intéressant mais je ne l'ai pas encore essayé.

Envoyé par Paul TOTH

Attention, l'option ne fonctionne qu'après compilation du projet (car c'est à la compilation que sont déterminées les dimensions de l'animation avec $FRAME_WIDTH et $FRAME_HEIGHT...l'IDE n'est pas encore assez intelligent pour les retrouver hors compilation)

Merci pour l'information.

**Roland Chastain** · 23/02/2013, 19h45

Merci à Alcatîz pour la retouche.

J'ai travaillé encore un peu sur le sujet. J'en ai profité pour réviser les propriétés de la classe TextField.

**joreveur** · 26/10/2013, 11h54

Envoyé par Roland Chastain

Merci à Alcatîz pour la retouche.

J'ai travaillé encore un peu sur le sujet. J'en ai profité pour réviser les propriétés de la classe TextField.

bonjour
je ne trouve pas l'unité date dans le le zip.
merci

**Roland Chastain** · 26/10/2013, 13h26

Envoyé par joreveur

je ne trouve pas l'unité date dans le zip

L'unité Date est incluse dans FlashPascal 0.8.

**joreveur** · 26/10/2013, 14h27

donc ça ne marche pas avec flashpascal2 ?

**Roland Chastain** · 26/10/2013, 14h39

Envoyé par joreveur

donc ça ne marche pas avec flashpascal2 ?

Si, ça marche avec FlashPascal 2. Tous les exemples postés dans ce forum marchent avec FlashPascal 2, et même probablement ne marchent qu'avec FlashPascal 2. Cela est vrai aussi pour les exemples de cette discussion : ils sont écrits pour FlashPascal 2, mais utilisent une unité du premier FlashPascal.

**joreveur** · 26/10/2013, 15h27

merci,
donc il faut récupérer l'unité Date du 1er si j'ai bien compris

**Paul TOTH** · 26/10/2013, 17h09

Envoyé par joreveur

merci,
donc il faut récupérer l'unité Date du 1er si j'ai bien compris

pour la petite histoire, il y a quelque temps, Peter Gabor m'a demandé de rejoindre le projet OpenSource sur SF...il a publié différentes unités pour compléter Flash8.pas, je n'ai pas repris son travail dans FlashPascal2.

Bien que l'unité Flash8.pas de FP2 soit plus complète, elle ne reprend pas toutes les classes disponibles sous Flash.

Les unités de FlashPascal OpenSource sont probablement compatible avec FP2, le principe étant avant tout de déclarer des classes externes.

NB: la version OpenSource ne connait ni les Variants, ni les Objets dynamiques et la gestion des évènements a été aussi totalement revisitée.

Utilisation de l'unité Date [Flash Pascal]

Flash Pascal

Discussions similaires

Partager

Partager