Discussion :

[morrison29]

Dans un soft en VB j'ai créer une Line que je trace avec la souris et je souhaite determiner et afficher cette distance en metre? mes soucis sont plus d ordre informatique que d ordre mathematique

j ai simplement besoin d afficher la distance du trait que je trace sans histoire de coordonnées X, Y... simplement B-A = ? est ce possible de traduire ça en VB ?

merci pour vos reponses

[Delbeke]

En mêtres ! dieux que ton ecran est immense, moi j'ai un 19 pouces et j'etais déjà bien content

[morrison29]

merci pour ta reponse evidement c'est une simulation pour ceux qui ne l aurait pas compris... il s agit de la trace d'un bateau qui s inscrit ds une picture box j'ai une echelle qui me permet de zoomer ou pas...

[morrison29]

voici mon programme, je l ai transferer ds mon soft il s applique tres bien, maintenant pour finaliser le projet il faut que je determine la longueur du trait que je trace :

Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Option Explicit
 
Private mDragEnCours                As Boolean
 
Private Sub Form_Load()
  mDragEnCours = False
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  mDragEnCours = True
  With Line1
    .X1 = X
    .X2 = X
    .Y1 = Y
    .Y2 = Y
  End With
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If mDragEnCours Then
    With Line1
      .X2 = X
      .Y2 = Y
    End With
  End If
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  mDragEnCours = False
End Sub

ç rentabiliserait mon outil, je suis malheuresement un peu juste en connaissance de code ( j'etudie le etape par etape de Halvorson) mais ...il n y a pas la reponse à l interieur

merci de votre aide...

[Najdar]

J'ai ajouté la formule indiquée précédement (dans le sujet précédent) dans le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If mDragEnCours Then
    With Line1
      .X2 = X
      .Y2 = Y
 
      Me.Caption = Sqr((Abs(.X1 - .X2) * Abs(.X1 - .X2)) + _
                       (Abs(.Y1 - .Y2) * Abs(.Y1 - .Y2)))
    End With
  End If
End Sub

Dans le titre de la feuille s'affiche la dimention de la ligne en Twips (ou l'unité choisie dans la PictureBox).
Maintenant tu connais la dimension dans la picturebox, tu connais l'echelle de la picturebox, c'est à ton tour de travailler !

[morrison29]

merci Najdar ... qu'est ce que je ferais sans toi... il va falloir que je t embauche...