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
» I Love You
par papydall Aujourd'hui à 2:58

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Hier à 18:08

» mise a jour calculatrice
par joeeee2017 Hier à 15:57

» [solved] 3D_LINE How to ?
par Jicehel Hier à 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Un petit jeu débile...

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



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

MessageSujet: Un petit jeu débile...   Mer 9 Déc 2009 - 2:38

Dans la série des trucs inutiles:
Code:
' Form baladeuse à cliquer
' (ou une touche pour sortir avant)
Label Clic, Reboucle, Fin
Dim we, he, w0, h0, t$
we = Screen_X: he = Screen_Y
w0 = we/16: h0 = he/12
Width 0, w0: Height 0, h0
Print "Clic-moi...": PRINT " si tu peux !"
On_Click 0, Clic
On_Key_Down 0, Fin
t$ = TIME$

Reboucle:
While TIME$ = t$: END_WHILE
t$ = TIME$
Top 0, RND(he - h0): Left 0, RND(we - w0)
Goto Reboucle
End

Clic:
Print: Print "  GAGNÉ !"
Wait 1000

Fin:
TERMINATE

PS Ca se termine par un "Access violation"... je ne sais pas pourquoi.
On peut évidemment moduler la difficulté en modifiant les dimensions de la fenêtre (w0 et h0), mais je ne sais pas faire une tempo plus courte que la seconde (on ne peut pas mettre un Wait parce que pendant le wait les événements, clic par exemple, ne sont pas pris en compte)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

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

MessageSujet: !!!   Mer 9 Déc 2009 - 2:48

Excellent ! Fabuleux !
Dis-moi, tu y es déjà arrivé à gagner
(enfin cliquer sur la croix rouge) ?
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
bleunounet



Nombre de messages : 150
Date d'inscription : 26/10/2007

MessageSujet: Re: Un petit jeu débile...   Mer 9 Déc 2009 - 12:17

bonjour a tous.
super se truc ,moi aussi quand j'ai cliquer dessus il me dit Access violation
a l'adresse 00000048.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Un petit jeu débile...   Mer 9 Déc 2009 - 16:18

L'Access violation se produit sur le Terminate, j'ai déjà eu ça avec d'autres programme mais je ne sais pas (plus) pourquoi, sans doute une fin anormale (ressource non libérée ou autre...). Jack pourrait sûrement nous en dire plus.
@jjn4, non pas la croix rouge, le Form, mais j'ai prévenu que c'était un peu débile. Au moins c'est pas long !
Je suis l'heureux possesseur d'un moniteur 24" (1920x1200), pour un plus petit il faut sans doute agrandir les dimensions du form.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
bleunounet



Nombre de messages : 150
Date d'inscription : 26/10/2007

MessageSujet: Re: Un petit jeu débile...   Mer 9 Déc 2009 - 16:43

re jl5.
oui moi aussi j'ai parfois se genre violation avec terminate je sais pas pourquoi non plus ,ressource non libérée oui c'est possible aussi comme tu dit jack trouvera surement .
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: Un petit jeu débile...   Mer 9 Déc 2009 - 17:23

Moi je n'ai pas de violation, mais j'ai réussi à cliquer sur le FORM. Le résultat c'est que maintenant, il n'arrête pas de se balader sur mon écran, même après avoir fermé l'editeur. Alors [ctrl+alt+sup].
Non seulement, çà sert à rien, mais çà joue avec mes nerfs !!!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Un petit jeu débile...   Mer 9 Déc 2009 - 18:15

Donc alors ça sert un peu à quelque chose... c'est raté !
Si ça continue et que tu n'as pas l'erreur c'est que tu n'as pas bien cliqué (tu n'es pas passé dans le Terminate).
Tu peux aussi taper une touche quelconque pour arrêter, si tu n'y arrives pas Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

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

MessageSujet: Ah   Jeu 10 Déc 2009 - 0:59

Ah oui, c'était sur le form qu'il fallait cliquer.
Moi, par habitude, je voulais le fermer en cliquant sur la croix rouge,
et là, c'est mission impossible !
En plus, sans le faire exprès, j'ai réussi à cliquer sur le bouton d'à côté
et c'est passé en plein écran, et là, ça a été encore pire,
parce qu'il s'est mis à sortir de l'écran.
Heureusement qu'on peut l'arrêter en cliquant sur une touche.
Finalement, c'est peut-être plutôt un stresstilitaire...
(ne cherchez pas la définition dans wikipedia, ça vient juste de sortir)
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
JL35



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

MessageSujet: Re: Un petit jeu débile...   Jeu 10 Déc 2009 - 1:04

Tu as raison, ce n'est peut-être pas la bonne catégorie ! si on se met à cliquer dans tous les sens, ça ouvre des fenêtres, le form passe à l'arrière-plan, et là... 'panica generale...'
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Un petit jeu débile...   Mer 16 Déc 2009 - 17:49

Suite à une suggestion judicieuse de cosmos70 dans un autre topic (Access violation), je remets ici le code sans 'Access violation', qui semble causé par le traitement de On_Click et On_Key_Down, remplacés ici par If Clicked et If Inkey$:
Code:
' Form baladeuse à cliquer
' (ou une touche pour sortir avant)
Label Clic, Reboucle, Fin
Dim we, he, w0, h0, t$
we = Screen_X: he = Screen_Y
w0 = we/16: h0 = he/12
Width 0, w0: Height 0, h0
Print "Clic-moi...": PRINT " si tu peux !"
' On_Click 0, Clic
' On_Key_Down 0, Fin
t$ = TIME$

Reboucle:
While TIME$ = t$: END_WHILE
t$ = TIME$
if clicked(0) = 1 then goto Clic: ' gagné
If Inkey$ <> "" then goto Fin: ' abandon
Top 0, RND(he - h0): Left 0, RND(we - w0)
Goto Reboucle
End

Clic:
Print: Print "  GAGNÉ !"
Wait 1000

Fin:
TERMINATE
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Un petit jeu débile...   Jeu 17 Déc 2009 - 0:06

Ah ! Ça soulage JL35.

Maintenant aucun Acess de violation
Revenir en haut Aller en bas
Invité
Invité



MessageSujet: Re: Un petit jeu débile...   Jeu 17 Déc 2009 - 0:21

JL35 si je le reproduit je ne suis pas capable de...
Revenir en haut Aller en bas
JL35



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

MessageSujet: Re: Un petit jeu débile...   Jeu 17 Déc 2009 - 16:31

de quoi ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Un petit jeu débile...   

Revenir en haut Aller en bas
 
Un petit jeu débile...
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Un petit bonjour / bonsoir !
» Petit Cafe Gratuit au McDo du 15 au 28 novembre
» Boucle de menus débile
» Petit billet d'humeur
» Présentation d'un petit suisse

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: