Horoscope gaulois
Description
Voici un programme assez simple que j'ai tout d'abord écrit en Turbo Pascal puis traduit en Delphi6, ce programme nous indique sous quel arbre nous sommes né ( selon les croyances Celtes-Gauloises )et les qualités qui en découlent, il peut être amélioré par exemple si quelq'un sait inclure les images de l'interface dans un .res a voir...
Je n'ai pas pu inclure les images des arbres dans le ZIP à cause de la limitation à 1 Mo mais vous pouvez mettre les votres ou aller sur ce lien qui contient l'archive complète.
http://www.cijoint.fr/cjlink.php?file=cj200911/cijbhThpMs.zip
Zip modifié et déposé par Cirec
Je n'ai pas pu inclure les images des arbres dans le ZIP à cause de la limitation à 1 Mo mais vous pouvez mettre les votres ou aller sur ce lien qui contient l'archive complète.
http://www.cijoint.fr/cjlink.php?file=cj200911/cijbhThpMs.zip
Source / Exemple :
unit GAULOIS; // Version 2.0 (delphi6) by mic-josi@orange.fr 12-2009
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, jpeg;
type
TForm1 = class(TForm)
NomFamille: TEdit;
Jour: TEdit;
Mois: TEdit;
Label1: TLabel;
Button1: TButton;
Image1: TImage;
Label2: TLabel;
Memo1: TMemo;
Label3: TLabel;
Image2: TImage;
JourN: TEdit;
UpDown1: TUpDown;
MoisN: TEdit;
UpDown2: TUpDown;
PieceGauloise1: TImage;
PieceGauloise: TImage;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
J,M,Jour,Mois : Byte;
Arbre : String [2];
implementation
{$R *.dfm}
Procedure Test(J,M:Byte); // sous quel arbre es-tu né(e) ?
Begin
Jour := J;
Mois := M;
If
(Jour = 21) and (Mois = 3) then Arbre := '1'; //chêne
If
(Jour = 23) and (mois = 9) then Arbre := '2'; //Olivier
If
(Jour = 24) and (mois = 6) Then Arbre := '3'; //Bouleau
If
(Jour = 22) and (Mois = 12) then Arbre := '4'; //Hêtre;
If
(Mois = 05) and (Jour >=1) and (Jour <=14) or (Mois = 02) and (Jour >=4)
and (Jour <=8) or (Mois =08) and (Jour >=5) and (Jour <=13)
then Arbre := '5'; //Peuplier
If
(Mois = 11) and (Jour >=3) and (Jour <=11)
then Arbre := '6'; //If
If
(Mois = 1) and (Jour >=2) and (Jour <=11) or (Mois = 7) and (Jour >=5)
and (Jour <=14)
then Arbre := '7'; //Sapin
If
(Mois = 1) and (Jour >=12) and (Jour <=24) or (Mois = 7) and (Jour >=15)
and (Jour <=25)
then Arbre := '8'; //Orme
If
(Mois = 1) and (Jour >=25) and (Jour <=31) or (Mois = 2) and (Jour >=1)
and (Jour <=3) or (Mois = 7) and (Jour >=26) and (Jour <= 31) or (Mois = 8)
and (Jour >= 1) and (Jour <=4)
then Arbre := '9'; //Cyprès
If
(Mois = 2) and (Jour >=9) and (Jour <=18) or (Mois = 8) and (Jour >=14)
and (Jour <=23)
then Arbre := '10'; //Cèdre
If
(Mois = 2) and (Jour >=19) and (Jour <=29) or (Mois = 8) and (Jour >=24)
and (Jour <=31) or (Mois = 9) and (Jour >=1) and (Jour <= 2)
then Arbre := '11'; //Pin
If
(Mois = 3) and (Jour >=1) and (Jour <=10) or (Mois = 9) and (Jour >=3)
and (Jour <=12)
then Arbre := '12'; //Saule
If
(Mois = 3) and (Jour >=11) and (Jour <=20) or (Mois = 9) and (Jour >=13)
and (Jour <=22)
then Arbre := '13'; // Tilleul
If
(Mois = 3) and (Jour >=22) and (Jour <=31) or (Mois = 9) and (Jour >=24)
and (Jour <=30) or (Mois = 10) and (Jour >=1) and (Jour <= 3)
then Arbre := '14'; //Noisetier
If
(Mois = 4) and (Jour >=1) and (Jour <=10) or (Mois = 10) and (Jour >=4)
and (Jour <=13)
then Arbre := '15'; //Sorbier
If
(Mois = 4) and (Jour >=11) and (Jour <=20) or (Mois = 10) and (Jour >=14)
and (Jour <=23)
then Arbre := '16'; //Erable
If
(Mois = 4) and (Jour >=21) and (Jour <=30) or (Mois = 10) and (Jour >=24)
and (Jour <=31) or (Mois = 11) and (Jour >=1) and (Jour <= 2)
then Arbre := '17'; //Noyer
If
(Mois = 5) and (Jour >=15) and (Jour <=24) or (Mois = 11) and (Jour >=12)
and (Jour <=21)
then Arbre := '18'; //Marronnier
If
(Mois = 5) and (Jour >=25) and (Jour <=31) or (Mois = 6) and (Jour >=1)
and (Jour <=3) or (Mois = 11) and (Jour >=22) and (Jour <= 30)
or (Mois = 12) and (Jour = 1)
then Arbre := '19'; //Frêne;
If
(Mois = 6) and (Jour >=4) and (Jour <=13) or (Mois = 12) and (Jour >=2)
and (Jour <=11)
then Arbre := '20'; //Charme
If
(Mois = 6) and (Jour >=14) and (Jour <=23) or (Mois = 12) and (Jour >=12)
and (Jour <=21)
then Arbre := '21'; //Figuier
If
(Mois = 6) and (Jour >=25) and (Jour <=30) or (Mois = 7) and (Jour >=1)
and (Jour <=4) or (Mois = 12) and (Jour >=23) and (Jour <= 31)
or (Mois = 1) and (Jour = 1)
then Arbre := '22'; //Pommier
End;
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
Sgn : Byte;
F: TextFile;
ligne, image, chemin: string;
begin
J := StrToInt(JourN.Text); // jour du TEdit dans J
M := StrToInt(MoisN.Text); // mois du TEdit dans M
Test(J,M); // recherche de l'arbre
i := 0;
ligne :=('..\gaulois\Signe.txt'); {Chemin ou trouver les textes}
AssignFile(F,ligne);
Reset(F); {Ouverture du fichier en lecture}
begin
memo1.Clear; {Efface le Mémo}
//for i := 1 to 60 do begin
While not eof(f) do begin
Readln(F, ligne); // Lit la première ligne du fichier
if ligne = Arbre then //est-ce le bon signe ?
for j := 1 to 10 do begin // oui on envoie la lecture
Readln(F, ligne); // lit j lignes dans le fichier
memo1.Lines.add(ligne); // ajoute les j lignes au memo
end;
end;
// memo1.Lines.add(JourN.Text + ' ' + MoisN.Text + ' ' + Arbre);
CloseFile(F);
end;
Sgn := StrToInt(Arbre);
Case Sgn of // Les arbres de ton signe
1 : image := 'Chêne.jpg';
2 : image := 'Olivier.jpg';
3 : image := 'Bouleau.jpg';
4 : image := 'Hêtre.jpg';
5 : image := 'Peuplier.jpg';
6 : image := 'if.jpg';
7 : image := 'Sapin.jpg';
8 : image := 'Orme.jpg';
9 : image := 'Cyprès.jpg';
10 : image := 'Cèdre.jpg';
11 : image := 'Pin.jpg';
12 : image := 'Saule.jpg';
13 : image := 'Tilleul.jpg';
14 : image := 'Noisetier.jpg';
15 : image := 'Sorbier.jpg';
16 : image := 'Erable.jpg';
17 : image := 'Noyer.jpg';
18 : image := 'Marronier.jpg';
19 : image := 'Frêne.jpg';
20 : image := 'Charme.jpg';
21 : image := 'Figuier.jpg';
22 : image := 'Pommier.jpg';
end;
chemin := ('..\Gaulois\ArbresGaulois\'); // chemin des photos
Image2.Picture.LoadFromFile(chemin + image);
end;
end.
// voici le fichier commentaires Signe.txt
1
Vous êtes du signe du chêne,
symbole de la force vitale;
l'opposition vous incite à vous
battre et vos oeuvres vous
survivront comme le chêne passe
les siècles,vous manquez un peu
d'indulgence envers vous-même
et envers les autres.
2
Vous êtes du signe de l'Olivier,
symbole de paix et de fécondité;
vous êtes tolérant à l'extrême et
ne pouvez pas vous passer de l'amour
des autres, vous avez l'esprit lucide
épris de fraternité et totalement
désintéressé, vous êtes un modèle
à suivre.
3
Vous êtes du signe du Bouleau,
symbole du raffinement et de la
créativité;
vous êtes plus capable de réaliser
les rêves d'autrui que les vôtres,
vous avez le sens communautaire et
une confiance dans les autres persuadé
qu'ils vous rendrons la monnaie de votre
pièce.
4
Vous êtes du signe du Hêtre,
symbole de l'éloquence;
vous savez maîtriser le temps
et son humeur, vous venez à bout
de vos projets,vous êtes un conjoint
prévenant et rassurant,
vous êtes très apprécié.
5
Vous êtes du signe du Peuplier,
symbole de l'action au bon moment;
Vous savez vivre au sein de l'incertitude
et de l'insécurité,votre grand défaut
est l'avarice,lorsque l'entourage est amical,
vous vous ouvrez s'il est froid, vous vous
retirez dans votre coquille.
6
Vous êtes du signe de l'If,
symbole de la mort;
vous vous demandez si vous êtes bien
à votre place,à cause de cela,
vous changez de métier ou d'entourage
vous vivez plus que les autres le devenir
et le mourir.
7
Vous êtes du signe du Sapin,
symbole de l'austérité;
vous êtes très réservé et vous vous
cachez derrière un masque de
conventions, mais une fois le masque
bas,vous êtes un ami très sûr.
8
Vous êtes du signe de l'Orme,
symbole de la beauté;
vous inspirez le désir,trop moraliste
et conformiste pour en profiter,sincère
et franc,vous faites confiance à la nature
humaine,vous en serez un peu déçu,mais vous
avez du courage et de l'humour.
9
Vous êtes du signe du Cyprès,
symbole de la discrétion et de
la tolérance; vous faites passer
le bien-être des autres avant le
vôtre; Profond et délicat,vous
avez le culte de l'amitié et savez
parfaitement vous faire aimer.
10
Vous êtes du signe du cèdre,
symbole de la grandeur morale;
Vous êtes éveillé� réfléchi et
serin,les échecs n'entament
en rien votre sérénité,vous
songez rarement à votre propre
intérêt, votre force intérieure
vous permet d'occuper des postes
de commandement.
11
Vous êtes du signe du Pin,
symbole de la perfection de
la sagesse, de l'ordonnance
avisée des plaisirs et des devoirs;
amant impulsif et insatiable,
la fièvre amoureuse vous est absolument
indispensable.
12
Vous êtes du signe du Saule,
symbole du tempérament artiste;
le rêve a pour vous plus d'importance
que la raison analytique mais vous
gardez l'esprit pratique vous concrétisez
souvent les grands rêves humains mais vous
n'aimez pas commander.
13
Vous êtes du signe du Tilleul,
symbole de l'amitié et de la
compassion;
vous n'hésitez pas à mentir pour
rassurer,vous avez besoin d'une
grande sécurité et vous obligez
à cacher vos états d'âme,vous vous
demandez souvent pourquoi vos rêves
sont plus beaux que la réalité,
les succès mondains vous plaisent.
14
Vous êtes du signe du Noisetier
symbole de la volupté et de la
fécondité;
discret jusqu'à cultiver le mystère,
vous vous enflammez vite mais ça
ne dure pas vous avez une âme
de pionnier mais la concurrence
vous épuise, mûrissez vos projets!.
15
Vous êtes du signe du Sorbier,
symbole de l'embellissement;
vous rêvez d'embellir le monde,
vous affectionnez les relations
humaines et en vieillissant vous
vous mettez au service des autres,
vous savez cependant être indépendant.
16
Vous êtes du signe de l'Erable
symbole de l'esprit de famille;
ce qui ne vous empêche pas d'avoir
l'esprit de conquête, d'une grande
indépendance d'esprit,vous avez pourtant
besoin d'être reconnu par la société
à laquelle vous vous sentez attaché.
17
Vous êtes du signe du Noyer
symbole de la joie de vivre;
votre persévérance ne connait
pas de limites quand vous désirez
quelque chose,quand vous aimez,
c'est pour toujours,vous croyez
à la puissance de l'inconscient.
18
Vous êtes du signe du Marronnier,
Symbole de la beauté et de la vigueur;
vous avez du mal à vous considérer
comme une personne de qualité;
souvent emporté et craintif vous avez
soif de justice et d'équité;
vous êtes souvent de bon conseil.
19
Vous êtes du signe du Frêne,
symbole de la volonté;
vous exercez une influence bénéfique
sur votre entourage,égoïste mais généreux
vous avez le goût du bonheur et vivre
avec vous, est en fait une aventure très
féconde.
20
Vous êtes du signe du Charme,
symbole du sens du devoir;
courageux,vous êtes aussi d'une
grande délicatesse,l'harmonisation
des contraires vous tient à coeur
vous avez un sens profond de la justice,
on peut toujours compter sur vous.
21
Vous êtes du signe du Figuier,
symbole de l'abondance;
plus fragile qu'il n'y paraît,
vous avez le goût et le sens
de la famille, vous êtes prêt
à faire de nombreuse concessions
pour obtenir la stabilité car
vous vous sentez submergé par
la diversité de l''existence.
22
Vous êtes du signe du Pommier,
symbole de générosité;
trop pêcheur pour mériter le ciel,
mais invulnérable à l'enfer,
très tolérant, amoureux de l'instant
et sentimental incurable,vous aimez
les comportements mesurés.
// et le fichier Gaulois.dfm
dans le Zip
Conclusion :
Zip modifié et déposé par Cirec
Codes Sources
A voir également
- Horoscope gaulois
- Alouette horoscope ✓ - Forum Visual Basic 6
- Horoscope chinois calcul - Forum Java
- Xoops modules horoscope - Forum PHP
- Horoscope surlendemain - Forum PHP
- Horoscope rdl ✓ - Forum C# / .NET
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.