Seite 17 von 18

Re: Hinweise + Vorschläge f. bessere Befehls-Beschreibungen

Verfasst: 16.12.2018 00:11
von ccode_new
:mrgreen:

Re: Hinweise + Vorschläge f. bessere Befehls-Beschreibungen

Verfasst: 17.03.2019 10:29
von Nino
BindEvent() etc.

Seit der Einführung von BindEvent(), BindGadGetEvent() und BindMenuEvent() hatte ich angenommen, dass ein Ereignis nach dem Binden an eine Prozedur nicht mehr in der Ereignisschleife "erscheint", also dort nicht mehr abgefragt werden kann. Das war offenbar ein Irrtum. Leider ist das Ganze in der Hilfe nur sehr rudimentär dokumentiert.

Wie der folgende Code zeigt (getestet mit PB 5.70 unter Windows), kann anscheinend
  • eine Prozedur mit mehreren Ereignissen verbunden sein,
  • ein Ereignis an mehrere Proceduren gebunden sein,
  • ein Ereignis, das an eine oder mehrere Prozeduren gebunden ist, außerdem auch in der Ereignisschleife abgefragt werden.
Die Verarbeitung von Ereignissen ist in modernen Programmiersprachen wie PureBasic keine Kleinigkeit am Rande, sondern eine zentrale Angelegenheit. Die Dokumentation dazu sollte eindeutig und ausführlich sein :!:

Code: Alles auswählen

EnableExplicit

Procedure ButtonHandlerA()
   Debug "Click event on button #" + EventGadget()
   Debug "Handled by ButtonHandler A"
EndProcedure

Procedure ButtonHandlerB()
   Debug "Click event on button #" + EventGadget()
   Debug "Handled by ButtonHandler B"
EndProcedure


Define Event.i

