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 - nouvelles versions
par Klaus Aujourd'hui à 0:29

» track_bar circulaire
par Klaus Hier à 21:41

» Gestionnaire de Projets Panoramic
par Jean Claude Hier à 20:41

» Mah-Jong européen new-look
par Jean Claude Hier à 20:34

» Gestion de l'Unicode
par jean_debord Hier à 11:21

» Button_picture
par pascal10000 Jeu 14 Déc 2017 - 11:41

» Pourquoi le compilateur stagne
par Minibug Jeu 14 Déc 2017 - 11:09

» 4 (en analyse): SYNEDIT_TARGET_IS_OBJECT devient inactif
par Jack Jeu 14 Déc 2017 - 10:09

» 3 (en analyse): Mauvaise interprétation du string "THEN"
par Jack Jeu 14 Déc 2017 - 10:03

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Marc Jeu 14 Déc 2017 - 10:00

» 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

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 | 
 

  Il faut bien rigoler un peu !

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

avatar

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

MessageSujet: Il faut bien rigoler un peu !   Ven 20 Fév 2015 - 4:25

Je suis bien dans les créations les plus inutiles et les plus folles, des programmes amusants et qui ne servent à rien, créés avec PANORAMIC , n’est-ce-pas ?
Alors, N’EXECUTEZ PAS le code suivant AVANT d’avoir lu les lignes REM.

Code:
rem ============================================================================
rem                 Il faut bien rigoler un peu !
rem ============================================================================
' Quelqu'un m'a envoyé un message pour me prouver que je suis un c..
' Apparemment, il n'a pas totalement échoué puisque je me suis pris à son jeu!
' Je m'en suis inspiré pour vous faire profiter de cette blague.
' AVERTISSEMENT : Si vous exécutez ce code c'est à vos risques et périls !
' RASSUREZ-VOUS : Il n'y a rien de méchant, c'est juste pour rigoler !
' Peut-être une blague de mauvais goût, mais personnellement ça m'a arraché
' un sourire tout de même !
' Alors si ça vous tente, cliquez sur l'éclair rouge et... rigoler!
rem ============================================================================
dim secret$,message$,i
hide 0 : application_title " ***** ***** Il faut bien rigoler un peu ***** *****"
secret$ = "074101032115097105115032049049032116114117099115032115117114032118111117115"
secret$ = secret$ + "013013"
secret$ = secret$ + "049041032086111117115032234116101115032101110116114097105110032"
secret$ = secret$ + "100101032108105114101032109111110032116101120116101013050041032"
secret$ = secret$ + "086111117115032234116101115032117110032104117109097105110013051"
secret$ = secret$ + "041032086111117115032110101032112111117118101122032112097115032"
secret$ = secret$ + "100105114101032039080039032115097110115032113117101032118111115"
secret$ = secret$ + "032108232118114101115032115101032116111117099104101110116013052"
secret$ = secret$ + "041032086111117115032118101110101122032100039101115115097121101"
secret$ = secret$ + "114013054041032086111117115032118111117115032115101110116101122"
secret$ = secret$ + "032099046046046032040112097114100111110032033041013055041032086"
secret$ = secret$ + "111117115032099111110116105110117101114032098234116101109101110"
secret$ = secret$ + "116032224032108105114101032040114101032112097114100111110032033"
secret$ = secret$ + "041013056041032086111117115032110039097118101122032109234109101"
secret$ = secret$ + "032112097115032114101109097114113117233032113117101032118111117"
secret$ = secret$ + "115032097118101122032108111117112233032108097032053013057041032"
secret$ = secret$ + "086111117115032118101110101122032100101032118233114105102105101"
secret$ = secret$ + "114013049048041032086111117115032115111117114105101122032112097"
secret$ = secret$ + "114099101032099039101115116032100233098105108101013049049041032"
secret$ = secret$ + "086111117115032097108108101122032101110032102097105114101032112"
secret$ = secret$ + "114111102105116101114032116111117116032108101032109111110100101"
secret$ = secret$ + "032112111117114032108101032102097105114101032099104046046046105101114"

for i = 1 to len(secret$) step 3
    message$ = message$ + chr$(val(mid$(secret$,i,3)))
next i
message$ = message$ + chr$(13) + chr$(13) + " !!! TOUTES MES EXCUSES POUR LES AMES SENSIBLES !!!"
message message$
terminate
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

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

MessageSujet: Re: Il faut bien rigoler un peu !   Ven 20 Fév 2015 - 9:26

Smile
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5088
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Il faut bien rigoler un peu !   Ven 20 Fév 2015 - 10:14

BOF
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Froggy One

avatar

Nombre de messages : 395
Date d'inscription : 06/01/2012

MessageSujet: Re   Ven 20 Fév 2015 - 20:27

Moi ça m'a fait rire... d'autant plus que je la connaissais !!!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
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: Il faut bien rigoler un peu !   Sam 21 Fév 2015 - 1:35

Et de trois! Smile
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Il faut bien rigoler un peu !   

Revenir en haut Aller en bas
 
Il faut bien rigoler un peu !
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» canton comment bien débuter pour un débutant
» Tout ce qu'il faut savoir pour bien se présenter.
» Ma configuration est tel bien ou nul
» (résolu) bonjour je suis bien embêter avec un cheval ou un virus
» Bien le bonjour à tous.

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: