XProfan

Cls
Declare Counter%

SubClassProc

    'If SubClassMessage(%hwnd,?)
    Inc Counter%

    If Counter% = 385

        Counter% = 1
        Cls

    EndIf

    'EndIf

EndProc

Subclass %hwnd,1
Screen 4000,500

While 1

    WaitInput
    WindowTitle Str$(Counter%)

    If IsKey($20)

        DrawText Counter% * 10,40,"!"

    ElseIf IsKey(27)

        Break

    EndIf

Wend

Subclass %hwnd,0

 {$cleq}
Cls

nproc Timer

    parameters addr&

    whilenot Long(addr&,0) < 0

        Sleep(1)
        Long addr&,0 = Long(addr&,0) + 1
        SetText %hWnd,str$(Long(addr&,0))

        if Long(addr&,0) >= 385

            Long addr&,0 = 0
            BitBlt(%hDC,0,0,4000,500,%hDC,0,0,WHITENESS)

        endif

    wend

    ExitThread(0)

EndProc

var id& = 0
var exit& = 0
declare count#
dim count#,4
CreateThread(0,0,ProcAddr(Timer,1),count#,0,Addr(id&))
Screen 4000,500

While 1

    WaitInput
    WindowTitle Str$(Long(count#,0))

    If IsKey($20)

        DrawText Long(count#,0) * 10,40,"!"

    ElseIf IsKey(27)

        Long count#,0 = -10
        Break

    EndIf

Wend

if GetExitCodeThread(id&,Addr(exit&)) = STILL_ACTIVE

    whileloop 5

        print "Thread noch aktiv ..."
        Sleep 100
        casenot GetExitCodeThread(id&,Addr(exit&)) = STILL_ACTIVE : break

    EndWhile

    case GetExitCodeThread(id&,Addr(exit&)) = STILL_ACTIVE : TerminateThread(id&,0)

endif

Dispose count#
end

Declare hFileMap&, Buffer#, Counter%
Dim Buffer#, 5' Platz für ein LongInt + 1 CLS-Flag

Proc Counter

    ' Eigener Prozess, daher kein globaler Variablenzugriff
    Declare c_hFileMap&, c_Buffer#, c_Counter%
    Dim c_Buffer#, 5' Platz für ein LongInt
    c_hFileMap& = FileMap("Open", "Counter")
    c_Counter% = 0
    ' Speicherdate existiert: los geht's mit Zählen

    If c_hFileMap&

        c_Buffer# = FileMap("Map", c_hFileMap&)
        Long c_Buffer#, 0 = c_Counter%
        Byte c_Buffer#, 4 = 0' CLS-Flag auf 0

        While 1

            Sleep 10' Für Testzwecke zum besseren Nachvollziehen
            Inc c_Counter%

            If c_Counter% = 385

                c_Counter% = 1
                Byte c_Buffer#, 4 = 1' CLS-Flag auf 1

            EndIf

            Long c_Buffer#, 0 = c_Counter%

        EndWhile

        Dispose c_Buffer#
        FileMap("Close", c_hFileMap&)

    Else

        MessageBox("Speicherdatei konnte nicht geöffnet werden!", "MAP-Hinweis", 48)

    EndIf

EndProc

CLS
Screen 4000,500
counter% = 0
hFileMap& = Create("FileMap", "Counter", 4)

If hFileMap&

    Buffer# = FileMap("Map", hFileMap&)

Else

    MessageBox("Speicherdatei konnte nicht erstellt werden!", "Hinweis", 48)

EndIf

' Speicherdatei ist vorbereitet: Der Prozess Conter kann gestartet werden
var hCounter& = PExec("|Counter")

While 1

    WaitInput
    Counter% = Long(Buffer#, 0)

    If Byte(Buffer#, 4 = 1)

        CLS
        Byte Buffer#, 4 = 0' CLS-Flag zurücksetzen

    EndIf

    WindowTitle Str$(Counter%)

    If IsKey($20)

        DrawText Counter% * 10,40,"!"

    ElseIf IsKey(27)

        Break

    EndIf

EndWhile

' Conter-Prozess beenden!
process("kill", hCounter&, 0)
Dispose Buffer#
FileMap("Close", hFileMap&)
End