GRAPHIQUE CIRCULAIRE

'Le type pour le talbeau
Private Type Donnée
    Nombre As Long
    Couleur As Long
End Type
Private cGraph() As Donnée 'Création du tableau
'Ici c'est un Timer mais sa peut-être n'importe quoi
Private Sub TimRotate_Timer()
On Error Resume Next
    ReDim Preserve cGraph(1 To 5) ' Insertion de 5 élément dedans
    cGraph(1).Couleur = vbRed 'Couleur
    cGraph(1).Nombre = Text1(0).Text 'Ce qu'on met comme nombre
    cGraph(2).Couleur = vbGreen 'Couleur
    cGraph(2).Nombre = Text1(1).Text 'Ce qu'on met comme nombre
    cGraph(3).Couleur = vbBlue 'Couleur
    cGraph(3).Nombre = Text1(2).Text 'Ce qu'on met comme nombre
    cGraph(4).Couleur = vbYellow 'Couleur
    cGraph(4).Nombre = Text1(3).Text 'Ce qu'on met comme nombre
    cGraph(5).Couleur = vbMagenta 'Couleur
    cGraph(5).Nombre = Text1(4).Text
    GraphiqueCirculaire Check1, PicView 'Ce qu'on met comme nombre
End Sub
Public Function GraphiqueCirculaire(Effect3D As Boolean, lBox As PictureBox)
    Dim HX As Long, HY As Long, C As Long, Col As Long, CentreX As Long, CentreY As Long, C2 As Long, Total As Long, Degree As Long, temp As Long
    PicView.Cls
    'On calcul le total
    For C2 = LBound(cGraph) To UBound(cGraph)
        Total = Total + CInt(cGraph(C2).Nombre)
    Next C2
    'On détermine le centre
    CentreX = lBox.ScaleWidth / 2
    CentreY = lBox.ScaleHeight / 2
    If Effect3D = True Then Ovale IIf(Effect3D, CentreY - (CentreY / 4), CentreY - (CentreY / 1.5)) + 12, IIf(Effect3D, CentreY + (CentreY / 4), CentreY + (CentreY / 1.5)) + 12, CentreX - (CentreX / 1.5), CentreX + (CentreX / 1.5), vbBlack, lBox 'On dessine un ovale pour 3D effectX
    For C2 = LBound(cGraph) To UBound(cGraph) 'On regarde tout les élément du tableau
        temp = (cGraph(C2).Nombre / Total) * 360 'On calcul les degrée
        For C = Degree To temp + Degree 'On dessine une partie du cercle
            '##########################
            'Formule pour déterminer ou dessiner
            HX = Int((CentreX - 34.83) * Cos(((C - 90) / 180) * 3.141592654)) + CentreX
            HY = Int((CentreY - IIf(Effect3D, 73, 32.83)) * Sin(((C - 90) / 180) * 3.141592654)) + CentreY
            'Formule pour déterminer ou dessiner
            '##########################
            
            'On dessine
            lBox.Line (HX, HY)-(CentreX, CentreY), cGraph(C2).Couleur
        Next C
        Degree = Degree + temp 'On additionne la ou on est rendu
    Next C2
    'Finalement le cercle
    Ovale IIf(Effect3D, CentreY - (CentreY / 4), CentreY - (CentreY / 1.5)), IIf(Effect3D, CentreY + (CentreY / 4), CentreY + (CentreY / 1.5)), CentreX - (CentreX / 1.5), CentreX + (CentreX / 1.5), vbBlack, lBox
End Function
Public Function Ovale(YY As Long, YY2 As Long, XX As Long, XX2 As Long, Couleur As Long, lBox As PictureBox)
Dim rad As Long
    rad = IIf(Abs(YY2 - YY) > Abs(XX2 - XX), Abs(YY2 - YY) / 2, Abs(XX2 - XX) / 2)
    lBox.Circle ((XX2 + XX) / 2, (YY2 + YY) / 2), rad, Couleur, , , Abs(YY2 - YY) / Abs(XX2 - XX)
End Function

Télécharger le zip

12 janvier 2006 02:18:38 :

Mot clef