Un petit jeu débile...

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)

Excellent ! Fabuleux !
Dis-moi, tu y es déjà arrivé à gagner
(enfin cliquer sur la croix rouge) ?

bonjour a tous.
super se truc ,moi aussi quand j'ai cliquer dessus il me dit Access violation
a l'adresse 00000048.

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.

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 .

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 !!!

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

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)

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...'

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

Ah ! Ça soulage JL35.

Maintenant aucun Acess de violation

JL35 si je le reproduit je ne suis pas capable de...

de quoi ?