rss
Ils ont besoin de votre aide Tous les messages sans réponse
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

Creation d'un graphe sous visual basic,,svp

Posté par aabdel, le mercredi 16 mai 2007 à 02:43:08
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,,
Configuration: Windows XP
Internet Explorer 6.0
Répondre à aabdel  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
saisas, le mercredi 16 mai 2007 à 09:18:38
Bonjour,

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

Cordialement. Accompagenement Informatique SAS, 
éditieur de logiciels de gestion des risques et de mise en p­lace de systèmes Qualité.
   
Répondre à saisas

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
aabdel, le mercredi 16 mai 2007 à 19:28:45
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épondre à aabdel

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
aabdel, le mercredi 16 mai 2007 à 19:36: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épondre à aabdel

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 aabdel, le jeudi 17 mai 2007 à 22:32:10
y-il quelqu'un qui pourrait me filer un coup de main?! please ,
   
Répondre à aabdel
Posez votre question Répondre
Logiciels pertinents trouvés dans les téléchargements
Télécharger Visual Basic Express 2005 2005Visual Basic Express 2005 - Le langage de programmation Visual Basic est historiquement dans les gènes de la société Microsoft. Avec plus de 30.000...Catégorie: Visual Basic
Licence: Freeware/gratuit
Télécharger Visual Basic 6 Runtime (VB6 DLL) 6.0 SP5Visual Basic 6 Runtime (VB6 DLL) - Le Runtime Visual Basic 6 contient l'ensemble des librairies (DLL) nécessaires pour exécuter des programmes écrits en...Catégorie: Librairies (DLL)
Licence: Freeware/gratuit
Télécharger Visual Basic Express 2008Visual Basic Express - Visual Basic Express 2008 est la version gratuite de Visual Basic 2008, contenant toutes les fonctionnalités de base du...Catégorie: Visual Basic
Licence: Freeware/gratuit
Télécharger VB Editor 2.0VB Editor - Décompileur de fichiers exécutables compilés avec Visual Basic 5 ou 6 Catégorie: Visual Basic
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « creation d'un graphe sous visual basic,,svp »