Anniversaires

**nono42000** · 19/05/2016, 09h01

bonjour,

Suite au programme de Roland Chastain Ephémeride, j'aurais aimé compiler les informations d'un calendrier outlook en fichier .swf a partir de flash pascal.

Étant débutant j'ai pris le dossier de Roland et j'arrive à compiler le fichier "unit saint" mais il ne trouve pas "unit date".

Nom : Flashpascal.png
Affichages : 302
Taille : 23,0 Ko

Nom : Flashpascal.png
Affichages : 302
Taille : 23,0 Ko

Merci

Cdlt

Arno

**Roland Chastain** · 19/05/2016, 10h22

Bonjour ! L'unité Date provient de la version "open source" de Flash Pascal. Pour votre commodité, je la joins à mon message.

**Roland Chastain** · 19/05/2016, 10h35

Autrement, pour le travail que vous souhaitez réaliser, n'hésitez pas à demander de l'aide si besoin.

**nono42000** · 19/05/2016, 12h35

Merci roland,

je me penche dessus et je penses demander 2 ou 3 infos de plus.

Cdlt

**nono42000** · 19/05/2016, 13h09

Roland,

En changer la programmation du fichier Saint.pas et en marquant mes infos a la place cela fonctionne et j'arrive a mes fin mais j'aimerais faire la programmation correctement.

comment créer un fichier .ics et comment le transforme t on en fichier .pas(avec l'extracteur je suppose)

Merci

**Roland Chastain** · 19/05/2016, 13h33

Le fichier .ics, je ne l'ai pas fait, je l'ai trouvé tel quel et en effet j'ai écrit un programme pour extraire les données du fichier .ics et fabriquer une unité en Pascal contenant ces données.

Est-ce que vous pourriez montrer le document qui contient vos dates d'anniversaire ? Si vous voulez, je pourrai vous aider pour extraire les données.

**nono42000** · 19/05/2016, 14h35

Le soucis les dates sont rentrées avec le prénom et le nom des personnes.

je regarde pour créer un calendrier de test et vous le fait passer rapidement.

J'ai évidement essayer mon calendrier anniversaire avec votre extracteur mais cela ne fonctionne pas serais trop facile.

**nono42000** · 19/05/2016, 14h57

je fais parvenir un calendrier test.
Fichiers Outlook.zip

**Roland Chastain** · 19/05/2016, 17h05

Qu'est-ce qu'il faut extraire de ce document exactement ?

Si je comprends bien, vous voulez faire grosso modo la même chose que mon éphéméride mais à la place du saint du jour, savoir que c'est l'anniversaire d'Untel, c'est ça ? Dans le document que vous avez transmis, je vois bien des noms mais pas des dates (ou disons que je ne suis pas sûr de savoir laquelle choisir).

**nono42000** · 19/05/2016, 17h15

juste sortir le nom de la personne par rapport a la date du jour.

Je mettrais un titre en dessus de l'animation et le .swf généra la date du jour et le nom de la personne qui fête son anniversaire ce jour la si il y a personne peut être marqué un texte comme pas d'anniversaire aujourd'hui.

**Roland Chastain** · 20/05/2016, 09h59

D'accord, mais où faut-il la prendre exactement, la date ?

Code X :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
BEGIN:VEVENT
CLASS:PUBLIC
CREATED:20160519T124312Z
DTEND;TZID="Romance Standard Time":20160519T100000
DTSTAMP:20160519T124300Z
DTSTART;TZID="Romance Standard Time":20160519T090000
LAST-MODIFIED:20160519T124312Z
SEQUENCE:0
SUMMARY: roland juju
TRANSP:OPAQUE
UID:dc63d245-71d3-437a-bff2-33eb081f2a4d
X-MICROSOFT-CDO-BUSYSTATUS:BUSY
END:VEVENT

**nono42000** · 20/05/2016, 10h03

C est la date du calendrier en lui même le jour ou est placé l anniversaire !

**Roland Chastain** · 20/05/2016, 12h21

Oui, j'ai compris, mais cela ne me dit pas à quel endroit exactement cette date est écrite.

**nono42000** · 20/05/2016, 12h38

Je pensais que la date du calendrier en lui même suffisait comme info faudrait rajouter la date sous le nom de la personne a chaque anniversaire pour faciliter la compilation ?

est il judicieux pour moi de passer par un fichier .ics ou de travailler directement dans votre fichier .pas afin d'effectuer les changement des saint en anniversaires ?

**Roland Chastain** · 20/05/2016, 12h57

J'ai l'impression que nous avons du mal à nous comprendre.

Vous avez un document qui contient, sous une forme ou sous une autre, des noms de personne associés à des dates, n'est-ce pas ?

Comme les animations Flash ne peuvent pas lire des fichiers sur le disque, l'idée est de fabriquer, à partir des données contenues dans votre document, une unité en Pascal. Cela peut être fait au moyen d'un petit programme. Ce serait dommage de tout refaire à la main. Ce petit programme, je veux bien vous aider à le faire, mais il faut que je sache comment se présente le document dans lequel vos données se trouvent.

**nono42000** · 20/05/2016, 13h21

d'acc je vais partir de la base.

J'ai un calendrier en ligne sur outlook.com

a l'interieur de ce calendrier son noté les anniversaires des différentes personnes elles sont environ 80 en tout repartis sur l'année.

elles sont juste rentrée dans la case du jour choisi sur le calendrier.

j'ai ensuite exporté le calendrier en fichier .ics et je vous l'ai fait parvenir sans toucher au donner dans outlook.

Outlook dans office n’étant pas très intuitif j'ai peut être manqué une étape.

Le calendrier me semble complexe d'utilisation.

**nono42000** · 20/05/2016, 13h31

j'ai pris le calendrier nominis de 2014 comme modele j'ai enlevé certains saint et j'ai posé mes anniversaires a la place de certaines dates mais l'extracteur ne compile pas de fichiers .pas.

Est ce plus clair roland ?

**Roland Chastain** · 20/05/2016, 15h48

Au lieu de chercher à modifier le programme existant, je pense qu'il vaudrait mieux en refaire un autre.

Voici ce que je vous propose. J'ai fabriqué une unité qui se présente ainsi :

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
unit Unit1;
 
interface
 
const
  DATA: array[1..12, 1..31] of string = (
    (
      {01/01} "",
      {02/01} "",
      {03/01} "",
      {04/01} "",
      {05/01} "",
      {06/01} "",
      {07/01} "",
      {08/01} "",
      {09/01} "",
      {10/01} "",
      {11/01} "",
      {12/01} "",
      {13/01} "",
      {14/01} "",
      {15/01} "",
      {16/01} "",
      {17/01} "",
      {18/01} "",
      {19/01} "",
      {20/01} "",
      {21/01} "",
      {22/01} "",
      {23/01} "",
      {24/01} "",
      {25/01} "",
      {26/01} "",
      {27/01} "",
      {28/01} "",
      {29/01} "",
      {30/01} "",
      {31/01} ""
    ),

Vous n'avez plus qu'à ajouter les noms des personnes dont c'est l'anniversaire ce jour-là, par exemple :

Code :

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

      {20/05} "Untel",

Et voici le code du programme principal :

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
 
{Flash Pascal }
 
program Project1;
 
uses
  Date, Flash8, Unit1;
 
{$FRAME_WIDTH 720}
{$FRAME_HEIGHT 30}
{$DEFINE EMBEDFONTS}
{$IFDEF EMBEDFONTS}
{$FONT police 'Verdana'}
{$ENDIF}
 
var
  t: TextField;
  f: TextFormat;
  month, day: integer;
 
begin
  with TDate.Create do
  begin
    month := GetMonth + 1;
    day := GetDate;
  end;
 
  f := TextFormat.Create('police', 18);
  f.align := 'center';
 
  t := TextField.Create(_root, '', 1, 0, 0, Stage.Width, Stage.Height);
{$IFDEF EMBEDFONTS}
  t.embedFonts := True;
{$ENDIF}
  t.SetNewTextFormat(f);
 
  t.text := DATA[month, day];
end.

Dites-moi si c'est clair et si ça vous convient.

**nono42000** · 20/05/2016, 17h40

Merci beaucoup Roland,

c'est précisément ce qu'il me fallait je me jette sur votre code pour comprendre tout ca.

Je vais bosser un peu sur la police d’écriture maintenant.

Cdlt

Arno

**nono42000** · 20/05/2016, 17h41

merci:

Anniversaires

Flash Pascal

Discussions similaires

Partager

Partager