XProfan

Ich glaube die Test4.Prf aus dem ProgressControl-Paket tut sowas...

Nachtrag: 2 Sachen gleichzeitig ablaufen lassen wenn Du das ernst meinst dann benötigst Du einen 2. Prozess da imho threads in XProfan sonst nur wieder procaddr-Probleme aufwerfen. (wenn überhaupt möglich)

27.03.2008 ▲

Kompilieren Markieren Separieren

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

#############################
XProfan11 RC2 Beispiel
Andreas Miethe, 28.03.2008
#############################
 $H Windows.ph
 $H Messages.ph
 $H Structs.ph
Struct MEMORYSTATUS = ~MEMORYSTATUS
Var Ende& = 0
CLS ~GetSysColor(~COLOR_BTNFACE)
SubClass %hwnd,1 SubClassing einschalten
Var Statusbar& = Create(StatusWindow,%hwnd,)
UpdateStatus(Statusbar&)
SubClass StatusBar&,1 SubClassing einschalten
~SetTimer(StatusBar&,1,1000,0)Timer an die Statusbar hängen
Var Button& = Create(Button,%hwnd,Warte auf Aktion,10,10,120,24)
SendMessage(Button&,~WM_SETFONT,~GetStockObject(~ANSI_VAR_FONT),1)
##########################################

Whilenot Ende&

    Waitinput

    If Clicked(Button&)

        ~KillTimer(StatusBar&,1)
        Ende& = 1

    Endif

EndWhile

SubClass StatusBar&,0
SubClass %hwnd,0
End
##########################################

Proc UpdateStatus

    Parameters Statusbar&
    Declare MemStatus#
    Dim Memstatus#,MEMORYSTATUS
    MemStatus#.dwLength& = SizeOf(MemStatus#)
    ~GlobalMemoryStatus(MemStatus#)
    SetText Statusbar&,Jetzt : +Time$(0)+:+Left$(Time$(1),2)+  -  Speicherverbrauch : +Str$(MemStatus#.dwMemoryLoad&)+%
    Dispose MemStatus#

EndProc

SubClassProc

    If SubClassMessage(%hwnd, ~WM_SIZE)

        SetWindowPos Statusbar& = 0,0-0,0

    ElseIf SubClassMessage(Statusbar&, ~WM_TIMER)

        UpdateStatus(&sWnd)

    Endif

EndProc

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

Jac
de
Lad

@Andreas: So hatte ich mir das auch gedacht. Stell dir vor, dass der Button was x-beliebiges macht wie...
Kompilieren Markieren Separieren

whileloop 0,10000000

    SetTExt button&,Str$(&Loop)
    Sleep 10

endwhile

...so klappt es nicht.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Hatten wir doch schon...

Du wirst in Deinem Loop auch UpdateStatus(&sWnd) aufrufen müssen!

Baue Dir eine helferProc welche updateStatus nur aufruft wenn z.B. 200 Millisekunden vergangen sind...

Jac
de
Lad

Ich versteh nur nicht, warum die Thread.pcu das automatisch macht und es keine andere Möglichkeit dafür gitb. Jedenfalls keine, die funktioniert und die ich verstehe.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

Das wird auch nicht wirklich helfen! Wird ja nur die Statusbar upgedatet.
Der Rest des Programms hängt in der Schleife, solange sie nicht abgelaufen ist.
Das hilft nur ein Thread wriklich weiter.

Ich mach da mal ein Beispiel fertig !
Hab da schon eine Idee im Hinterkopf wie man das anstellen könnte. Ohne Callbacks und ProcAddr !

Jac
de
Lad

Vielen Dank im Voraus.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Nein einfacher - ich nehme Deinen Code für ein Beispiel:
Kompilieren Markieren Separieren

#############################
XProfan11 RC2 Beispiel
Andreas Miethe, 28.03.2008
#############################
 $H Windows.ph
 $H Messages.ph
 $H Structs.ph
Struct MEMORYSTATUS = ~MEMORYSTATUS
Var intervalProcData&=&getTickCount
Var Ende& = 0
CLS ~GetSysColor(~COLOR_BTNFACE)
SubClass %hwnd,1SubClassing einschalten
Var Statusbar& = Create(StatusWindow,%hwnd,)
SubClass StatusBar&,1SubClassing einschalten
~SetTimer(StatusBar&,1,1000,0)Timer an die Statusbar hängen
Var Button& = Create(Button,%hwnd,Warte auf Aktion,10,10,120,24)
SendMessage(Button&,~WM_SETFONT,~GetStockObject(~ANSI_VAR_FONT),1)
##########################################

Whilenot Ende&

    Waitinput

    If Clicked(Button&)

        EnableWindow Button&,0

        WhileLoop 20000 heidy, ein könnte länger dauern loop?

            intervalProc()drum hier auch?! im Programm verteilen wo nötig!
            SetText Button&,str$(&getTickCount)
            ...

        EndWhile

        EnableWindow Button&,1
        ~KillTimer(StatusBar&,1)
        Ende& = 1

    Endif

EndWhile

SubClass StatusBar&,0
SubClass %hwnd,0
End
##########################################

Proc UpdateStatus

    Parameters Statusbar&
    Declare MemStatus#
    Dim Memstatus#,MEMORYSTATUS
    MemStatus#.dwLength& = SizeOf(MemStatus#)
    ~GlobalMemoryStatus(MemStatus#)
    SetText Statusbar&,Jetzt : +Time$(0)+:+Left$(Time$(1),2)+  -  Speicherverbrauch : +Str$(MemStatus#.dwMemoryLoad&)+%
    Dispose MemStatus#

EndProc

SubClassProc

    If SubClassMessage(%hwnd, ~WM_SIZE)

        SetWindowPos Statusbar& = 0,0-0,0

    ElseIf SubClassMessage(Statusbar&, ~WM_TIMER)

        intervalProc()

    Endif

EndProc

Proc intervalProc

    if intervalProcData&<&getTickCount

        intervalProcData&=intervalProcData&+200 MILLISEKUNDEN
        hier würd getüddelt
        UpdateStatus(%hWnd)
        UpdateStatus(StatusBar&)

    EndIf

EndProc

Reagiert wie Jac es wünscht und ist Ressourcen/Aufwand-sparender und gezielter einsetzbar als ein 2. (künstlicher) Thread der für so etwas garnicht wirklich nötig ist.

intervallproc.exe	1.018 kB

Hochgeladen:	28.03.2008

Ladeanzahl:
		Herunterladen

Jac
de
Lad

@iF: Warum verstehst du das denn nicht?

Ich kenne die Lösung bereits, wir haben schon zigmal darüber geredet. Aber ich dachte an etwas ohne IntervalProc, so wie es die Thread.pcu momentan macht...

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Und genau das ist der Punkt wo ich genaustens Verstehe was Du gerne hättest, ich es aber nicht schaffe Dir zu erklären das es im Ergebnis das Selbe ist mit dem Vorteil: Gezielter einsetzbar und ressourcenschonender und vor allem: sicher.

Es ist sozusagen eine Frage des Ablaufverständnisses - ich wüsste nicht wie ich es noch anders verständlich machen kann.