Hinweise + Vorschläge f. bessere Befehls-Beschreibungen etc.

[ccode_new]

[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

[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.

[Nino]

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.

[H.Brill]

Ach so, ich dachte, du beziehst dich auf diese Aussage hier :

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.

[Nino]

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.

[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.

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ß

[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

[Nino]

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

[HeX0R]

Ausserdem nimmt man dafür FileSize()