[R] Scintillement au pong.

[theAvenger]

Bonjour à tous, une fois de plus, je requiert votre aide !!!

Pour m'entrainer à gérer les graphiques, j'avais prévu de faire un bon vieux pong. Ce n'est pas difficile en soit, mais j'ai un problème de scintillement lorsque je déplace la barre de gauche. Ce scintillement n'apparait qu'au bout d'une dizaine de secondes et je ne vois pas d'où il peut venir.

► Afficher le texteVoir le pong

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

Opt("MouseCoordMode", 2)

Global $GUI = GUICreate("Pong", 800, 600)
GUISetBkColor(0x00BAE3)

GUISetCursor(16, 1)

Global $GRAPHIC = GUICtrlCreateGraphic(0, 0, 800, 600)

GUICtrlSetGraphic(-1, $GUI_GR_PENSIZE, 10)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xFFFFFF)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 40, 250)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, 40, 350)
Global $raquette_gauche_y = 250

GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 750, 250)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, 750, 350)
Global $raquette_droite_y = 250

GUICtrlSetGraphic(-1, $GUI_GR_CLOSE)

MouseMove(40, 250, 0)

GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_MOUSEMOVE
            GUICtrlSetGraphic($GRAPHIC, $GUI_GR_PENSIZE, 10)
            GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x00BAE3)
            GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 40, $raquette_gauche_y)
            GUICtrlSetGraphic(-1, $GUI_GR_LINE, 40, $raquette_gauche_y + 100)
            $raquette_gauche_y = MouseGetPos(1)
            GUICtrlSetGraphic($GRAPHIC, $GUI_GR_PENSIZE, 10)
            GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xFFFFFF)
            GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 40, $raquette_gauche_y)
            GUICtrlSetGraphic(-1, $GUI_GR_LINE, 40, $raquette_gauche_y + 100)
            GUICtrlSetGraphic(-1, $GUI_GR_CLOSE)

            GUICtrlSetGraphic($GRAPHIC, $GUI_GR_REFRESH)
    EndSwitch
WEnd
 

Si l'un d'entre vous pouvais me donner la solution, je lui en serais très reconnaissant.
Merci.

[Sea]

Pour cela tu dois malheureusement passé par GDI... ou tout autre lib graphique :/

Cependant tu peux rajouter un sleep dans $GUI_EVENT_MOUSEMOVE mais ça réduira les performances(enfin un sleep(50) n'est pas visible pour l'utilisateur et réduira un peux mais il existerons toujours)

[mikell]

Pourquoi ne pas faire plusieurs graphiques ?

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <Misc.au3>

Opt("MouseCoordMode", 2)

Global $GUI = GUICreate("Pong", 800, 600)
GUISetBkColor(0x00BAE3)

GUISetCursor(16, 1)

Global $GRAPHIC = GUICtrlCreateGraphic(0, 0, 800, 600)

GUICtrlSetGraphic(-1, $GUI_GR_PENSIZE, 10)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xFFFFFF)
GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 40, 250)
GUICtrlSetGraphic(-1, $GUI_GR_LINE, 40, 350)
Global $raquette_gauche_y = 250
;GUICtrlSetGraphic(-1, $GUI_GR_CLOSE)

MouseMove(40, 250, 0)

GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_MOUSEMOVE
           If _IsPressed("01") Then
              $raquette_gauche_y = MouseGetPos(1)
              GUICtrlSetPos ($GRAPHIC, Default, $raquette_gauche_y)
              GUICtrlSetGraphic($GRAPHIC, $GUI_GR_REFRESH)
          EndIf
    EndSwitch
WEnd
 

[theAvenger]

Pourquoi ne pas faire plusieurs graphiques ?

Parce qu'à l'orgine, je voulais m'entrainer à écrire dans des graphiques. Mais si on est obligé de passer par GDI, ça perd de son intérêt... Merci quand même pour vos réponses.

[Sea]

Je m'étais trompé a tu regardés la source de mikell qui résout très bien le problème?

[theAvenger]

Non, je ne l'ai pas testée, parce que je sais qu'elle marche, mais comme je l'ai dit, je voulais pouvoir utiliser un seul graphique et rafraîchir l'image, un peu comme avec la SDL en C.