XProfan

Français

Rolf
Leinung

Salut,

je voudrais une (fiktiven) Börsenkurs mittels qui ProSpeed.dll Montrer laisser.
alors keinerlei Berechnungen, mais seulement une Animation eines laufenden Punktes à droite, qui, la fois sur la fois ab,
une Strich derrière sich herzieht. So comment plan une EKG, ou bien Börsenkursanzeige.
comment peut sich cela am einfachsten realisieren. je suis pour alle Tipps, Tricks ou bien Beispielcodes reconnaissant.
important ist plan seulement, cela cela Profan(9.0) Programme im Vordergrund weiterarbeitet et cet Animation plan im Hintergrund fonctionne.

Beste Grüße,

Rolf

28.08.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

c'est droite simple, aussi sans Dll.
Scrolle deine Anzeige um une Pixel à gauche et zeichne à droite den aktuellen Pixel dans qui passenden Hauteur. Du erhälst so une Anzeige ähnlich qui im Reiter Systemleistung im Task-Manager.

28.08.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank meint solche Spielereien:
Kompilieren Marque Séparation

 {$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 étions mon ersten DOS-Ballerspiele aufgebaut, hab simple den Speicherinhalt déménagé...

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 citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

oui c'est ca quelque chose comme

30.08.2007 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Michael
Wodrich

je hab la fois den XPSE herausgefiltert:
Kompilieren Marque Séparation

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