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 | 
 

 Un petit jeu débile...

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



Nombre de messages : 6018
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 : 1625
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 : 6018
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 : 5086
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 : 6018
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 : 1625
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 : 6018
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 : 6018
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 : 6018
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: