un probleme avec mon code , help

[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

[garzul]

Je vois pas ce que tu veux dire moi sa marche trés bien le texte et afficher .

[Backup]

d'accord avec garzul

chez moi ça marche bien !

[garzul]

Pour une fois que tu es d'accord avec moi

[williamm]

moi le texte ne s'affiche pas

Pourquoi ??????

[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() 

[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

[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

[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 ....

[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 .

[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

[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

[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.

[williamm]

alors que me conseillez-vous?
je continue a programmer sous window me?

[Lukky]

Passe à XP et puis voila.


JL