Ich bin sehr sehr neu in Sachen PureBasic. Meine Freunde programmieren allerdigns schon fleißig PureBasic und ich hab mir sagen lassen die Sprache sei einfach zu lernen. Erste Erfolge konnte ich auch schon verbuchen und mich hats jetzt offiziell gepackt. Ich konnte mal C## muss aber sagen mittlerweile bin ich so eingerpostet das C## für mich nichts mehr taugt.
Ich hatte mal Eine Oberfläche programmiert diese ist mir abhanden gekommen. Die Funktionalität war soweit in Ordnung aber ab 15 Spielen wurde diese so elendich langsam, sodass ich sie nicht mehr benutzen konnte.
Dort hatte ich Seite für Seite bearbeitet und mit einander "verlinkt".
Das möchte ich nun anders machen. Meine vorstellung der "Datenbank"-Datei werde ich später noch erläutern.
Ich hoffe ihr könnt mir jetzt schon ein bisschen helfen.
Mein Fortschritt bis jetzt:
Gamez.pb
Code: Alles auswählen
;--Start--;
IncludeFile "database.pb"
;------------------------------
;----Aufzählungen Constants----;
;--Windows--;
Enumeration
#Window_Startseite
EndEnumeration
;--Gadgets--;
Enumeration
#Image_0
#Image_1
#Frame_0
#Gadget_Inhalt
#Directoryname
EndEnumeration
;--Images--;
Enumeration
#imgCover
#imgUSK
EndEnumeration
;------------------------------
;--Plugins--;
UseJPEGImageDecoder()
;------------------------------
;--Images Laden--;
LoadImage(#Image_0, farcry2\cover)
LoadImage(#Image_1, farcry2\usk)
;------------------------------
;------------------------------
;------------------------------
;MEIN FENSTER--;
If OpenWindow(#Window_Startseite, 0, 0, 800, 800, "Gamez", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) = 0
EndIf
ImageGadget(#Image_0, 10, 10, 520, 700, ImageID(#imgCover))
ImageGadget(#Image_1, 620, 270, 80, 80, ImageID(#imgUSK))
Frame3DGadget(#Frame_0, 535, 5, 255, 250, "Game Content")
TextGadget(#Gadget_Inhalt, 540, 20, 245, 250, farcry2\gamecontent)
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
Quit = 1
EndIf
Until Quit = 1
;------------------------------
;------------------------------
;------------------------------
Code: Alles auswählen
;--Start--;
Structure game
gamecontent.s
usk.s
cover.s
EndStructure
;--Games
farcry2.game
;--Inhalt
farcry2\gamecontent = "(...)"
farcry2\usk = "..\338.jpg"
farcry2\cover = "..\farcry2.jpg"
[Update 3.]IncludeBinary ist ersetzt durch LoadImage.