Forum Liberty Basic France

Jeux » Where are my pixels ? A découvrir
Le 08/07/2019 à 19h47

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2074
Quand on ne sait pas quoi faire, on fait n'importe quoi, et ça donne ça:
Code VB :
 
     NOMAINWIN
    WindowWidth = 600
    WindowHeight = 410
    UpperLeftX = (DisplayWidth-WindowWidth)-200
    UpperLeftY = 20 ' (DisplayHeight-WindowHeight)
    'TEXTBOX  #w.letextbox, 20 , 50, 180, 25
   ' BUTTON #w.go, "Go !", [go], UL, 270, 50, 40, 20
    BUTTON #w.ne, "New", [new], UL, 100, 307, 50, 20
    STATICTEXT #w, "Cumul", 500, 305, 100, 20
    GRAPHICBOX #w.m 5, 5, 585, 300
    GRAPHICBOX #w.g 5, 330, 585, 40
    OPEN "Test" FOR window_nf AS #w
    #w, "TRAPCLOSE [closew]"
    #w, "font courrier 14 bold"
  [new]
    score =100
    #w.m  "down;fill black": #w.g "down;fill black"
    #w.m, "color yellow; backcolor black": #w.m, "font comic 14"
    #w.g, "color pink; backcolor black": #w.g, "font comic 16"
    #w.g, "place 500 25": #w.g, "\ ";str$(cumul)
    xm=50: ym=50
    #w.m, "place 15 20": #w.m, "\Where is my pixels  ";str$(xm);" x ";str$(ym)
    #w.g, "place 20 25": #w.g, "\ ";str$(score)
    #w.m, "when mouseMove [scanne]"
    xp=int(rnd(1)*550) + 1: yp=int(rnd(1)*250) + 1
    #w.g, "place 150 25": #w.g, "\ ";"x: ";str$(xp);"  y: ";str$(yp)
    wait
 [scanne]
   x=MouseX: y=MouseY
   #w.m, "color white; backcolor black"
   #w.m, "size 2": #w.m, "set ";x;" ";y
   ' xp=int(rnd(1)*550) + 1: yp=int(rnd(1)*250) + 1

    #w.g, "place 150 25": #w.g, "\ ";"x: ";str$(x);"  y: ";str$(y)
    if x>xp and x<xp+50 and y>yp and y< yp+50 then goto [un]
   ' gosub [un]
 wait
 [un]
   #w.m, "when mouseMove": #w.m, "when leftButtonDown [teste]"
   #w.m, "color pink; backcolor blue"
   #w.m, "place ";xp;" ";yp: #w.m, "boxfilled ";xp+50;" ";yp+50
   #w.m, "color yellow; backcolor black"
   xt=xp: yt=yp+70
   if xp >430 then xt=400
   if yp >220 then  yt=yp-10
   if xp >430 and yp >220 then xt=400: yt=yp-10
   #w.m, "place ";xt;" ";yt: #w.m, "\Clic my center  "
   #w.m, "flush"
 wait 'return
 [teste]
   x=MouseX: y=MouseY
   score =score -20
   #w.g, "place 20 25": #w.g, "\        "
   #w.g, "place 20 25": #w.g, "\ ";str$(score)
   #w.g, "place 300 25": #w.g, "\ ";"x: ";str$(x);"  y: ";str$(y)
   #w.g, "place 150 25": #w.g, "\                             "
   #w.g, "place 150 25": #w.g, "\ ";"x: ";str$(int(xp+50/2));"  y: ";str$(int(yp+50/2))
   if x=int(xp+50/2) or x=int(xp+50/2)-1 or x= int(xp+50/2)+1 and y=int(yp+50/2) or y=int(yp+50/2)-1 or y=int(yp+50/2)+1 then
   score =score+20
     #w.g, "place 20 25": #w.g, "\ + ";str$(score)
     cumul=cumul+score: #w.g, "place 500 25": #w.g, "\ ";str$(cumul)
     'if score=0 goto [new]
     #w.m, "place 1 1": gosub [pause]: goto [new]
   end if
 
 wait
 '...suite du prog...
    [pause] 'bloc à mettre où tu veux puisqu'indépendant
        timer 800, [temps]   'pause en millisecondes
        wait
        [temps]
        timer 0
  return
  [closew]
    CLOSE  #w
    END
 
 
____________________
Roro

   
Le 13/07/2019 à 16h06

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 510
Mais comme on sait pas trop à quoi ça sert, on se dit que c'est bien ;)

Voilà de quoi réviser les mouvements de souris.

Il est relativement difficile de cliquer au centre du rectangle : le nombre en bas à gauche décroit par pas de 20, mais le carré est magnanime, quand on arrive à -180 il s'efface.

Sur Wine, les nombres de la ligne du bas se chevauchent, mais ce n'est pas choquant en soi, Wine n'est pas Windows, et on a déjà noté des petites différences d'affichage comme cela.

A+
____________________
Just BASIC v2.0 :
  • utilisation courante avec GNU/Linux Mageia6 + Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
  • utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

   
Le 14/07/2019 à 12h39

Administrateur

Groupe: Administrateur

Inscrit le: 04/03/2012
Messages: 2074
Il semble que ce soft provoque des troubles de la vision, car le "rectangle" est en fait carré.
____________________
Roro

   
Le 15/07/2019 à 08h27

Modérateur

Groupe: Modérateur

Inscrit le: 09/02/2015
Messages: 510
Damned ! Le Rectangle a encore frappé ;)
____________________
Just BASIC v2.0 :
  • utilisation courante avec GNU/Linux Mageia6 + Wine (Pas trouvé d'incohérences ou de bug de compilation à ce jour)
  • utilisation occasionnelle ou vérification/débugage difficile avec Windows XP sur un petit eeepc

   
Jeux » Where are my pixels ? A découvrir  

 |  |

1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie