PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

Verwendung von Modulen

https://www.purebasic.fr/german/viewtopic.php?t=32689

Seite 1 von 2

Verwendung von Modulen

Verfasst: 18.06.2022 15:18
von Wolfvater Loki
Ich habe für mein Projekt vor, ein paar Module einzubauen. Ich habe aber das Problem, dass das Modul aber vor Öffnen des Fensters kommt. Kann man das Modul auch irgendwo anders einbauen?

Re: Verwendung von Modulen

Verfasst: 18.06.2022 16:15
von TroaX
In wie fern? Wann etwas kommt hängt davon ab, wo du es im Code einsetzt. Setzt du es vorm öffnen eines Fensters ein, dann kommt es auch davor. Wenn dahinter, dann dahinter.

Re: Verwendung von Modulen

Verfasst: 18.06.2022 16:20
von Wolfvater Loki
Ok. Und anders geht es nicht?

Re: Verwendung von Modulen

Verfasst: 18.06.2022 16:50
von Kiffi
Bin mir nicht sicher, ob Du mit "Modul" das gleiche meinst wie wir, denn ein PB-Modul würde kein Problem erzeugen, wenn es "vor Öffnen des Fensters kommt".

Du meinst wirklich dieses hier? https://www.purebasic.com/german/docume ... odule.html

Re: Verwendung von Modulen

Verfasst: 18.06.2022 16:52
von Wolfvater Loki
Kiffi hat geschrieben: 18.06.2022 16:50 Bin mir nicht sicher, ob Du mit "Modul" das gleiche meinst wie wir, denn ein PB-Modul würde kein Problem erzeugen, wenn es "vor Öffnen des Fensters kommt".

Du meinst wirklich dieses hier? https://www.purebasic.com/german/docume ... odule.html
Das ist genau das, was ich meine (also das vom Link).

Re: Verwendung von Modulen

Verfasst: 18.06.2022 17:03
von Kiffi
mh, ...

dann musst Du Dein Problem ein wenig genauer beschreiben. Bekommst Du Fehlermeldungen?

Re: Verwendung von Modulen

Verfasst: 18.06.2022 17:05
von Wolfvater Loki
Eine Fehlermeldung nicht, aber wenn ich mein Programm starte, startet das Modul als erstes.

Re: Verwendung von Modulen

Verfasst: 18.06.2022 17:13
von Wolfvater Loki

Code: Alles auswählen

DeclareModule Vokabular
  Global NewMap DeEn.s()
  Global NewMap EnDe.s()
  Global NewMap DeEn1.s()
  Global NewMap En1De.s()
  Global NewMap DeEn2.s()
  Global NewMap En2De.s()
  Global NewMap DeEn3.s()
  Global NewMap En3De.s()
  Global NewMap DeEn4.s()
  Global NewMap En4De.s()
  Global NewMap DeEn5.s()
  Global NewMap En5De.s()
  Global NewMap DeEn6.s()
  Global NewMap En6De.s()
  Global NewMap DeEn7.s()
  Global NewMap En7De.s()
  Global NewMap DeEn8.s()
  Global NewMap En8De.s()
  Global NewMap DeFrz.s()
  Global NewMap FrzDe.s()
  Global NewMap DeFrz1.s()
  Global NewMap Frz1De.s()
  Global NewMap DeFrz2.s()
  Global NewMap Frz2De.s()
  Global NewMap DeFrz3.s()
  Global NewMap Frz3De.s()
  Global NewMap DeFrz4.s()
  Global NewMap Frz4De.s()
  Global NewMap DeFrz5.s()
  Global NewMap Frz5De.s()
  Global NewMap DeFrz6.s()
  Global NewMap Frz6De.s()
  Global NewMap DeFrz7.s()
  Global NewMap Frz7De.s()
  Global NewMap DeFrz8.s()
  Global NewMap Frz8De.s()
EndDeclareModule
Module Vokabular
  Procedure EnglischUnit10()
    InputRequester("","","")
  EndProcedure
  Procedure EnglischUnit20()
    
  EndProcedure
  Procedure EnglischUnit30()
    
  EndProcedure
  Procedure EnglischUnit40()
    
  EndProcedure
  Procedure EnglischUnit50()
    
  EndProcedure
  Procedure EnglischUnit60()
    
  EndProcedure
  Procedure EnglischUnit70()
    
  EndProcedure
  Procedure EnglischUnit80()
    
  EndProcedure
  Procedure FranzoesischUnite10()
    
  EndProcedure
  Procedure FranzoesischUnite20()
    
  EndProcedure
  Procedure FranzoesischUnite30()
    
  EndProcedure
  Procedure FranzoesischUnite40()
    
  EndProcedure
  Procedure FranzoesischUnite50()
    
  EndProcedure
  Procedure FranzoesischUnite60()
    
  EndProcedure
  Procedure FranzoesischUnite70()
    
  EndProcedure
  Procedure FranzoesischUnite80()
    
  EndProcedure 
  waehleeins$ = InputRequester("","","")
  StarteDieVokabelabfrage = Val(waehleeins$)
  Select StarteDieVokabelabfrage
    Case 1
      EnglischUnit10()
    Case 2
      EnglischUnit20()
    Case 3
      EnglischUnit30()
    Case 4
      EnglischUnit40()
    Case 5
      EnglischUnit50()
    Case 6
      EnglischUnit60()
    Case 7
      EnglischUnit70()
    Case 8
      EnglischUnit80()
    Case 9
      FranzoesischUnite10()
    Case 10
      FranzoesischUnite20()
    Case 11
      FranzoesischUnite30()
    Case 12
      FranzoesischUnite40()
    Case 13
      FranzoesischUnite50()
    Case 14
      FranzoesischUnite60()
    Case 15
      FranzoesischUnite70()
    Case 16
      FranzoesischUnite80()
  EndSelect
EndModule

OpenWindow(1,0,0,1000,600,"",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ButtonGadget(1,10,10,100,25,"Vok Eng 1")
ButtonGadget(2,10,40,100,25,"Vok Eng 2")
ButtonGadget(3,10,70,100,25,"Vok Eng 3")
ButtonGadget(4,10,100,100,25,"Vok Eng 4")
ButtonGadget(5,10,130,100,25,"Vok Eng 5")
ButtonGadget(6,10,160,100,25,"Vok Eng 6")
ButtonGadget(7,10,190,100,25,"Vok Eng 7")
ButtonGadget(8,10,220,100,25,"Vok Eng 8")
Repeat
  event = WaitWindowEvent()
  
Until event = #PB_Event_CloseWindow
Das ist ein Bsp.-Code.

Re: Verwendung von Modulen

Verfasst: 18.06.2022 17:20
von Kiffi

Code: Alles auswählen

DeclareModule Vokabular
  
  Declare EnglischUnit10()
  Declare EnglischUnit20()
  Declare EnglischUnit30()
  Declare EnglischUnit40()
  Declare EnglischUnit50()
  Declare EnglischUnit60()
  Declare EnglischUnit70()
  Declare EnglischUnit80()
  Declare FranzoesischUnite10()
  Declare FranzoesischUnite20()
  Declare FranzoesischUnite30()
  Declare FranzoesischUnite40()
  Declare FranzoesischUnite50()
  Declare FranzoesischUnite60()
  Declare FranzoesischUnite70()
  Declare FranzoesischUnite80()  
  
EndDeclareModule
Module Vokabular
  Procedure EnglischUnit10()
    InputRequester("","","")
  EndProcedure
  Procedure EnglischUnit20()
  EndProcedure
  Procedure EnglischUnit30()
  EndProcedure
  Procedure EnglischUnit40()
  EndProcedure
  Procedure EnglischUnit50()
  EndProcedure
  Procedure EnglischUnit60()
  EndProcedure
  Procedure EnglischUnit70()
  EndProcedure
  Procedure EnglischUnit80()
  EndProcedure
  Procedure FranzoesischUnite10()
  EndProcedure
  Procedure FranzoesischUnite20()
  EndProcedure
  Procedure FranzoesischUnite30()
  EndProcedure
  Procedure FranzoesischUnite40()
  EndProcedure
  Procedure FranzoesischUnite50()
  EndProcedure
  Procedure FranzoesischUnite60()
  EndProcedure
  Procedure FranzoesischUnite70()
  EndProcedure
  Procedure FranzoesischUnite80()
  EndProcedure 
EndModule

OpenWindow(1,0,0,1000,600,"",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ButtonGadget(1,10,10,100,25,"Vok Eng 1")
ButtonGadget(2,10,40,100,25,"Vok Eng 2")
ButtonGadget(3,10,70,100,25,"Vok Eng 3")
ButtonGadget(4,10,100,100,25,"Vok Eng 4")
ButtonGadget(5,10,130,100,25,"Vok Eng 5")
ButtonGadget(6,10,160,100,25,"Vok Eng 6")
ButtonGadget(7,10,190,100,25,"Vok Eng 7")
ButtonGadget(8,10,220,100,25,"Vok Eng 8")

waehleeins$ = InputRequester("","","")
StarteDieVokabelabfrage = Val(waehleeins$)
Select StarteDieVokabelabfrage
  Case 1
    Vokabular::EnglischUnit10()
  Case 2
    Vokabular::EnglischUnit20()
  Case 3
    Vokabular::EnglischUnit30()
  Case 4
    Vokabular::EnglischUnit40()
  Case 5
    Vokabular::EnglischUnit50()
  Case 6
    Vokabular::EnglischUnit60()
  Case 7
    Vokabular::EnglischUnit70()
  Case 8
    Vokabular::EnglischUnit80()
  Case 9
    Vokabular::FranzoesischUnite10()
  Case 10
    Vokabular::FranzoesischUnite20()
  Case 11
    Vokabular::FranzoesischUnite30()
  Case 12
    Vokabular::FranzoesischUnite40()
  Case 13
    Vokabular::FranzoesischUnite50()
  Case 14
    Vokabular::FranzoesischUnite60()
  Case 15
    Vokabular::FranzoesischUnite70()
  Case 16
    Vokabular::FranzoesischUnite80()
EndSelect

Repeat
  event = WaitWindowEvent()
Until event = #PB_Event_CloseWindow

Re: Verwendung von Modulen

Verfasst: 18.06.2022 17:25
von Wolfvater Loki
Vielen Dank.
Alle Zeiten sind UTC+02:00
Seite 1 von 2

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de