IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

courbe en vb6


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Inscrit en
    Novembre 2005
    Messages
    4
    Détails du profil
    Informations forums :
    Inscription : Novembre 2005
    Messages : 4
    Par défaut courbe en vb6
    j'aimerai savoir comment on intègre un graph avec deux courbes dont les équations sont dans le code. et ce n'est pas une liste de valeur a mettre en graph mais juste la formule générale

    merci d'avance

  2. #2
    Membre chevronné
    Profil pro
    Inscrit en
    Septembre 2005
    Messages
    290
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Septembre 2005
    Messages : 290
    Par défaut
    Bonsoir,
    Peut-être ce code t'aidera t-il à réaliser ce que tu veux ?
    place un contrôle MSChart et un Combobox sur ta Form.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
     
    Private Sub Command1_Click()
     
       ' Change d'abord le type de graphique en un
       ' graphique 3D pour voir toutes les parties du tracé.
       MSChart1.chartType = VtChChartType3dArea
     
       ' Colore en bleu clair en utilisant
       ' l'objet Plot.
       With MSChart1.Plot.Backdrop
          ' Aucune couleur n'apparaît sauf si vous attribuez
          ' à la propriété Style la valeur VtFillStyleBrush.
          .Fill.Style = VtFillStyleBrush
          .Fill.Brush.FillColor.Set 100, 255, 200
          ' Ajoute une bordure.
          .Frame.Style = VtFrameStyleThickInner
          ' Définit le style pour afficher un ombrage.
          .Shadow.Style = VtShadowStyleDrop
       End With
     
       ' Colore le mur du tracé jaune.
       With MSChart1.Plot
          ' Choisit un style continu.
          .Wall.Brush.Style = VtBrushStyleSolid
          ' Choisit la couleur jaune.
          .Wall.Brush.FillColor.Set 255, 255, 0
       End With
     
       With MSChart1.Plot ' Colore le bleu de base du tracé.
          .PlotBase.BaseHeight = 200
          .PlotBase.Brush.Style = VtBrushStyleSolid
          .PlotBase.Brush.FillColor.Set 0, 0, 255
       End With
    End Sub
     
    Private Sub Form_Load()
     ' Configure un contrôle ComboBox nommé cmbScale.
       With Combo1
          .AddItem "Log"
          .AddItem "Percent"
          .AddItem "Linear"
          .ListIndex = 0
       End With
    End Sub
     
    Private Sub Combo1_Click()
       ' Le contrôle ComboBox a trois éléments : Log, Percent,
       ' et Linear (l'échelle par défaut).
     
       Select Case Combo1.Text
       Case "Log"
          MSChart1.Plot.Axis(VtChAxisIdY) _
          .AxisScale.Type = VtChScaleTypeLogarithmic
     
          ' Vous devez spécifier un LogBase à utiliser lors du
          ' changement de l'échelle en Log. N'importe quelle valeur
          ' comprise entre 2 et 200 peut être affectée à la base.
          MSChart1.Plot.Axis(VtChAxisIdY).AxisScale _
          .LogBase = 10
     
       Case "Percent"
          MSChart1.Plot.Axis(VtChAxisIdY).AxisScale _
          .Type = VtChScaleTypePercent
          ' Choisissez pour PercentBasis l'un des six types.
          ' Pour accélérer les choses, un seul est illustré.
          MSChart1.Plot.Axis(VtChAxisIdY).AxisScale _
          .PercentBasis = VtChPercentAxisBasisMaxChart
     
       Case "Linear"
          MSChart1.Plot.Axis(VtChAxisIdY).AxisScale _
          .Type = VtChScaleTypeLinear
       End Select
     
    End Sub
    jpleroisse

Discussions similaires

  1. traçage de courbe avec VB6
    Par sidali2 dans le forum VB 6 et antérieur
    Réponses: 0
    Dernier message: 27/05/2008, 17h22
  2. courbe MsChart VB6
    Par nones dans le forum VB 6 et antérieur
    Réponses: 0
    Dernier message: 25/12/2007, 21h36
  3. Accelerer l'affichage des courbes en VB6.
    Par maritime dans le forum VB 6 et antérieur
    Réponses: 50
    Dernier message: 28/04/2007, 10h41
  4. [VB6] [MSChart] Courbe incorrecte
    Par elifqaoui dans le forum VB 6 et antérieur
    Réponses: 18
    Dernier message: 08/10/2002, 21h53

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo