XProfan

Deutsch

Rolf
Leinung

Hallo,

ich möchte einen (fiktiven) Börsenkurs mittels der ProSpeed.dll anzeigen lassen.
Also keinerlei Berechnungen, sondern nur eine Animation eines laufenden Punktes nach rechts, der, mal auf mal ab,
einen Strich hinter sich herzieht. So wie eben eine EKG, oder Börsenkursanzeige.
Wie lässt sich das am einfachsten realisieren. Ich bin für alle Tipps, Tricks oder Beispielcodes dankbar.
Wichtig ist eben nur, das das Profan(9.0) Programm im Vordergrund weiterarbeitet und diese Animation eben im Hintergrund läuft.

Beste Grüße,

Rolf

28.08.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Frank
Abbing

Das ist recht einfach, auch ohne Dll.
Scrolle deine Anzeige um einen Pixel nach links und zeichne rechts den aktuellen Pixel in der passenden Höhe. Du erhälst so eine Anzeige ähnlich der im Reiter Systemleistung im Task-Manager.

28.08.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Frank meint solche Spielereien:
Kompilieren Markieren Separieren

 {$cleq}
randomize
cls 0
decimals 1
usefont MS Sans Serif,8,0,0,0,0
textcolor $00888888,-1
long xx:=width(hwnd),yy:=height(hwnd),frame
float dax:=yy/2,flow:=dax,ht,tp

do{

    sleep 1
    dax:=dax+rnd(3)-1
    flow:=flow+(dax-flow)/10000
    setpixel xx-1,dax,$0000FF00

    ifnot mod(frame,1600) {

        drawtext (xx-40),tp-11,str$(ht/10)+pt
        line (xx-80),ht - xx,ht
        line (xx-80),tp - xx,tp
        ht:=dax
        tp:=dax

    } else {

        case ht<dax:ht:=dax
        case tp>dax:tp:=dax

    }

    frame+

    ifnot mod(frame,20){

        ifnot mod(frame,40) {

            setpixel xx-1,flow,$000000FF

        }

        copybmp 1,0 - (xx-1),yy > 0,0;0
        xx-
        usepen 0,0,0
        line xx,0 - xx,yy
        usepen 0,0,$00009900
        xx+

    }

}

So waren meine ersten Dos-Ballerspiele aufgebaut, hab einfach den Speicherinhalt verschoben...

börsenkurs.exe

727 kB

Hochgeladen:

30.08.2007

Ladeanzahl:

Herunterladen

bk.png

3 kB

Hochgeladen:

30.08.2007

Ladeanzahl:

Herunterladen

30.08.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Frank
Abbing

Genau sowas

30.08.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
Wodrich

Ich hab mal den XPSE herausgefiltert:
Kompilieren Markieren Separieren

randomize
cls 0
decimals 1
usefont MS Sans Serif,8,0,0,0,0
textcolor $00888888,-1
Declare xx&, yy&, frame&
Declare dax!, flow!, ht!, tp!
xx& = Width(%hWnd)
yy& = Height(%hWnd)
dax! = yy& / 2
flow! = dax!

While 1

    Sleep 1
    dax! = dax! + Rnd(3) - 1
    flow! = flow! + (dax! - flow!) / 10000
    SetPixel xx& - 1, dax!, $0000FF00

    IfNot Mod(frame&, 1600)

        DrawText (xx& - 40), tp! - 11, Str$(ht! / 10) + pt
        Line (xx& - 80), ht! - xx&, ht!
        Line (xx& - 80), tp! - xx&, tp!
        ht! = dax!
        tp! = dax!

    Else

        Case ht! < dax! : ht! = dax!
        Case tp! > dax! : tp! = dax!

    EndIf

    Inc frame&

    IfNot Mod(frame&, 20)

        IfNot Mod(frame&, 40)

            SetPixel xx& - 1, Flow!, $000000FF

        EndIf

        CopyBmp 1,0 - (xx& - 1),yy& > 0,0; 0
        Dec xx&
        UsePen 0,0,0
        Line xx&,0 - xx&,yy&
        UsePen 0,0,$00009900
        Inc xx&

    EndIf

EndWhile