Page 1 sur 1
[R] Scintillement au pong.
Posté : mer. 22 août 2012 10:59
par 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.
Re: [..] Scintillement au pong.
Posté : mer. 22 août 2012 12:05
par 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)
Re: [..] Scintillement au pong.
Posté : mer. 22 août 2012 12:40
par 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
Re: [..] Scintillement au pong.
Posté : mer. 22 août 2012 21:42
par theAvenger
mikell a écrit :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.
Re: [R] Scintillement au pong.
Posté : mer. 22 août 2012 21:51
par Sea
Je m'étais trompé a tu regardés la source de mikell qui résout très bien le problème?
Re: [R] Scintillement au pong.
Posté : mer. 22 août 2012 23:30
par 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.