calcul surface d'un rectangle pour me familiariser avec pb .

[falsam]

pour mon code triangle c'est la meme chose ?

Pour n'importe quel code c'est le même principe.

donc le texte que j'ai mis enumaration font ... il n'y en a qu'un seul a mettre ?

Si tu souhaite gérer qu'une seule font alors oui un seul suffit

J'ai nommé cette font #FontGlobal mais tu lui donne le nom que tu veux.

[klystron]

Ok, je vais essayé d'ajouter ca sur mon petit code triangle, merci pour l'aide.
a+

[klystron]

Voila le code avec une seule font de police. (arial 12 pixels).pour mémoire.

maintenant il faut assimiler tout ça
A+
Yves.

Code : Tout sélectionner

; exemple de programme code pour initiation au purebasic.
;---------------------------------------------------------------------------------------

EnableExplicit  ; pour messages d'erreur des varables en mode test.

Enumeration Fonts
  #FontGlobal
EndEnumeration

Enumeration Window
  #MaFenetre
EndEnumeration

Enumeration Gadget
  #Longueur
  #Largeur
  #Surface
  #Hypotenuse
  #Perimetre
  #Bouton_Calculer                  ; Déclarer l'ID du bouton Calculer
EndEnumeration

;-------------------Création de la fenetre et des différents gadgets-------------------------

Procedure Open_MainForm()


     LoadFont(#FontGlobal, "Arial", 12) ; hauteur 12 pixels en type Arial


 ;---------------Affectation de la font global à l'ensemble de la fenetre-----------

       SetGadgetFont(#PB_Default, FontID(#Fontglobal)) ;  police a toutes les plages.


  OpenWindow(#MaFenetre, 100, 100, 500, 300, " -Elements d'un triangle rectangle- ")

  TextGadget(#PB_Any, 10, 35, 200, 26, "Longueur")
  StringGadget(#Longueur, 140, 35, 120, 26, "")

  TextGadget(#PB_Any, 10, 65, 200, 26, "Largeur")
  StringGadget(#Largeur, 140, 65, 120, 26, "")

  TextGadget(#PB_Any, 10, 100, 200, 26, "Surface")
  StringGadget(#Surface, 140, 100, 120, 26, "", #PB_String_ReadOnly)    ;Ce gadget sera en lecture seule
  

  TextGadget(#PB_Any, 10, 135, 200, 26, "Hypotenuse")
  StringGadget(#Hypotenuse, 140, 135, 120, 26, "", #PB_String_ReadOnly)  ;Ce gadget sera en lecture seule


  TextGadget(#PB_Any, 10, 170, 200, 26, "Perimetre")
  StringGadget(#Perimetre, 140, 170, 120, 26, "", #PB_String_ReadOnly)   ;Ce gadget sera en lecture seule


  ButtonGadget(#Bouton_Calculer, 10, 220, 120, 28, "Calculer")          ; Le bouton Calculer
EndProcedure

;-----------------Calcul de la surface d'un triangle rectangle-------------------------

Procedure CalculSurface(Longueur.f, largeur.f)
  Protected AB.f = longueur
  Protected AC.f = largeur
  Protected Resultat.f

  Resultat = (AB * AC)/2              ;Inutile de repeter le typage .f (float) à résultat car déja déclaré

  SetGadgetText(#Surface, StrF(Resultat, 3)) ;Affichage du résultat avec 3 décimales
EndProcedure

;-------------------------Calcul de l'Hypotenuse---------------------------------
 
Procedure Calculhypotenuse(Longueur.f, Largeur.f)
  Protected AB.f = longueur
  Protected AC.f = largeur
  Protected Resultat.f
  
  Protected BC.f                            ;C'est la longueur de l'hypotenuse à retrouver
  
  Resultat = Pow(AB,2) + Pow(AC,2)          ; puissances 2
  
  BC = Sqr(Resultat)                        ; racine carree
  
  SetGadgetText(#Hypotenuse,StrF(BC,3))     ;affichage du resultat avec 3 decimales
EndProcedure

;------------------------------calcul du perimetre du triangle------------------------------

Procedure Calculperimetre(Longueur.f, Largeur.f,BC.f)
  Protected AB.f = longueur
  Protected AC.f = largeur 
  Protected Resultat.f
  
  Resultat = AB + AC + BC
 
  SetGadgetText(#perimetre,StrF(Resultat,3))     ;affichage du resultat avec 3 decimales
EndProcedure

;----------------------Le programme commence ici : On ouvre la fenêtre--------------------------
 
Open_MainForm()

;---------------------------------Boucle événementielle---------------------------------------
 
Repeat
  Select WaitWindowEvent()       ;Un événement est arrivé
    Case #PB_Event_Gadget        ;Est ce un gadget qui a provoqué l'événement ?
      Select EventGadget()       ;Apparemment oui : On cherche qui

           
        Case #Bouton_Calculer      ; Je provoque le déclenchement par le bouton Calculer

;------------------------- on appelle les procedures:------------------------------------

          CalculSurface(ValF(GetGadgetText(#Longueur)),
                        ValF(GetGadgetText(#Largeur))) 
  
          Calculhypotenuse(ValF(GetGadgetText(#Longueur)),
                           ValF(GetGadgetText(#Largeur)))

          Calculperimetre(ValF(GetGadgetText(#longueur)),
                          ValF(GetGadgetText(#largeur)),
                          ValF(GetGadgetText(#hypotenuse))) 
         
      
       EndSelect 
             
      
    Case #PB_Event_CloseWindow      ;Est ce une fermeture de la fenêtre ?

      End                           ;Apparemment oui : Fermeture de la fenêtre.
     
  EndSelect

ForEver


; IDE Options = PureBasic 5.31 (Windows - x64)
; CursorPosition = 81
; FirstLine = 83
; Folding = -
; EnableUnicode
; EnableXP
; Executable = triangle_ecole.exe
; IDE Options = PureBasic 5.31 (Windows - x64)
; CursorPosition = 148
; FirstLine = 112
; Folding = -
; EnableUnicode
; EnableXP
; IDE Options = PureBasic 5.31 (Windows - x64)
; CursorPosition = 37
; Folding = -
; EnableUnicode
; EnableXP
; Executable = triangle_purebasic_ecole.exe

************************************
il y a des commentaires qui sortent tout seul avec l'editeur en fin de code ...

[falsam]

Ben voila qui est sympa et apparemment donne des idées à Micoute

Au fait comment se fait il que tu as les commentaires propres à l'ide de Pure Basic visible?

Code : Tout sélectionner

; IDE Options = PureBasic 5.31 (Windows - x64)
; CursorPosition = 81
; FirstLine = 83
; Folding = -
; EnableUnicode
; EnableXP
; Executable = triangle_ecole.exe
; IDE Options = PureBasic 5.31 (Windows - x64)
; CursorPosition = 148
; FirstLine = 112
; Folding = -
; EnableUnicode
; EnableXP
; IDE Options = PureBasic 5.31 (Windows - x64)
; CursorPosition = 37
; Folding = -
; EnableUnicode
; EnableXP
; Executable = triangle_purebasic_ecole.exe

[klystron]

sait pas justement c'est ce que je regardais ...
c'est quand je fais une compilation je crois? quand je sort un fichier point exe

on doit pouvoir l'enlever ? ca ne sert a rien ?

5.31 est en beta test ?

il faut peut-être parametré mon editeur ?.

[falsam]

on doit pouvoir l'enlever ? ca ne sert a rien ?

Si ça sert pour le compilateur par exemple mais normalement ça ne doit pas apparaître dans ton éditeur de code.

[klystron]

J'ai refais un fichier point exe , cela ne le refait pas.
j'ai du faire un truc qu'il ne fallait pas ...
si non tout est ok.
merci Falsam pour toutes les infos.
A+
bonne fin de dimanche.