OpenWindow(0, 100, 100, 200, 90, "Click test", #PB_Window_SystemMenu)
ButtonGadget(0, 10, 10, 180, 30, "Button #0")
ButtonGadget(1, 10, 50, 180, 30, "Button #1")

BindGadgetEvent(0, @ButtonHandlerA())
BindGadgetEvent(0, @ButtonHandlerB())

BindGadgetEvent(1, @ButtonHandlerA())
BindGadgetEvent(1, @ButtonHandlerB())

Repeat
   Event = WaitWindowEvent()
   Select Event
      Case #PB_Event_Gadget
         Debug "Click event on button #" + EventGadget()
         Debug "Handled by the event loop"
         Debug ""
   EndSelect     
Until Event = #PB_Event_CloseWindow

Re: Hinweise + Vorschläge f. bessere Befehls-Beschreibungen

Verfasst: 17.03.2019 10:53
von H.Brill
Naja, ist ja auch eine Universal-Funktion, wie so manch andere.
Mit zusätzlichem [EventTyp] und EventGadget() in der Procedure
ist es ja möglich, das entsprechende Gadget und dessen Eventtype
raus zu filtern. Eigentlich würde da eine einzige Procedure für alle
Gadgets reichen.

Re: Hinweise + Vorschläge f. bessere Befehls-Beschreibungen

Verfasst: 17.03.2019 11:06
von Nino
H.Brill hat geschrieben:Naja, ist ja auch eine Universal-Funktion, wie so manch andere.
Mit zusätzlichem [EventTyp] und EventGadget() in der Procedure
ist es ja möglich, das entsprechende Gadget und dessen Eventtype
raus zu filtern. Eigentlich würde da eine einzige Procedure für alle
Gadgets reichen.
Darum geht es an dieser Stelle nicht - sondern darum, dass in der Dokumentation die Möglichkeiten, die zur Verfügung stehen, eben auch dokumentiert sind.

Re: Hinweise + Vorschläge f. bessere Befehls-Beschreibungen

Verfasst: 17.03.2019 11:48
von H.Brill
Ach so, ich dachte, du beziehst dich auf diese Aussage hier :
Nino hat geschrieben:BindEvent() etc.
Wie der folgende Code zeigt (getestet mit PB 5.70 unter Windows), kann anscheinend
  • eine Prozedur mit mehreren Ereignissen verbunden sein,
  • ein Ereignis an mehrere Proceduren gebunden sein,
  • ein Ereignis, das an eine oder mehrere Prozeduren gebunden ist, außerdem auch in der Ereignisschleife abgefragt werden.
Ich sehe es als zusätzliches Feature an, da man damit sich die ganze EventGadget - Geschichte
sparen kann und somit die Ereignisschleife sehr schlank halten kann.
Daß man das Ereignis auch zusätzlich in der Ereignisschleife abfragen kann, ist daran geschuldet,
daß man BindEvent ja nicht unbedingt benutzen muß. Sonst wäre das für Fred ein erheblicher
Aufwand, alles auseinander zu halten. So braucht er halt nur abzufragen, ob noch eine Procedure
angekoppelt ist, und führt diese noch zusätzlich aus.

PS: Daß nicht alles super kommentiert ist, sieht man ja auch an anderen Stellen. Da hatte ich anfangs
auch meine Mühe, bis ich das ganze System einigermaßen verstanden hatte.

Re: Hinweise + Vorschläge f. bessere Befehls-Beschreibungen

Verfasst: 17.03.2019 11:54
von Nino
H.Brill hat geschrieben:Ach so, ich dachte, du beziehst dich auf diese Aussage hier :
Ich beziehe mich vor allem auf den Zweck dieses Threads:
Hinweise + Vorschläge f. bessere Befehls-Beschreibungen etc.

Re: Hinweise + Vorschläge f. bessere Befehls-Beschreibungen

Verfasst: 22.04.2019 10:33
von Kurzer
Die Select / Case Anweisung verarbeitet auch Stringwerte. Dies geht aus der aktuellen Beschreibung in der Hilfe zu Select nicht deutlich hervor. Dort ist immer nur von <Ausdruck> und von Zahlenformaten die Rede. Auch die Beispiele basieren alle nur auf Zahlen-Vergleiche. Evtl. kann man hier einen Satz einfügen, dass man auch

Code: Alles auswählen

Case "oben"
schreiben könnte.
Die PB 5.70 Hilfe hat geschrieben:Select bietet die Möglichkeit, eine schnelle Auswahl zu treffen. Das Programm führt den <Ausdruck1> aus und behält dessen Ergebnis im Speicher. Es vergleicht dann diesen Wert mit allen Werten aus den Case <Ausdrücken>, und wenn der Wert eines angegebenen Case <Ausdrucks> 'wahr' ergibt, führt es den zugehörigen Programmcode aus und verlässt die Select Struktur. Case unterstützt mehrfache Werte und Werte-Bereiche durch die Verwendung des optionalen To Schlüsselworts (nur numerische Werte). Wenn keiner der Case Werte 'wahr' ist, dann wird der Default Code (sofern definiert) ausgeführt.

Hinweis: Select akzeptiert auch Fließkommazahlen (Floats) als <Ausdruck1>, rundet diese jedoch auf die nächstgelegene Ganzzahl (Integer) ab (Vergleiche werden nur mit Ganzzahlen durchgeführt).
Das hier funktioniert einwandfrei:

Code: Alles auswählen

  Value.s = "exe"
  
  Select Value
    Case "exe", "dll", "lib"
      Debug "Exe, Dll oder Lib"
    Default
      Debug "Etwas anderes"
  EndSelect
Kurzer Gruß

HTML-Hilfe: ExamineDirectory

Verfasst: 14.11.2019 08:42
von stab
Die Prüfung, ob überhaupt und wenn ja, ein korrekter Verzeichniseintrag in meiner Datenbank existiert, wollte ich wie folgt umsetzen:

Hier das Beispiel anhand einer Liste:

Code: Alles auswählen


; Prüfung, ob ein Verzeichniseintrag vorhanden ist
; und wenn ja, ob das Verzeichnis vorhanden ist
; funktioniert so nicht

NewList verzeichnisse.s()

AddElement(verzeichnisse())
verzeichnisse() = "c:\windows"

AddElement(verzeichnisse())
verzeichnisse() = "c:\wintows"

AddElement(verzeichnisse())

For v = 0 To 2
  SelectElement(verzeichnisse(), v)
  verzeichnis.s = verzeichnisse()
  
  If ExamineDirectory(0,verzeichnis.s,"")
    Debug "Listeneintrag " +Str(v)+ ": Alles klar: Verzeichnis " +verzeichnisse()+ " existiert"
  Else
    Debug "Listeneintrag " +Str(v)+ ": Fehler: Verzeichnis " +verzeichnisse()+ " existiert nicht"
  EndIf
Next

Funktioniert nicht, da

Code: Alles auswählen

ExamineDirectory(#Verzeichnis, "", "") 
auf das aktuelle Verzeichnis verweist und somit keinen Fehler ergibt.
Vielleicht sollte man das kurz wie bei den Pattern$ dokumentieren.

__________________________________________________
Beitrag verschoben
Feedback - Anwendungen>Bugs
HTML-Hilfe: ExamineDirectory>Hinweise + Vorschläge f. bessere Befehls-Beschreibungen etc.
14.11.2019
RSBasic

Re: HTML-Hilfe: ExamineDirectory

Verfasst: 14.11.2019 09:05
von Nino
Das hat mit "Feedback - Anwendungen" nichts zu tun;
gehört in diese Abteilung: viewtopic.php?f=20&t=16955

Re: HTML-Hilfe: ExamineDirectory

Verfasst: 14.11.2019 12:10
von HeX0R
Ausserdem nimmt man dafür FileSize()