Creation d'un graphe sous visual basic,,svp

aabdel Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
aabdel Messages postés 4 Date d'inscription Statut Membre Dernière intervention - 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,,

Afficher la suite

A voir également:

Creation d'un graphe sous visual basic,,svp
Visual basic - Télécharger - Langages
Visual basic editor - Télécharger - Langages
Visual petanque - Télécharger - Sport
Microsoft 365 basic - Accueil - Microsoft Office
Creation compte gmail - Guide

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

Réponse 2 / 4

aabdel Messages postés 4 Date d'inscription Statut Membre Dernière intervention 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

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.

Réponse 4 / 4

aabdel Messages postés 4 Date d'inscription Statut Membre Dernière intervention 1

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

Discussions similaires

Site de confiance ou non ?

Votre réponse

Discussions similaires