Camembert :)
cs_Zan
Messages postés
174
Date d'inscription
jeudi 18 avril 2002
Statut
Membre
Dernière intervention
25 mai 2006
-
25 avril 2002 à 10:04
pegodichon Messages postés 11 Date d'inscription jeudi 7 février 2002 Statut Membre Dernière intervention 3 avril 2003 - 3 avril 2003 à 10:38
pegodichon Messages postés 11 Date d'inscription jeudi 7 février 2002 Statut Membre Dernière intervention 3 avril 2003 - 3 avril 2003 à 10:38
A voir également:
- Générateur de graphique camembert
- Générateur de lettre ✓ - Forum VB.NET
- Générateur de pseudo - Forum Visual Basic
- Generateur de nom ✓ - Forum C++ & C++ .NET
- Generateur nom de domaine - Forum Visual Basic
- Generateur de nom de jeu ✓ - Forum C# / .NET
2 réponses
TFlorian
Messages postés
194
Date d'inscription
dimanche 3 mars 2002
Statut
Membre
Dernière intervention
19 décembre 2005
3
27 avril 2002 à 23:40
27 avril 2002 à 23:40
Bonjour,
deux propositiob aucune solution :
tu peut utiliser un MSChart en 2d, tu a acces a secteur (proprieter sur le MSChart)
tu peut dessiner "a la main" en utilisant line et en recopiant plain de line les une a cotee des autres ...
voici le coude pour fair cela ...
Line1(0).Y1 = 700
Line1(0).X1 = 700
For a = 0 To 700 Step 4
'partie en bas a droite
Load Line1(a + 1)
Line1(a + 1).Visible = True
Line1(a + 1).Y2 = a + Line1(0).Y1
Line1(a + 1).X2 = (700 ^ 2 - a ^ 2) ^ 0.5 + Line1(0).X1
'partie en haut a droite
Load Line1(a + 2)
Line1(a + 2).Visible = True
Line1(a + 2).Y2 = -a + Line1(0).Y1
Line1(a + 2).X2 = (700 ^ 2 - a ^ 2) ^ 0.5 + Line1(0).X1
'partie en bas a gauche
Load Line1(a + 3 + 700)
Line1(a + 3 + 700).Visible = True
Line1(a + 3 + 700).Y2 = a + Line1(0).Y1
Line1(a + 3 + 700).X2 = -(700 ^ 2 - a ^ 2) ^ 0.5 + Line1(0).X1
'partie en haut a droite
Load Line1(a + 4 + 700)
Line1(a + 4 + 700).Visible = True
Line1(a + 4 + 700).Y2 = -a + Line1(0).Y1
Line1(a + 4 + 700).X2 = -(700 ^ 2 - a ^ 2) ^ 0.5 + Line1(0).X1
DoEvents
Next
il reste a colorier les lignes en fonction des %
(si qq1 a un methode plus propre ....)
(petit bug noter : le disque n'est pas complet :-((
TFlorian.
deux propositiob aucune solution :
tu peut utiliser un MSChart en 2d, tu a acces a secteur (proprieter sur le MSChart)
tu peut dessiner "a la main" en utilisant line et en recopiant plain de line les une a cotee des autres ...
voici le coude pour fair cela ...
Line1(0).Y1 = 700
Line1(0).X1 = 700
For a = 0 To 700 Step 4
'partie en bas a droite
Load Line1(a + 1)
Line1(a + 1).Visible = True
Line1(a + 1).Y2 = a + Line1(0).Y1
Line1(a + 1).X2 = (700 ^ 2 - a ^ 2) ^ 0.5 + Line1(0).X1
'partie en haut a droite
Load Line1(a + 2)
Line1(a + 2).Visible = True
Line1(a + 2).Y2 = -a + Line1(0).Y1
Line1(a + 2).X2 = (700 ^ 2 - a ^ 2) ^ 0.5 + Line1(0).X1
'partie en bas a gauche
Load Line1(a + 3 + 700)
Line1(a + 3 + 700).Visible = True
Line1(a + 3 + 700).Y2 = a + Line1(0).Y1
Line1(a + 3 + 700).X2 = -(700 ^ 2 - a ^ 2) ^ 0.5 + Line1(0).X1
'partie en haut a droite
Load Line1(a + 4 + 700)
Line1(a + 4 + 700).Visible = True
Line1(a + 4 + 700).Y2 = -a + Line1(0).Y1
Line1(a + 4 + 700).X2 = -(700 ^ 2 - a ^ 2) ^ 0.5 + Line1(0).X1
DoEvents
Next
il reste a colorier les lignes en fonction des %
(si qq1 a un methode plus propre ....)
(petit bug noter : le disque n'est pas complet :-((
TFlorian.
pegodichon
Messages postés
11
Date d'inscription
jeudi 7 février 2002
Statut
Membre
Dernière intervention
3 avril 2003
3 avril 2003 à 10:38
3 avril 2003 à 10:38
Ou encore une autre solution, tu t'inspire de l'activeX que j'ai fait et qui fait la même chose : http://www.vbfrance.com/article.aspx?Val=7864