Creation d'un graphe sous visual basic,,svp

Fermé

aabdel Messages postés 4 Date d'inscription mercredi 16 mai 2007 Statut Membre Dernière intervention 17 mai 2007 - 16 mai 2007 à 02:43
aabdel Messages postés 4 Date d'inscription mercredi 16 mai 2007 Statut Membre Dernière intervention 17 mai 2007 - 17 mai 2007 à 22:32

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:

Creation d'un graphe sous visual basic,,svp
Visual basic download - Télécharger - Langages
Microsoft 365 basic - Guide
Microsoft visual c++ runtime - Guide
Creation compte gmail - Guide
Création organigramme - Guide

4 réponses

Réponse 1 / 4

aabdel
16 mai 2007 à 19:28

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

Réponse 2 / 4

aabdel Messages postés 4 Date d'inscription mercredi 16 mai 2007 Statut Membre Dernière intervention 17 mai 2007 1
16 mai 2007 à 19:36

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

Réponse 3 / 4

saisas Messages postés 21 Date d'inscription jeudi 10 mai 2007 Statut Membre Dernière intervention 13 juin 2007 5
16 mai 2007 à 09:18

Bonjour,

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

Cordialement.

Réponse 4 / 4

aabdel Messages postés 4 Date d'inscription mercredi 16 mai 2007 Statut Membre Dernière intervention 17 mai 2007 1
17 mai 2007 à 22:32

y-il quelqu'un qui pourrait me filer un coup de main?! please ,

Discussions similaires

Site de confiance ou non ?

Discussions similaires

Newsletters