FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» I Love You
par papydall Aujourd'hui à 1:15

» mise a jour calculatrice
par joeeee2017 Aujourd'hui à 1:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Hier à 18:49

» [solved] 3D_LINE How to ?
par papydall Hier à 6:51

» supprimé
par joeeee2017 Dim 15 Oct 2017 - 20:02

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» supprimé
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Horoscope

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
jjn4

avatar

Nombre de messages : 1601
Date d'inscription : 13/09/2009

MessageSujet: Horoscope   Sam 17 Juil 2010 - 23:17

Finalement, je ne devrais pas le mettre dans les inutilitaires,
parce qu'il va être très-très utile !

En effet, il va devenir indipensable à tous ceux (et ils sont nombreux)
dont l'épouse n'arrête pas de consulter une voyante extra-lucide
pour se faire prédire des recommandations chaque semaine,
grévant ainsi dangeureusement le budget familial.

Alors, offrez-lui d'utiliser ce programme aussi souvent qu'elle le veut, il est gratuit.
Et précisez-lui bien que les voyantes extra-lucides ne font pas mieux
(pire, peut-être, mais sûrement pas mieux !)
Comme ça, vous allez pouvoir finir le mois sans être dans le rouge.
Vous voyez bien que c'est utile !

Alors, bonne semaine !

P.S.: c'est basé sur l'oracle de Delphes que j'ai retrouvé et mis sur Internet.
Je vous ferai un programme, un de ces quatre, qui vous permettra de le consulter en ligne...
lol!
Code:
rem ' Horoscope
dim a$ , b$ , i$ , c , i , nb , h , j$(7) , p$(100) , v(100)
label horoscope , chiffre , quitter , fin , bis , imprime
data "LUNDI........." , "MARDI........" , "MERCREDI" , "JEUDI........."
data "VENDREDI" , "SAMEDI......" , "DIMANCHE"
data "Un avenir brillant se prépare pour vous" , "Une rencontre est prévue..."
data "Des obstacles matériels vont survenir" , "Un bonheur prochain se prépare"
data "Vos espérances vont être récompensées" , "votre désir va être contrarié"
data "Vous allez atteindre vos objectifs" , "Des périls imminents vous guettent"
data "Vous allez connaître des succès flatteurs" , "La Lune vous sera propice"
data "Vénus est complice de votre séduction" , "Faites attention aux brunes..."
data "Vous allez connaître des revers déplaisants" , "Gare aux accidents"
data "Vous allez connaître des déconvenues accablantes" , "La maladie rôde"
data "Un problème avec une femme va survenir" , "Evitez de sortir de chez vous"
data "Attention, la grippe n'est pas loin" , "Les astres vous sont favorables"
data "Vous allez avoir des rapports sociaux difficiles"
data "Vous allez devoir mener des négociations délicates"
data "Une orientation nouvelle de votre vie se prépare"
data "Vous allez connaître momentanément une période dépressive"
data "Des risques inquiétants vont se présenter à vous"
data "Vous allez connaître une crise professionnelle grave"
data "Vous allez recevoir des propositions intéressantes"
data "Vous allez rencontrer des conflits avec votre entourage"
data "Vous allez être confronté à une promesse non tenue"
data "Vous allez vous retrouver en rivalité avec un voisin"
data "Vous allez vous retrouver en rivalité avec une voisine"
data "De vives déceptions vont se présenter à vous"
data "Vous allez rencontrer un climat affectif agréable"
data "Vous allez rencontrer des difficultés soudaines"
data "Vous allez vous retrouver dans une situation compliquée"
data "Vous allez vivre une aventure sentimentale exceptionnelle"
data "Une mise en relief de votre sensualité va vous être permise"
data "Vous allez avoir une nouvelle conscience des objectifs de votre carrière"
data "Des démêlés vont vous faire acquérir un regard plus lucide sur vous-même"
data "Des choix affectifs douloureux vous attendent"
data "Vous allez connaître des relations de coeur délicieuses"
data "Vous allez faire un véritable coup d'éclat"
data "Vous allez éprouver un chagrin difficile à supporter"
data "Faites bien attention, il y a un risque dans vos relations"
data "Un renforcement de votre équilibre personnel va vous être permis"
data "Une mise à l'épreuve de votre amour-propre vous guette"
data "Vous allez faire une rencontre exceptionnelle"
data "Attention, une rencontre possible, quoique incertaine, pourrait arriver"
data "Ce sera une journée difficile sur le plan sentimental"
data "Ce sera le début d'une nouvelle grande amitié"
data "Cela va être la fin inattendue d'une vieille relation"
data "Possibilité d'un grand changement dans votre vie"
data "Vous allez être obligé de faire un choix difficile, côté coeur"
data "Vous allez avoir un mauvais moment à passer"
data "Ne manquez pas de profiter des possibilités de voyage que la vie vous offre"
data "Des problèmes vont survenir avec la personne de votre coeur"
data "Une nouvelle rencontre attend de croiser votre chemin"
data "Soyez prudent et évitez les ennuis inutiles"
data "Vous avez la bénédiction de Jupiter"
data "C'est un moment idéal pour faire du sport"
data "Vous allez montrer une fougue et un punch impressionnants"
data "Profitez des occasions, mais faites attention quand même"
data "Evitez de monter en voiture ce jour-là"
data "Votre déprime passagère va disparaître"
data "Vous allez tenir une forme du tonnerre"
data "Mobilisez votre énergie, un espoir de promotion s'annonce"
data "Essayez de communiquer davantage avec vos collègues"
data "Vous avez avoir de la chance dans vos rencontres"
data "En cette semaine houleuse, vous allez tirer votre épingle du jeu"
data "Soyez attentif, des problèmes inattendus pourraient vous gêner"
data "Evitez les éclats inutiles qui pourraient vous nuire"
data "Vous allez avoir de la chance dans vos démarches administratives"
data "Un changement bénéfique important se prépare dans votre vie quotidienne"
data "Une occasion incroyable va se présenter à vous"
data "Surtout, ne prenez aucun risque actuellement"
data "Vous allez avoir des contacts avec l'étranger..."
data "Soignez votre look, un changement de perspectives reste possible..."
data "Ne ruminez pas vos échecs, soyez positif"
data "Mars vous favorise, soyez entreprenant"
data "Vous allez faire une rencontre utile pour votre carrière"
data "Restez calme devant les problèmes apparemment insolubles"
data "N'hésitez pas à prendre le taureau par les cornes..."
data "Vous allez avoir des problèmes avec une blonde..."
data "Fin"
for i=1 to 7 : read j$(i) : next i
repeat
 nb=nb+1
 read p$(nb)
until p$(nb)="Fin"
nb=nb-1

left 0,100 : top 0,60 : width 0,820 : height 0,500
caption 0,"  V O T R E  H O R O S C O P E    D E  L A  S E M A I N E"
alpha 1
left 1,20 : top 1,30 : font_bold 1 : font_size 1,30
a$="        HOROSCOPE DE LA SEMAINE"+chr$(13)
a$=a$+"en coopération avec l'oracle de Delphes"
caption 1,a$

button 2
left 2,40 : top 2,165 : width 2,240
caption 2,"Consulter votre horoscope de la semaine"
on_click 2,horoscope
button 3
left 3,300 : top 3,165 : width 3,280
caption 3,"Connaître votre chiffre porte-bonheur de la semaine"
on_click 3,chiffre
button 4
left 4,600 : top 4,165 : width 4,145
caption 4,"Quitter ce programme"
on_click 4,quitter

alpha 5
left 5,30 : top 5,220 : font_size 5,14 : font_color 5,255,0,0
for i=6 to 12
 alpha i                  : alpha i+12
 left i,30                : left i+12,145
 top i,25*(i-5)+240      : top i+12,25*(i-5)+240
 font_size i,12          : font_size i+12,12
 font_color i,200,0,255  : font_color i+12,0,0,255
next i
alpha 25
left 25,690 : top 25,250 :font_color 25,255,0,0
alpha 26
left 26,700 : top 26,280 : font_color 26,0,0,255 : font_bold 26
alpha 27
left 27,17 : top 27,17 : width 27,66 : height 27,66
color 27,255,0,0 : hide 27
button 28
left 28,20 : top 28,20 : width 28,60 : height 28,60
caption 28,"Imprimer" : hide 28 : on_click 28,imprime

end

horoscope:
caption 5,""
for i=6 to 12 : caption i,"" : caption i+12,"" : next i
a$=message_input$("Question :","Quels sont vos nom et prénom ?","")
if a$="" then goto fin
b$=message_input$("Question :","Quelle est votre date de naissance ?","")
if b$="" then goto fin
i$="Interrogation des Oracles sur le thème dominant de votre vie"
i$=i$+chr$(13)+"pour chacun des jours de la semaine en cours....."
beep : message i$
file_open_write 1,"Horoscop.txt"
 file_writeln 1,"Le : "+date$ : file_writeln 1,""
 caption 5,"Prédictions divinatoires pour "+a$+" né le "+b$
 file_writeln 1,"Prédictions divinatoires pour "+a$+" né le "+b$+" :"
 file_writeln 1,""
 for i=6 to 12
bis:
  h=int(rnd(nb))+1
  if v(h)=1 then goto bis
  v(h)=1
  caption i,j$(i-5)+" ="  : caption i+12,p$(h)
  file_writeln 1,j$(i-5)+" =  "+p$(h)
 next i
 if c>0
  file_writeln 1,""
  file_writeln 1,"Votre chiffre porte-bonheur : le "+str$(c)
 end_if
file_close 1
show 27 : show 28
off_click 2
fin:
return

chiffre:
caption 25,"Votre chiffre"+chr$(13)+"porte-bonheur :"
c=int(rnd(9))+1
caption 26,"Le "+str$(c)
if h>0
 file_open_append 1,"Horoscop.txt"
  file_writeln 1,""
  file_writeln 1,"Votre chiffre porte-bonheur : le "+str$(c)
 file_close 1
end_if
off_click 3
return

imprime:
i$="Vous avez demandé à imprimer les prédictions de la semaine."
i$=i$+chr$(13)+"Confirmez-vous votre demande ?"
i=message_confirmation_yes_no(i$)
if i=1
 execute_wait "write.exe /p Horoscop.txt"
 message "Impression en cours..."
end_if
return

quitter:
terminate
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
jjn4

avatar

Nombre de messages : 1601
Date d'inscription : 13/09/2009

MessageSujet: +++   Sam 17 Juil 2010 - 23:23

Comme ça, JL35, Jean Claude (et plein d'autres)
vont pouvoir faire des tas d'économie...
Laughing

Et demain, une nouvelle histoire drôle va être publiée sur mon site...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
JL35



Nombre de messages : 5952
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Horoscope   Dim 18 Juil 2010 - 1:05

Je n'ai pas encore essayé (il est temps de Sleep ), mais moi au moins je maîtrise mes dépenses (et mon épouse par la même occasion... euh, je vérifie qu'elle n'est pas derrière en train de zyeuter...).
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Horoscope   

Revenir en haut Aller en bas
 
Horoscope
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» HOROSCOPE DU JOUR 20/04/11
» .Horoscope du jour
» Horoscope

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les inutilitaires-
Sauter vers: