jeu

Bon, je suis debutant, et j'essaye malgré tout de faire un jeu, mais je n'y arrive pas, enfin, presque pas !
Je voudrais l'avis de personne qui s'y connaissse bien en programmtion, si vous avez une image appelé image1, comment feriez vous pour la faire bouger a l'aide des fleche du clavier ?

Merci !

Ps: ( expliquez votre codes, SVP )

LORDFINALFF

Salut Dans La roitine Form_Load écrit Me.KeyPreview = True cela permet à la feuille de recevoir en priorité les événements du clavier Dans la routine Form_KeyDown copie ce code Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Const PAS = 150 'Pas de DEPLACEMENT With Image1 Select Case KeyCode Case vbKeyDown .Top = .Top + PAS Case vbKeyUp .Top = .Top - PAS Case vbKeyLeft .Left = .Left - PAS Case vbKeyRight .Left = .Left + PAS End Select 'Limitatioon du DEPLACEMENT If .Top + .Height < 0 Then .Top = ScaleHeight If .Top - .Height > ScaleHeight Then .Top = 0 If .Left > ScaleWidth Then .Left = -.Width If .Left + .Width < 0 Then .Left = ScaleWidth End With End Sub Voilà A+ Tomilliev

ok, cest a peu pres ce que je fais, mais, un truc que je n'arrive toujours pas a faire, c'est de combiné 2 touches ! Par exemple, haut et gauche, pour que limage parte en diagonale vers le haut gauche.

LORDFINALFF

Salut,
utilise un Timer
et pour la vitesse joue avec la valeur de pas et l'interval du Timer



Const pas = 3

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
    Me.ScaleMode = 3
    Timer1.Interval = 10
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Dim x As Integer
    Dim y As Integer
       
    x = Image1.Left
    y = Image1.Top
    If GetAsyncKeyState(37) < 0 Then
       If x > pas Then x = x - pas Else x = 0
       End If
    If GetAsyncKeyState(39) < 0 Then
       If x + pas < Me.ScaleWidth - Image1.Width Then x = x + pas Else x = Me.ScaleWidth - Image1.Width
       End If
    If GetAsyncKeyState(38) < 0 Then
       If y > pas Then y = y - pas Else y = 0
       End If
    If GetAsyncKeyState(40) < 0 Then
       If y + pas < Me.ScaleHeight - Image1.Height Then y = y + pas Else y = Me.ScaleHeight - Image1.Height
       End If
    Image1.Move x, y

End Sub


Daniel

Merci gobillot, c'est exactement ce qu'il me fallais, mais, pourrais tu expliquer ton codes pour qe je comprenne stp, merci !

LORDFINALFF

Salut,
les touches du clavier sont testées par un API, il faut donc un Timer pour les testées régulièrement,
la précision dépendra donc de l'interval du Timer, mais on ne pas descendre beaucoup en dessous de 10 ça servirait à rien.
on peut jouer aussi sur le pas pour augmenter la vitesse
c'est donc un compromis entre précision et vitesse.
l'avantage c'est qu'on ne passe pas par le buffer clavier, le temps de répétition n'est pas pris en compte, c'est l'interval du Timer qui le détermine.
tant que la touche est appuyée, elle répond, quand elle est relachée, elle ne répond plus
le reste c'est des calculs de limite entre le pas, la taille de l'image et celle de la Forme.


Daniel

oui, d'accord, mais, pourrais-tu expliquer ton code, car j'aurai des truc a ajouter au ilieu, mias je ne comprend pas, quoi est quoi, merci !

LORDFINALFF