High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

Creation d'un graphe sous visual basic,,svp

Dernière réponse le 17 mai 2007 à 22:32:10 aabdel, le 16 mai 2007 à 02:43:08 
 Signaler ce message aux modérateurs

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

Meilleures réponses pour « creation d'un graphe sous visual basic,,svp » dans :
Introduction à Visual Basic Voir Présentation de Visual Basic Visual Basic est un outil développé par Microsoft pour développer facilement des applications fonctionnant sous Microsoft Windows ©. Visual Basic est, comme son nom l'indique, un outil visuel permettant de créer...
Comment créé un jeu avec visual basic Voir
Création d'un qcm avec visual basic Voir
[Visual Basic] Liens utiles VoirLa première doc à consulter Le site officiel Des cours, des tutoriaux intéressants Quelques codes sources en cas de problèmes Cours débutant VBA Les graphiques Excel en VBA (en anglais) Bon Courage !
Télécharger Visual Basic 6 Runtime (VB6 DLL) VoirLe Runtime Visual Basic 6 contient l'ensemble des librairies (DLL) nécessaires pour exécuter des programmes écrits en langage Visual Basic 6.0. Il contient notamment les DLL suivantes :...
Télécharger Visual Basic Express Voir
Télécharger Visual Basic Express Voir
Introduction à VBScript VoirPrésentation de VB Script VBScript (aussi appelé Visual Basic Scripting Edition) est un sous-ensemble du langage Visual Basic for Applications (VBA), un langage propriétaire de Microsoft prévu pour être intégré aux produits Microsoft Office©,...
Posez votre question Répondre

1

saisas, le 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 place de systèmes Qualité.

   
Répondre à saisas

2

aabdel, le 16 mai 2007 à 19:28:45
  • +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 " 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

aabdel, le 16 mai 2007 à 19:36:36
  • +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épondre à aabdel

4

 aabdel, le 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
Ils ont besoin de votre aide