PureBoard

Verfasst: **18.11.2005 13:39**

Okay sorry wegen doppelpost

Aber ich halte es für besser hier gleich eine weitere frage zu stellen als noch mehr Themen zu eröffnen.

Meine Frage:

Wie man im Quell Text lesen kann so das ein Timer werden.
Ich lasse nun die System Zeit auslesen in 3 Variabeln HH$ MM$ und SS$.
Mein proplem ist jezt das die Zeit nur ausgelesen wird wenn ich eine Akton durchführe, aber die zeit soll sändig ausgelesen werden. hier noch mal der text:

Code: Alles auswählen

Open_Window_0()
Repeat

HH$ = FormatDate("%hh", Date())
MM$ = FormatDate("%ii", Date())
SS$ = FormatDate("%ss", Date())
  
  Event = WaitWindowEvent()
  Select event
  Case #PB_EventGadget ; verzweigung bei Gadgetevents
  
  
        Select EventGadgetID()
          Case (#Button_0)
            
            If HH$=GetGadgetText(#String_0)
              If MM$=GetGadgetText(#String_1)      
                If SS$=GetGadgetText(#String_2)      
                  MessageRequester("Überschrift","Ok Button",#PB_MessageRequester_Ok)
                  EndIf
                EndIf 
            EndIf  
          Case (#Button_1)
            Gosub Ende
            Return
            ;MessageRequester("Überschrift","Abbruch Button",#PB_MessageRequester_Ok)
        EndSelect
        EndSelect

Until Event = #PB_EventCloseWindow
Ende:
End

Ich habe es schon mit einem "Gosub" versucht aber das is auch nicht das wahre da die zeit immer nur aus gelesen wird wenn ich mit der Maus über das fenster fahre.

Verfasst: **18.11.2005 13:59**

> Aber ich halte es für besser hier gleich eine weitere frage zu stellen als
> noch mehr Themen zu eröffnen.

wenn Dein jetziges Problem nicht mehr zum ursprünglichen Thema passt,
solltest Du einen neuen Thread eröffnen.

Edit: Danke an den unbekannten Mod, der dieses Thema gesplittet hat!

> Mein proplem ist jezt das die Zeit nur ausgelesen wird wenn ich eine
> Akton durchführe,

dann verwende anstelle von [c]WaitWindowEvent()[/c] den Befehl
[c]WindowEvent()[/c]. Hier wird nicht auf ein Ereigniss gewartet, sondern die
Repeat-Schleife wird kontinuierlich durchlaufen.

Wichtig: Damit Dein System bei Verwendung von [c]WindowEvent()[/c] nicht
blockiert, solltest Du anderen Applikationen auch ein wenig Zeit
zukommen lassen.

Das geschieht mit dem Befehl [c]Delay(AnzahlMillisekunden)[/c]. Für
AnzahlMillisekunden gibst Du einen Wert an, der angibt, wieviel Zeit für
andere Applikationen übrigbleibt. Beispielsweise:

Code: Alles auswählen

Delay(AnzahlMillisekunden)

Dein Code sähe dann ungefähr so aus:

Code: Alles auswählen

Open_Window_0()
Repeat

HH$ = FormatDate("%hh", Date())
MM$ = FormatDate("%ii", Date())
SS$ = FormatDate("%ss", Date())
 
  Event = WindowEvent()
  Select event
    [...]
  EndSelect
  Delay(1)
Until Event = #PB_EventCloseWindow
End

> Ich habe es schon mit einem "Gosub" versucht aber das is auch nicht
> das wahre

ja, wenn es sich vermeiden lässt, dann verwende Gosub nach Möglichkeit
nicht.

Grüße ... Kiffi

Verfasst: **18.11.2005 14:08**

Oder verwende ein Timer-Event, wenn du hier im Forum oder im CodeArchiv danach suchst müsstest du glaube ich fündig werden

P.S.: Ich hab für dieses Posting doch mal einen eigenen Thread aufgemacht, kommt der Foren-Statistik zu Gute*

*und natürlich der Übersichtlichkeit und der Suchfunktion

Verfasst: **18.11.2005 14:25**

Okay den ein neues Thema. Danke.

Ich habe mit absicht nicht in das Code Archiv nach gesehen, da ich nicht nur scripte zusammen bauen möchte sondern nach möglichkeit selber schreiben möchte.

Ich stelle auch wie hier im Thema Fragen wenn ich was nicht hin bekomen habe um dann aus dem fehler zu lernen

@Kiffi danke es funktioniert super

Verfasst: **18.11.2005 14:34**

Magix-Soft <Kain> hat geschrieben: Ich habe mit absicht nicht in das Code Archiv nach gesehen, da ich nicht nur scripte zusammen bauen möchte sondern nach möglichkeit selber schreiben möchte.

Ich stelle auch wie hier im Thema Fragen wenn ich was nicht hin bekomen habe um dann aus dem fehler zu lernen

Das ist eigentlich sehr lobenswert

Du solltest aber nicht vergessen, dass man aus dem Code anderer auch etwas lernen kann, zumindest solange man versucht ihn zu verstehen und nicht einfach nur, wie du so schön gesagt hast, die Skripte zusammenbaut.

Insgesamt bin ich der Meinung, dass du für's Programmieren schonmal die richtige Grundeinstellung hast

Verfasst: **18.11.2005 14:54**

Ja das ist richtig das man aus codes andere was lernen kann.
ganz geringe kentnisse habe ich ja schon also habe schon mit ähnlichen sache umher hantiert. Mt dem RPG Maker 2k/2k3/XP nur ist das nicht das selbe wie eine Progammiersprache

Verfasst: **18.11.2005 15:11**

Auch wenn ich weiss, dass Kiffi das nur mal eben andeuten wollte, finde ich dennoch man sollte es dann auch gleich richtig zeigen:

Code: Alles auswählen

Open_Window_0()
Repeat

HH$ = FormatDate("%hh", Date())
MM$ = FormatDate("%ii", Date())
SS$ = FormatDate("%ss", Date())
 
  Event = WindowEvent()
  Select event
    Case 0
      Delay(1)
    [...]
  EndSelect
Until Event = #PB_EventCloseWindow
End

Weil man sieht leider viel zu oft, dass das Delay bei WindowEvent() eben so wie oben verwendet wird, was technisch gesehn unsinnig ist.
Wieso sollte man nach jedem regulären Event den Programmablauf verzögern ?
Das würde dann zu recht seltsamen Nebeneffekten (ruckeln, Dauereieruhr, ...) führen.
(Und somit die näxte Frage schon wieder aufwerfen.)

Verfasst: **18.11.2005 15:22**

> Auch wenn ich weiss, dass Kiffi das nur mal eben andeuten
> wollte, finde ich dennoch man sollte es dann auch gleich richtig zeigen:

öh, nee, das war schon so gemeint, wie ich das geschrieben habe.

> Weil man sieht leider viel zu oft, dass das Delay bei WindowEvent() eben
> so wie oben verwendet wird, was technisch gesehn unsinnig ist.

ist das so? Wenn ja, dann habe ich wieder was gelernt.

Teste ich heute abend mal etwas genauer.

Danke für den Tipp & Grüße ... Kiffi

Verfasst: **18.11.2005 15:26**

PB_Hilfe hat geschrieben: Hinweis: Das 'Delay' sollte nicht nach jedem Ereignis eingefügt werden, denn wenn viele Ereignisse (wie Refresh, Gagdget Updates, etc.) auftreten, wird die Anwendung 20 ms (zumindest unter Windows) zwischen jedem Ereignis warten. Deshalb muss das Delay dann eingefügt werden, wenn keine Ereignisse empfangen werden

Verfasst: **18.11.2005 15:35**

Das würde aber so aussehen:

Code: Alles auswählen

Open_Window_0()
Repeat

HH$ = FormatDate("%hh", Date())
MM$ = FormatDate("%ii", Date())
SS$ = FormatDate("%ss", Date())
 
  Event = WindowEvent()
  Select event
    Case 0
      ;[...]
    Case 1
      ;[...]
    Default
      Delay(1)
  EndSelect
Until Event = #PB_EventCloseWindow
End

Aber ein Timer ist immer vorzuziehen!

PureBoard

Zeitanzeige aktualisieren