Module Problem

[Pure_Beginner]

Hallo Leute,

habe ein Problem mit der Kapselung von Modulen.
Die Konstanten in meinem Programm speichere ich in einer eigenen PB Datei, welche ich per XIncludeFile zu meinem Projekt hinzufüge.
Wie kann ich es anstellen das in meinen Modulen die Konstanten bekannt sind ?

Code: Alles auswählen

DeclareModule Buttons
  
Declare ClickExit()
Declare ClickLoad()
Declare ClickSave()
Declare ClickVariableDelete()
Declare ClickVariableEdit()
Declare ClickVariableAppend()

  EndDeclareModule




Module Buttons
   
Procedure ClickExit()
  End
EndProcedure

Procedure ClickLoad()
 EndProcedure

Procedure ClickVariableDelete()
EndProcedure

Procedure ClickVariableEdit()
EndProcedure

Procedure ClickVariableAppend()
  Protected.s Bezeichnung, Wert
  
  Bezeichnung =  GetGadgetText(#Gadget_Form1_str_VariableName)
  Wert        =  GetGadgetText#Gadget_Form1_str_VariableWert)
EndProcedur

EndModule

wie kann ich es erreichen das die beitden konstanten #Gadget_Form1_str_VariableName und #Gadget_Form1_str_VariableWert in meinem Modul bekannt sind ?

für eure Hilfe wäre ich sehr Dankbar.

Grüße
Christian

[Bisonte]

Wenn die Konstanten nur INNERHALB deines Modules gebraucht werden,
dann musst du sie im Module "Block" definieren.
Sollten sie auch AUSSERHALB des Moduls vom User benutzbar sein
(für aufrufe z.B.) dann muessen sie innerhalb des DeclareModule "Block"
definiert werden.

Oder sie einfach per XIncludeFile in dem jeweiligen Block einlesen....

[Pure_Beginner]

Hallo Bisonte,

danke für die schnelle Antwort, leider klappt das nicht, weder das XinkludeFile im Module Abschnitt noch im Declare Abschnitt.

Grüße

[ts-soft]

Code: Alles auswählen

DeclareModule Common
  #Gadget_Form1_str_VariableName = 10
  #Gadget_Form1_str_VariableWert = 11
EndDeclareModule
Module Common : EndModule

UseModule Common

DeclareModule Buttons
  
  Declare ClickExit()
  ;...
  
EndDeclareModule

Module Buttons
  UseModule Common
  Procedure ClickExit()
    Debug #Gadget_Form1_str_VariableName
  EndProcedure
EndModule

Debug #Gadget_Form1_str_VariableName
Buttons::ClickExit()

[Pure_Beginner]

@ts-soft

so funktioniert das

muss also alle Konstanten in ein Module Packen und usen.

Besten Dank
Christian

[ts-soft]

Sowas ist aber selten sinnvoll. Lediglich bei Teamarbeit sollte es so sinnvoll sein.
Unabhängige Module, die für Wiederverwendung/Weitergabe gedacht sind, sollten
so etwas nicht nutzen.

Dein Snippet sieht nicht nach Teamarbeit aus, die Verwendung von Modulen ist dort
dann auch nicht unbedingt Vorteilhaft, jedenfalls alles in Module stopfen ist nicht der
Sinn der Sache

Gruß
Thomas

[Pure_Beginner]

@ts-soft

war wohl nix, wollte unbedingt die Neuheit ausprobieren und kapseln.

Bin leider kein Programmierer und werd es warscheinlich nie richtig lernen, was mich nicht davon abhält es tapfer zu probieren
werde meinen code umbauen und ohne Module arbeiten.

Danke für den Tipp.
Grüße
Christian

[Nero]

Oder sie einfach per XIncludeFile in dem jeweiligen Block einlesen....

Das geht nicht, 2 x XIncludeFile = 1 Include
Must es im Modul mit IncludeFile machen sonst wirds nicht includierts hatte das selbse problem http://www.purebasic.fr/english/viewtop ... 13&t=56053

Mfg Nero

[Pure_Beginner]

Danke für die Mitteilung.

Grüße
Christian