XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Diagramme  -  Säulendiagramme
Eine kleine Spielerei - mit ein paar Änderungen können Daten einer Statistik aus einer Datenbank
angezeigt werden.
Horst Horn 2007
Der Text kann frei benutzt werden.
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
SET(DECIMALS,2)
DECLARE spalte%,zeile%,steig%,wert!
DECLARE programm$
programm$=Diagramm-Balken
----------------------------------

PROC DREI_D_BALKEN

    DECLARE spalte2%,spalte3%,zeile2%,zeile4%
    DECLARE wert1!,wert1$
    ---------------------------------
    PARAMETERS spalte1%,zeile1%,wert!
    wert1!=wert!
    wert!=(zeile1%-(wert!*25))
    spalte2%=(spalte1%+30)
    spalte3%=(spalte1%+45)
    zeile4%=(wert!-18)
    LINE spalte1%,zeile1%-spalte2%,zeile1%
    LINETO spalte3%,(zeile1%-18)
    LINE spalte1%,zeile1%-spalte1%,wert!
    LINE spalte2%,zeile1%-spalte2%,wert!
    LINE spalte3%,(zeile1%-18)-spalte3%,zeile4%
    LINE spalte1%,wert!-spalte2%,wert!
    LINETO spalte3%,zeile4%
    LINETO (spalte2%-13),zeile4%
    LINETO spalte1%,wert!
    USEBRUSH 1,rgb(0,250,200)Vorderansicht - freie Farbwahl
    FILL (spalte1%+2),(zeile1%-2),rgb(0,0,0)
    USEBRUSH 1,rgb(0,255,255)Seitenansicht - freie Farbwahl
    FILL (spalte2%+1),(zeile1%-10),rgb(0,0,0)
    USEBRUSH 1,rgb(190,200,210)oben - freie Farbwahl
    FILL (spalte1%+5),(wert!-1),rgb(0,0,0)
    wert1$=Str$(wert1!)
    TEXTCOLOR rgb(0,0,0),-1freie Farbwahl
    UseFont ARIAL,20,0,1,0,0
    Case wert1$=0.00:wert1$= k.A.
    DrawText (spalte1%+10),(zeile4%-20),wert1$
    SLEEP 250

ENDPROC

----------------------------------
spalte%=60freie Gestaltung
zeile%=400
steig%=55
----------------------------------
wert!=5.00kann nach Bedartf geändert oder aus einer Datenbank eingegeben werden
----------------------------------
CLS RGB(230,230,230)
WINDOW (%MaxX/2-400),(%MaxY/2-300)-800,600
WindowTitle programm$
DREI_D_BALKEN spalte%,zeile%,wert!Jeder Aufruf erzeugt eine neue Diagramm-Säule
ADD spalte%,steig%
wert!=wert!+1
DREI_D_BALKEN spalte%,zeile%,wert!
ADD spalte%,steig%
wert!=wert!-2
DREI_D_BALKEN spalte%,zeile%,wert!
ADD spalte%,steig%
wert!=wert!+1
DREI_D_BALKEN spalte%,zeile%,wert!
ADD spalte%,steig%
wert!=wert!+1
DREI_D_BALKEN spalte%,zeile%,wert!
ADD spalte%,steig%
wert!=wert!-1.5
DREI_D_BALKEN spalte%,zeile%,wert!
ADD spalte%,steig%
wert!=wert!+7.06
DREI_D_BALKEN spalte%,zeile%,wert!
ADD spalte%,steig%
wert!=0.00
DREI_D_BALKEN spalte%,zeile%,wert!
ADD spalte%,steig%
wert!=wert!+0.78
DREI_D_BALKEN spalte%,zeile%,wert!
ADD spalte%,steig%
wert!=wert!+5
DREI_D_BALKEN spalte%,zeile%,wert!
ADD spalte%,steig%
wert!=wert!+2.65
DREI_D_BALKEN spalte%,zeile%,wert!
ADD spalte%,steig%
wert!=wert!+1
DREI_D_BALKEN spalte%,zeile%,wert!
WaitInput
FIN