Salut à tous

SpaceMan · Message par **SpaceMan** » ven. 29/oct./2004 21:55

je suis un nouveau venu dans le monde de PureBasic.
j'ai eu le temps de me ballader sur le forum et je trouve très sympa l'ambiance qui y règne.j'epere pouvoir etre capable de suivre vos pas en
utilisant cet outil que j'apprécie bien d'ailleurs. je compte sur votre aide et je ferai aussi de mon mieux

En outre je dipose de pureBasic 3.80 et je souhaiterais effectuer la mise à
jour vers la derniere version mais je n'y arrive pourriez-vous m'aider à le faire ?
Merci d'avance

Chris · Message par **Chris** » ven. 29/oct./2004 22:15

Pour faire la mise à jour, tu peux aller à cette adresse: http://www.purebasic.com/french/download.php3

Si ta copie de PureBasic est enregistrée, tu vas dans ton espace personnel et tu télécharges la mise à jour, si ta copie n'est pas enregistrée, tu peux toujours récupérer la dernière version de Pure en version démo

Revan · Message par **Revan** » sam. 30/oct./2004 0:03

Comment on fait d'ailleurs pour l'enregistrer? J'ai reçu la 3.72 par la Poste y'a quelques mois (un an, plutôt...). Ca veut dire que je suis baizay?

HS: Je suis à la recherche d'un site rassemblant des tutos pour bien démarrer. J'ai déjà des notions de prog' du darkbasic et du C++, et j'ai commencé un p'tit shoot'em'up avec des sprites pour me faire la main, avec l'aide d'Oliv.

Backup · Message par **Backup** » sam. 30/oct./2004 0:11

non !

contacte fred sur son email, tu lui fourni ton numero de client ton adresse
ton nom , ton numero de secu , ton numero de carte orange , une photocopie de ton passeport , bref un max de renseignement te concernant et tu lui demande gentiement de t'accorder la grace d'avoir un compte utilisateur sur son serveur pour pouvoir telecharger a tes frais son merveilleux programme !

treve de plaisanterie n c'est a peut pres comme ça qu'il faut faire !

SpaceMan · Message par **SpaceMan** » lun. 15/nov./2004 18:18

ok merci Chris c'est comme si c'était fait

SpaceMan · Message par **SpaceMan** » lun. 15/nov./2004 18:25

salut à tous
j'étais entrain entrain d'ecrire un petit programme pour ma petite soeur histoire qu'elle s'exerce à faire un peu d'exo de maths et je suis coincé au niveau de la boucle qui me permettra de limiter le nombre d'opérations. j'ai besoin de votre aide Merci d'avance
voici le code

;programme de pure basic
;écris le 31/10/2004
Enumeration
#window_0
#bouton_1
#bouton_2
#bouton_3
#Gadget = 10
#chaine_1
#chaine_2
#chaine_3
#Text
#Text_0
#Text_1

EndEnumeration

If OpenWindow(#window_0,443,86,350,260,#PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Exercices")
If CreateGadgetList(WindowID(0))
LoadFont(10,"Arial", 14, #PB_Font_Bold)
SetGadgetFont(#PB_Default,FontID())

StringGadget(#chaine_1,220, 35,110,25,"",#PB_String_ReadOnly|#PB_Text_Right)
StringGadget(#chaine_2,220, 95,110,25,"",#PB_String_ReadOnly|#PB_Text_Right)
StringGadget(#chaine_3,220, 155,110,25,"0",#PB_String_Numeric|#PB_Text_Right)

LoadFont(11,"Arial",9,#PB_Font_Bold)
SetGadgetFont(#PB_Default,FontID())

ButtonGadget(#bouton_1, 230, 220, 110, 22, "Quitter")
ButtonGadget(#bouton_2, 10, 220, 110, 22, "Commencer",#PB_EventType_LeftClick)
ButtonGadget(#bouton_3, 120, 220, 110, 22, "Verifier")
TextGadget(#Text,100, 40,160,20,"1er Nombre :")
TextGadget(#Text_0,90, 105,170,20,"2ème Nombre :")
TextGadget(#Text_1,125, 165,55,20,"Resultat :")
SetGadgetFont(#PB_Default,FontID())

LoadFont(11,"Arial",16,#PB_Font_Bold)
SetGadgetFont(#PB_Default,FontID())
TextGadget(#Text_0,185, 65,20,20,"+")

EndIf
EndIf
Repeat
EventID = WaitWindowEvent()
If Event = #PB_EventGadget
EndIf
Select EventID
Case #PB_Event_Gadget
Select EventGadgetID()

Case 1 : Event = #bouton_1

;Affichage des nombres
Case 2 : Evebt = #bouton_2

Autres_operations :
Resultat.l = Random(7000)
Resultat2.l = Random(4560)
Resultat$ = Str (Resultat.l)
Resultat2$ = Str (Resultat2.l)

SetGadgetText(#chaine_1, Str (Val(Resultat$)))
SetGadgetText(#chaine_2, Str (Val(Resultat2$)))
DisableGadget(#bouton_2,1)

Case 3 : Event3 = #bouton_3

If GetGadgetText(#chaine_3) = "0" Or GetGadgetText(#chaine_3) = ""
MessageRequester("Désolé","La case est vide,Entrez d'abord votre réponse.",#PB_MessageRequester_Ok)
Else
If GetGadgetText(#chaine_3) <> Str (Val(Resultat$) + Val(Resultat2$))
rep = MessageRequester("Désolé","Mauvaise réponse. Voulez-vous voir la bonne réponse ?",#PB_MessageRequester_YesNo)
If rep = 6
MessageRequester("Reponse","La bonne réponse est:" + Str (Val(Resultat$) + Val(Resultat2$)),#PB_MessageRequester_Ok)
SetGadgetText(#chaine_3,"")
Else
If rep = 7
SetGadgetText(#chaine_3,"")
EndIf
EndIf
Else
If GetGadgetText(#chaine_3) = Str (Val(Resultat$) + Val(Resultat2$))
rep_2 = MessageRequester("Thank","Bravo",#PB_MessageRequester_Ok):SetGadgetText(#chaine_3,"")

; affichera au plus 3 operations
Nombre = 0
Nombres_2 = 3
While Nombres_2 = 3
Goto Autres_operations :
Nombre = Nombre + 1
If Nombre = 3
rep_2 = MessageRequester("Good","Bravo toutes les oprations sont terminées ",#PB_MessageRequester_Ok)
Nombre_2 = 4
EndIf
Wend

EndIf
EndIf
EndIf

EndSelect

Case #PB_EventCloseWindow
Event = #bouton_1
EndSelect
Until Event = #bouton_1

comtois · Message par **comtois** » mar. 16/nov./2004 21:27

Ben quand je dois répéter plusieurs fois les mêmes commandes, je les place dans une procédure ,et j'appelle cette procédure autant de fois que j'en ai besoin .

Code : Tout sélectionner

;programme de pure basic 
;écris le 31/10/2004 
Enumeration 
  #window_0 
  #bouton_quitter 
  #bouton_commencer 
  #bouton_verifier 
  #Gadget = 10 
  #chaine_1 
  #chaine_2 
  #chaine_3 
  #Text 
  #Text_0 
  #Text_1 
  #Text_Plus
EndEnumeration 
If OpenWindow(#window_0,443,86,350,260,#PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Exercices") 
  If CreateGadgetList(WindowID(0)) 
    LoadFont(10,"Arial", 14, #PB_Font_Bold) 
    SetGadgetFont(#PB_Default,FontID()) 
    
    StringGadget(#chaine_1,220, 35,110,25,"",#PB_String_ReadOnly|#PB_Text_Right) 
    StringGadget(#chaine_2,220, 95,110,25,"",#PB_String_ReadOnly|#PB_Text_Right) 
    StringGadget(#chaine_3,220, 155,110,25,"0",#PB_String_Numeric|#PB_Text_Right) 
    
    LoadFont(11,"Arial",9,#PB_Font_Bold) 
    SetGadgetFont(#PB_Default,FontID()) 
    
    ButtonGadget(#bouton_quitter, 230, 220, 110, 22, "Quitter") 
    ButtonGadget(#bouton_commencer, 10, 220, 110, 22, "Commencer",#PB_EventType_LeftClick) 
    ButtonGadget(#bouton_verifier, 120, 220, 110, 22, "Verifier") 
    TextGadget(#Text,100, 40,160,20,"1er Nombre :") 
    TextGadget(#Text_0,90, 105,210,20,"2ème Nombre :") 
    TextGadget(#Text_1,125, 165,55,20,"Resultat :") 
    
    SetGadgetFont(#PB_Default,FontID()) 
    LoadFont(11,"Arial",16,#PB_Font_Bold) 
    SetGadgetFont(#PB_Default,FontID()) 
    TextGadget(#Text_Plus,185, 65,20,20,"+") 
    
  EndIf 
EndIf 
Procedure AutresOperations() 
  SetGadgetText(#chaine_1, Str(Random(7000) )) 
  SetGadgetText(#chaine_2, Str(Random(4560))) 
  DisableGadget(#bouton_commencer,1) 
EndProcedure    
Procedure RazTexte() 
  SetGadgetText(#chaine_1,"") 
  SetGadgetText(#chaine_2,"") 
  SetGadgetText(#chaine_3,"") 
EndProcedure  
        
Repeat 
  EventID = WaitWindowEvent() 
  Select EventID 
    Case #PB_Event_Gadget 
      Select EventGadgetID() 
        ;Quitter 
        Case #bouton_quitter 
          Quitter=1 
          ;Affichage des nombres 
        Case #bouton_commencer 
          AutresOperations() 
        Case #bouton_verifier 
          Somme=Val(GetGadgetText(#chaine_1)) + Val(GetGadgetText(#chaine_2)) 
          ;Pas de réponse 
          If GetGadgetText(#chaine_3) = "0" Or GetGadgetText(#chaine_3) = "" 
            MessageRequester("Désolé","La case est vide,Entrez d'abord votre réponse.",#PB_MessageRequester_Ok) 
            ;Réponse correct  
          ElseIf GetGadgetText(#chaine_3) = Str(Somme) 
            rep_2 = MessageRequester("Thank","Bravo",#PB_MessageRequester_Ok):SetGadgetText(#chaine_3,"") 
            ;affichera au plus 3 operations 
            Nombre + 1 
            If Nombre < 3 
              DisableGadget(#bouton_commencer,0) 
              RazTexte() 
            Else  
              rep_2 = MessageRequester("Good","Bravo toutes les oprations sont terminées ",#PB_MessageRequester_Ok) 
            EndIf 
            ;Mauvaise réponse 
          Else 
            rep = MessageRequester("Désolé","Mauvaise réponse. Voulez-vous voir la bonne réponse ?",#PB_MessageRequester_YesNo) 
            If rep = 6 
              MessageRequester("Reponse","La bonne réponse est:" + Str(Somme),#PB_MessageRequester_Ok) 
              RazTexte() 
              DisableGadget(#bouton_commencer,0) 
            ElseIf rep = 7 
              SetGadgetText(#chaine_3,"") 
            EndIf 
          EndIf 
      EndSelect 
      
    Case #PB_EventCloseWindow 
      Quitter=1 
  EndSelect 
Until Quitter

jbernard13 · Message par **jbernard13** » mar. 16/nov./2004 22:10

essaye de soigner ton interface deja .