Creer un Graphe avec Visual Basic 6

slt,bon voilà le projet que je veux realiser sous visual basic:dans une form, je voudrais avoir un menu ki me permetterais de desiner les elements du graphe;dans le menu je trouve "noeud"et "arc". En cliquant sur "noeud" une boite de dialogue s'ouvre à l'utilisateur lui demandant la saisie du numero du noeud,le numero saisie, un cercle contenant le numero du noeud se dessine sur la form,la meme chose pr "ligne" ,cette fois avec la valeur de l'arc.Mon graphe est orienté étiqueté..j'ai deja crée la classe noeud, la classe noeud successeur,la classe graphe,j'espère que vous m'aiderez,j'attends tres impatiemment votre aide,,merci d'avance,,
pleaaaaaaaaase !!!!!

Quelle aide demandes-tu exactement ? Pour coder quelle partie ?

Sinon, pour dessiner le graphe, soit tu le dessines via Excel, soit avec le contrôle MsChart ;)

Khany, je pense putot que son graphe doit être du style organigramme.

wép

en fait merci pr vos suggestions, je vous invite à voir ce que j'ai dééjà sous la main ;

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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
Private Sub Command1_Click()
'Espace de travail
 
     Picture1.Scale (-4, 4)-(4, -4)
     Picture1.Cls
 
'dessin du cercle
 
     Picture1.ForeColor = QBColor(12)
 
     Picture1.Circle (-3, 0), (0.3)
 
     Picture1.Circle (0, 2), (0.3)
 
     Picture1.Circle (0, -2), (0.3)
 
     Picture1.Circle (3, 0), (0.3)
 
 
'les numéros du nœuds
 
     Picture1.ForeColor = QBColor(9)
 
     Picture1.Circle (-3.08, 0.15), (0)
     Picture1.Print "0"
 
     Picture1.Circle (-0.08, 2.15), (0)
     Picture1.Print "1"
 
     Picture1.Circle (-0.08, -1.85), (0)
     Picture1.Print "2"
 
     Picture1.Circle (2.92, 0.15), (0)
     Picture1.Print "3"
 
 
 
     Picture1.ForeColor = QBColor(11.4)
 
Picture1.Line (-3 + 0.3 / Sqr(2), 0 + 0.3 / Sqr(2))-(-0 - 0.3 / Sqr(2), 2 - 0.3 / Sqr(2))
       Picture1.Line (-0.3, 1.5)-(-0 - 0.3 / Sqr(2), 2 - 0.3 / Sqr(2))
       Picture1.Line (-0.5, 1.8)-(-0 - 0.3 / Sqr(2), 2 - 0.3 / Sqr(2))
   Picture1.Line (-0.3, 1.5)-(-0.5, 1.8)
 
Picture1.Line (-3 + 0.3 / Sqr(2), 0 - 0.3 / Sqr(2))-(-0 - 0.3 / Sqr(2), -2 + 0.3 / Sqr(2))
       Picture1.Line (-0.3, -1.5)-(-0 - 0.3 / Sqr(2), -2 + 0.3 / Sqr(2))
       Picture1.Line (-0.5, -1.8)-(-0 - 0.3 / Sqr(2), -2 + 0.3 / Sqr(2))
   Picture1.Line (-0.3, -1.5)-(-0.5, -1.8)
 
Picture1.Line (0, 1.7)-(0, -1.7)
       Picture1.Line (-0.2, -1.5)-(0, -1.7)
       Picture1.Line (0.2, -1.5)-(0, -1.7)
Picture1.Line (-0.2, -1.5)-(0.2, -1.5)
 
Picture1.Line (-0 + 0.3 / Sqr(2), 2 - 0.3 / Sqr(2))-(3 - 0.3 / Sqr(2), 0 + 0.3 / Sqr(2))
       Picture1.Line (2.4, 0.2)-(3 - 0.3 / Sqr(2), 0 + 0.3 / Sqr(2))
       Picture1.Line (2.7, 0.5)-(3 - 0.3 / Sqr(2), 0 + 0.3 / Sqr(2))
 Picture1.Line (2.4, 0.2)-(2.7, 0.5)
 
Picture1.Line (0 + 0.3 / Sqr(2), -2 + 0.3 / Sqr(2))-(3 - 0.3 / Sqr(2), 0 - 0.3 / Sqr(2))
       Picture1.Line (2.4, -0.2)-(3 - 0.3 / Sqr(2), 0 - 0.3 / Sqr(2))
       Picture1.Line (2.7, -0.5)-(3 - 0.3 / Sqr(2), 0 - 0.3 / Sqr(2))
 Picture1.Line (2.4, -0.2)-(2.7, -0.5)
 
 
 'les valeurs des arcs
 
     Picture1.ForeColor = QBColor(2)
 
     Picture1.Circle (-2, 1.2), (0)
     Picture1.Print "10"
 
     Picture1.Circle (-2, -1), (0)
     Picture1.Print "12"
 
     Picture1.Circle (0.2, 0.2), (0)
     Picture1.Print "5"
 
     Picture1.Circle (1.7, 1.2), (0)
     Picture1.Print "20"
 
     Picture1.Circle (1.7, -1), (0)
     Picture1.Print "31"
 
 
     Picture1.ForeColor = QBColor(0)
     Picture1.Circle (-2, 3.5), (0)
     Picture1.Print " Graphe Orienté étiqueté "
 
     Picture1.ForeColor = QBColor(7)
     Picture1.Circle (1, -3.5), (0)
     Picture1.Print " xxxxxx "
 
End Sub

cependant , je veux creer une certaine interactivité entre moi et la form , si vs voyez ce que je vx dire,
ok, un menu, avec comme champs : "dessiner" "noeud" "noeud successeur" "arc"..., de telle façon que quand l'utilisateur clique sur noeud, une fenetre s'ouvre lui demandant de saisir la valeur de noeud ;) , une fois la valeur saisie, un petit cercle se dessine automatiquement sur la form avec la valeur du noeud dedans , tt comme une boule de billard :):) ,
merci pour d'eventuelles coups de mains !!!!!!!!!!!!
j'espère vous lire tres tres bientot , voir meme tt de suite , lol :):)

Il faut que tu crées une fonction qui dessine le noeud et une foncton qui dessine l'arc quelque chose du genre
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Noeud(X As Single, Y As Single, Value As String) Picture1.ForeColor = QBColor(12) Picture1.Circle (X, Y), Rayon Picture1.ForeColor = QBColor(9) Picture1.CurrentX = X - (Picture1.TextWidth(Value) / 2) Picture1.CurrentY = Y - (Picture1.TextHeight(Value) / 2) Picture1.Print Value End Sub Private Sub Arc(X1 As Single, Y1 As Single, X2 As Single, Y2 As Single, Value As String) ...... End Sub
Apres, tout deviendra plus facile.

Je ne peux malheureusement pas t'aider pour le contenu la sub Arc car la trigo me donne des boutons.