XProfan

English

Rolf
Leinung

Hi,

i want a (fiktiven) Börsenkurs through the ProSpeed.dll Show let.
means no Berechnungen, separate only a Animation one ongoing Punktes to right, the, time on time ex,
a Strich behind itself herzieht. so How even a EKG, or Börsenkursanzeige.
How can itself the on the simplest release. i'm for all Tipps, Tricks or Beispielcodes grateful.
important is even only, the the Profan(9.0) Program in the Vordergrund weiterarbeitet and these Animation even in the background runs.

best Regards,

Rolf

08/28/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

this is right simply, too without Dll.
Scrolle your display circa a Pixel to left and draw right whom actually Pixel in the suitable Höhe. You erhälst so a display similar the in the tab Systemleistung in the task-manager.

08/28/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank means such Spielereien:
Compile Mark Separation

 {$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 were my first Dos-Ballerspiele aufgebaut, Have simply whom Speicherinhalt moved...

börsenkurs.exe

727 kB

Hochgeladen:

08/30/07

Downloadcounter:

Download

bk.png

3 kB

Hochgeladen:

08/30/07

Downloadcounter:

Download

08/30/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

very something like

08/30/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Wodrich

I Have time whom XPSE herausgefiltert:
Compile Mark Separation

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