Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

fichiers  

Derniers sujets
» Useful Dog
Ven 6 Avr - 14:25 par Papydall-Admin

» Les Courbes de Bézier cubiques
Ven 30 Mar - 4:08 par Papydall-Admin

» Animation flash
Mer 14 Mar - 2:50 par Papydall-Admin

» Mega-Strip
Lun 12 Mar - 1:24 par Papydall-Admin

» Les oiseaux de mon jardin
Ven 9 Mar - 1:08 par Papydall-Admin

»  Création et gestion d’un livre
Jeu 8 Mar - 15:37 par Papydall-Admin

» Deux questions d’éthique
Mar 6 Mar - 1:56 par Papydall-Admin

»  La Blague Du Jour
Lun 5 Mar - 2:50 par Papydall-Admin

» Branle-Fesse
Lun 5 Mar - 2:46 par Papydall-Admin

Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     

Calendrier Calendrier


Deux questions d’éthique

Aller en bas

Deux questions d’éthique

Message par Papydall-Admin le Mar 6 Mar - 1:56

Code:
rem ============================================================================
rem           Deux questions d’éthique
rem ============================================================================
label clic
dim t$,l,p
alpha 10 : top 10,50 : left 10,20 : font_bold 10 : font_size 10,16
font_name 10,"arial" : font_color 10,0,0,255
button 20 : top 20,height(0)-100 : left 20,150 : font_bold 20 : font_size 20,16
caption 20,"Suite" : hide 20
button 30 : top 30,top(20) : left 30,300 : font_bold 30 : font_size 30,16
caption 30,"Quitter" :  on_click 30,clic : hide 30
p = 100 : ' temps de PAUSE à modifier selon votre convenance
read t$
while t$ <> "FIN"
    if t$ = "PAUSE"
       show 20 : show 30
       repeat : until (clicked(20) > 0) or ( clicked(30) > 0)
       caption 10,""
    else
       hide 20 : hide 30 : Affiche(t$)  
    end_if
    read t$
end_while
message "Morale de l'histoire : Méfiez-vous des apparences !!!"
terminate
rem ============================================================================
Clic:
terminate
rem ============================================================================
SUB Affiche(t$)
    dim_local i,l
    l = len(t$)
    for i = 1 to l
        caption 10,caption$(10) + mid$(t$,i,1): pause p
    next i
    caption 10,caption$(10) + chr$(13)    
END_SUB
rem ============================================================================
data "Deux questions d'étique ..."
data "A l'attention des sages et de ceux qui voudraient"
data "bien le devenir ..."
data "PAUSE"
data "Première question :" , ""
data "Supposons que vous connaissez une femme qui soit"
data "enceinte."
data "Elle a déjà huit enfants dont trois sourds,"
data "deux aveugles et un mentalement attardé."
data "De plus, cette femme a la syphilis.",""
data "Lui recommanderiez vous d'avorter ?"
data "PAUSE"
data "Répondez mentalement puis lisez la seconde question."
data "PAUSE"
data "Seconde question :" , ""
data "Il est temps d'élire le Président du Monde"
data "et votre vote sera déterminant."
data "Voici les données concernant les trois principaux"
data "candidats :"
data "PAUSE"
data "1er candidat :" , ""
data "Le premier candidat est associé à des politiciens"
data "véreux et consulte des astrologues."
data "Il a eu deux maîtresses."
data "Il fume comme un pompier et boit huit à dix Martinis"
data "par jour ..."
data "PAUSE"
data "2ème candidat" , ""
data "Le deuxième candidat a déjà été viré deux fois."
data "Il dort jusqu'à midi."
data "Il fumait de l'opium au collège et boit un quart de"
data "litre de whisky chaque soir."
data "PAUSE"
data " 3ème candidat :" , ""
data "Le troisième candidat est un héros de guerre médaillé."
data "Il est végétarien."
data "Il boit une bière occasionnellement et n'a jamais eu"
data "d'histoires extraconjugales."
data "PAUSE"
data "Parmi ces trois candidats, lequel choisiriez-vous"
data "(honnêtement) ?", ""
data "Faites votre choix, puis lisez la réponse ci-après."
data "PAUSE"
data "Le 1er candidat est : Franklin D. Roosvelt"
data "PAUSE"
data "Le 2ème candidat est : Winston Churchill"
data "PAUSE"
data "Le 3ème candidat est : Adolf Hitler"
data "PAUSE"
data "Comme quoi, il faut toujours se méfier des personnes"
data "qui ont une vie trop saine."
data "PAUSE"
data "Au fait, s'agissant de la 1ère question, à propos de"
data "l'avortement ..."
data "Si vous avez répondu ''OUI''."
data "PAUSE"
data "Vous venez de tuer ...",""
data " B  E  E  T  H  O  V  E  N  !!!"
data "PAUSE"
data "FIN"
rem ============================================================================

_________________
Invité, merci d'être passé par ici.
avatar
Papydall-Admin
Admin

Messages : 94
Réputation : 0
Date d'inscription : 08/09/2015
Age : 67
Localisation : MOKNINE (Tunisie)

Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum