PureBasic

Bonsoir
j'ai commencer a ecrire ce bout de code pour bien apprendre le purebasic
j'essaye de creer un mini bloc-note
j'ai crée que l'interface pour l'instant
voila j'essaye de progresser en purebasic
qu'en pensez-vous pour bien debuter

au faite voici l'adresse de mon site web :

http://membres.lycos.fr/jbmagie/

je suis aussi magicien en amateur

Bonne nuit
Jbernard13

Code : Tout sélectionner

;Mini Bloc  Note par Jean-bernard -2004 
;Constante de la fenetre principale 
Enumeration
    #Interface_fenetre
EndEnumeration
 
 
;Constante des Gadgets 
Enumeration
    #Document
EndEnumeration

;Constante de la barre outil et du menu 
Enumeration
    #Barre_Nouveau
    #barre_charger
    #barre_sauver
    #barre_Effacer
    #menu_info
EndEnumeration    



;creation de l'interface et de la boucle principale 
; creation de la fenetre 
If OpenWindow(#Interface_fenetre,0,0,600,480,#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar| #PB_Window_ScreenCentered ,"Mini Bloc Note ")
;Creation de la barre outil 
If CreateToolBar(0,WindowID())
   ToolBarStandardButton(#barre_nouveau,#pb_toolbaricon_new)
   ToolBarStandardButton(#barre_charger,#pb_toolbaricon_open)
   ToolBarStandardButton(#barre_sauver,#pb_toolbaricon_save)
   ToolBarStandardButton(#barre_effacer, #PB_ToolBarIcon_delete)
   ToolBarToolTip(0,"Nouveau document ") 
   ToolBarToolTip(1,"Ouvrir un fichier ") 
   ToolBarToolTip(2,"Sauvegarder un fichier ") 
   ToolBarToolTip(3,"Effacer le texte ") 

EndIf
;Creation du menu 
If CreateMenu(0,WindowID())
   MenuTitle("Information")
   MenuItem(#menu_info,"A propos de ..")
EndIf
;creation du gadget
If creategadgetlist(WindowID())
   EditorGadget(#document,10,35,580,415)
EndIf
   



EndIf

Repeat
    event= WaitWindowEvent()
   Select event
   Case #pb_EventMenu
   
   Select EventMenuID()
   Case#menu_info:MessageRequester("Info", "Mini Bloc note " + Chr(10) + "par Jean-bernard-2004 ", #MB_OK|#MB_ICONINFORMATION)
   EndSelect
   
    Case #PB_EventCloseWindow
    quitter_fenetre_0=1
   
   EndSelect
  
  
Until quitter_fenetre_0=1

quel est la premiere application que vous avez ecris en purebasic lorque que vous apprenez le purebasic et que vous etes debutant

Ben c'est un bon début!

Faudrait ajouter des menus, en plus de la barre d'outils
Un menu Fichiers
- Nouveau
- Ouvrir
- Enregistrer
- Enregistrer sous
- Quitter

et un menu Edition
- Copier
- Couper
- Coller

A toi de jouer

salut chris
pourquoi rajouter un menu en plus
la barre outil ne suffit pas?

a+

Jbernard13

c'est toi qui voit

il te reste à faire les actions, commencer par sauver le texte écrit par exemple.

voir ici pour un exemple :
http://purebasic.hmt-forum.com/viewtopic.php?t=185

Sinon ton code est très propre, à part un point :

Code : Tout sélectionner

   ToolBarStandardButton(#barre_nouveau,#pb_toolbaricon_new) 
   ToolBarStandardButton(#barre_charger,#pb_toolbaricon_open) 
   ToolBarStandardButton(#barre_sauver,#pb_toolbaricon_save) 
   ToolBarStandardButton(#barre_effacer, #PB_ToolBarIcon_delete) 
   ToolBarToolTip(0,"Nouveau document ") 
   ToolBarToolTip(1,"Ouvrir un fichier ") 
   ToolBarToolTip(2,"Sauvegarder un fichier ") 
   ToolBarToolTip(3,"Effacer le texte ")

Pourquoi tu mets #barre_nouveau puis 0 pour le tooltip
ici tu tombes bien car dans ton enumeration, #barre_nouveau est en premier donc vaut 0 (puis 1 pour le 2ème, etc ...)
il faut mettre

Code : Tout sélectionner

ToolBarToolTip(#barre_nouveau,"Nouveau document ")

Je ne sais pas si tu as bien saisi le point, alors voilà :
le tooltip n'est pas indépendant, il est associé à un gadget, donc il faut lui donné le numéro du gadget avec lequel il est associé.
ici, ton numéro est stockée dans une constante donc il faut lui donner la constante

jbernard13 a écrit :salut chris
pourquoi rajouter un menu en plus
la barre outil ne suffit pas?

a+

Jbernard13

Et pourquoi pas des menus en plus?

Si tu regardes n'importe quelle appli ou il y a une ToolBar, les commandes son reprises dans les menus.
En fait, c'est le contraire, c'est la barre d'outils qui reprend les fonctions des menus. Les menus regroupent toutes les fonctions, alors que la barre d'outils reprend les principales.

Et puis ça te feras une bonne occasion de maitriser les deux.

Mais tu fais comme tu veux, ce n'était qu'une suggestion

Pour tes énumérations, j'avais vu à peu près la même chose que le soldat.
Voilà un exemple de ce que j'aurais fait:

Code : Tout sélectionner

Enumeration ;
  #Barre_Outils
  #Barre_Menus
EndEnumeration

Enumeration
  ;Constantes des boutons de la barre d'outils
  #Bouton_Nouveau
  #Bouton_Charger
  #Bouton_Sauver
  #Bouton_Effacer

  ;Constantes des rubriques des menus
  #Menu_Ouvrir
  #Menu_Sauve
  #Menu_SaveAs
  #Menu_Quitter
  #Menu_Copier
  #Menu_Coller
  #Menu_Couper
  #Menu_Info
EndEnumeration

Dans la première énumération, on trouves la constante pour la barre de menus, et celle pour la barre d'outils.

Dans la seconde, je fais deux groupes, dans le premier, je mets les noms des boutons de la barre d'outils, et dans le second, les noms de chaque fonction des menus.
C'est juste un astuce qui permet de s'y retrouver plus facilement, et si, à un moment, tu veux ajouter des fonctions au menu ou à la barre, c'est beaucoup plus simple

Et pour les tooltips, ça donne ça:

Code : Tout sélectionner

    ToolBarToolTip(#Bouton_Nouveau,"Nouveau document ")
    ToolBarToolTip(#Bouton_Charger,"Ouvrir un fichier ")
    ToolBarToolTip(#Bouton_Sauver,"Sauvegarder un fichier ")
    ToolBarToolTip(#Bouton_Effacer,"Effacer le texte ")

C'est juste un exemple, ton code, tel qu'il est, est bon, a part pour les tooltips ou il faut toujours donner le nom de l'objet associé, et pas le numéro car si tu modifie l'ordre des objets, les tooltips ne correspondront plus.

Bonsoir
j'ai actionner l'icone effacer
j'ai mis :

SetGadgetText(#document, "")
ActivateGadget(#document)

j'ai compris au moins ces 2 commandes ...

a+

jbernard13

Code : Tout sélectionner


;Mini Bloc  Note par Jean-bernard -2004 
;Constante de la fenetre principale 
Enumeration
    #Interface_fenetre
EndEnumeration
 
 
;Constante des Gadgets 
Enumeration
    #Document
EndEnumeration

;Constante de la barre outil et du menu 
Enumeration
    #Barre_Nouveau
    #barre_charger
    #barre_sauver
    #barre_Effacer
    #menu_info
   
EndEnumeration    



;creation de l'interface et de la boucle principale 
; creation de la fenetre 
If OpenWindow(#Interface_fenetre,0,0,600,480,#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar| #PB_Window_ScreenCentered ,"Mini Bloc Note ")
;Creation de la barre outil 
If CreateToolBar(0,WindowID())
   ToolBarStandardButton(#barre_nouveau,#pb_toolbaricon_new)
   ToolBarStandardButton(#barre_charger,#pb_toolbaricon_open)
   ToolBarStandardButton(#barre_sauver,#pb_toolbaricon_save)
   ToolBarStandardButton(#barre_effacer, #PB_ToolBarIcon_delete)
   ToolBarToolTip(#barre_nouveau,"Nouveau document ") 
   ToolBarToolTip(#barre_charger,"Ouvrir un fichier ") 
   ToolBarToolTip(#barre_sauver,"Sauvegarder un fichier ") 
   ToolBarToolTip(#barre_effacer,"Effacer le texte ") 

EndIf
;Creation du menu 
If CreateMenu(0,WindowID())
   MenuTitle("Information")
   MenuItem(#menu_info,"A propos de ..")
EndIf
;creation du gadget
If CreateGadgetList(WindowID())
EditorGadget(#document,10,35,580,415)
EndIf
   



EndIf

Repeat
    event= WaitWindowEvent()
   Select event
   Case #pb_EventMenu
  
   
   Select EventMenuID()
    Case #barre_effacer :MessageRequester("Info ", "Texte effacer", #MB_OK|#MB_ICONERROR)
    SetGadgetText(#document, "")
   ActivateGadget(#document)
      Case#menu_info:MessageRequester("Info", "Mini Bloc note " + Chr(10) + "par Jean-bernard-2004 ", #MB_OK|#MB_ICONINFORMATION)
   EndSelect
   
    Case #PB_EventCloseWindow
    quitter_fenetre_0=1
   
   EndSelect
  
  
Until quitter_fenetre_0=1