XProfan

Italia

Rolf
Leinung

Ciao,

ich möchte einen (fiktiven) Börsenkurs mittels der ProSpeed.dll Mostra 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 per 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 corre.

Beste Grüße,

Rolf

28.08.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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 Citazione Zeilenweise Citazione

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+

    000FF>}

}

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

börsenkurs.exe

727 kB

Hochgeladen:

30.08.2007

Downloadcounter:

Download

bk.png

3 kB

Hochgeladen:

30.08.2007

Downloadcounter:

Download

30.08.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Frank
Abbing

Genau sowas

30.08.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

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