PureBasic

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

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

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.

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 !

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

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

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 .

essaye de soigner ton interface deja .