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 pascal10000 Aujourd'hui à 17:49

» Cartes de voeux, menus, etc.
par JL35 Aujourd'hui à 17:48

» Mah-Jong européen new-look
par jjn4 Aujourd'hui à 15:48

» a l'aide klaus
par Minibug Aujourd'hui à 11:42

» KGF_dll - nouvelles versions
par Minibug Aujourd'hui à 1:48

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Aujourd'hui à 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

» API Windows
par Klaus Jeu 7 Déc 2017 - 21:03

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

» j'ai un petit problème
par JL35 Mer 6 Déc 2017 - 21:58

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 | 
 

 CAFARDORAMIC - l'anti-cafard martien

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

avatar

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

MessageSujet: CAFARDORAMIC - l'anti-cafard martien   Dim 22 Déc 2013 - 20:13

Je ne vous raconte pas comment ça marche, car tout est dans le programme.
Ah oui, mais quand vous voyez une rubrique d'aide qui vous explique le mode d'emploi,
eh, il faut le lire !

Quoi ? C'est long, c'est long !?
Bof, une petite page de rien du tout !
Sinon, vous ne comprendrez rien !

Vous me direz ensuite en combien de temps vous avez résolu la devinette
(et sans tricher, hein !)
ou bien alors combien de temps a mis votre compagne (compagnon)
pour vous reconnaître.

Ah oui, un dernier détail. Ca marche (en principe) avec tous les systèmes d'exploitation,
mais ça marche encore mieux avec ce bon vieil XP.

Code:
rem ' Anti-cafard martien par jjn4
  dim a$ , a , i
  dim iac : rem Indice d`Absence de Cafards
  dim nse : rem Nature du Système d`Exploitation
  dim t : rem Temps passé à chercher (en dixièmes de secondes)
  dim t$ : rem Titre du programme
  dim x , y : rem Coordonnées de la bestiole verte
  t$="Carfardoramic - l'anti-cafard martien -- par jjn4"
  label body , go , help , kill , scan
 
rem form0
  width 0,910
  height 0,550
  caption 0,t$
  i=text_width(t$,0)
  if i>350 then nse=1
 
button 10
  left 10,50
  top 10,20
  width 10,800
  height 10,90
  font_size 10,12
  caption 10,"Explications au sujet des cafards martiens et de leur mode de contamination"
  on_click 10,help
 
button 12
  inactive 12
  left 12,50
  top 12,120
  width 12,800
  height 12,90
  font_size 12,12
  caption 12,"Scanning de votre ordinateur pour savoir s'il est infecté par des cafards martiens"
  on_click 12,scan
 
button 14
  inactive 14
  left 14,50
  top 14,220
  width 14,800
  height 14,90
  font_size 14,12
  caption 14,"Destruction de tous les cafards martiens détectés sur votre ordinateur"
  on_click 14,kill
 
button 16
  inactive 16
  left 16,50
  top 16,320
  width 16,800
  height 16,90
  font_size 16,12
  caption 16,"Pour savoir si votre propre organisme est aussi contaminé par les cafards martiens"
  on_click 16,body

alpha 18
  left 18,100
  top 18,430

image 20
 
picture 22
  hide 22
  width 22,screen_x-8-nse*20
  height 22,screen_y-34-nse*20
 
progress_bar 30
  hide 30
  left 30,200
  top 30,195
  width 30,500
  height 30,40
  min 30,0
  max 30,100
 
alpha 32
  hide 32
  left 32,330
  top 32,465
  font_bold 32
  font_size 32,16

timer 50
  timer_interval 50,100
  on_timer 50,go
  timer_off 50
 
end

body:
  caption 18,""
  caption 32,""
  a$="  En vérité, le moyen de savoir si vous avez vous-même été infecté par des"+chr$(13)
  a$=a$+"cafards martiens est très simple. Il vous suffit d'aller voir votre médecin"+chr$(13)
  a$=a$+"habituel qui vous le diagnostiquera sans difficulté et vous en débarrassera"+chr$(13)
  a$=a$+"facilement. Probablement ne manquera-t-il pas de vous demander aussi d'essayer"+chr$(13)
  a$=a$+"une chemise un peu particulière qui a été inventée spécialement pour lutter contre"+chr$(13)
  a$=a$+"les cafards martiens. Dans ce cas, donnez-lui satisfaction. C'est pour votre bien."+chr$(13)
  a$=a$+chr$(13)+"  (NOTA : pour les aficionados des détails tout à fait secondaires,"+chr$(13)
  a$=a$+"    précisons que le nom exact de cette chemise est « Camisole de force »)"+chr$(13)
  a$=a$+"    Bon séjour..."
  application_title "Votre corps est-il également contaminé ?"
  message a$
return

go:
  x=x+(int(rnd(3))-1)*12
  if x<1 then x=500
  if x>1020 then x=500
  y=y+(int(rnd(3))-1)*12
  if y<1 then y=350
  if y>700 then y=350
  2d_circle x,y,10
  t=t+1
  if scancode=100 or key_down_code=52
      timer_off 50
      hide 22
      for i=10 to 16 step 2
        show i
      next i
      show 32
      top 0,0
      width 0,910
      height 0,550
      beep
      active 14
      inactive 10
      inactive 12
      caption 18,"Vous avez mis "+str$(int(t/10)+2)+" secondes pour trouver. Peut mieux faire..."
  end_if
return

help:
  caption 18,""
  caption 32,""
  a$="POURQUOI UN ANTI-CAFARD :"+chr$(13)
  a$=a$+"  En revenant de la planète Mars et en échangeant avec vous sur ce forum, je pourrais craindre de vous"+chr$(13)
  a$=a$+"transmettre quelques virus d'un genre nouveau, mais je sais que vous possédez tous de bons anti-virus,"+chr$(13)
  a$=a$+"alors je ne m'inquiète pas. Par contre, j'ai bien peur de ne pas pouvoir vous empêcher d'être"+chr$(13)
  a$=a$+"contaminés par les terribles cafards martiens. C'est pourquoi je mets aussitôt à votre disposition"+chr$(13)
  a$=a$+"cet anti-cafard. Utilisez-le. Ils sont très invasifs."+chr$(13)+chr$(13)
  a$=a$+"QU'EST-CE QU'UN CAFARD MARTIEN :"+chr$(13)
  a$=a$+"  C'est une toute petite bête qui infeste la surface de la planète Mars et qui a la particularité"+chr$(13)
  a$=a$+"de pouvoir infecter à la fois les systèmes informatiques et les organismes biologiques. Il peut donc"+chr$(13)
  a$=a$+"sauter d'un ordinateur à un autre ordinateur, et de votre ordinateur à votre corps, et inversement."+chr$(13)+chr$(13)
  a$=a$+"QUEL DANGER REPRÉSENTE UN CAFARD MARTIEN :"+chr$(13)
  a$=a$+"  Heureusement, les cafards martiens ne sont pas mortels et ne rendent même pas malade (enfin,"+chr$(13)
  a$=a$+"du moins, physiquement). Ils sont simplement un peu perturbants parce qu'ils laissent des traces de"+chr$(13)
  a$=a$+"bave verte partout où ils passent (c'est d'ailleurs pour ça que les martiens sont tous vert pomme)."+chr$(13)+chr$(13)
  a$=a$+"COMMENT ARRETER L'INVASION DES CAFARDS MARTIENS :"+chr$(13)
  a$=a$+"  Comme j'ai l'esprit joueur, vous ne croyez tout de même pas que je vais vous donner le moyen de"+chr$(13)
  a$=a$+"vous débarrasser aussi facilement de ces bestioles verdâtres !"+chr$(13)
  a$=a$+"Vous allez d'abord devoir trouver la réponse à une devinette : quel est mon symbole préféré ?"+chr$(13)+chr$(13)
  a$=a$+"  Ah, et puis, si vous ne trouvez pas et que vous deveniez tout vert, ce n'est pas si grave que ça,"+chr$(13)
  a$=a$+"après tout !  D'autant qu'il y a des avantages à cette transformation chrolophylienne, c'est que,"+chr$(13)
  a$=a$+"tout nu au soleil, vous deviendriez alors capable de photosynthèse. Cela vous permettrait de réaliser"+chr$(13)
  a$=a$+"des économies substantielles au niveau alimentaire, ce qui, en période de crise, n'est pas négligeable."
  application_title "Explications sur les cafards martiens"
  message a$
  active 12
