Die Suche ergab 12 Treffer

von interfind
21.11.2023 17:32
Forum: Anfänger
Thema: AddWindowTimer Zeit bis zum nächsten #PB_Event_Timer Ereignis
Antworten: 5
Zugriffe: 915

Re: AddWindowTimer Zeit bis zum nächsten #PB_Event_Timer Ereignis

Hallo juergenkulow und Danke für dein Beispiel.

Aber müsste nicht auch der WindowTimer irgendwo die Restlaufzeit zwischenspeichern
bis er das Timer Ereignis auslöst?
von interfind
18.11.2023 17:23
Forum: Anfänger
Thema: AddWindowTimer Zeit bis zum nächsten #PB_Event_Timer Ereignis
Antworten: 5
Zugriffe: 915

AddWindowTimer Zeit bis zum nächsten #PB_Event_Timer Ereignis

Hallo,

wenn ich mit AddWindowTimer(0, 1, 60000) einen Timer erstelle
bekomme ich alle 60 Sekunden ein #PB_Event_Timer Ereignis.
Soweit so gut.
Kann ich auch irgendwie ermitteln wieviele Millisekunden
es bis zum nächsten #PB_Event_Timer Ereignis noch sind?

Wo speichert die Funktion den aktuellen ...
von interfind
21.12.2022 15:34
Forum: Allgemein
Thema: Procedure Parameter Typ
Antworten: 6
Zugriffe: 1143

Re: Procedure Parameter Typ

Ich habe folgende Lösung gefunden:

Code: Alles auswählen

Procedure.q Versuch(Parameter1.q, Parameter2.q)

  Debug "Speicheradresse: " + @Parameter1
  Debug Parameter1
  Debug Parameter2

  Parameter1|Parameter2<<$20

  ShowMemoryViewer(@Parameter1, 8)

EndProcedure

a=49
b=6
Versuch (a, b)
von interfind
20.12.2022 16:51
Forum: Allgemein
Thema: Procedure Parameter Typ
Antworten: 6
Zugriffe: 1143

Re: Procedure Parameter Typ

Ich möchte die Parameter an die Funktion CVTDQ2PD xmm1, mem64 , übergeben.
Also in der Form CVTDQ2PD xmm1, [p.v_Parameter1].
Die beiden Werte sollen als zwei Packed DWORD's in XMM1 (LOW) stehen.
Was aber irgendwie so nicht funktioniert.
von interfind
20.12.2022 16:21
Forum: Allgemein
Thema: Procedure Parameter Typ
Antworten: 6
Zugriffe: 1143

Procedure Parameter Typ

Wie kann ich den Parameter Typ (Byte, Word, DWord, Quad)
bei einer Procedure beeinflussen.

Bei der nachfolgenden Procedure werden die übergebenen Werte
immer als Quadwert im Speicher abgelegt.

Für meine Funktion brauche ich die beiden Parameter als DWORD.

Procedure Versuch(Parameter1.l ...
von interfind
27.04.2022 13:51
Forum: Anfänger
Thema: Stop Thread
Antworten: 10
Zugriffe: 1420

Re: Stop Thread

Hallo,

ich habe jetzt folgende Variante verwendet, die funktioniert.
Danke an alle.

Code: Alles auswählen

Procedure StopThreads()
Repeat
  threadcounter=0
    For th=1 To CPU_Cores
      If IsThread(mythread(th)): threadcounter+1: EndIf
    Next th
  While WindowEvent() : Wend
Until threadcounter=0
EndProcedure
von interfind
26.04.2022 21:22
Forum: Anfänger
Thema: Stop Thread
Antworten: 10
Zugriffe: 1420

Re: Stop Thread


Select WaitWindowEvent(0)
Case #PB_Event_CloseWindow
If MessageRequester ("","Programm beenden?", #PB_MessageRequester_YesNo) = #PB_MessageRequester_Yes

state=0

;MessageRequester ("OK","Programm beendet")

Define temp_counter
Repeat
temp_counter=0
Delay(100)
For th=1 To CPU_Cores
If IsThread ...
von interfind
26.04.2022 21:14
Forum: Anfänger
Thema: Stop Thread
Antworten: 10
Zugriffe: 1420

Re: Stop Thread

Ich konnte das Problem weiter eingrenzen.

in meinen Thread werden einige "SetGadgetText" Befehle ausgeführ.
Dies führt anscheinend zum hängen.
Wenn ich die SetGadgetText auskommentiere , werden die Thread korrekt beendet.

Wenn ich die Befehle aber aus dem Thread auslagere dann werden die ...
von interfind
26.04.2022 12:18
Forum: Anfänger
Thema: Stop Thread
Antworten: 10
Zugriffe: 1420

Stop Thread

Hallo,

ich habe folgendes Problem.

In meiner Event Schleife habe ich das Flag state=0.
Hiermit sollen meine laufenden Threads beendet werden.

Wenn ich aber jetzt mit WaitThread und IsThread das ganze überprüfe
laufen die Threads weiter bis meine Event-Schleife beendet ist.

Mach ich nach den ...
von interfind
05.02.2022 11:06
Forum: Anfänger
Thema: Custom ListIconGadget
Antworten: 3
Zugriffe: 872

Re: Custom ListIconGadget

Guten Morgen,

hab es jetzt selbst rausgefunden und was zusammengebastelt.
Seht ihr hier noch Optimierungsmöglichkeiten?


Global FontStd = LoadFont(0, "Arial", 8)
Global FontBold = LoadFont(1, "Arial", 8, #PB_Font_Bold)

;Textfarbe, Hintergrund, Fontstyle bei ListView Zeilen und Spalten ändern ...