Tracés de courbes ou de formes sur VB

Version imprimable

08/02/2017, 11h24
Marseillan plage

Tracés de courbes ou de formes sur VB

Bonjour à tous,

Nous sommes étudiants en aéronautique et nous avons un projet à réaliser sur VB mais le problème c'est que nous sommes novice en programmation... :pleure:
Voici notre projet:
Étant en aéronautique, le but du projet est d'afficher un profil d'avions pour étudier son incidence (inclinaison de l'avion en vol pour qu'il maintienne un cap rectiligne) en fonction de sa vitesse. Pour cela on doit afficher à l'écran un avion en vue de face (pour l'inclinaison en virage) et en vue de profil (pour l'incidence en vol en pallier rectiligne) avec des curseurs pour faire varier la valeur de la vitesse ou de l'angle (il faudra aussi que ces valeurs s'affichent à l'écran).
A ce stade nous avons scanné une image d'un avion et relevé un nuage de points nous permettant de pouvoir modéliser l'avion. Seulement comme il a été dit plus haut, nous sommes novice et maintenant on est bloqués... :marteau:

On ne sait pas comment afficher ce nuage de points sur VB... Si quelqu'un a la solution pour nous éclairer, ce serait bien sympa de votre part!
Ensuite il faudra aussi que par une boucle on arrive à effacer l'avion pour le ré-afficher avec un changement angulaire mais pour l'instant on en est pas la... :whistle:

Merci d'avance!!! :merci:
14/02/2017, 12h14
Delaney

Bonjour,

Je vous invite à utiliser le tutorial de P Lasserre qui est très bien fait pour afficher des courbes. vous trouverez tout ce qu'il vous faut dedans.
http://plasserre.developpez.com/cours/chart/

vous pouvez stocker vos données (point x et y) dans un fichier texte, lire le fichier pour stocker les données dans un tableau/matrice pour afficher les points sur le graph.

si vous débuter en VB voir aussi le tutorial plasserre.developpez.com/cours/vb-net/
21/02/2017, 14h35
Marseillan plage

1 pièce(s) jointe(s)

Merci pour votre réponse.

J'ai réussi à avancer un peu mais la je bute sur un petit détail, je n'arrive pas à voir ou est l'erreur...
Pièce jointe 246823
22/02/2017, 04h56
clementmarcotte
Bonjour,

Tu veux faire quoi exactement ?

Là tu crées deux nombres aléatoires:
Code:

1 2 x(i) = Rnd() * 100 y(i) = Rnd() * 100
Et là tu veux lire deux points, mais tu ne dis pas si tu les as enregistrés avant
Code:

1 2 open app.path & "\dr400.txt" for input as 10
Pour les enregistrer tu dois ouvrir ton fichier for Output et les écrire avec Write ou avec Print au lieu de input.

Mais , pour le confort des répondeurs, c'est ultra préférable de mettre le code directement dans le message en utilisant les balises appropriées au lieu de mettre une image. (s'il y avait un ocr incorporé à la page web, je ne dirais pas, mais une image, c'es beaucoup de trouble. D'autant plus que le code balisé (sélectionner le code et cliquer sur le dièse) ajoute automatiquement des numéros de ligne.

Parce que là, chez-moi, il est presque 23 heures, je ne suis pas à la maison et je n'ai pas de scanneur à portée de la main pour faire de l'OCR. L'OCR de One-Note n'est pas le meilleur du marché et je n'ai vraiment pas envie, ni le temps de recopier et corriger ton code.
23/02/2017, 15h26
Marseillan plage

Bonjour,

je veux seulement ouvrir le fichier et faire apparaitre les points (faire apparaitre l'avion du coup).

Ne vous énervez pas, je ne vous demande pas de tout me coder, je demande juste des conseils car je suis novice sur VB et je n'arrive pas à comprendre les raisonnement des logiciels de codage (et oui ce n'est pas inné pour tout le monde...).

Bonne journée.

voici ce que j'utilise pour lire mes courbes: j'ai un fichier avec plusieurs courbes différentes ayant chacun un nom, les points X et Y sont séparé par une virgule, le "." sert de décimale.les courbe sont séparées par une ligne d'étoile et en tête du fichier j'ai le nombre total de courbes stockées. je stocke mes courbes dans des collections et des dictionnaires (plus pratique au final que des tableaux) mais si tu as juste une courbe à lire un simple tableau fera l'affaire (faudra adapter le code pour cela).
mon fichier courbe c'est donc

nb de courbe
nom de la 1ere courbe
X,Y
X,Y
.....
....
******
nom de la deuxième courbe
X,Y
X,Y
.....
....
******
etc...

à toi d'adapter le code. c'est pas du code de pro (comme toi je suis un amateur) mis c'est simple et ça marche

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
'procédure pour importer les données dans l'instance
   Public Sub Importation()
      Dim Nb_Courbe As Integer
      Me.Courbes_Mecaniques.Clear()
 
      'selectionne un fichier 
      Dim filetoopen As DialogResult = Form1.OpenFileDialog1.ShowDialog()
      Dim Filename As String = Form1.OpenFileDialog1.FileName
 
      'ouvre une instance de lecture
      Dim sr As StreamReader = New StreamReader(Filename)
 
     ' récupère le nombre de courbe
      Nb_Courbe = sr.ReadLine()
      If Nb_Courbe = 0 Then
         ' sort du test
      Else
         'récupère les données des courbes et enregistre les 
         For i = 1 To Nb_Courbe
            Dim Courbe As New Dictionary(Of Single, Single) ' crée une courbe
            Dim Fin_Courbe As Boolean = False 'par défaut, c'est pas encore la fin de la courbe
            Dim ligne As String
            Dim Nom_courbe As String
            Dim point() As String
            Nom_courbe = sr.ReadLine() ' récupère le nom de la courbe
 
            While Fin_Courbe = False ' tant que c'est pas la fin de la courbe
               ligne = sr.ReadLine() 'lit la prochaine ligne
               If ligne = "******" Then 
                  Fin_Courbe = True 'si c'est la fin tu le stocke
               Else
                  point = ligne.Split(",") 'sépare ma ligne en deux autour de la virgule et stocke le contenu dans le tableau "point"
                  Courbe.Add(CSng(point(0)), CSng(point(1))) ' converti le contenu de point en single et ajoute un item à  "courbe"
               End If
            End While
            'met dans la collection courbe de ma "form"
            Me.Courbes_Mecaniques.Add(Nom_courbe, Courbe)
         Next
      End If
 
      'ferme l'instance de lecture
      sr.Close()
   End Sub

bonjour
Vu ton probleme à resoudre et le fait que tu utilise un language (VBA) totalement inadapte pour faire des traces graphiques à l'ecran ,je suis sceptique pour ne pas dire desesperé à ta place...

Il faut se mettre au VB.NET(ce forum est un Forum VB.NET pour les malentendants et malvoyants ,Voir le tutorial de P.Lasserre dont le lien a été donné par Elthorn)....
Le VB.NET dispose de l'artillerie pour venir à bout de ton problème !!!
Pour tracer la courbe du Profil de ton "Aéronef" (et sa courbe de Face) c'est beaucoup plus simple :
- le class Graphics dispose de primitives de toutes sortes:
-Ellipse, Curve(Spline) ,Polyline ,Arc ,Line, Lines(ligne brisée) (nécessite une ligne de code)...
Il suffit de fournir les paramètres :ainsi pour Curve(un Spline) ,Polyline ,Arc ,Lines(ligne brisée) un tableau de points suffit....

Pour des dessins plus élaborés, le class GraphicsPath permet de composer des figures plus complexes(tu peut définir un Point Privilégié dans le "path" (ou tracé) ainsi qu'un Axe Privilégié) ...
Le "path" peut être animé à l'aide d'une minuterie (Timer) suivant une trajectoire qui est elle-même un "path"....

Bref pour avoir une idée et de l'appétit pour VB.Net ,voici 2 exemples de code :
Le 1er dessine un tracé de segments connectes "randomize"(aléatoire)
le 2eme dessine une figure "avion" (voir le fichier de points ci-joint Avion.txt)
et l'anime (déplacement à la souris)....

code .vb du 1er Exemple (un Form et un bouton à dropper)...

Code:

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
32
33
34
35
36
 
Public Class FormTraceExemple
    'PointF est un structure de x,y de single (adequat pour  un point en coord cartesiennes)
    Private TableauExemplePoints(0 To 99) As PointF 'tableeau de points
    Private rnd As New Random  ' un randomizer de valeurs  x,y
    Private echelle As Single
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i As Integer = 0 To 99
            TableauExemplePoints(i).X = rnd.Next(50, 501)
            TableauExemplePoints(i).Y = rnd.Next(50, 501)
        Next
        DrawTrace()
    End Sub
 
    Private Sub DrawTrace()
        If TableauExemplePoints.Count < 2 Then Return
        Using gr As Graphics = Me.CreateGraphics
 
            gr.Clear(Color.White)
            gr.ScaleTransform(echelle, echelle)
            gr.DrawLines(Pens.DarkBlue, TableauExemplePoints)
 
        End Using
    End Sub
 
    Private Sub FormAvion_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
        echelle = Me.Width / Me.Height
        DrawTrace()
    End Sub
 
 
 
 
 
End Class

NOTA.BENE: les points aléatoires sont différents à chaque clic....!!!

code .vb du 2eme Exemple (un Form , un Bouton & un CheckBox à dropper)...

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
Imports Microsoft.VisualBasic.FileIO 'cet import est vital
 
Public Class FormAvion
    Private AvionPoints As New List(Of PointF) ' une  list de PointF ...Un besace de "point" extensible à volonté (dimension dynamique) 
    Private nbPts As Integer
    Private echelle As Single 'mise à l'echelle pour empecher ajuster le trace aux dimensions de Fenetre(FormAvion)
 
    Private DeplacementActive As Boolean
    Private DeplacementX, DeplacementY As Single
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        LoadPoints()
        DrawTrace()
    End Sub
    Private Sub LoadPoints()
        Using MyReader As New TextFieldParser(Application.StartupPath + "\Avion.txt")
            MyReader.TextFieldType = FileIO.FieldType.Delimited
            MyReader.SetDelimiters(" ")
            Dim ligneCourante() As String
            While Not MyReader.EndOfData
 
                ligneCourante = MyReader.ReadFields()
                For i As Integer = 0 To ligneCourante.Count
                    Dim p As PointF
                    p.X = CSng(ligneCourante(0))
                    p.Y = CSng(ligneCourante(1))
                    AvionPoints.Add(p)
                Next
            End While
        End Using
 
 
    End Sub
    Private Sub DrawTrace()
        If AvionPoints.Count < 2 Then Return
        Using gr As Graphics = Me.CreateGraphics
            gr.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
            gr.Clear(Color.White)
            gr.ScaleTransform(echelle, echelle) 'mise à l'echelle
            gr.TranslateTransform(DeplacementX, DeplacementY) ' deplacement
            Using styloAvion As New Pen(Brushes.DarkBlue, 4.0)
                gr.DrawLines(styloAvion, AvionPoints.ToArray())
            End Using
 
 
        End Using
    End Sub
 
    Private Sub FormAvion_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
        echelle = Me.Width / Me.Height
        DrawTrace()
    End Sub
 
    Private Sub FormAvion_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If DeplacementActive Then
            DeplacementX = e.X
            DeplacementY = e.Y
            DrawTrace()
        End If
 
    End Sub
    Private Sub FormAvion_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        If e.Button = MouseButtons.Right Then
            DeplacementActive = False
            CheckBox1.Checked = DeplacementActive
        End If
    End Sub
 
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        DeplacementActive = CheckBox1.Checked
    End Sub
End Class

pièce jointe: fichier Avion.Txtbon code...

24/02/2017, 14h25
Marseillan plage

Bonjour,

Merci beaucoup pour vos réponse, je vais voir ce que j'arrive à faire avec ça.
Encore merci.