return

kill:
  caption 18,""
  caption 32,""
  show 30
  position 30,0
  a=int(rnd(30))
  for i=1 to 100
      wait 100-iac*90
      position 30,i
      if i=40+a
        if iac=0
        wait 999
            beep
            wait 999
            beep
            wait 999
            beep
        end_if
      end_if
  next i
  hide 30
  show 32
  font_color 32,0,0,255
  if iac=0
      caption 32,"CAFARDS DÉTRUITS"
  else
      caption 32,"AUCUN CAFARD DÉTECTÉ"
  end_if
  iac=1
  active 10
  active 12
  active 16
return

scan:
  caption 18,""
  caption 32,""
  show 30
  if iac=0
      a=int(rnd(30))+40
  else
      a=100
  end_if
  position 30,0
  for i=1 to a
      wait 100
      position 30,i
  next i
  if iac=0
      beep
      font_color 32,255,0,0
      caption 32,"ORDINATEUR INFECTÉ"
      show 32
      a$="N'oubliez pas que seule la frappe de mon symbole préféré pourra vous permettre d'arrêter l'invasion de cette sale bestiole"
      caption 18,a$
      display
      2d_image_copy 20,0,-30-nse*6,screen_x-nse*20,screen_y-30-nse*20
      clipboard_copy 20
      display
      clipboard_paste 22
      top 0,-30
      width 0,screen_x
      height 0,screen_y
      for i=10 to 16 step 2
        hide i
      next i
      hide 30
      hide 32
      show 22
      t=0
      x=500 : y=350
      2d_target_is 22
      2d_pen_color 0,255,0
      2d_fill_color 0,255,0
      timer_on 50
  else
      font_color 32,0,0,255
      caption 32,"AUCUN CAFARD DÉTECTÉ"
      show 32
      hide 30
  end_if
return

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

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 22 Déc 2013 - 21:06

Ouff !!!...

Quand je pense à toutes ces petites bestioles qui grouillait dans mon ordi
et, à l' insu de mon plein gré !

Merci JJN4 de m' en avoir débarrassé avec cet Anti-cafards...me voilà soulagé.

 lol!  lol!  lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: CAFARDORAMIC - l'anti-cafard martien   Dim 22 Déc 2013 - 21:20

J'ai réussi à me libérer de la camisole, bravo pour l'idée jjn4 mais la prochaine fois préviens mon médecin que c'est pour rire ... J'aurais pu passer de longues vacances dans ma cellule capitonnée...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: CAFARDORAMIC - l'anti-cafard martien   Lun 23 Déc 2013 - 3:04

Spoiler:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



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

MessageSujet: Re: CAFARDORAMIC - l'anti-cafard martien   Lun 23 Déc 2013 - 15:53

T'as pas oublié Pluton par hasard ? je sais bien qu'elle est un peu loin, mais quand même...à moins que depuis mes études (lointaines) elle ait changé de statut ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: CAFARDORAMIC - l'anti-cafard martien   Lun 23 Déc 2013 - 16:17

Hé oui cher ami : Pluton a été déchue : on lui a retirée son statut de Planète et ce depuis le 29 Août 2006 (à cette date tu as peut-être terminé tes études !).
Pluton est désormais appelée « planète naine ».
Voila, je t’apprends quelque chose de primordial dans la vie ! Fais-en bon usage!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: CAFARDORAMIC - l'anti-cafard martien   

Revenir en haut Aller en bas
 
CAFARDORAMIC - l'anti-cafard martien
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Promo : Mamutu (anti-malware) gratuit !
» depart dans le sens anti horaire
» Test anti-trojans en ligne
» [Résolu] Filtre anti hameçonnage/Phisphing
» Anvi Smart Defender, un Anti Malware gratuit

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: