déplacement d'un objetRésolu

Question

Bonjour,
Ma question n'est pas pour un example concret mais d'ordre général:
J'ai chercher sur google , sur des forums ... sans raisultat
Je cherche a faire bouger automatiquement un objet ( genre picturebox ou un label ext ... ) je m'explique :
Par example j'ouvre une form et la j'aimerais que la picture box présent bouge de droit a gauche automatiquement ou sinon quelle décrive un cercle...
Peut etre faut il rentrer des points et dire :  cette picturebox va en x;y(en rentrant la vitesse de deplacement) puit quand tu es a ce point tu va z;p ou sinon tu va la en passant par ces points.
J'espere d'avoir été le plus claire possible car ce n'est pas forcement toujours facile de se faire comprendre

merci d'avance 




VIVE Visual Basic

us_30 · Accepted Answer

Bonsoir,

Voici un code de base :

Met 2 boutons et une pictureBox avec le borderStyle en trait continu pour le voir

Ensuite le code :
Public Class Form1

    ' Variables globales
    Dim LocationX As Integer
    Dim LocationY As Integer

    ' Utilise le Timer1 pour incrémenter les propriétés de pictureBox1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        LocationX += 1
        LocationY += 1
        PictureBox1.Top = LocationX
        PictureBox1.Left = LocationY

        If LocationX 100 Then Timer1.Enabled False

    End Sub

    ' Arrêter l'animation
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = False
    End Sub

    ' Démarre l'animation
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = True
    End Sub

End Class

Amicalement,
Us.

NHenry · Answer

Bonjour, 

Les propriétés Top et Left du contrôle ne te suffisent pas ?
Un Timer et l'affaire est réglée.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

Utilisateur anonyme · Answer

Bonsoir,
Pour déplacer linéairement, il te suffit de revoir tes cours de 5eme sur les fonctions affines :

En faisant varier x, tu obtient y.

Pour les cercles c'est dans tes cours de 6eme.

Où p est le rayon et téta l'angle.
Il te suffit de faire varier l'angle pour trouver x et y.

Ensuite comme l'a dit NHenry, sers toi des propriétés Top et Left du contrôle ou de la propriété Location.

Bonne soirée.

fabman21 · Answer

bonsoir,
merci de vos reponses 
je suis encors qu'un novice en vb du coup je ne maitrise pas tout a fait la syntaxe
j'essaierai demain en integrant vos conseils . 
c'est sympas d'aider les autres,  merci   

VIVE Visual Basic

ucfoutu · Answer

bonjour,
il me semble que l'essentiel t'a été dit (et cet essentiel est la connaissance des mathématiques, pas de VB).
Pour le reste (la syntaxe VB) : ouvre ton aide en ligne sur les opérateurs et fonctions mathématiques 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne intallée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

us_30 · Answer

Re,

Une version un peu plus élaborée, comme je vais en avoir besoin :

Public Class Form1

    ' Variables globales
    Dim Objet As Control
    Dim X As Integer
    Dim Y As Integer
    Dim Xd As Integer
    Dim Yd As Integer
    Dim Xf As Integer
    Dim Yf As Integer

    ' Utilise le Timer1 pour incrémenter les propriétés de pictureBox1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        ' Paramètres
        Dim a As Double
        Dim b As Double

        ' Equation de droite
        a = (Yd - Yf) / (Xd - Xf)
        b = Yf - a * Xf

        ' Incrémentation
        X += 2 ' pas du décalage
        If X 1 Then X Xd
        Y = a * X + b

        ' Fin du déplacement au point d'arrivé
        If X > Xf Then
            Timer1.Enabled = False
            Exit Sub
        End If

        ' Déplacement
        Objet.Top = X
        Objet.Left = Y

    End Sub

    ' Arrêter/Reprend l'animation
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled (Timer1.Enabled False)
    End Sub

    ' Démarre l'animation
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        ' Défini objet et position
        Objet = PictureBox1
        Xd = 12
        Yd = 12
        Xf = 100
        Yf = 300
        X = Xd
        Y = Yd

        ' lance l'animation
        Timer1.Interval = 10
        Timer1.Enabled = True

    End Sub

End Class

Peut-être que les pros du VB.Net peuvent-ils faire encore mieux ? Un conseil ?

Amicalement,
Us.

Utilisateur anonyme · Answer

En rajoutant un autre bouton et un autre timer on fait tourner :
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer2.Interval = 100
        Timer2.Enabled = True
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Angle += 1
        X = Convert.ToInt32(100 * Math.Cos((Math.PI * Angle) / 180))
        Y = Convert.ToInt32(100 * Math.Sin((Math.PI * Angle) / 180))
        PictureBox1.Location = New Point(X + 100, Y + 100)
    End Sub
Bonne nuit :)

fabman21 · Answer

merci beaucoup 


VIVE Visual Basic

Déplacement d'un objet

8 réponses

Votre réponse

Discussions similaires