determination d'une distance a partir d'un line

**morrison29** · 15/11/2006, 18h36

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** · 15/11/2006, 22h50

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

**morrison29** · 16/11/2006, 08h36

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** · 16/11/2006, 08h52

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** · 16/11/2006, 10h05

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** · 16/11/2006, 10h37

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

**Najdar** · 16/11/2006, 10h41

Pas de problème, mais je coute très cher !

**morrison29** · 16/11/2006, 13h58

J aurais besoin d un complement d info stp...
j'ai la possibilitée de modifier l echelle ds mon soft ça modifie la taille du cercle et non la taille des carreaux de ma picturebox ainsi que ma line ... comment faire pour que tt soi coherent et tt se zoom ensemble

merci d avance...

En gros lorsque j agis sur mon updown tt coincide...

**Najdar** · 16/11/2006, 14h04

Réfléchis un peu ...

Tu doit connaitre à quoi correspond la largueur de ta picturebox pour déssiner ton graphe. Donc tu sais à quoi correspond un twips dans l'unité que tu utilises (en fonction de ton echelle).

C'est donc un simple régle de trois

**morrison29** · 16/11/2006, 14h28

ok mais la pise en place ds le prog n'est pas si simple ... malheureseusement

règle de trois evidement... mais mise en place enprog

**Najdar** · 16/11/2006, 14h32

Si tu arrive à dessiner un graphe dans une PictureBox tu dervais y arriver facilement...

Je ne vais tout de même pas faire ton programme à ta place. Sinon il faut vraiment que tu m'embauche.

**morrison29** · 16/11/2006, 14h44

c'est un soft que j ai recuperer
en gros un dossier qu on a eu la gentillesse de me donner alors que je suis pas du tt informaticien...
en VB je suis en train d apprendre les bases avec un bouquin etape par etape...

j ai simplement qq petites choses (simple pour un programmeur) à modifier une mainiere de connaitre le rayon d un cercle qui se trace et la possibilité d enregistrer les fichiers.

voila mon travail et a part ce forum et mon bouquin ya personne pour me filer un coup de main

**morrison29** · 16/11/2006, 14h46

ça n est donc pas par faineantise que je ne programme pas mais par le fait que je suis debutant capable de changer de couleur certain element graphique et de comprendre ce qu est une instruction et une variable...

j ai malheuresement que qq temps pour faire ça... et y en a pas pour longtemps pour un informaticien ...

c'est pour ça que je te sollicite bcp...

**morrison29** · 16/11/2006, 14h49

pour info sauf incomprehension de ma part ma picturebox ne bouge pas en taille c juste le cercle a l interieur qui bouge

c vrai que ça ferait pro de faire tt bouger en fct de l echelle cercle + line+ picture... mais je n ai aucune idée de savoir si c complexe ou pas...

**Najdar** · 16/11/2006, 14h52

Dans ce cas, modifie le programme au mieux en fonction de tes compétences et essaye. Si cela ne marche pas ou si tu as une erreur, poste un message sur le forum avec le code en expliquant ce que tu as voulu faire.

Pour ta regle de trois, tu as :
- la longueur de ta ligne,
- la largueur en twips de ta picturebox
Il ne te manque plus qu'a savoir à quoi correspond la largueur de ta picturebox en mètre et ca personne d'autre que toi ne peut le trouver : c'est dans ton programme.

**Najdar** · 16/11/2006, 14h55

Envoyé par morrison29

j ai malheuresement que qq temps pour faire ça... et y en a pas pour longtemps pour un informaticien ...

c'est pour ça que je te sollicite bcp...

C'est un forum d'entraide, pas un endroit où l'on fait le travail à la place des autres.
Pour ça il y a l'ANPE...

**morrison29** · 16/11/2006, 15h17

Bonjour,

Je poste ce message afin de savoir comment coder la taille d'une LINE, à l interieur d une picture box, en fonction de l echelle du programme....

merci

**AlainTech** · 16/11/2006, 16h41

J'ai fusionné les 2 discussions pour garder l'historique de ce qui a déjà été fait.

**morrison29** · 16/11/2006, 16h53

Ca marche merci Najdar

multication par rapport a la variable de l echelle et le tour est joué

mai sj ai qu meme une autre question basique a posé que je vais posé ds la forumVB general

determination d'une distance a partir d'un line

VB 6 et antérieur

Discussions similaires

Partager

Partager