dessiner des lignes en VB

Version imprimable

09/04/2012, 17h48
babass-77

dessiner des lignes en VB

Bonjour, je travaille actuellement sur un logiciel d'hydraulique basé sur la formule de Caquot. J'aimerais que les utilisateurs puissent visualiser le réseau de canalisations qu'ils créent au fur et à mesure. Mon logiciel fonctionne de la façon suivante. L'utilisateur entre les données d'une branche du réseau (pente, longueur, coefficient d'imperméabilisation, etc), ensuite il rentre une seconde branche, puis une 3ème, 4ème, etc s'il le souhaite. Ensuite, il va sur la page suivante et peut appliquer la formule de Caquot, soit en série, soit en parallèle. Dès qu'il appuie sur le bouton calcul correspondant, j'aimerais ques des traits, symbolisant les branches du réseau, apparaissent sur une nouvelle forme. Peu importe les dimensions des traits, je veux juste respecter le fait que les branches soient en série ou en parallèle.

Est-ce possible avec le language VB? Comment peut-on faire cela simplement?

Merci.
09/04/2012, 18h13
Sankasssss

Bonsoir,

oui c'est bien sûr faisable simplement, voir dans le cour du Dr Ph. Lasserre

Voici le début de mon programme :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Public Class Form7 Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint If Form4.TextBoxbranche1.Text = "" Then Else e.Graphics.DrawLine(Pens.Red, 10, 40, 100, 40) e.Graphics.DrawString(Form4.TextBoxbranche1.Text, Font, Brushes.Black, 40, 27) End If If Form4.TextBoxbranche2.Text = "" Then Else e.Graphics.DrawLine(Pens.Red, 10, 80, 100, 40) e.Graphics.DrawString(Form4.TextBoxbranche2.Text, Font, Brushes.Black, 45, 65) End If If Form4.TextBoxBranche3.Text = "" Then Else e.Graphics.DrawLine(Pens.Red, 10, 0, 100, 40) e.Graphics.DrawString(Form4.TextBoxBranche3.Text, Font, Brushes.Black, 45, 3) End If End Sub End Class
Ensuite je voudrais pouvoir faire la meme chose mais en décalant l'abcisse de 90 sans perdre les branches précédentes.

Par exemple : l'utilisateur rentre 1 2 et 3 dans les 3 textbox, cela trace 3 traits en parrallèle avec les chiffres 1 2 et 3 a coté de chaque branche. Ensuite je voudrais que lorsque l'utilisateur rentre de nouvelles valeurs dans les 3 textbox, je voudrais que cela rajoute des branches a la suite sans tout supprimer ce qui a été fait précédemment. Car quand je rentre une deuxième série de valeurs dans les textbox, mon dessin initizl est remplacé par le nouveau. Mais j'aimerais justement que ca se mette à la suite du premier dessin.

J'espere que vous avez compris mon probleme.
Merci

Salut,

J'ai essayé je pense avoir une solution pour toi:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Dim rectangles As New List(Of Rectangle)
    Dim x As Integer = 0
    Dim y As Integer = 0
    Dim canDraw As Boolean = False
 
    Private Sub Form1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        If canDraw Then    
            Dim r As New Rectangle(New Point(x, y), New Size(50, 50))
            rectangles.Add(r)
 
            e.Graphics.FillRectangles(Brushes.Black, rectangles.ToArray)
            canDraw = False
        End If
    End Sub
 
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        x += 50
        y += 50
        canDraw = True
        Refresh()
    End Sub

Ici, j' ajoute au fur et à mesure des rectangles donc c'est pas tout à fait ce que tu veux mais tu peux t'en inspirer..

19/04/2012, 09h28
babass-77

Merci, malheureusement, j'ai pas mal de difficultés à adapter votre programme pour des lignes. Par exemple, vous utilisez "List(Of rectangle)" mais, "List(Of Line)" n'existe pas. Donc c'est pas évident.

Quelqu'un aurait une idée?
19/04/2012, 10h34
-N4w4k-

Dans ce bout de code je ne te montrais qu'une solution (parmi tant d'autres) pour garder les éléments que tu dessine. Après c'est de la logique..

On sait qu' une ligne est caractérisée par 2 points.. Tu peux par exemple avoir une List(of Point()) ou si ta ligne revient souvent dans ton programme, tu peux créer une classe Ligne contenant des points.
Ensuite utilise la méthode Graphics.DrawLine pour tracer tes lignes..