XProfan

Michael
Dell

Korrigiere:

SetText %Hwnd kommt me Spanisch antes, debería anstell de %HWnd no el
Handle uno Textfeldes posición? Wo möchtest du el Tiempo porque Mostrar?

Sorry, Yo bin heut wohl algo daneben! Halt dich veces más bien a If

Vieleicht hilft aber auch dieses kleine Demo:
Kompilieren Marca Separación

Declare txt1&
window 0,0-400,200
PopUp "Test"
AppendMenu 100,"Test_1"
AppendMenu 101,"Test_2"
Separator
AppendMenu 102,"Test_3"
settimer 500
txt1&=Create("Text",%HWnd,"",10,100,80,22)

whileNot Equ(%MenuItem,-2)

    Sleep 100

    If %wmtimer

        SetText txt1&,Time$(0)+":"+substr$(Time$(1),1,".")
        WindowTitle "Check Time - "+Time$(0)+":"+substr$(Time$(1),1,".")  anstelle SetText %HWnd
        SetActiveWindow(%HWnd)

    ElseIf Equ(%MenuItem,100)

        MessageBox("Test_1","Gewählt:",0)
        SetMenuItem 0

    ElseIf Equ(%MenuItem,101)

        MessageBox("Test_2","Gewählt:",0)
        SetMenuItem 0

    ElseIf Equ(%MenuItem,102)

        MessageBox("Test_3","Gewählt:",0)
        SetMenuItem 0

    EndIf

    SetActiveWindow(%HWnd)

endwhile

killtimer

Michael...

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

04.09.2004 ▲

Schau veces hier: [...]

Si usted Su Zeitanzeige en el thread.do legst, funzt lo permanent.

XProfan - needet.

Salve, IF

PS: Wenn Yo Su Avatar así anschaue frage Yo mich qué Usted porque passiert sei.

04.09.2004 ▲

Peter
Max
Müller

Moin,Moin,

@Michael : Wo el Tiempo dargestellt se me está egal.Ob Ventana o Windows Title.
Yo habe veces deinen Demo Code ausprobiert.Aber dasselbe Problema como en mi.
@CreateDialog Ventana voluntad beim umspringen el Uhr selbstständig y schliessen se.
Aber auch no todos.Yo glaube el problema tritt entonces en si por SetFocus en una Button verweist se el el Diálogo schliesst.Jedenfalls Yo el veces geändert y luego lief lo.
Yo danke Usted.

@IF : Yo habe desafortunadamente kein X-Profano.Noch no.Yo merke aber incluso el todos schönen Características X-Profano brauchen.Hier sei sólo veces X-Menü erwähnt.Deshalb voluntad Yo Próxima semana updaten.
Und a mi Avantar: Wenn Yo Su así begucke hast auch Usted una böses Schicksal erlitten

) .
Das Foto es entstanden como Yo mich en una VBA Treffen como Profaner geoutet habe.Nein,Spaß beiseite.Yo wußte simplemente no qué para una Bild Yo nehmen debería y como Yo el erstbeste genommen.Beim Kickboxen sieht uno ya veces así de.
Und auch una großes Gracias schön para Su Ayuda a Usted.

XProfan X3, X4ß, Win 10.1

¡Hola Peter,- a Deinem Avatar,-

Yo habs kappiert.

Zu Deinem Temporizador-Problema,- Yo glaube el dir el sekündliche waitinput-Verlassen esta Problemas bescherrt (como bleiben sólo el messages en el Strecke),- si also sólo una Minutengenaue-Anzeige proggen würdest wären wohl el Problemas dahin.

Salve, IF

Dennis
Schulmeister

¡Hola Peter,

folgenden Quellcode Yo veces antes de unos pocos Jahren erstellt, como gerade Profano² 7 neu war. (Hach, waren el todavía Veces.

)

Yo sería para el Uhrzeit no eigenen Temporizador nehmen, como dass viel a ungenau es. Cuestión el Tiempo doch simplemente con @Time$() de...

Saludo,
Dennis

(Fast) alle Profan²-Versionen seit Version 2.6, sowie (fast) alle Windows-Versionen seit Windows 3.1

Ragnar
Rehbein

böses programm

producido 100 % cpu-last !

a DOS-Veces wo sólo una programm a zeit lief sicher kein problem aber heute .....

una sleep 1 en el IF y ELSE -zweig wären sicher adecuado.

r.r.

Dennis
Schulmeister

Habs ehrlich dijo no mehr getestet pero direkt ovn el Backup-CD hochgeladen.

Also Sleep 1 no vergessen.

Saludo,
Dennis

(Fast) alle Profan²-Versionen seit Version 2.6, sowie (fast) alle Windows-Versionen seit Windows 3.1

Peter
Max
Müller

Halli,¡Hola,
Erstmal vielen Dank a todos para eure Ayuda.
Yo glaube si yo el Uhr así progge el ellos sólo minütlich umspringt se lo auch no wirklich mejor.Macht el Anwender kurz antes vollen Minute una Diálogo en y el Uhr springt just kurz danach en se el Ventana otra vez geschlossen.Glaube Yo zumindestens.Yo habe no ausprobiert.
Hab simplemente SetFocus en el Button weggelassen y lo rennt sin Probs.
Und qué keiner de euch wissen podría: Lo es es una Analoguhr wo una Sekundenzeiger simplemente bien aussieht. *coolyeah*
Machts todos bien y va ruhig veces en el Sonne.

Bis bald
Euer Peter

XProfan X3, X4ß, Win 10.1

¡Hola Peter...

Wenn du hier una Teil su Quellcodes Nuevo hättest, hätte uno dir determinado más rápido y mejor helfen puede...
Zu deinem Problema: Der Temporizador durchbricht después de el eingestellten Tiempo Waitinput y löst así auch el Button de, el du danach con GetFocus abfragst y el enfoque ha. Getfocus überprüft sólo, si una Button el enfoque ha, no aber si él gedrückt wurde. Intento veces folgende Buttonabfrage:
If @gt(sendmessage(Dein_Button_Handle&,$00F2,0,0),40)
Diese Problemas wirst du auch en Abfrage de Menüpunkten haben, lo sei porque du setzt el Menü con SetMenuitem0 otra vez zurück...

PS: Als Yo IFs Avatar para ersten Tiempo gesehen habe.... :biggrin:

Uwe
''Pascal''
Niemeier

¡Hola Peter!

>> Das Foto es entstanden como Yo mich en una VBA Treffen como Profaner geoutet habe.

Yo habe como todavía una Ejemplo, el sin XProfan auskommt:
Kompilieren Marca Separación

window 50,50-500,200
setactivewindow(%hwnd)
usermessages 16
def GetModuleHandle(1) !"KERNEL32","GetModuleHandleA"
def GetProcAddress(2) !"KERNEL32","GetProcAddress"
def CreateThread(6) !"KERNEL32","CreateThread"
def TerminateThread(2) !"KERNEL32","TerminateThread"
def ResumeThread(1) !"KERNEL32","ResumeThread"
def SuspendThread(1) !"KERNEL32","SuspendThread"
declare a$,a&,a#
declare Funct1&,Funct2&,Funct3&,Dummy&,Thread&
a$="Kernel32"
a&=GetModuleHandle(addr(a$))
a$="GetTimeFormatA"
Funct1&=GetProcAddress(a&,addr(a$))
a$="Sleep"
Funct3&=GetProcAddress(a&,addr(a$))
a$="User32"
a&=GetModuleHandle(addr(a$))
a$="SendMessageA"
Funct2&=GetProcAddress(a&,addr(a$))
dim a#,200
long a#,0=-1947432107
long a#,4=-141883267
long a#,8=1779746435
long a#,12=6968852
long a#,16=6946922
long a#,20=126550122
long a#,24=1784074495
long a#,28=-1962120704
long a#,32=-1957688249
long a#,36=-788593593
long a#,40=256104
long a#,44=138906368
long a#,48=-24915713
long a#,52=-1949011199
long a#,56=79846885
long a#,60=0
long a#,100 =Funct1&	GetTimeFormat
long a#,104 =Funct2&	SendMessageA
long a#,108 =Funct3&	Sleep
long a#,112 =%hwnd	Zielhandle
Thread&=CreateThread(0,0,a#,a#+100,0,addr(Dummy&))

while 1

    waitinput
    case %umessage=16:break
    case %key=97:SuspendThread(Thread&)--Taste "a": Stopp
    case %key=98:ResumeThread(Thread&)---Taste "b": Weiter

endwhile

TerminateThread(Thread&,259)	259 = STILL_ACTIVE
disponer a#

Weils como todavía kein @ProcAddr(S,N) gab, Es el eigendliche Rutina en Assenbler geschrieben y una Bereichsvariable gepackt worden (ungefähr como beim seligen C64 el Maschinensprache-Codes)

Das Teil debería theoretisch incluso todavía salvo Profano 5 runterzudrücken ser.

HTH
Pascal