Discussion :

[samiasamia]

voici j'ai un form contient un bouton et 3 combobox,
la première contient:

place1(P1)
place2(P2)
place3(P3)

et la deuxième contient:

transition1(T1)
transition2(T2)
transition3(T3)

la troisieme contient:

Agent1(A1)
Agent2(A2)
Agent3(A3)

Par exemple lorsque je choisi (P1), (T1)et (A1) et je clic sur le bouton, il apparaît un graphe RDP qui contient 2 cercles.Le premier cercle contient (P1) et le deuxième (A1) qui sont reliées à une transition(T1).
Je sais pas comment réaliser cette tache.
Aidez-moi SVP

[rv26t]

Bonjour,

C'est bien de poser des questions, mais il faut aussi suivre.

http://www.developpez.net/forums/d13...icher-fenetre/
La réponse proposée a-t-elle apporté une solution ?

http://www.developpez.net/forums/d13...r-fichier-txt/
Le code proposé correspond-t-il a ce que vous souhaitiez faire ?

http://www.developpez.net/forums/d13...ntenu-tableau/

Désole,

j'ajoute la fonction à appeler mais ne fonctionne pas.

Qu'est ce qui ne fonctionne pas ? Que donne le suivi en debug pas à pas ?
Quel sont les symptomes ? , Message d'erreur ? , il ne se passe rien (pas d'erreur, pas de fichier) ?


Nous comprenons que ce n'est pas facile de débuter, nous voulons bien vous aider, mais il faut que vous y mettiez du votre, hein.


Des cours sur le dessin
http://plasserre.developpez.com/cour...ws-forms2#LX-G


Le graphe RDP est un graphe sur les Réseaux de Petri ?
une méthode directe pour dessiner sur un pictureBox.

Code :

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

1
2
3
4
5
6
7
8
9
    Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        e.Graphics.DrawEllipse(New Pen(Color.DarkCyan), New Rectangle(10, 10, 50, 50))
        e.Graphics.DrawString("P1", New Font("Arial", 12), New SolidBrush(Color.Blue), 23, 25)
        e.Graphics.DrawLine(New Pen(Color.DarkMagenta), New Point(60, 35), New Point(100, 35))
        e.Graphics.DrawString("T1", New Font("Arial", 12), New SolidBrush(Color.Blue), 67, 12)
        e.Graphics.FillRectangle(New SolidBrush(Color.Red), 77, 30, 2, 10)
        e.Graphics.DrawEllipse(New Pen(Color.DarkCyan), New Rectangle(100, 10, 50, 50))
        e.Graphics.DrawString("A1", New Font("Arial", 12), New SolidBrush(Color.Blue), 112, 25)
    End Sub

Mais si vous avez un shémas complet a dessiner, il faut peut être prévoir quelque chose de plus évolué.

A+, Hervé.

[samiasamia]

Merci pour votre aide
Mais lorsque je compile il apparaît un seul cercle

[rv26t]

Agrandisser un peu le controle picturebox.

[samiasamia]

Merci