voila j'ai fait un petit programme pour cree un perso on mavait deja auider a faire certaine parti comme un apercu sauf que le petit problem c que l'ecran safiche oir 2 sec et apres il redevient gris jaimerai que kle robot safiche dedans
bon le voici voyer par vous meme (le modele utiliser sont ce dans pure basic /example /data
voial le code
Code : Tout sélectionner
#RobotMesh = 0
#RobotTexture = 0
#Robot = 0
Enumeration
#Panel_0
#Button_0
#Button_1
#Button_2
#Radio_0
#Radio_1
#Radio_2
#Radio_3
#Radio_4
#Radio_5
#Radio_6
#Radio_7
#Radio_8
#Radio_9
#Frame3D_0
#Frame3D_1
#Frame3D_2
#Frame3D_3
#Frame3D_4
#Frame3D_5
#Frame3D_6
#Frame3D_7
#Frame3D_8
#String_0
#String_1
#ProgressBar_0
#Frame3D_9
#String_3
#String_6
#String_8
#Listview_0
#Listview_1
#Frame3D_13
#Frame3D_14
#Frame3D_11
#Text_2
#String_10
#Frame3D_15
#Frame3D_16
#Frame3D_17
#Frame3D_18
#Frame3D_19
#Frame3D_20
#Text_4
#Text_5
#Text_6
#Text_7
#Text_8
#Frame3D_21
#Frame3D_22
#Frame3D_23
#Text_11
#Text_12
#Text_13
#Frame3D_24
#Text_15
#Frame3D_10
#Frame3D_12
#Text_10
#Button_3
#Text_3
#sprite
#Button_4
#Button_5
#Button_6
#Button_7
#Button_8
#Button_9
#Button_10
#Button_11
#Frame3D_26
#Text_16
#Frame3D_27
#Button_27
EndEnumeration
InitEngine3D()
InitSprite()
InitSprite3D()
Add3DArchive("data/" , #PB_3DArchive_FileSystem)
Add3DArchive("data/Skybox.zip", #PB_3DArchive_Zip)
Beep_(700,200)
Beep_(400,200)
If OpenWindow(0, 200, 200, 500, 350, #PB_Window_ScreenCentered|#PB_Window_SystemMenu, "Menu TEOK")
If CreateGadgetList(WindowID())
menu:
;- Panel0
PanelGadget(#Panel_0, 0, 10, 490, 330)
AddGadgetItem(#Panel_0, -1, "Personalisation du perso")
ButtonGadget(#Button_0, 428, 278, 50, 20, "Valider")
ButtonGadget(#Button_1, 428, 248, 50, 20, "Reset")
ButtonGadget(#Button_2, 428, 218, 50, 20, "Anuler")
OptionGadget(#Radio_0, 78, 108, 20, 20, "")
OptionGadget(#Radio_1, 78, 148, 20, 20, "")
OptionGadget(#Radio_2, 78, 188, 20, 20, "")
OptionGadget(#Radio_3, 78, 228, 20, 20, "")
OptionGadget(#Radio_4, 78, 268, 20, 20, "")
OptionGadget(#Radio_5, 138, 268, 20, 20, "")
OptionGadget(#Radio_6, 138, 108, 20, 20, "")
OptionGadget(#Radio_7, 138, 148, 20, 20, "")
OptionGadget(#Radio_8, 138, 188, 20, 20, "")
OptionGadget(#Radio_9, 138, 228, 20, 20, "")
Frame3DGadget(#Frame3D_26, 188, 78, 130, 210, "apercu")
Frame3DGadget(#Frame3D_0, 8, 98, 170, 40, "Elfe")
Frame3DGadget(#Frame3D_1, 8, 138, 170, 40, "Orc")
Frame3DGadget(#Frame3D_2, 8, 178, 170, 40, "Nain")
Frame3DGadget(#Frame3D_3, 8, 218, 170, 40, "Humain")
Frame3DGadget(#Frame3D_4, 8, 258, 170, 40, "Gnome")
Frame3DGadget(#Frame3D_5, 58, 78, 50, 220, "Femmes")
Frame3DGadget(#Frame3D_6, 118, 78, 50, 220, "Homme")
Frame3DGadget(#Frame3D_7, 38, 18, 90, 50, "NOM")
Frame3DGadget(#Frame3D_8, 128, 18, 90, 50, "Prénoms")
StringGadget(#String_0, 48, 38, 70, 20, "")
SendMessage_(GadgetID(#String_0), #EM_LIMITTEXT, 20, 0)
StringGadget(#String_1, 138, 38, 70, 20, "")
SendMessage_(GadgetID(#String_0), #EM_LIMITTEXT, 20, 0)
ProgressBarGadget(#ProgressBar_0, 188, 288, 190, 10, 0, 10, #PB_ProgressBar_Smooth)
Frame3DGadget(#Frame3D_9, 308, 18, 170, 50, "date de naissance (JJ/MM/AAA)")
StringGadget(#String_3, 228, 38, 70, 20, "", #PB_String_Password)
SendMessage_(GadgetID(#String_3), #EM_LIMITTEXT, 20, 0)
StringGadget(#String_6, 318, 38, 40, 20, "01", #PB_String_Numeric)
SendMessage_(GadgetID(#String_6), #EM_LIMITTEXT, 2, 0)
StringGadget(#String_8, 378, 38, 40, 20, "01", #PB_String_Numeric)
SendMessage_(GadgetID(#String_8), #EM_LIMITTEXT, 2, 0)
Frame3DGadget(#Frame3D_11, 218, 18, 90, 50, "Mot De Passe")
TextGadget(#Text_2, 438, 38, 40, 20, "956")
StringGadget(#String_10, 338, 98, 130, 20, "")
Frame3DGadget(#Frame3D_15, 328, 78, 150, 50, "description")
Ecran3D=ContainerGadget(#Frame3D_27, 188, 88, 132, 181, "apercu")
AddGadgetItem(#Panel_0, -1, "Métier | Classe")
ListViewGadget(#Listview_1, 308, 78, 140, 180)
AddGadgetItem (#Listview_1,-1,"Barbarre")
AddGadgetItem (#Listview_1,-1,"Chasseur")
AddGadgetItem (#Listview_1,-1,"Druide")
AddGadgetItem (#Listview_1,-1,"Guerrier")
AddGadgetItem (#Listview_1,-1,"Voleur")
ListViewGadget(#Listview_0, 58, 78, 140, 180)
AddGadgetItem (#Listview_0,-1,"Cuisinier")
AddGadgetItem (#Listview_0,-1,"Forgeron")
AddGadgetItem (#Listview_0,-1,"Guerrier")
AddGadgetItem (#Listview_0,-1,"Herboriste")
AddGadgetItem (#Listview_0,-1,"Magicien")
AddGadgetItem (#Listview_0,-1,"Menuisier")
AddGadgetItem (#Listview_0,-1,"Mineur")
Frame3DGadget(#Frame3D_13, 48, 48, 160, 220, "Métier")
Frame3DGadget(#Frame3D_14, 298, 48, 160, 220, "Classe")
AddGadgetItem(#Panel_0, 3, "Caractéristique")
Frame3DGadget(#Frame3D_16, 38, 38, 80, 50, "Force")
Frame3DGadget(#Frame3D_17, 38, 98, 80, 50, "Agiliter")
Frame3DGadget(#Frame3D_18, 38, 158, 80, 50, "Intelligence")
Frame3DGadget(#Frame3D_19, 338, 248, 80, 50, "Endurance")
Frame3DGadget(#Frame3D_20, 38, 218, 80, 50, "Déxtériter")
TextGadget(#Text_4, 48, 58, 50, 20, "15")
TextGadget(#Text_5, 48, 118, 50, 20, "15")
TextGadget(#Text_6, 48, 178, 50, 20, "15")
TextGadget(#Text_7, 348, 268, 60, 20, "3500")
TextGadget(#Text_8, 48, 238, 60, 20, "15")
Frame3DGadget(#Frame3D_21, 338, 8, 80, 50, "Vie")
Frame3DGadget(#Frame3D_22, 338, 68, 80, 50, "Magie")
Frame3DGadget(#Frame3D_23, 338, 128, 80, 50, "Attaque")
TextGadget(#Text_11, 348, 28, 60, 20, "15")
TextGadget(#Text_12, 348, 88, 60, 20, "15")
TextGadget(#Text_13, 348, 148, 60, 20, "15")
Frame3DGadget(#Frame3D_24, 338, 188, 80, 50, "Défense")
TextGadget(#Text_15, 348, 208, 60, 20, "15")
ButtonGadget(#Button_4, 128, 48, 40, 20, "+")
ButtonGadget(#Button_5, 128, 68, 40, 20, "-")
ButtonGadget(#Button_6, 128, 108, 40, 20, "+")
ButtonGadget(#Button_7, 128, 128, 40, 20, "-")
ButtonGadget(#Button_8, 128, 168, 40, 20, "+")
ButtonGadget(#Button_9, 128, 188, 40, 20, "-")
ButtonGadget(#Button_10, 128, 228, 40, 20, "+")
ButtonGadget(#Button_11, 128, 248, 40, 20, "-")
Frame3DGadget(#Frame3D_26, 188, 18, 80, 50, "point restant")
TextGadget(#Text_16, 198, 38, 60, 20, "20")
int=15
agi=15
force=15
dex=15
endu=3500
vie=15
magie=15
deff=15
att=15
pr=20
EndIf
WindowID = WindowID()
InitKeyboard()
InitMouse()
OpenWindowedScreen(Ecran3D,0, 0, 131, 181, 0,0, 0)
LoadMesh (#RobotMesh , "Robot.mesh")
CreateMaterial(1, LoadTexture(1, "r2skin.jpg"))
CreateEntity(#Robot, MeshID(#RobotMesh), MaterialID(1))
AnimateEntity(#Robot, "Walk")
CreateLight(0, RGB(0,0,255), 100.0, 0, 0)
LightSpecularColor(0, RGB(255, 0, 0))
SkyDome("Clouds.jpg",10)
ScaleEntity(#Robot,0.05,0.05,0.05)
Repeat
endu$=Str (endu)
vie$=Str (vie)
deff$=Str (deff)
att$=Str (att)
magie$=Str (magie)
pr$=Str (pr)
TextGadget(#Text_7, 348, 268, 60, 20, endu$)
TextGadget(#Text_11, 348, 28, 60, 20, vie$)
TextGadget(#Text_12, 348, 88, 60, 20, magie$)
TextGadget(#Text_13, 348, 148, 60, 20, att$)
TextGadget(#Text_15, 348, 208, 60, 20, deff$)
TextGadget(#Text_16, 198, 38, 60, 20, pr$)
Resultat0 = GetGadgetState(#Radio_0)
Resultat1 = GetGadgetState(#Radio_1)
Resultat2 = GetGadgetState(#Radio_2)
Resultat3 = GetGadgetState(#Radio_3)
Resultat4 = GetGadgetState(#Radio_4)
Resultat5 = GetGadgetState(#Radio_5)
Resultat6 = GetGadgetState(#Radio_6)
Resultat7 = GetGadgetState(#Radio_7)
Resultat8 = GetGadgetState(#Radio_8)
Resultat9 = GetGadgetState(#Radio_9)
nomfichier$ =(nom$+prenom$+".teok")
Resultat0$=StrU(Resultat0,#Byte)
Resultat1$=StrU(Resultat1,#Byte)
Resultat2$=StrU(Resultat2,#Byte)
Resultat3$=StrU(Resultat3,#Byte)
Resultat4$=StrU(Resultat4,#Byte)
Resultat5$=StrU(Resultat5,#Byte)
Resultat6$=StrU(Resultat6,#Byte)
Resultat7$=StrU(Resultat7,#Byte)
Resultat8$=StrU(Resultat8,#Byte)
Resultat9$=StrU(Resultat9,#Byte)
If Resultat0=1
type$= "femme elfe"
EndIf
If Resultat1=1
type$= "femme orc"
EndIf
If Resultat2=1
type$= "femme nain"
EndIf
If Resultat3=1
type$= "femme humain"
EndIf
If Resultat4=1
type$= "femme gnome"
EndIf
If Resultat5=1
type$= "homme elfe"
EndIf
If Resultat6=1
type$= "homme orc"
EndIf
If Resultat7=1
type$= "homme nain"
EndIf
If Resultat8=1
type$= "homme humain"
EndIf
If Resultat9=1
type$= "homme gnome"
EndIf
event=WindowEvent()
Gadget = EventGadgetID()
Select Gadget
Case #Button_4
If pr >0
force=force+1
endu=endu+100
magie=magie+0
att=att+2
deff=deff+0
vie=vie+1
pr=pr-1
endu$=Str (endu)
vie$=Str (vie)
deff$=Str (deff)
att$=Str (att)
magie$=Str (magie)
pr$=Str (pr)
force$=Str (force)
TextGadget(#Text_4, 48, 58, 50, 20, force$)
TextGadget(#Text_7, 348, 268, 60, 20, endu$)
TextGadget(#Text_11, 348, 28, 60, 20, vie$)
TextGadget(#Text_12, 348, 88, 60, 20, magie$)
TextGadget(#Text_13, 348, 148, 60, 20, att$)
TextGadget(#Text_15, 348, 208, 60, 20, deff$)
TextGadget(#Text_16, 198, 38, 60, 20, pr$)
Repeat
Until WaitWindowEvent () = #PB_Event_Gadget
EndIf
Default
EndSelect
event=WindowEvent()
Gadget = EventGadgetID()
Select Gadget
Case #Button_5
If force>15
force=force-1
endu=endu-100
magie=magie-0
att=att-2
deff=deff-0
vie=vie-1
pr=pr+1
endu$=Str (endu)
vie$=Str (vie)
deff$=Str (deff)
att$=Str (att)
magie$=Str (magie)
pr$=Str (pr)
force$=Str (force)
TextGadget(#Text_4, 48, 58, 50, 20, force$)
TextGadget(#Text_7, 348, 268, 60, 20, endu$)
TextGadget(#Text_11, 348, 28, 60, 20, vie$)
TextGadget(#Text_12, 348, 88, 60, 20, magie$)
TextGadget(#Text_13, 348, 148, 60, 20, att$)
TextGadget(#Text_15, 348, 208, 60, 20, deff$)
TextGadget(#Text_16, 198, 38, 60, 20, pr$)
Repeat
Until WaitWindowEvent () = #PB_Event_Gadget
EndIf
Default
EndSelect
event=WindowEvent()
Gadget = EventGadgetID()
Select Gadget
Case #Button_6
If pr >0
agi=agi+1
endu=endu+200
deff=deff+2
vie=vie+2
pr=pr-1
endu$=Str (endu)
vie$=Str (vie)
deff$=Str (deff)
att$=Str (att)
magie$=Str (magie)
pr$=Str (pr)
agi$=Str (agi)
TextGadget(#Text_5, 48, 118, 50, 20, agi$)
TextGadget(#Text_7, 348, 268, 60, 20, endu$)
TextGadget(#Text_11, 348, 28, 60, 20, vie$)
TextGadget(#Text_12, 348, 88, 60, 20, magie$)
TextGadget(#Text_13, 348, 148, 60, 20, att$)
TextGadget(#Text_15, 348, 208, 60, 20, deff$)
TextGadget(#Text_16, 198, 38, 60, 20, pr$)
Repeat
Until WaitWindowEvent () = #PB_Event_Gadget
EndIf
Default
EndSelect
event=WindowEvent()
Gadget = EventGadgetID()
Select Gadget
Case #Button_7
If agi>15
agi=agi-1
endu=endu-200
magie=magie-0
deff=deff-2
vie=vie-2
pr=pr+1
endu$=Str (endu)
vie$=Str (vie)
deff$=Str (deff)
att$=Str (att)
magie$=Str (magie)
pr$=Str (pr)
agi$=Str (agi)
TextGadget(#Text_5,48, 118 ,50, 20, agi$)
TextGadget(#Text_7, 348, 268, 60, 20, endu$)
TextGadget(#Text_11, 348, 28, 60, 20, vie$)
TextGadget(#Text_12, 348, 88, 60, 20, magie$)
TextGadget(#Text_13, 348, 148, 60, 20, att$)
TextGadget(#Text_15, 348, 208, 60, 20, deff$)
TextGadget(#Text_16, 198, 38, 60, 20, pr$)
Repeat
Until WaitWindowEvent () = #PB_Event_Gadget
EndIf
Default
EndSelect
event=WindowEvent()
Gadget = EventGadgetID()
Select Gadget
Case #Button_8
If pr >0
endu=endu+100
magie=magie+3
att=att+1
deff=deff+1
vie=vie+1
int=int+1
pr=pr-1
endu$=Str (endu)
vie$=Str (vie)
deff$=Str (deff)
att$=Str (att)
magie$=Str (magie)
pr$=Str (pr)
int$=Str (int)
TextGadget(#Text_6, 48, 178, 50, 20, int$)
TextGadget(#Text_7, 348, 268, 60, 20, endu$)
TextGadget(#Text_11, 348, 28, 60, 20, vie$)
TextGadget(#Text_12, 348, 88, 60, 20, magie$)
TextGadget(#Text_13, 348, 148, 60, 20, att$)
TextGadget(#Text_15, 348, 208, 60, 20, deff$)
TextGadget(#Text_16, 198, 38, 60, 20, pr$)
Repeat
Until WaitWindowEvent () = #PB_Event_Gadget
EndIf
Default
EndSelect
event=WindowEvent()
Gadget = EventGadgetID()
Select Gadget
Case #Button_9
If int>15
endu=endu-0
magie=magie-3
att=att-1
deff=deff-1
vie=vie-1
pr=pr+1
int=int-1
endu$=Str (endu)
vie$=Str (vie)
deff$=Str (deff)
att$=Str (att)
magie$=Str (magie)
pr$=Str (pr)
int$=Str (int)
TextGadget(#Text_6, 48, 178, 50, 20, int$)
TextGadget(#Text_7, 348, 268, 60, 20, endu$)
TextGadget(#Text_11, 348, 28, 60, 20, vie$)
TextGadget(#Text_12, 348, 88, 60, 20, magie$)
TextGadget(#Text_13, 348, 148, 60, 20, att$)
TextGadget(#Text_15, 348, 208, 60, 20, deff$)
TextGadget(#Text_16, 198, 38, 60, 20, pr$)
Repeat
Until WaitWindowEvent () = #PB_Event_Gadget
EndIf
Default
EndSelect
event=WindowEvent()
Gadget = EventGadgetID()
Select Gadget
Case #Button_10
If pr >0
endu=endu+100
magie=magie+2
att=att+0
deff=deff+2
vie=vie+0
dex=dex+1
pr=pr-1
endu$=Str (endu)
vie$=Str (vie)
deff$=Str (deff)
att$=Str (att)
magie$=Str (magie)
pr$=Str (pr)
dex$=Str (dex)
TextGadget(#Text_8, 48, 238, 60, 20, dex$)
TextGadget(#Text_7, 348, 268, 60, 20, endu$)
TextGadget(#Text_11, 348, 28, 60, 20, vie$)
TextGadget(#Text_12, 348, 88, 60, 20, magie$)
TextGadget(#Text_13, 348, 148, 60, 20, att$)
TextGadget(#Text_15, 348, 208, 60, 20, deff$)
TextGadget(#Text_16, 198, 38, 60, 20, pr$)
Repeat
Until WaitWindowEvent () = #PB_Event_Gadget
EndIf
Default
EndSelect
event=WindowEvent()
Gadget = EventGadgetID()
Select Gadget
Case #Button_11
If dex > 15
dex=dex-1
endu=endu-100
magie=magie-2
att=att-0
deff=deff-2
vie=vie-0
pr=pr+1
endu$=Str (endu)
vie$=Str (vie)
deff$=Str (deff)
att$=Str (att)
magie$=Str (magie)
pr$=Str (pr)
dex$=Str (dex)
TextGadget(#Text_8, 48, 238, 60, 20, dex$)
TextGadget(#Text_7, 348, 268, 60, 20, endu$)
TextGadget(#Text_11, 348, 28, 60, 20, vie$)
TextGadget(#Text_12, 348, 88, 60, 20, magie$)
TextGadget(#Text_13, 348, 148, 60, 20, att$)
TextGadget(#Text_15, 348, 208, 60, 20, deff$)
TextGadget(#Text_16, 198, 38, 60, 20, pr$)
Repeat
Until WaitWindowEvent () = #PB_Event_Gadget
EndIf
Default
EndSelect
event=WindowEvent()
Gadget = EventGadgetID()
Select Gadget
Case #Button_2
End
Default
EndSelect
event=WindowEvent()
Gadget = EventGadgetID()
Select Gadget
Case #Button_1
Goto menu
Default
EndSelect
event=WindowEvent()
Gadget = EventGadgetID()
Select Gadget
Case #Button_0
nom$ = GetGadgetText(#String_0)
prenom$ = GetGadgetText(#String_1)
mdp$ = GetGadgetText(#String_3)
jour$ = GetGadgetText(#String_6)
mois$ = GetGadgetText(#String_8)
description$ = GetGadgetText(#String_10)
metier$ = GetGadgetText(#Listview_0)
classe$= GetGadgetText(#Listview_1)
lvl$="1"
Resultat0 = GetGadgetState(#Radio_0)
Resultat1 = GetGadgetState(#Radio_1)
Resultat2 = GetGadgetState(#Radio_2)
Resultat3 = GetGadgetState(#Radio_3)
Resultat4 = GetGadgetState(#Radio_4)
Resultat5 = GetGadgetState(#Radio_5)
Resultat6 = GetGadgetState(#Radio_6)
Resultat7 = GetGadgetState(#Radio_7)
Resultat8 = GetGadgetState(#Radio_8)
Resultat9 = GetGadgetState(#Radio_9)
nomfichier$ =(nom$+prenom$+".teok")
Resultat0$=StrU(Resultat0,#Byte)
Resultat1$=StrU(Resultat1,#Byte)
Resultat2$=StrU(Resultat2,#Byte)
Resultat3$=StrU(Resultat3,#Byte)
Resultat4$=StrU(Resultat4,#Byte)
Resultat5$=StrU(Resultat5,#Byte)
Resultat6$=StrU(Resultat6,#Byte)
Resultat7$=StrU(Resultat7,#Byte)
Resultat8$=StrU(Resultat8,#Byte)
Resultat9$=StrU(Resultat9,#Byte)
If Resultat0=1
type$= "femme elfe"
EndIf
If Resultat1=1
type$= "femme orc"
EndIf
If Resultat2=1
type$= "femme nain"
EndIf
If Resultat3=1
type$= "femme humain"
EndIf
If Resultat4=1
type$= "femme gnome"
EndIf
If Resultat5=1
type$= "homme elfe"
EndIf
If Resultat6=1
type$= "homme orc"
EndIf
If Resultat7=1
type$= "homme nain"
EndIf
If Resultat8=1
type$= "homme humain"
EndIf
If Resultat9=1
type$= "homme gnome"
EndIf
SetGadgetState(#ProgressBar_0,1)
OpenFile(2,nomfichier$)
WriteStringN (nom$)
WriteStringN (prenom$)
WriteStringN (mdp$)
WriteStringN (jour$)
WriteStringN (mois$)
WriteStringN (description$)
WriteStringN (metier$)
WriteStringN (classe$)
WriteStringN (lvl$)
WriteStringN (type$)
SetGadgetState(#ProgressBar_0,2)
CloseFile(2)
Beep_(100,300)
SetGadgetState(#ProgressBar_0,3)
Beep_(100,300)
SetGadgetState(#ProgressBar_0,4)
Beep_(100,300)
SetGadgetState(#ProgressBar_0,5)
Beep_(700,300)
SetGadgetState(#ProgressBar_0,6)
Beep_(400,300)
SetGadgetState(#ProgressBar_0,7)
Beep_(100,300)
SetGadgetState(#ProgressBar_0,8)
Beep_(200,300)
SetGadgetState(#ProgressBar_0,9)
Beep_(600,300)
SetGadgetState(#ProgressBar_0,10)
Beep_(300,300)
CloseWindow (0)
Goto menu2
Default
EndSelect
RenderWorld()
ForEver
EndIf
menu2:
If OpenWindow(3, 216, 2, 200, 100, #PB_Window_ScreenCentered|#PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "Menu Teok")
If CreateGadgetList(WindowID())
ButtonGadget(#Button_3, 60, 60, 80, 30, "OK")
TextGadget(#Text_3, 10, 20, 180, 30, "personage corectement creéé", #PB_Text_Center)
EndIf
EndIf
Repeat
event=WindowEvent()
Gadget = EventGadgetID()
Select Gadget
Case #Button_3
Beep_(400,200)
Beep_(400,200)
Beep_(400,200)
Beep_(400,200)
Beep_(400,200)
Beep_(400,200)
CloseWindow (3)
Goto menu3
Default
EndSelect
ForEver
menu3:
If OpenWindow(4, 228, 28, 600, 400, #PB_Window_ScreenCentered|#PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
If CreateGadgetList(WindowID())
Frame3DGadget(#Frame3D_0, 40, 0, 130, 50, "Nom")
Frame3DGadget(#Frame3D_1, 40, 200, 130, 50, "Métier")
Frame3DGadget(#Frame3D_2, 40, 150, 130, 50, "classe")
Frame3DGadget(#Frame3D_3, 40, 50, 130, 50, "Prénom")
Frame3DGadget(#Frame3D_4, 10, 300, 580, 50, "Description")
Frame3DGadget(#Frame3D_5, 40, 250, 130, 50, "Mot de passe")
Frame3DGadget(#Frame3D_7, 260, 0, 130, 50, "Lvl")
Frame3DGadget(#Frame3D_8, 40, 100, 130, 50, "type")
Frame3DGadget(#Frame3D_9, 260, 50, 130, 50, "Vie")
Frame3DGadget(#Frame3D_10, 260, 100, 130, 50, "Magie")
Frame3DGadget(#Frame3D_11, 260, 150, 130, 50, "Attaque")
Frame3DGadget(#Frame3D_12, 260, 200, 130, 50, "Déffence")
Frame3DGadget(#Frame3D_13, 260, 250, 130, 50, "date de naissance")
TextGadget(#Text_12, 50, 20, 110, 20, nom$)
TextGadget(#Text_13, 50, 220, 110, 20, metier$)
TextGadget(#Text_2, 50, 170, 110, 20, classe$)
TextGadget(#Text_3, 50, 70, 110, 20, prenom$)
TextGadget(#Text_4, 20, 320, 560, 20, description$)
TextGadget(#Text_5, 50, 270, 110, 20, mdp$)
TextGadget(#Text_6, 270, 20, 110, 20, lvl$)
TextGadget(#Text_7, 50, 120, 110, 20, type$)
TextGadget(#Text_8, 270, 70, 110, 20, vie$)
TextGadget(#Text_15, 270, 120, 110, 20, magie$)
TextGadget(#Text_10, 270, 170, 110, 20, att$)
TextGadget(#Text_11, 270, 220, 110, 20, deff$)
TextGadget(#Text_11, 270, 270, 110, 20, jour$+"/"+mois$+"956")
ButtonGadget(#Button_0, 490, 260, 70, 30, "valider")
ButtonGadget(#Button_1, 490, 220, 70, 30, "imprimer")
EndIf
EndIf
Repeat
event=WindowEvent()
Gadget = EventGadgetID()
Select Gadget
Case #Button_0
Beep_(100,500)
Beep_(500,500)
Beep_(1000,500)
Beep_(2000,500)
Beep_(5000,500)
End
Default
EndSelect
event=WindowEvent()
Gadget = EventGadgetID()
Select Gadget
Case #Button_1
Beep_(5000,500)
Beep_(2000,500)
Beep_(1000,500)
Beep_(500,500)
Beep_(100,500)
If PrintRequester()
If StartPrinting("PureBasic Test")
If StartDrawing(PrinterOutput())
DrawingFont(LoadFont(0, "Arial", 30))
Locate(100, 100) : DrawText("profile TEOK")
DrawingFont(LoadFont(0, "Arial", 100))
Locate(100, 300) : DrawText("Perso "+nom$+" "+prenom$)
DrawingFont(LoadFont(0, "Arial", 60))
Locate(100, 500) : DrawText("nom: "+nom$)
Locate(100, 600) : DrawText("prenom: "+prenom$)
Locate(100, 700) : DrawText("mot de passe: "+mdp$)
Locate(100, 800) : DrawText("métier: "+metier$)
Locate(100, 900) : DrawText("classe: "+classe$)
Locate(100, 1100) : DrawText("type: "+type$)
Locate(100, 1000) : DrawText("date de naissance: "+jour$+"/"+mois$+"/956")
Locate(100, 1200) : DrawText("description: "+description$)
Locate(100, 1300) : DrawText("vie: "+vie$)
Locate(100, 1400) : DrawText("magie: "+magie$)
Locate(100, 1500) : DrawText("deffence : "+deff$)
Locate(100, 1600) : DrawText("attaque : "+att$)
Locate(100, 1700) : DrawText("endurence : "+endu$)
Locate(100, 1800) : DrawText("niveau: "+lvl$)
Box(50,530, 40,40 ,RGB(255,122,0))
Box(50,630, 40,40 ,RGB(255,255,122))
Box(50,730, 40,40 ,RGB(122,255,255))
Box(50,830, 40,40 ,RGB(0,122,255))
Box(50,930, 40,40 ,RGB(255,0,0))
Box(50,1030, 40,40 ,RGB(0,255,0))
Box(50,1130, 40,40 ,RGB(0,0,255))
Box(50,1230, 40,40 ,RGB(0,0,0))
Box(50,1330, 40,40 ,RGB(100,0,100))
Box(50,1430, 40,40 ,RGB(100,100,0))
Box(50,1530, 40,40 ,RGB(0,100,100))
Box(50,1630, 40,40 ,RGB(100,255,0))
Box(50,1730, 40,40 ,RGB(0,100,10))
Box(50,1830, 40,40 ,RGB(100,100,255))
StopDrawing()
EndIf
StopPrinting()
EndIf
EndIf
End
Default
EndSelect
Until WindowEvent ()=#PB_Event_CloseWindow