Utilisation de l'unité Date

Version imprimable

1 pièce(s) jointe(s)

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:

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.

12/04/2012, 12h20
Paul TOTH

Citation:

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
12/04/2012, 18h34
Archimède

Citation:

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 :ccool: et encore :ccool:
Ne connaissant pas suffisamment les méthodes de movieclip, je galère un peu...
je regarde en ce moment actionscript pour me renseigner...

a+
23/04/2012, 09h18
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.
23/04/2012, 10h04
Paul TOTH

Citation:

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.

Citation:

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.

:ccool:

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
// 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.

Salut,

Juste une petite remarque.
Pourquoi ne pas faire comme ceci (histoire d'économiser 2 lignes et 2 instructions, :mrgreen:) :
Citation:
Envoyé par Roland Chastain
Code:

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 ! :P
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.

27/04/2012, 22h05
Roland Chastain

Citation:

Envoyé par Jipété

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

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.

Citation:

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 ! :P
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. :ccool:
28/04/2012, 00h07
M.Dlb

Citation:

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" ;)
28/04/2012, 01h00
Roland Chastain

Citation:

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 ! :)

1 pièce(s) jointe(s)

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

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
{ 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.

22/02/2013, 06h15
Paul TOTH

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)

Citation:

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:

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

Citation:

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. :)

23/02/2013, 19h45
Roland Chastain

2 pièce(s) jointe(s)

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.
26/10/2013, 11h54
joreveur

Citation:

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
26/10/2013, 13h26
Roland Chastain

Citation:

Envoyé par joreveur

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

L'unité Date est incluse dans FlashPascal 0.8.
26/10/2013, 14h27
joreveur

donc ça ne marche pas avec flashpascal2 ?
26/10/2013, 14h39
Roland Chastain

Citation:

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.
26/10/2013, 15h27
joreveur

merci,
donc il faut récupérer l'unité Date du 1er si j'ai bien compris
26/10/2013, 17h09
Paul TOTH

Citation:

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.
26/10/2013, 17h48
Roland Chastain

Citation:

Envoyé par joreveur

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

Oui, c'est ça.