j'aimerai savoir sur quoi vous bosser en purebasic..........

julien · Message par **julien** » dim. 13/févr./2005 20:08

programme nous un... virus par exemple

... et poste nous le...(les anciens du forum me comprendrons

)....

Jacobus · Message par **Jacobus** » dim. 13/févr./2005 20:28

@ Julien : T'es ouf !!

Il est capable de réussir ! Bonjour l'angoisse !

Puis, JBernard, je me souviens que tu avais fais un chouette théatre de guignol, avec des rideaux tout ça... il en est où ?
Essayes de le rendre présentable, c'est pas compliqué, t'avais l'essentiel de déjà fait.

julien · Message par **julien** » dim. 13/févr./2005 20:50

@Jacobus : Je plaisante, bien sûr

bernard13 · Message par **bernard13** » dim. 13/févr./2005 20:58

personne n'aime ce que je fais

Oliv · Message par **Oliv** » dim. 13/févr./2005 21:11

Et puis je pense que c'est pareil pour tout le monde, on a tous une dizaine de projets sur lesquels on ne travaille plus que de temps en temps car on a appris à passer un difficulté, puis on tombe sur une autre, ça nous démoralise, on y revient deux smeaines ou deux mois plus tard

Dräc · Message par **Dräc** » dim. 13/févr./2005 21:14

personne n'aime ce que je fais

D'où tiens tu cette affirmation ?

Jacobus · Message par **Jacobus** » dim. 13/févr./2005 21:37

@ Julien : Moi aussi

@ JBernard: Ben, t'avoueras que c'est difficile, tu fais rien.
Evidemment ça limite...

Comme je te l'ai déjà dit plusieurs fois, finis ce que tu commences.
Oliv a très bien résumé en disant qu'une difficulté surmontée en amène une nouvelle. C'est bien là le propre de la programmation, c'est jamais fini complètement. il y a toujours quelque chose à améliorer, une fonction supplémentaire à ajouter. Finalement un programme évolu en permanence en fonction du programmeur et des utilisateurs.
C'est pourquoi, Nico l'a dit, il faut vraiment être passionné pour passer son temps sur un ordi. Si tu n'as pas cette vibration intérieure (qui te laisse indifférent au monde extérieur) lorsque tu es devant ta machine pour faire de la prog, alors laisses tomber. Fais autre chose qui te passionnera plus. Sinon, là on tourne en boucle, termine un programme pour en sortir une version 1.0, avant de te perdre dans plein de trucs que tu ne comprend pas encore.

Résumage de la translation codique du blème :

Code : Tout sélectionner

If ProgOnComputer = 0
   JBernard13$ =>" S'en va à la pêche "
 Else
   BigEnjoy = JBernard13$ + Williamm$ + Bernard13 + Other$ 
 EndIf

gansta93 · Message par **gansta93** » dim. 13/févr./2005 22:05

bernard13 a écrit :personne n'aime ce que je fais

On est deux !

bernard13 · Message par **bernard13** » dim. 13/févr./2005 22:07

personne ne m'aime

je sais rien faire

Oliv · Message par **Oliv** » dim. 13/févr./2005 22:54

bernard13 a écrit :personne ne m'aime

je sais rien faire

Une des premières paroles sensées.
Maintenant il faut que tu arrives à dire

benard13, 15 minutes plus tard a écrit : Alors je vais apprendre et me faire aimer

bernard13 · Message par **bernard13** » dim. 13/févr./2005 23:01

je sais faire que ça helas je sais que c'est nul ......

Code : Tout sélectionner


;Repertoire telephonie 
; par Jbernard13 écris le 01/01/2005

; contanste des fenetres 

Enumeration
  #main_0
  #fenetre_1
  #fenetre_2 
EndEnumeration

;constante des gadgets
Enumeration
   #liste
  #frame_0
  #text_nom
  #string_nom
  #text_prenom
  #string_prenom
  #text_telephone
  #string_telephone 
  #button_ajoute
  #button_annule
  #button_modifie
EndEnumeration
; barre du menu 
Enumeration
 
  #barre_New
  #barre_Charger
  #barre_Sauver
  #barre_efface
  #barre_info
  EndEnumeration





