I need more performance and no Errors in LINUX.
Now a lttle part of the program which shows the effect.
Change Line 14 ( change Image Name) and Line 42 ( different flgs between Windows and Linux)
I hope you see my bug.
please excuse my bad english (it is enough to get a beer)
Code: Select all
UseJPEGImageDecoder() ; JPEG Decoder ist nun installiert
; Beginn der Dimensionierungen
; Ende der Dinensionierungen
Global MenuauswahlZahl.b
; Beginn Initialisieren Arrays
; Gosub ArraysFuellen ;Füllt die Arrays der Blocks 1-6 mit Fragen,Antworten und Lösungen
ExamineDesktops()
; Beginn Initialisierung der Variabelen
XAufloesung= DesktopWidth(0) ; Ermittelt die aktuelle x Auflösung z. B. 1280 oder 1024 oder 800
YAufloesung= DesktopHeight(0) ; Ermittelt die aktuelle y Auflösung z. B. 1027 oder 768 oder 600
MenuauswahlZahl.b=98
LAUTSTAERKE.b=0
; Beginn Initialisierung der Fenster
LoadImage (0,"bild001.jpg")
; LoadImage (1,"bild002.jpg")
; ; Image 3 ist belegt mit Fischbildern
; LoadImage (4,"gruen.jpg") ; grosses Grün
; LoadImage (5,"rot.jpg") ; Großes Rot
; LoadImage (6,"gruenklein.jpg") ; kleines gruen
; LoadImage (7,"rotklein.jpg") ; kleines Rot
; If InitSound() = 0
; MessageRequester("Fehler", "DirectX 7 oder keine Soundkarte im System verfügbar", 0)
; EndIf
; LoadSound(1, "sound01.wav") ; Ist der Sound Richtig
;
;
; LoadSound(2, "sound02.wav") ; Ist der Sound für Falsch
LoadFont (0, "arial", 8)
LoadFont (1, "arial", 10)
LoadFont (2, "arial", 12)
;SoundVolume(3, LAUTSTAERKE.b)
; Hauptmenu:
MenuauswahlZahl.b=0
If OpenWindow(0, 0, 0 ,XAufloesung,YAufloesung, #PB_Window_BorderLess, "Fenster 0")
CreateGadgetList(WindowID(0))
ResizeImage(0,XAufloesung,YAufloesung )
ImageGadget(0,0,0,WindowWidth(),WindowHeight(),UseImage(0))
EndIf
If OpenWindow(1, 0, 0 ,800,600, #PB_Window_ScreenCentered , "Hauptmenu Fischerprüfung für NRW")
EndIf
UseWindow(1)
ActivateWindow()
If CreateGadgetList(WindowID())
ButtonGadget (11, 040, 040,200, 20, "Allgemeine Fischkunde")
ButtonGadget (12, 040, 070,200, 20, "Spezielle Fischkunde")
ButtonGadget (13, 040, 100,200, 20, "Gewässerkunde und Fischhege")
ButtonGadget (14, 040, 130,200, 20, "Natur- und Tierschutz")
ButtonGadget (15, 040, 160,200, 20, "Gerätekunde")
ButtonGadget (16, 040, 190,200, 20, "Gesetzeskunde")
ButtonGadget (17, 040, 250,200, 20, "Artenkenntnis der Fische")
ButtonGadget (18, 040, 280,200, 20, "Angelgeräte zusammenstellen")
ButtonGadget (21, 300, 040,200, 20, "Allgemeine Fischkunde")
ButtonGadget (22, 300, 070,200, 20, "Spezielle Fischkunde")
ButtonGadget (23, 300, 100,200, 20, "Gewässerkunde und Fischhege")
ButtonGadget (24, 300, 130,200, 20, "Natur- und Tierschutz")
ButtonGadget (25, 300, 160,200, 20, "Gerätekunde")
ButtonGadget (26, 300, 190,200, 20, "Gesetzeskunde")
ButtonGadget (27, 300, 250,200, 20, "Artenkenntnis der Fische")
ButtonGadget (28, 300, 280,200, 20, "Angelgeräte zusammenstellen")
ButtonGadget (31, 560, 040,200, 20, "Allgemeine Fischkunde")
ButtonGadget (32, 560, 070,200, 20, "Spezielle Fischkunde")
ButtonGadget (33, 560, 100,200, 20, "Gewässerkunde und Fischhege")
ButtonGadget (34, 560, 130,200, 20, "Natur- und Tierschutz")
ButtonGadget (35, 560, 160,200, 20, "Gerätekunde")
ButtonGadget (36, 560, 190,200, 20, "Gesetzeskunde")
ButtonGadget (37, 560, 250,200, 20, "Artenkenntnis der Fische")
ButtonGadget (38, 560, 280,200, 20, "Angelgeräte zusammenstellen")
ButtonGadget (97, 300, 520,200, 40, "Optionen")
ButtonGadget (99, 560, 520,200, 40, "Programm beenden")
EndIf
Repeat
ActivateWindow()
EventID = WaitWindowEvent()
Select EventID
Case #PB_Event_Gadget
MenuauswahlZahl.b=EventGadgetID()
EndSelect
Until EventID = #PB_Event_CloseWindow Or (MenuauswahlZahl.b > 0)
CloseWindow(1)
If EventID = #PB_Event_CloseWindow
MenuauswahlZahl.b =99
EndIf
; Return ; nach gosub Sprungmarke
End
