German Timer funktioniert nicht...

[MasterKart]

Hi zusammen,

leider wird der Tick nicht aufgerufen....

'Non-UI application (console / server application)
#Region Project Attributes
    #CommandLineArgs:
    #MergeLibraries: True
#End Region

Sub Process_Globals
    Public timer1 As Timer
End Sub

Sub AppStart (Args() As String)
    timer1.Initialize("Timer1", 1000)
    timer1.Enabled = True
    Log(timer1.IsInitialized)
    Private e As Int
    For m=1 To 10000000000000000
        e = e+1
        Log(e)
    Next
    
End Sub

Sub Timer1_Tick
    Log("Tick")
    'Handle tick events
End Sub

Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

Kann mir einer erklären, warum nicht. Habe jetzt alles mögliche versucht.

Vielen Dank,

 

[klaus]

Das Problem ist Log(e), das Anzeigen braucht viel Zeit und blockiert das System.
Kommentiere diese Zeile und die Ticks funktionieren.