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
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Klaus Hier à 23:55

» KGF_dll - nouvelles versions
par pascal10000 Hier à 17:27

» Mah-Jong européen new-look
par Minibug Mar 12 Déc 2017 - 22:31

» track_bar circulaire
par Klaus Mar 12 Déc 2017 - 13:54

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Horoscope

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

avatar

Nombre de messages : 1626
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 : 1626
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 : 6018
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: