probleme de rafraichissement

Question

Je veux faire bouger un bonhomme sur l'ecran et je fais comme &#231;a :
________________________________________________________________________
Option Explicit
Dim BougeH As Boolean
Dim BougeB As Boolean
Dim BougeD As Boolean
Dim BougeG As Boolean
Dim PosY As Long
Dim PosX As Long
________________________________________________________________________
Private Sub Form_Load()
Show
Bomberman.Move 10, 10
Do
    Cls
    Bomberman.Visible = False
    PosY = Bomberman.Top
    PosX = Bomberman.Left
    General
    Refresh
    Bomberman.Visible = True
    DoEvents
    Loop
End Sub
________________________________________________________________________
Function General()
Dim Vitesse As Double
    
    Vitesse = 2   'On peut augmenter cette valeur pour accelerer le programme
    
    If BougeD Then
            Bomberman.Left = PosX + Vitesse
    End If
    If BougeG Then
            Bomberman.Left = PosX - Vitesse
    End If
    If BougeH Then
            Bomberman.Top = PosY - Vitesse
    End If
    If BougeB Then
        Bomberman.Top = PosY + Vitesse
    End If
End Function
________________________________________________________________________
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyRight: BougeD = False  'On ne bouge plus a droite
        Case vbKeyLeft: BougeG = False   'On ne bouge plus a gauche
        Case vbKeyUp: BougeH = False     'on ne bouge plus en haut
        Case vbKeyDown: BougeB = False   'on ne bouge plus en bas
    End Select
End Sub
________________________________________________________________________
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode        Case vbKeyRight: BougeH False: BougeG False: BougeD = True: BougeB = False        Case vbKeyLeft: BougeH False: BougeG True: BougeD = False: BougeB = False        Case vbKeyUp: BougeH True: BougeG False: BougeD = False: BougeB = False        Case vbKeyDown:  BougeH False: BougeG False: BougeD = False: BougeB = True
    End Select
End Sub
________________________________________________________________________
Probleme mon petit bonhomme n'arr&#234;te pas de disparaitre et de reaparaitre
pouvez vous m'aider 
je ne trouve pas la solution merci

cs_casy · Answer

En rouge les modifs; en bleu une am&#233;lioration pour fermer 



Dim dmd_stop As Boolean



Private Sub Form_Load()

Show

BomberMan.Move 10, 10



dmd_stop = False



Do

    Cls

    BomberMan.Visible = False

    PosY = BomberMan.Top

    PosX = BomberMan.Left

    General

    Refresh

    BomberMan.Visible = True

    DoEvents

    Loop Until dmd_stop = True

    

End Sub



Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)



dmd_stop = True



End Sub

ShareVB · Answer

salut,

j'ai pas test&#233; mais tu mets ta proc&#233;dure General dans le KeyUp (ou KeyDown) et tu n'as plus besoin de do...loop...

ShareVB

le5ejumeau · Answer

merci mais voila, il y a encore un probleme, losque j'enleve cls et refresh effectivement le Bonhomme ne disparait plus lorqu'il ne bouge plus mais il disparait  losque je suis entrain de bouger.

de plus casy j'avais deja essay&#233; cette solution qui marchait  bien mais le probleme c'est que le bonhomme ne repondait  pas aussit&#244;t losque j'appuyais sur la touche.

le5ejumeau · Answer

pardon c'est pas cassy que je voulais mettre mais ShareVB....

ShareVB · Answer

salut,

peut-&#234;tre mais je viens d'essayer avec (et ca marche tr&#232;s bien):
 - un PictureBox et dans ce cas j'utilise l'&#233;v&#232;nement KeyDown du PictureBox
 - un Image et dans ce cas j'utilise l'&#233;v&#232;nement KeyDown de la Form

et un code dans le genre :

    Select Case KeyCode
        Case vbKeyDown
            Picture1.Top = Picture1.Top + Vitesse
        Case vbKeyUp
            Picture1.Top = Picture1.Top - Vitesse
        Case vbKeyLeft
            Picture1.Left = Picture1.Left - Vitesse
        Case vbKeyRight
            Picture1.Left = Picture1.Left + Vitesse
    End Select

ShareVB

cs_casy · Answer

J'avais moi aussi essayer et &#231;a marche nickel mais ce veut surrement dire le5ejumeau c'est que dans ce cas le d&#233;placement n'est plus fluide mais son personnage avance par saut. Cela est du au fait que lorsque tu reste appuyer sur une touche, cette touche n'est prise en compte que toutes les xx ms (500 je crois) c'est le param&#232;tre 'taux de r&#233;p&#233;tition' du clavier et c'est pas facile &#224; configurer(et pas toujours configurable d'ailleur). C'est un param&#232;tre Windows mais c'est aussi un param&#232;tre BIOS avec son petit fr&#232;re le 'D&#233;lai avant r&#233;p&#233;tition' qui dit combien de temps doit rester appuyer la touche avant qu'il y ait r&#233;p&#233;tition du caract&#232;re.

le5ejumeau · Answer

oui ShareVB c'etait &#231;a le probleme je voulais enlever ce laps de temps ou j'appuie sur la touche et le personnage n'avance pas . Ce qui marchais avec la methode que j'utilise plus haut mais seulement mon personnage ne fait qu'apparaitre et disparaitre &#224; l'ecran.

ShareVB · Answer

salut,

dans ce cas, supprime simplement les lignes ou il y a Visible et ca devrait marcher...et surement aussi le Cls et Refresh...

sinon tu peux peut etre mettre le code du do loop dans un timer &#224; 50 ou 100 ms...

ShareVB

Probleme de rafraichissement

8 réponses

Discussions similaires