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
» Liste des logiciels installés
par JL35 Aujourd'hui à 18:03

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Aujourd'hui à 17:36

» Position x et y du curseur de texte dans un SYNEDIT
par Minibug Hier à 17:32

» Gestionnaire de Projets Panoramic 2 - Développement en cours
par Jicehel Hier à 9:55

» Version instantanée V 0.9.29i4 du 9/11/2018
par papydall Mar 13 Nov 2018 - 0:07

» Comment utiliser une DLL créée en FB dans FBP
par Navigateur Lun 12 Nov 2018 - 10:20

» Trouvailles pour Memo_rich
par Oscaribout Dim 11 Nov 2018 - 16:05

» Logiciel de soutien scolaire.
par Pedro Alvarez Ven 9 Nov 2018 - 9:29

» Problème avec SaveStringList.
par jean_debord Ven 9 Nov 2018 - 8:56

» Fermeture Form par la croix rouge
par Minibug Mer 7 Nov 2018 - 20:38

» Comment empêcher l'affichage d'une fenêtre DOS.
par JL35 Mer 7 Nov 2018 - 17:55

» Identifier les composants matériels de l’ordinateur
par JL35 Mar 6 Nov 2018 - 22:38

» Powershell: imprimer un fichier texte
par Minibug Mar 6 Nov 2018 - 20:10

» Editor : Encore un éditeur Panoramic !
par Marc Mar 6 Nov 2018 - 19:51

» Container_begin
par jean_debord Lun 5 Nov 2018 - 9:09

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
CalendrierCalendrier

Partagez | 
 

 Autocrash

Aller en bas 
AuteurMessage
Marc

avatar

Nombre de messages : 978
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: Autocrash   Dim 2 Sep 2018 - 12:15

Bonjour à tous !

Voici quelques lignes de code qui auraient pu s’écrire en une seule et unique ligne...
C'est juste pour le plaisir de programmer !

Je vous laisse découvrir Autocrash...

Citation :
' Autocrash - Humour trouvé sur le Net
' Panoramisé par Marc - Septembre 2018
DIM t$,h$,a$,i%,j%,k%
LEFT 0,(SCREEN_X-WIDTH(0))/2
TOP 0,(SCREEN_Y-HEIGHT(0))/2
COLOR 0, 0,0,0
FOR k% = 1 to 2
   FOR j%=1 to 3
       READ a$
       FOR i% = 1 to LEN(a$) STEP 2
           h$=MID$(a$,i%,2)
           t$=t$+CHR$(HEX(h$))
       NEXT i%
   NEXT j%
   t$=t$+CHR$(13)
NEXT k%  
IF MESSAGE_WARNING_OK(t$)=1 THEN TERMINATE
DATA "566F747265206F7264696E6174657572206E27"
DATA "612070617320706C616E74E920646570756973"
DATA "20706C7573206465203220686575726573"
DATA "4175746F4372617368207661206D61696E74656E"
DATA "616E742065666665637475657220756E20706C"
DATA "616E7461676520646520726F7574696E6520"

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Autocrash
Revenir en haut 
Page 1 sur 1

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: