Creation d'un graphe sous visual basic,,svp

aabdel Messages postés 4 Statut Membre -  
aabdel Messages postés 4 Statut Membre -
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,,
A voir également:

4 réponses

Réponse 1 / 4
aabdel
 
slt, g pensé utiliser l'objet "shape",,,,je vous invite à decouvrir ou est ce que j'en suis :


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 " OUAHBI Bouchaib "

End Sub

,,,,donc là, je voudrais avoir un menu , creer une interactivité,
entre moi et la form , :) , ok ?

merci d'avance pour d'eventuels coups de main,,,,graciassss
2
Réponse 2 / 4
aabdel Messages postés 4 Statut Membre 1
 
slt, g pensé utiliser l'objet "shape",,,,je vous invite à decouvrir ou est ce que j'en suis :


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 " xxxx"

End Sub


,,,,donc là, je voudrais avoir un menu , creer une interactivité,
entre moi et la form , :) , ok ?

merci d'avance pour d'eventuels coups de main,,,,graciassss
1
Réponse 3 / 4
saisas Messages postés 21 Date d'inscription   Statut Membre Dernière intervention   5
 
Bonjour,

tu peux utiliser l'objet "Picture" qui permet de dessiner des objets ...

Cordialement.
0
Réponse 4 / 4
aabdel Messages postés 4 Statut Membre 1
 
y-il quelqu'un qui pourrait me filer un coup de main?! please ,
0

Discussions similaires

Site de confiance ou non ?
mlle_so -
Jaffeli -

25 réponses