Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Statistik als Tortengrafik darstellen
Autor: Lightbringer
Datum: 10.02.03 11:44
Hab ich mir mal irgentwo ausm Netz gezogen... Muss nur ein Formular mit Button und Picture einfügen Option Explicit Const PI As Double = 3.14159265359 Const CircleEnd As Double = -2 * PI '-------------------------------------------------------------------------------- Private Sub DrawPiePiece(lColor As Long, fStart As Double, fEnd As Double) Dim dStart As Double Dim dEnd As Double Picture1.FillColor = lColor Picture1.FillStyle = 0 dStart = fStart * (CircleEnd / 100) dEnd = fEnd * (CircleEnd / 100) Picture1.Circle (100, 100), 60, , dStart, dEnd '-------------------------------------------------------------------------------- End Sub Private Sub Command1_Click() Picture1.ScaleMode = vbPixels Call DrawPiePiece(QBColor(1), 0.001, 36) Call DrawPiePiece(QBColor(2), 36, 55) Call DrawPiePiece(QBColor(3), 55, 75) Call DrawPiePiece(QBColor(4), 75, 99.999) End Sub '-------------------------------------------------------------------------------- Private Sub Form_Load() ' Nur Initialisierungen... Me.Height = 4000 Me.Width = 3200 Picture1.Move 120, 120, 2700, 2700 Picture1.AutoRedraw = True Command1.Move 120, 2900 Command1.Caption = "&Zeichne..." '-------------------------------------------------------------------------------- End Sub

Statistik als Tortengrafik darstellen	459	Maik	10.02.03 11:02
Re: Statistik als Tortengrafik darstellen	302	Sauron	10.02.03 11:05
Re: Statistik als Tortengrafik darstellen	43	tomcat	10.02.03 11:40
Re: Statistik als Tortengrafik darstellen	50	Lightbringer	10.02.03 11:44
Re: Re: Statistik als Tortengrafik darstellen	371	Maik	10.02.03 11:53

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen