Page 1 sur 2
un probleme avec mon code , help
Publié : lun. 18/oct./2004 22:12
par williamm
bonsoir
j'essaye de cree un intro pour mon programme
seule probleme le texte s'affiche pas parcontre la bar de progression marche tres bien
qui peux m'aider a afficher le texte au dessus de la barre de progressions svp
Code : Tout sélectionner
;Fenetre
Enumeration
#Intre_0
EndEnumeration
;les gadgets des fenetres
Enumeration
#ProgressBar_0
#Text_intro1
#Text_intr2
EndEnumeration
; les fonts
Global FontID1
FontID1 = LoadFont(3, "Arial", 24, #PB_Font_Bold)
Procedure Open_Intre_0()
If OpenWindow(#Intre_0, 325, 182, 321, 286, #PB_Window_TitleBar | #PB_Window_ScreenCentered , "Veuillez patientez....................")
If CreateGadgetList(WindowID())
TextGadget(#Text_intro1, 10, 30, 290, 50, "Chargement de ", #PB_Text_Center)
SetGadgetFont(#Text_intro1, FontID3)
TextGadget(#Text_intr2, 10, 100, 290, 50, "purebasic ", #PB_Text_Center)
SetGadgetFont(#Text_intr2, FontID3)
ProgressBarGadget(#ProgressBar_0, 10, 210, 300, 30, 0, 10)
For k=0 To 100
SetGadgetState(#ProgressBar_0, k)
Delay(10)
Next
EndIf
EndIf
EndProcedure
Open_Intre_0()
merci
Williamm
Publié : lun. 18/oct./2004 22:24
par garzul
Je vois pas ce que tu veux dire moi sa marche trés bien le texte et afficher .
Publié : mar. 19/oct./2004 0:41
par Backup
d'accord avec garzul
chez moi ça marche bien !
Publié : mar. 19/oct./2004 5:59
par garzul
Pour une fois que tu es d'accord avec moi
Publié : mar. 19/oct./2004 6:15
par williamm
moi le texte ne s'affiche pas
Pourquoi ??????
Publié : mar. 19/oct./2004 6:29
par Oliv
Essai ceci, ça peut être u problème des polices. Sinon, nomme mieux tes sujets car là ce matin je pensais à un bug du forum : deux sujets "Un problème dans mon code" ce n'est pas très explicite. Met plutôt : "Problème d'affichage de texte" par exemple
Code : Tout sélectionner
;Fenetre
Enumeration
#Intre_0
EndEnumeration
;les gadgets des fenetres
Enumeration
#ProgressBar_0
#Text_intro1
#Text_intr2
EndEnumeration
; les fonts
Global FontID1
FontID1 = LoadFont(3, "cdv;,lmfdkb,hgkb,l", 24, #PB_Font_Bold)
Procedure Open_Intre_0()
If OpenWindow(#Intre_0, 325, 182, 321, 286, #PB_Window_TitleBar | #PB_Window_ScreenCentered , "Veuillez patientez....................")
If CreateGadgetList(WindowID())
TextGadget(#Text_intro1, 10, 30, 290, 50, "Chargement de ", #PB_Text_Center)
; SetGadgetFont(#Text_intro1, FontID3)
TextGadget(#Text_intr2, 10, 100, 290, 50, "purebasic ", #PB_Text_Center)
; SetGadgetFont(#Text_intr2, FontID3)
ProgressBarGadget(#ProgressBar_0, 10, 210, 300, 30, 0, 10)
For k=0 To 100
SetGadgetState(#ProgressBar_0, k)
Delay(10)
Next
EndIf
EndIf
EndProcedure
Open_Intre_0()
Publié : mar. 19/oct./2004 10:35
par Guimauve
Euh ! Question : pourquoi lorsque tu charge la nouvelle police d'affichage tu fais :
Code : Tout sélectionner
Global FontID1
FontID1 = LoadFont(3, "Arial", 24, #PB_Font_Bold)
Et que dans la fenètre tu fais :
Code : Tout sélectionner
SetGadgetFont(#Text_intro1, FontID3)
TextGadget(#Text_intr2, 10, 100, 290, 50, "purebasic ", #PB_Text_Center)
SetGadgetFont(#Text_intr2, FontID3)
Remplace
FontID3 par
FontID1 et les TextGadget() vont s'afficher avec la police Arial 24 gras.
Code : Tout sélectionner
Enumeration
#ProgressBar_0
#Text_intro1
#Text_intr2
EndEnumeration
; les fonts
Global FontID1
FontID1 = LoadFont(3, "Arial", 24, #PB_Font_Bold)
Procedure Open_Intre_0()
If OpenWindow(#Intre_0, 325, 182, 321, 286, #PB_Window_TitleBar | #PB_Window_ScreenCentered , "Veuillez patientez....................")
If CreateGadgetList(WindowID())
TextGadget(#Text_intro1, 10, 30, 290, 50, "Chargement de ", #PB_Text_Center)
SetGadgetFont(#Text_intro1, FontID1)
TextGadget(#Text_intr2, 10, 100, 290, 50, "purebasic ", #PB_Text_Center)
SetGadgetFont(#Text_intr2, FontID1)
ProgressBarGadget(#ProgressBar_0, 10, 210, 300, 30, 0, 10,#PB_ProgressBar_Smooth)
For k=0 To 100
SetGadgetState(#ProgressBar_0, k)
Delay(10)
Next
EndIf
EndIf
EndProcedure
Open_Intre_0()
A+
Guimauve
Publié : mar. 19/oct./2004 16:12
par williamm
salut Guimauve
ca marche toujours pas j'ai faus un copie coller du code
le texte s'affiche pas
je tourne sous window millenuim
williams
Publié : mar. 19/oct./2004 19:40
par jbernard13
bonsoir william
j'ai remarquer moi aussi que l'exemple fourni avec purebasic :
GadgetAdvanced.pb
marche mal sous window se
mais sous window xp tout marche
a croire que purebasic fonctionne que sous window xp ....
Publié : mar. 19/oct./2004 19:55
par Heis Spiter
La est le problème de l'évolution ! Je vois mal Fed payer pleins de licenses Windows (qui ne se trouvent plus
), pour tester Pure sous toutes les coutures
.
Publié : mar. 19/oct./2004 20:38
par williamm
dommage que j'ai pas window xp
je crois que je fais laisser purebasic alors si il marche que sous xp
j'ai un athlon a 1.2
et une Gforce4 a 64 ddr
+1 disque dur de 40 gigas
et 256 de sdram
donc xp ne pourra pas marcher car ma config est trop petite
dommage je commencer a aimer purebasic et j'ai installer aussi JapBe
que me conseillez- vous ?
je reste sous window Me et je continue a programmer ou j'achete un autre pc ???
williamms qui est tres triste se soir
Publié : mar. 19/oct./2004 20:40
par Heis Spiter
PureBasic n'est pas fait que pour PureBasic, mais est plus facilement testé sous XP.
Deuxièmement, j'ai une config encore moins puissante et j'ai XP
Publié : mar. 19/oct./2004 20:48
par Chris
@Williamm
J'ai un vieux PC 200MHz MMX avec 128 Mo de RAM, et je l'ai fait tourner sous XP. Bon, d'accord, ça rame à mort, mais ça fonctionne.
Le PC que j'utilise actuellement à une config à peu près égale à la tienne, 1.6 GHz, GEForce4 64 Mo et 256 Mo de RAM, et ça fonctionne très bien.
Publié : mar. 19/oct./2004 21:20
par williamm
alors que me conseillez-vous?
je continue a programmer sous window me?
Publié : mer. 20/oct./2004 9:46
par Lukky
Passe à XP et puis voila.
JL