; Chargement des fonts
Global FontID1
FontID1 =LoadFont(1,"arial",11,#PB_Font_Bold)
Global fontId2
fontId2 =LoadFont(2,"arial",12,#PB_Font_Bold)
Global fontID3
fontID3=LoadFont(3,"arial",11)

; creation d'un élément 

Structure carnet
  Nom.s
  Prenom.s
  Telephone.s
EndStructure
NewList items.carnet()

Procedure.b item_clear()
  ClearList(items ())
EndProcedure
Procedure.b item_add()
  If  AddElement(items())
    items()\Nom=GetGadgetText(#string_nom)
    items()\Prenom=GetGadgetText(#string_prenom)
    items()\Telephone=GetGadgetText(#string_telephone)
    AddGadgetItem(#liste,-1,items()\Nom+Chr(10)+items()\Prenom+Chr(10)+items()\Telephone)
  EndIf
  ProcedureReturn 1
EndProcedure

Procedure item_modifie(index,Nom.s,Prenom.s,Telephone.s)
  indexcourant=ListIndex(items())
  SelectElement(items(),index)
  items()\Nom=Nom
  items()\Prenom=Prenom
  items()\Telephone=Telephone
  SelectElement(items(),indexcourant)
EndProcedure





Procedure remove()
  effacer=0
  If GetGadgetItemState(#liste,effacer)&#PB_ListIcon_Checked 
    MessageRequester("Merlin vous informe que ", "L'élément sera supprimer ", #MB_OK|#MB_ICONINFORMATION)
    RemoveGadgetItem(#liste,effacer)
  EndIf
EndProcedure





;procdeure des fenetres 

Procedure main()
  If OpenWindow(#main_0,0,0,800,600,#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered,"Carnet de telephone")
    If CreateToolBar(0, WindowID()) 
       ToolBarStandardButton(#barre_New,#PB_ToolBarIcon_New)
       ToolBarStandardButton(#barre_Charger,#PB_ToolBarIcon_Open )
       ToolBarStandardButton(#barre_Sauver,#PB_ToolBarIcon_Save)
       ToolBarStandardButton(#barre_efface,#PB_ToolBarIcon_Delete)
       ToolBarStandardButton(#barre_info,#PB_ToolBarIcon_Properties)
       ToolBarToolTip(#barre_New,"Creation d'une nouveau élément pour la liste en cours")
       ToolBarToolTip(#barre_Charger,"Charge une liste")
       ToolBarToolTip(#barre_Sauver ,"Sauve une liste")
       ToolBarToolTip(#barre_efface ," Efface un élément de la liste en le cochant ")
       ToolBarToolTip(#barre_info,"Information")
      
   
    EndIf
    If CreateGadgetList(WindowID())
       ListIconGadget(#liste,10,54,780,535,"Nom :",250, #PB_ListIcon_CheckBoxes| #PB_ListIcon_GridLines   )
      AddGadgetColumn(#liste,1,"Prenom :",250)
      AddGadgetColumn(#liste,2,"Téléphone :",276)
      SetGadgetFont(#liste,FontID1)
    
    
    EndIf
    
  EndIf
EndProcedure
Procedure ajouter()
  If OpenWindow(#fenetre_1,0,0,400,300,#PB_Window_ScreenCentered,"Crée une nouvelle entrée dans la liste")
    
    If CreateGadgetList(WindowID())
      Frame3DGadget(#frame_0,10,5,380,280,"")
      TextGadget(#text_nom,130,30,140,30,"Nom : ",#PB_Text_Center)
      SetGadgetFont(#text_nom,fontId2)
      StringGadget(#string_nom,80,55,250,25,"")
      SetGadgetFont(#string_nom,fontID3)    
      TextGadget(#text_prenom,130,90,140,30,"Prénom : ",#PB_Text_Center)
      SetGadgetFont(#text_prenom,fontId2)
      StringGadget(#string_prenom,80,115,250,25,"")
      SetGadgetFont(#string_prenom,fontID3)
      TextGadget(#text_telephone,130,155,140,30,"Téléphone: ",#PB_Text_Center)
      SetGadgetFont(#text_telephone,fontId2)
      StringGadget(#string_telephone,80,180,250,25,"",#PB_String_Numeric)
      SetGadgetFont(#string_telephone,fontID3)
      ButtonGadget(#button_ajoute,50,240,100,30,"Ajouter")
      SetGadgetFont(#button_ajoute,fontId2)
      ButtonGadget(#button_annule,250,240,100,30,"Annuler")
      SetGadgetFont(#button_annule,fontId2)
      
      
      Repeat
        event=WaitWindowEvent()
        Select event
          Case #PB_EventGadget
            Select EventGadgetID()
              Case#button_ajoute:item_add()
                fermer_window_1=1
                
              Case #button_annule: fermer_window_1=1
            EndSelect
        EndSelect
      Until  fermer_window_1=1
      CloseWindow(#fenetre_1)
      While WindowEvent():Wend
      
      
      
      
    EndIf
    
  EndIf
  
EndProcedure
Procedure modifier(index)
  If OpenWindow(#fenetre_2,0,0,400,300,#PB_Window_ScreenCentered,"modification")
    
    If CreateGadgetList(WindowID())
      Frame3DGadget(#frame_0,10,5,380,280,"")
      TextGadget(#text_nom,130,30,140,30,"Nom : ",#PB_Text_Center)
      SetGadgetFont(#text_nom,fontId2)
      StringGadget(#string_nom,80,55,250,25,"")
      SetGadgetFont(#string_nom,fontID3)
      TextGadget(#text_prenom,130,90,140,30,"Prénom : ",#PB_Text_Center)
      SetGadgetFont(#text_prenom,fontId2)
      StringGadget(#string_prenom,80,115,250,25,"")
      SetGadgetFont(#string_prenom,fontID3)
      TextGadget(#text_telephone,130,155,140,30,"Téléphone: ",#PB_Text_Center)
      SetGadgetFont(#text_telephone,fontId2)
      StringGadget(#string_telephone,80,180,250,25,"",#PB_String_Numeric)
      SetGadgetFont(#string_telephone,fontID3)
      ButtonGadget(#button_modifie,50,240,100,30,"Modifier")
      SetGadgetFont(#button_modifie,fontId2)
      ButtonGadget(#button_annule,250,240,100,30,"Annuler")
      SetGadgetFont(#button_annule,fontId2)
      SelectElement(items(),index)
      SetGadgetText(#string_nom,items()\Nom)
      SetGadgetText(#string_prenom,items()\Prenom)
      SetGadgetText(#string_telephone,items()\Telephone)
      Repeat
        event=WaitWindowEvent()
        Select event
          Case #PB_EventGadget
            Select EventGadgetID()
              Case #button_modifie
                a.s = GetGadgetText(#string_nom) 
                b.s = GetGadgetText(#string_prenom) 
                c.s = GetGadgetText(#string_telephone) 
                If a <> "" And b <> "" And c <> "" 
                  SetGadgetItemText(#liste, index, a, 0) 
                  SetGadgetItemText(#liste, index, b, 1) 
                  SetGadgetItemText(#liste, index, c, 2) 
                  item_modifie(index, a.s, b.s, c.s) 
                  EndIf
                fermer_window_2=1
                
              Case #button_annule: fermer_window_2=1
            EndSelect
        EndSelect
      Until  fermer_window_2=1
      CloseWindow(#fenetre_2)
      While WindowEvent():Wend
      
      
      
      
    EndIf
    
  EndIf
  
EndProcedure
main()


; boucle du programme 
Repeat
  event=WaitWindowEvent()
  Select event
    Case#PB_EventMenu
      Select EventMenuID()
        Case#barre_New:ajouter()
        Case #barre_efface:remove()
        Case #barre_info:MessageRequester("Information ", "Carnet telephone  version 01 " + Chr(10) + "écris par Jean-Bernard Copyright 2005 ", #MB_OK|#MB_ICONINFORMATION)
          
          EndSelect
    
    
    Case #PB_EventGadget
      Select EventGadgetID()
        
        Case #liste
          Select EventType ()
            
            Case #PB_EventType_LeftDoubleClick
              element=GetGadgetState(#liste)
              If element>-1
                modifier(element)
                
              EndIf
          EndSelect
          
          
          
      EndSelect
      
      
      
      
      
    Case #PB_EventCloseWindow
      fermer_window_0=1
  EndSelect
Until  fermer_window_0=1
End

Torp · Message par **Torp** » lun. 14/févr./2005 0:09

Résumage de la translation codique du blème :
Code : Tout sélectionner
If ProgOnComputer = 0
   JBernard13$ =>" S'en va à la pêche "
 Else
   BigEnjoy = JBernard13$ + Williamm$ + Bernard13 + Other$ 
 EndIf

Heis Spiter · Message par **Heis Spiter** » lun. 14/févr./2005 0:14

Ne t'attend pas à faire des étincelles du premier coup ! C'est progressif. Pour exemple, je programme depuis plus de 2 ans, et je ne fais pas encore des trucs géniaux. Mais je suis motivé, c'est suffisant.

bernard13 · Message par **bernard13** » lun. 14/févr./2005 16:50

que penser vous de mon carnet de telephone svp

gansta93 · Message par **gansta93** » lun. 14/févr./2005 17:57

bernard13 a écrit :que penser vous de mon carnet de telephone svp

Objectivement, c'est un truc util... moi je trouve ça bien.
Subjectivement, c'est plus util que mon GPP !