Déplacement aléatoire d'une PictureBox dans une FormRésolu

Question

Bonjour, je cherche depuis longtemps à faire déplacer une pictureBox de manière aléatoire dans une Form, j'ai posé plein de questions, sur plein de forum différent, mais à chaque fois l'aide apporté n'était pas constructive. 

J'ai déjà le Timer, et je voudrais que toutes les 30 secondes par exemple, la PictureBox soit redessinée, à un autre endroit (une autre position aléatoire) dans ma fenêtre.

Si quelqu'un à une idée, parce qu'en théorie ça me semble plutôt facile, mais là je sèche, à chaque fois que je corrige un problème, un autre survient.

Merci beaucoup.

acive · Accepted Answer

Re:

Allez un peu du tout cuit :

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim Rand As New Random
        PictureBox1.Left = Rand.Next(Me.Width - PictureBox1.Width)
        PictureBox1.Top = Rand.Next(Me.Height - PictureBox1.Height)
    End Sub


CF2i - Guadeloupe
Ingénierie Informatique

Utilisateur anonyme · Answer

Bonsoir,

Donne donc le bout de code qui cloche.

acive · Answer

Salut,

Tu devrais faire un random sur le  PictureBox1.Left et  PictureBox1.Top d'après moi...

Maintenant comme dit banana on a pas la moindre idée de comment tu t'y prends...

Cordialement


CF2i - Guadeloupe
Ingénierie Informatique

ehjoe · Answer

Bonjour,

Au moment de changer de place, tu tire au hasard Random les corrdonnées x, y, tu invusibilise ton image, tu la déplace (left, top), et de nouveau tu la rends visible.

Cordialement, Joe.

cs_ShayW · Answer

Bonjour ACIVE

du tout cuit

On peut gouter ? 
Il se peut que tu obtiendras la meme position
donc il faut dans loop jusqu'à que le rand
soi different de la location actuelle
maintenant autre endroit c'est à dire au moins
3 pixels si la difference est d'un pixel c'est
plus dur à discerner 
surveiller que le picture soit dans le rectclient

acive · Answer

Salut shay,

C'est pour ça que j'ai dit 'un peu du tout cuit' (tu peux pas goûter, il est encore au four)

Déjà je gère la les limites max de left et top, c'est déjà pas mal, tout dépend de ce qu'il veux faire exactement.

C'est sûr que s'il y a un pixel de différence on ne la verra même pas bouger mais laissons à gege quelque chose à faire...





CF2i - Guadeloupe
Ingénierie Informatique

gege1505 · Answer

Bonjour, et merci beaucoup d'avoir tous répondu, oui je tiens à m'excuser je n'ai pas était très clair, désolé, c'est ma faute 

En fait ce que je voudrais faire c'est que le déplacement de l'image ne se fasse pas comme une téléportation (ce que je savais déjà faire, mais merci pour votre participation et le code, c'est quand même très gentil) mais je voudrais vraiment voir le déplacement de l'image, un déplacement fluide, vous voyez ce que je veux dire ? Qu'on la voit parcourir la distance, la séparant de son ancienne position, à sa nouvelle position.

Merci beaucoup !

ucfoutu · Answer

Bonjour,

Il te faut alors (et après avoir déterminé les coordonnées de la destination) :
Déterminer l'équation linéaire y = ax + b de la droite reliant le point d'origine à celui de destination
utiliser un timer et faire "avancer" ta picturebox en faisant varier x dans l'équation ci-dessus.
Que de l'algèbre, quoi !


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Et si cela ne te dit vraiment rien, commence par cette lecture :
http://labomath.free.fr/qcms/seconde/equadroite/droites.pdf
en t'intéressant au paragraphe "Recherche de l'équation d'une droite"
En espérant que cela t'inspire quand même un peu, hein ... (étape indispensable).

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_ShayW · Answer

Salut Ucfoutu

il faut jouer aussi sur l'interval du timer
et aussi calculer le deltax et deltay 
de combien bouger sur l'axe X et sur l'axe Y

il faut faire bouger de plusieur pixel
avec un pixel cela va etre trop lent ou trop
saccadé 
donc faire des caculs

gege1505 · Answer

Merci, impeccable, je n'avais pas fait le rapprochement avec mes vieux cours de math ^^ 
Merci, encore !

ehjoe · Answer

Ah, voici un code complet et qui semble bon au test, si quelqu'un est capable d'éméliorer les calculs, peut être qu'on peut faire plus court ? Mais chat marche ! Option Explicit On Public Class Form1 Dim t As Integer = 1 Dim x0 As Double Dim y0 As Double Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load WindowState = FormWindowState.Maximized x0 = PictureBox1.Left y0 = PictureBox1.Top Timer1.Interval = 1000 Timer1.Enabled = True End Sub Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick t = t + 1 Me.Text = t If t <> 5 Then Exit Sub Dim x1 As Integer Dim y1 As Integer ' Randomize() x1 = Int(Me.Width - PictureBox1.Width + 1) * Rnd() + 1 Randomize() y1 = Int((Me.Height - 50) - PictureBox1.Height + 1) * Rnd() + 1 ' Dim sensX As Integer = 1 Dim difX As Long = x1 - x0 Dim difY As Long = y1 - y0 Dim pasY As Double Dim j As Double = y0 Dim sens As String = "b" If x0 > x1 Then sensX = -1 If difX < 0 Then difX = difX * -1 If difY < 0 Then difY = difY * -1 sens = "h" End If pasY = 1 / difX * difY For i = x0 To x1 Step sensX PictureBox1.Left = i If sens "h" Then j j - pasY If sens "b" Then j j + pasY PictureBox1.Top = j Next i x0 = PictureBox1.Left y0 = PictureBox1.Top t = 1 End Sub End Class Cordialement, Joe.

ucfoutu · Answer

Bonjour,
Mais chat marche
ah ! Je dirais que là, ça "clopine en minuscules zig-zags", plutôt ! 

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ehjoe · Answer

Cher Jacques, 

Dans quel sens, avec humour ou un mauvais calcul ? 
Car avec des pixels il n'y a que 4 lignes droites possibles, l'horizontale, la verticale et les diagonales, le reste ça ne peut que n'être pas droit puisque les déplacements ne sont pas similaires, ah...  à moins... à moins de faire des déplacements au carré, comme les lits à l'armée... 

Cordialement, Joe.

ucfoutu · Answer

Le problème, Joe, est dans les déplacements en diagolale, à coefficient angulaire donc, et les tâtonnements que tu y appliques alors que l'angle de la diagonale n'est pas forcément de 45 °  (exemple ? diagonale d'un rectangle très allongé, diagonale qui ne te fait pas avancer forcément du même nombre de pixels en abscisse et en ordonnée).


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

Re: Public Class Form1 Dim Déplacement As Integer = 10 Dim NewPosLeft, NewPosTop As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load PictureBox1.Left = 0 PictureBox1.Top = 0 End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 'Timer1.Enabled = False Dim Rand As New Random NewPosLeft = Rand.Next(Me.Width - PictureBox1.Width) NewPosTop = Rand.Next(Me.Height - PictureBox1.Height) NewPosLeft = (Int(NewPosLeft / Déplacement)) * Déplacement NewPosTop = (Int(NewPosTop / Déplacement)) * Déplacement Do Application.DoEvents() System.Threading.Thread.Sleep(20) If PictureBox1.Top < NewPosTop Then PictureBox1.Top += Déplacement ElseIf PictureBox1.Top > NewPosTop Then PictureBox1.Top -= Déplacement End If If PictureBox1.Left < NewPosLeft Then PictureBox1.Left += Déplacement ElseIf PictureBox1.Left > NewPosLeft Then PictureBox1.Left -= Déplacement End If Loop Until PictureBox1.Left NewPosLeft And PictureBox1.Top NewPosTop End Sub End Class CF2i - Guadeloupe Ingénierie Informatique

acive · Answer

les déplacements en diagolale, à coefficient angulaire donc, et les tâtonnements que tu y appliques alors que l'angle de la diagonale n'est pas forcément de 45 °

Exact!...
Dans mon exemple c'est pareil, c'est pour ça qu'il faut aussi déterminer l'équation linéaire par la suite.



CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

Non plus !
Rien à faire : il faut nécessairement que chaque nouvel angle supérieur gauche de l'objet déplacé ait les coordonnées exactes d'un point de la droite reliant le point de départ et celui de l'arrivée. Et cela se calcule algébriquement (comme dit plus haut). 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

c'est pour ça qu'il faut aussi déterminer l'équation linéaire par la suite.

Croisé, acive ===>>> OUI !


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ehjoe · Answer

J'ai omis, digonale "de carré"... + Horizontal et Vertical, tous les reste marche en crabe, car on n'est pas sur une feuille de papier, faut bien suivre les pixels, on ne peut pas tracer avec autre chose. 
Mais je devine, en faisant marcher les deux données en crabe on a une ligne un peu plus droite, oui, bof, je laisse ça à ceux qui adorent ce genre de trigonométrie, c'est l'histoire de + ou - 1 pixel...
---------------------

Le mien fait un peu de crabe, j'ai testé celui de "acive
", il semble tourner avec un angle droit au début, pour pendre ensuite sa trajectoire, impression visuelle ?

Bref, ça doit être suffisant pour le demandeur, bonsoir à vous deux

acive · Answer

Oui, de toute façon le demandeur est absent et d'après ce que j'ai lu il a compris le principe.




CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

Voyons voyons ...
Ce n'est pas là de la "trigonométrie", mais juste de l'algèbre 
On a deux points (x1,y1) et x2,y2) où, par définition , x1, y1, x2 et y2 sont des valeurs onnues.
Ils sont tous deux sur une droite (celle qui les relie) l'équation linéaire y = ax + b 
On a donc un système de deux équations linéaires 
y1 = ax1 + b
et
y2 = ax2 + b
où ce qui est en noir est connu et où ce qui est en rouge est à déterminer.
Cette détermination, tant du coefficient a que de la constante b se fait simplement par la résolution (niveau 5ème) du système de deux équations à deux inconnues (a et b) ci-dessus.
On connait dès lors l'équation linéaire de la droite reliant nos deux points :
elle est :
y = ax + b
où, maintenant, a et b sont des valeurs connues (constantes) 
Il nous suffit de faire, à notre choix, varier les variables x ou y pour connaître la valeur de l'autre inconnue (y si l'on fait varier x ou x si l'on fait varier y).
On obtient donc par exemple pour une série de x, les valeurs correspondantes de y, c'est à dire tout bêtement les coordonnées des points successifs dur la droite reliant nos deux points limites.
C'est dur, çà ? 
Je ne le crois pas ! et c'est d'autant plus facile, que tout se trouve dans le lien que j'ai donné plus haut . "Yapluka"


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ehjoe · Answer

J'ai eu de longue discussions sur l'ancien forum vb6 avec ça, car en théorie on a bien une droite, mais en pratique ta droite exceptés quatre cas, ne peut qu'être tordu car en la mettant dans les pixels, c'est comme si tu faisais passe un manche à balai dans un labyrinthe sans le tordre, impossible...

Bonne nuit

cs_ShayW · Answer

Bonsoir

juste de ne pas oublier sur la form le sens 
posistif d'y est vers le bas
contrairement sur la feuille c'est vers le haut
donc si j'ai 

          
                    (200,0)
                    /
                   /   
                  /
                 /
          (0,200)

ce qui donne  y = -x+200
mais sur la feuille y = -x+200 donne plutot
      y
      | (0,200)
      |\ 
      | \
      |  \
______|___\____________ x
           (200,0)

acive · Answer

Re:
Dans le cas du tracé d'une ligne c'est sur qu'on va apercevoir un effet "d'escalier" à l'écran.
Mais dans ce cas concret il s'agit du déplacement d'une picturebox et on ne va pas s'apercevoir visuellement (ou très peu).

Un très bon exemple en VB6 de dabala concernant les droites avec l'affichage des équations et tout:

http://www.vbfrance.com/codes/EQUATION-TRACER_43440.aspx



CF2i - Guadeloupe
Ingénierie Informatique

gege1505 · Answer

Merci, pour vos réponses, mais pas besoin de me donner tout le code, de l'aide aurait suffit, surtout que j'y était presque, depuis 2-3h je suis sur un autre problème maintenant, mais vous devez vous en douter, je pense que ce genre de question est posé très couramment.

Mon image est un gif, avec un fond en transparence, donc, actuellement à chaque fois que l'image se redessine, le fond change, mais pas de suite, c'est donc très laid. Je cherche un moyen de remédié à cela.

Merci, à tous, bonne soirée.

cs_ShayW · Answer

Bonsoir
Envois plutot un nouveau post si c'est 
un nouveau sujet

gege1505 · Answer

Non ce n'est pas un nouveau sujet, c'est juste améliorer celui-ci, en gros quand le fond de ma PictureBox se redessine, au début elle garde le fond, de l'image de fond de ma Form, où elle se trouvée avant de changer de position. Elle met du temps à se redessiner correctement.

ucfoutu · Answer

Re coucou, gege1505,

Si tu en es là, c'est, je pense, que tu as assimilé la première étape.
Mais avant même de traiter ce problème (par un double buffering), tu en as bien d'autres à traiter à mon avis. Et étape par étape. Et pour ce seul problème de déplacement, à ce niveau.
Si tu veux qu'on en parle, dis-moi (et tu verras l'avalanche ). Je suis prêt à rajeunir d'environ 17 années et à te livrer, pas à pas, les différents casse-têtes qu'il m'a bien fallu, à l'époque, résoudre. Je ne donnerai aucun code. Je te guiderai pas à pas pour que tu écrives le tien en parfaite connaissance de cause.
Tu dis (mais je te préviens : il va te falloir pas mal d'opiniâtreté)


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

gege1505 · Answer

Ben j'avais 2 problèmes, un vous l'avez tous résolu, en me postant vos codes, et le 2éme, c'est que l'abscisse et l'ordonnée de déplacement de l'image étant tout le temps identique (fallait initialiser le random) et ça c'est done aussi.
Maintenant je voudrais bien savoir comment faire pour que seul mon image se redessine correctement, et que son fond qui est transparent, le reste ^^

Merci, en tout cas de m'apporter autant d'attention.

ucfoutu · Answer

Non, tu en as un autre (et il 'est pas le seul) plus fondamental à régler auparavant : celui de la vitesse constante de déplacement (et même dan le cas le plus simple, que l'on va seul considérer à ce niveau : celui d'une vue à la perpendiculaire d'un plan, en imaginant ue tu en sois suffisamment éloigné pour que l'on puisse - c'est plus simple - considérer que tu es à la perpendiculaire de chacun des points de ton écran).
Même dans ce cas beaucoup plus simple, tu ne peux faire avancer ton image à vitesse à peu près constante en jouant sur x ou sur y. La vitesse de parcours sera,  par exemple en faisant varier progresser l'abscisse, très différente selon l'inclinaison du chemin sur ton écran.
Tu atténueras cet effet ainsi :
en choisissant de faire progresser l'abscisse ou l'ordonnée selon que la différence entre les deux abscisses est la plus grande ou que la différence entre les deux ordonnées est la plus grande.
Assimile cela et on continue sur cette modération du déplacement.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

gege1505 · Answer

Je ne veux pas paraître désintéressé, mais cela m&#8217;importe peu, la façon dont bouge mon image me convient parfaitement, et au pire si cela viendrait à changer je ferais un random pour le tick du timer aussi entre la détermination du déplacement de l'abscisse et celui de l'ordonnée.

Là ce que je veux vraiment arriver à résoudre, c'est ce que je vous ai expliqué plus haut, mon image se redessine pas comme je le voudrais, et ce n'est vraiment pas très propre à l'écran.

ucfoutu · Answer

Relis moi plus haut : je t'y ai donné le terme : Double Buffering
C'est avec ce mot, que tu trouveras ta solution sur le Web 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

gege1505 · Answer

Très bien merci, ça n'a pas l'air facile...

ucfoutu · Answer

C'est moins difficile avec VB.Net (tu développes bien sous Net ?)
Commence par  cette lecture


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

gege1505 · Answer

Oui avec VS 2010, oui.
Ouais je vais chercher de la doc et lire tout ça, merci.

cs_ShayW · Answer

Bonjour

http://msdn.microsoft.com/fr-fr/library/b367a457.aspx

ucfoutu · Answer

Bien, ShawW, de le lui avoir trouvé ainsi expliqué et en français 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Bon,
je suis en train de m'amuser un peu avec les équations, juste pour me rafraichir la mémoire et traiter les cas particuliers.
Je pense que je déposerai tout-à-l'heure un petit source/démo pour montrer comment on doit s'y prendre pour que ces déplacements soient gérés dans tous les sens et sans de grandes variations (selon l'inclinaison) de la vitesse de déplacement.
Dans ce source, je ne traiterai que le problème du déplacement en soi (l'utilisation de l'algèbre) sans me "perdre" (c'est un autre sujet) dans le "double buffering".
Je développe sous VB6 et ce source ne sera donc pas du VB.Net, mais il est écrit de telle manière que sa transposition en VB.Net devrait être un jeu d'enfant.
A plus, donc.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Voilà qui est maintenant fait I C I
Je pense avoir simplifié au maximum pour que chacun puisse s'y "retrouver" assez facilement.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_ShayW · Answer

ça avance doucement mais surement 
rien ne sert de courir il faut partir à point 

un petit bug 
si on ferme (clique sur X) pendant le mouvement
il faut après cliquer sur le carré end
pour terminer

ucfoutu · Answer

Bonjour, ShayW
ça avance doucement mais surement 

J'ai réglé le tout au ralenti pour que l'on voie bien comment le déplacerment "colle" au segment.
La vitesse est réglable (on peut même faire du "fulgurant").
Attends, je vais d'ailleurs mieux séparer les paramètres de réglage sur le source, dès que j'ai un moment.
un petit bug
si on ferme (clique sur X) pendant le mouvement
il faut après cliquer sur le carré end
pour terminer
En IDE, oui : comme pour toute boucle interrompue en IDE. Pas en exe.
Mais je vais faire en sorte (fastoche) que même en IDE, cela s'arrête pile également. 
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

gege1505 · Answer

Je suis entièrement d'accord avec tout vos codes, et merci de les améliorer au fur et à mesure. Ils marchent très bien sur un fond unicolore, tout noir par exemple. Cependant, dans mon cas, mon image dispose d'un fond transparent, et si ma Form possède un fond autre qu'unicolore, c'est à dire que son fond est une image, la partie de mon image qui était transparente, ne l'est plus réellement et garde pendant le déplacement le fond qu'elle avait à sa position initiale.

Attention, je ne parle pas ici d'un phénomène de scintillement de l'image lors de son déplacement.

ucfoutu · Answer

Voilà qui est fait, ShayW
- tu peux maintenant faire à ta guise la tortue ou le pilote de formule1
- tu peux également interrompre depuis l'IDE sans avoir ensuite à utiliser son bouton stop


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

Bonsoir ucfoutu,
Allez maintenant tu nous code ça en .NET  Si si ....
Salut ShayW

ucfoutu · Answer

Allez maintenant tu nous code ça en .NET Si si .... 

Salut, banana32 ===>>>
"cours derrière que je t'attrape" est ce que me disait mon père, quand j'étais tout petit, pour me dire que je pouvais toujours attendre que les poules aient des dents 

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

ucfoutu, 
Décidément vb6 et moi ...
J'ai un joli message :  Erreur de compilation. Variable non définie (temoin)
Et un gros trait jaune sur Form_Activate
Mais ça ne m'empêchera pas de dormir

Utilisateur anonyme · Answer

oups le Shape

ucfoutu · Answer

Hé ! Hé ! T'avais lu en diagonale, toi, hein ?


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Mais puisque tu y es, banana32, et que toi, tu es VB.Netiste ===>> transpose tout cela en VB.Net et dépose à ton tour (t'as ma totale bénédiction). Cela facilitera la vie de quelques VB.Netistes. 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

J'avais rien lu du tout tu veux dire lol

cs_ShayW · Answer

Bonsoir Ucfoutu
C'est bon vitesse foudroyante comme 
Luckyluck "le shape qui bougeait plus vite que
son ombre"

Bonsoir Banana32 
Bonsoir gege1505 
quel jeu fabrique tu ?

Utilisateur anonyme · Answer

Salut ShayW,
J'ai mis un shape carré et ca fait très ... téléphérique 
Une idée de jeu peut être en rajoutant des montagnes et en demandant à l'utilisateur d'accrocher les câbles aux sommets...

Utilisateur anonyme · Answer

@ucfoutu,
J'ai transformé ton code de cette manière en .NET
Option Explicit On
Public Class Form1

    Private Structure mes_params
        Dim coef As Single
        Dim constante As Single
        Dim incli As String
        Dim sensx As Integer
        Dim sensy As Integer
    End Structure

    Dim pt_d, pt_f As Point
    Dim encours As Boolean
    Dim Temoin As New PictureBox

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'tout ce qui estr ici est sans intérêt : juste pour initialiser chaque chose.
        With Me
            .WindowState = FormWindowState.Maximized
        End With
        With Temoin
            .Bounds = New Rectangle(100, 100, 20, 20)
            .BackColor = Color.White
            .BorderStyle = BorderStyle.FixedSingle
        End With
        Me.Controls.Add(Temoin)
        pt_d = New Point(0, 200)
    End Sub

    Private Sub Form_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseDown
        'chaque fois que l'on clique sur le form, on modifie la position de l'extrêmité et on donne à la première les coordonées de la précédente
        If encours Then Exit Sub
        pt_f = New Point(e.X, e.Y)
        allons()
    End Sub

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawLine(Pens.Black, pt_d, pt_f)
    End Sub

    Private Sub allons()
        ' on utilise ici les résultats algébriques (mais aussi autres) de la fonction param_droite
        encours = True
        Dim x1 As Integer, x2 As Integer, y1 As Integer, y2 As Integer, i As Integer, duree As Single
        x1 = pt_d.X
        x2 = pt_f.X
        y1 = pt_d.Y
        y2 = pt_f.Y
        duree = 0.1
        With param_droite(x1, x2, y1, y2)
            Select Case .incli
                Case "V" ' on traite bien évidemment différemment le cas d'une droite parfaitement verticale
                    For i = y1 To y2 Step 3 * .sensy
                        temoin.Left = x1
                        temoin.Top = i
                        attente(duree)
                    Next
                    encours = False
                Case "H" ' ' on traite bien évidemment différemment le cas d'une droite parfaitement horizontale
                    For i = x1 To x2 Step 3 * .sensx
                        temoin.Left = i
                        temoin.Top = y1
                        attente(duree)
                    Next
                    encours = False
                Case Else
                    ' pour "modérer" la vitesse, on va détermier le "décalage"  le plus important : celui des ordonnées ou celui des abscisses ?
                    If Math.Abs(x1 - x2) >= Math.Abs(y1 - y2) Then ' si décalage abscisses plus important ; on fit varier les abscisses
                        For i x1 To x2 Step 3 * .sensx ' sensx -1 ou +1 selon que abscisses décroissantes ou croissantes
                            Temoin.Left = i
                            Temoin.Top = (.coef * i) + .constante
                            attente(duree)
                        Next
                    Else ' si décalage ordonnées plus important, on fait varier les ordonnées
                        For i y1 To y2 Step 3 * .sensy ' sensx -1 ou +1 selon que ordonnées décroissantes ou croissantes
                            Temoin.Top = i
                            Temoin.Left = (i - .constante) / .coef
                            attente(duree)
                        Next
                    End If
            End Select
        End With
        encours = False
    End Sub

    Private Function param_droite(ByVal x1 As Integer, ByVal x2 As Integer, ByVal y1 As Integer, ByVal y2 As Integer) As mes_params
        'voilà la seule fonction intéressante : celle qui utilise l'algèbre
        ' et traite les cas particuliers (horizontale et verticales pures)
        With param_droite
            .sensx = 1
            .sensy = 1
            If x1 = x2 Then
                .coef = 0
                .constante = 0
                .incli = "V"
                If y2 < y1 Then .sensy = -1
            Else
                If y1 y2 Then .incli "H"
                .coef = (y1 - y2) / (x1 - x2)
                .constante = y1 - (.coef * x1)
                If x2 < x1 Then .sensx = -1 ' on est dans le cas d'abscisses décroissantes
                If y2 < y1 Then .sensy = -1 ' on est dans le cas d'ordonnées décroissantes
            End If
        End With
        Return param_droite
    End Function

    Private Sub attente(ByVal duree As Single)
        Threading.Thread.Sleep(duree)
        Me.Refresh()
    End Sub
End Class

Utilisateur anonyme · Answer

J'ai juste oublié de réassigner pt_d (départ) à pt_f (fin) lors de l'événement mouse_down

Utilisateur anonyme · Answer

C'est juste la traduction de ton code ucfoutu. Je n'aurais pas fait comme ça personnellement.
Je le reposte, NHenry supprimera l'autre juste au dessus.
Merci d'avance NHenry Option Explicit On
Public Class Form1

    Private Structure mes_params
        Dim coef As Single
        Dim constante As Single
        Dim incli As String
        Dim sensx As Integer
        Dim sensy As Integer
    End Structure

    Dim pt_d, pt_f As Point
    Dim encours As Boolean
    Dim Temoin As New PictureBox

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'tout ce qui estr ici est sans intérêt : juste pour initialiser chaque chose.
        With Me
            .WindowState = FormWindowState.Maximized
        End With
        With Temoin
            .Bounds = New Rectangle(100, 100, 20, 20)
            .BackColor = Color.White
            .BorderStyle = BorderStyle.FixedSingle
        End With
        Me.Controls.Add(Temoin)
        pt_d = New Point(0, 200)
    End Sub

    Private Sub Form_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseDown
        'chaque fois que l'on clique sur le form, on modifie la position de l'extrêmité et on donne à la première les coordonées de la précédente
        If encours Then Exit Sub
        pt_f = New Point(e.X, e.Y)
        allons()
    End Sub

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawLine(Pens.Black, pt_d, pt_f)
    End Sub

    Private Sub allons()
        ' on utilise ici les résultats algébriques (mais aussi autres) de la fonction param_droite
        encours = True
        Dim x1 As Integer, x2 As Integer, y1 As Integer, y2 As Integer, i As Integer, duree As Single
        x1 = pt_d.X
        x2 = pt_f.X
        y1 = pt_d.Y
        y2 = pt_f.Y
        duree = 50
        With param_droite(x1, x2, y1, y2)
            Select Case .incli
                Case "V" ' on traite bien évidemment différemment le cas d'une droite parfaitement verticale
                    For i = y1 To y2 Step 3 * .sensy
                        temoin.Left = x1
                        temoin.Top = i
                        attente(duree)
                    Next
                    encours = False
                Case "H" ' ' on traite bien évidemment différemment le cas d'une droite parfaitement horizontale
                    For i = x1 To x2 Step 3 * .sensx
                        temoin.Left = i
                        temoin.Top = y1
                        attente(duree)
                    Next
                    encours = False
                Case Else
                    ' pour "modérer" la vitesse, on va détermier le "décalage"  le plus important : celui des ordonnées ou celui des abscisses ?
                    If Math.Abs(x1 - x2) >= Math.Abs(y1 - y2) Then ' si décalage abscisses plus important ; on fit varier les abscisses
                        For i x1 To x2 Step 3 * .sensx ' sensx -1 ou +1 selon que abscisses décroissantes ou croissantes
                            Temoin.Left = i
                            Temoin.Top = (.coef * i) + .constante
                            attente(duree)
                        Next
                    Else ' si décalage ordonnées plus important, on fait varier les ordonnées
                        For i y1 To y2 Step 3 * .sensy ' sensx -1 ou +1 selon que ordonnées décroissantes ou croissantes
                            Temoin.Top = i
                            Temoin.Left = (i - .constante) / .coef
                            attente(duree)
                        Next
                    End If
            End Select
        End With
        If encours Then pt_d = pt_f
        encours = False
    End Sub

    Private Function param_droite(ByVal x1 As Integer, ByVal x2 As Integer, ByVal y1 As Integer, ByVal y2 As Integer) As mes_params
        'voilà la seule fonction intéressante : celle qui utilise l'algèbre
        ' et traite les cas particuliers (horizontale et verticales pures)
        With param_droite
            .sensx = 1
            .sensy = 1
            If x1 = x2 Then
                .coef = 0
                .constante = 0
                .incli = "V"
                If y2 < y1 Then .sensy = -1
            Else
                If y1 y2 Then .incli "H"
                .coef = (y1 - y2) / (x1 - x2)
                .constante = y1 - (.coef * x1)
                If x2 < x1 Then .sensx = -1 ' on est dans le cas d'abscisses décroissantes
                If y2 < y1 Then .sensy = -1 ' on est dans le cas d'ordonnées décroissantes
            End If
        End With
        Return param_droite
    End Function

    Private Sub attente(ByVal duree As Single)
        Threading.Thread.Sleep(duree)
        Me.Refresh()
    End Sub
End Class

ucfoutu · Answer

Bé !
T'as pas compris !
Ce n'est pas ici, qu'il faut le mettre (il va être perdu).
C'est en déposer le source, qu'il te faut faire !
Mais attends un peu car il y a eu un petit problème de modif disparue (voir mon poste à ce sujet).
Et je vois d'ailleurs que la modif concernée (paramétrage de la cadence) n'est pas dans ton code.
Attends que cela soit élucidé, puis dépose un source VB.Net (c'est cela, qu'il faut faire).


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Utilisateur anonyme · Answer

Ce n'est pas ici, qu'il faut le mettre (il va être perdu).
C'est en déposer le source, qu'il te faut faire !
Bon puisqu'on ne peut pas éditer ou supprimer ses propres posts, NHenry ou jack (qui à bien veilli sur son avatar) feront du grand ménage ici alors 
Désolé pour les dérangements.

ucfoutu · Answer

tu peux y aller, maintenant (la modif y est maintenant bien. Pourvu qu'elle y reste )
Rien ne t'empêche par ailleurs de concocter, si tu le préfères, autre chose à ton goût. Tout ceci importe peu. La seule chose qui importe, à mon sens, est qu'un source simple soit déposé, de sorte à faciliter la vie d'autres. Mais dépose quelque-chose : que ce soit la transposition d mon code ou un autre, pourvu qu'il montre comment atteindre ce résultat.
Amitiés
Jacques

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Déplacement aléatoire d'une PictureBox dans une Form

59 réponses

Votre réponse

Discussions similaires