Verwendung von Modulen

Anfängerfragen zum Programmieren mit PureBasic.
Antworten
Wolfvater Loki
Beiträge: 52
Registriert: 22.05.2022 15:37

Verwendung von Modulen

Beitrag 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?
Wolfvater Loki
Er wünscht euch schöne Grüße.
Nach oben
Benutzeravatar
TroaX
Beiträge: 662
Registriert: 08.03.2013 14:27
Computerausstattung: PC: Ryzen 9 3950X, 96 GB RAM, RX6800XT, 2.5 TB SSD, 21:9 Display, Pop_OS! | Lappi: Ryzen 7 5800H, 16 GB RAM, 1 TB SSD, Pop_OS!
Wohnort: NRW
Kontaktdaten:
Kontaktdaten von TroaX

Re: Verwendung von Modulen

Beitrag 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.
PC: Ryzen 9 3950X | 96 GB RAM | RX6800XT | 2,5 TB NVMe | Pop_OS!
Notebook: 16" 3:2 | Ryzen 7 5800H | 16 GB RAM | Radeon Vega | 1TB NVMe | Pop_OS!
NAS: Fritz.Box :lol:
Coding: Purebasic 6.04 | PHP | HTML | CSS | Javascript
Nach oben
Wolfvater Loki
Beiträge: 52
Registriert: 22.05.2022 15:37

Re: Verwendung von Modulen

Beitrag von Wolfvater Loki »

Ok. Und anders geht es nicht?
Wolfvater Loki
Er wünscht euch schöne Grüße.
Nach oben
Benutzeravatar
Kiffi
Beiträge: 10621
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: Verwendung von Modulen

Beitrag 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
Hygge
Nach oben
Wolfvater Loki
Beiträge: 52
Registriert: 22.05.2022 15:37

Re: Verwendung von Modulen

Beitrag 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).
Wolfvater Loki
Er wünscht euch schöne Grüße.
Nach oben
Benutzeravatar
Kiffi
Beiträge: 10621
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: Verwendung von Modulen

Beitrag von Kiffi »

mh, ...

dann musst Du Dein Problem ein wenig genauer beschreiben. Bekommst Du Fehlermeldungen?
Hygge
Nach oben
Wolfvater Loki
Beiträge: 52
Registriert: 22.05.2022 15:37

Re: Verwendung von Modulen

Beitrag von Wolfvater Loki »

Eine Fehlermeldung nicht, aber wenn ich mein Programm starte, startet das Modul als erstes.
Wolfvater Loki
Er wünscht euch schöne Grüße.
Nach oben
Wolfvater Loki
Beiträge: 52
Registriert: 22.05.2022 15:37

Re: Verwendung von Modulen

Beitrag 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.
Wolfvater Loki
Er wünscht euch schöne Grüße.
Nach oben
Benutzeravatar
Kiffi
Beiträge: 10621
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: Verwendung von Modulen

Beitrag 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
Hygge
Nach oben
Wolfvater Loki
Beiträge: 52
Registriert: 22.05.2022 15:37

Re: Verwendung von Modulen

Beitrag von Wolfvater Loki »

Vielen Dank.
Wolfvater Loki
Er wünscht euch schöne Grüße.
Nach oben
Antworten

Zurück zu „Anfänger“