XProfan

Español

Rolf
Leinung

¡Hola,

Yo möchte una (fiktiven) Börsenkurs mittels el ProSpeed.dll Mostrar dejar.
Also keinerlei Berechnungen, pero sólo una Animation uno laufenden Punktes después de rechts, el, veces en veces de,
una Strich hinter se herzieht. So como eben una EKG, oder Börsenkursanzeige.
Como lässt se el al einfachsten realisieren. Yo bin para todos Tipps, Tricks oder Beispielcodes dankbar.
Wichtig es eben sólo, el el Profano(9.0) Programa en el Vordergrund weiterarbeitet y esta Animation eben en el Hintergrund se ejecuta.

Beste Grüße,

Rolf

28.08.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Es bastante simplemente, auch sin Dll.
Scrolle deine Anzeige en una Pixel después de links y zeichne rechts el aktuellen Pixel en el passenden Höhe. Usted erhälst así una Anzeige ähnlich el en el Reiter Systemleistung en el Task-Manager.

28.08.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Franco meint solche Spielereien:
Kompilieren Marca Separación

 {$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 mi ersten Dos-Ballerspiele aufgebaut, tener simplemente el Speicherinhalt movido...

börsenkurs.exe

727 kB

Hochgeladen:

30.08.2007

Ladeanzahl:

Descargar

bk.png

3 kB

Hochgeladen:

30.08.2007

Ladeanzahl:

Descargar

30.08.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Exactamente algo como

30.08.2007 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Michael
Wodrich

Yo veces el XPSE herausgefiltert:
Kompilieren Marca Separación

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