qui peux m'aider pour un debut de code

[jbernard13]

bonsoir
voila je cherche a creer un petit programme
qui permetrer de gerer mes mots de passe et login d'internet






merci et bonne soirée


Jbernard

ps: j'aimerai savoir si une nouvelle version de purebasic va sortir?

[Flype]

coucou j'ai dèjà eu ce genre de prog en tete...
je suis prêt à t'aider
déjà tu devrais utiliser une liste pour stocker les logins

Code : Tout sélectionner

Structure Item_Struct
  login.s
  password.s
EndStructure

NewList Items.Item_Struct()

[Flype]

ensuite concernant la création d'un début d'interface, tu pourrait utiliser
un gadget assez approprié. par exemple un ListIconGadget

Code : Tout sélectionner

;- Gestion des logins

Structure Item_Struct
  login.s
  password.s
EndStructure

NewList Items.Item_Struct()

;- Création de l'interface

Enumeration
  #gad_List
  #gad_Exit
EndEnumeration

If OpenWindow(0,50,50,200,120,#PB_Window_SystemMenu|#PB_Window_SizeGadget,"Logins")
  CreateGadgetList(WindowID(0))
  ListIconGadget(#gad_List,2,2,196,90,"Login",100)
  AddGadgetColumn(#gad_List,1,"Password",90)
  ButtonGadget(#gad_Exit,140,96,58,22,"Quit")
Else
  End
EndIf

;- Gestion de la boucle des évênements

Repeat
  
  Select WaitWindowEvent()
    
    Case #PB_Event_CloseWindow : Break
      
    Case #PB_Event_Gadget
      Select EventGadgetID()
        Case #gad_Exit : Break
      EndSelect
      
  EndSelect
  
ForEver

;- Fin du programme

End

[jbernard13]

merci flype
pour ton aide peux tu me comenter ton code svp
mais comment ensuite sauvegader les données dans un fichier ?


merci beaucoup


Jbernard

[Flype]

mais comment ensuite sauvegader les données dans un fichier ?

plusieurs solutions, mais je serais toi j'utiliserais le jeu de commandes
"preference" pour gérer un fichier .ini

Code : Tout sélectionner

[Item.1]
Login=toto
Password=tutu
[Item.2]
Login=riri
Password=fifi

je continuerai ce soir mais là je dois aller bosser

[jbernard13]

merci flype

mais comment je peux rentrer mes mots de passes et login
ensuite comment pourvoir charger et sauver le fichier ini?

merci si tu peux m'aider


Jbernard

[Flype]

oui oui je me doutais bien de la question
je reviens seulement de travail...

je te prépare çà

[Le Soldat Inconnu]

moi, je dirais que si on avait l'interface déjà prête, on pourrait t'aider plus efficacement.

car la, je sens qu'on parle un peu dans le vide pour toi et que tu as du mal à assembler les morceaux, et à saoir par ou commencer (dis moi si je me trompe, j'ai pas la science infuse )

si on avait une base, il serait facile d'ajouter et de modifier le code en fonction te tes problèmes.

Sinon, quand on débute mieux vaux s'attaquer à un problème à la fois que d'ouvrir un front immense.

moi quand je fais un programme, en général je pars comme ça (j'espère que ça va t'aider pour ton programme)

- réflexion sur l'aspect de l'interface et les options générales à intégrer (dans le genre comment je veux faire pour entrer les mots de passe par exemple)
dans cette partie, je ne pense pas programmation, seulement ce que je veux faire (tout est faisable de toute façon)
- réalisation de l'interface (la fenêtre principale seule, aucune gestion des gadget, rien, juste l'apparence globale du programme)
- ensuite, je crée les actions associées à chaque gadget les un après les autres
- je mets en place les sauvegardes de données
- puis je fignole

Tout ce que je peux dire, c'est que ton projet est réalisable et est assez simple (pas d'API windows par exemple). Donc il sera facile de t'aider à le réaliser

[jbernard13]

salut regis

et si je la dessine avec purevision ?

ça change quelque chose?


merci regis


Jbernard

[Le Soldat Inconnu]

PureVision donne le code de l'interface donc je vois pas d'inconvénient.
par contre, prends garde à donner des noms significatif aux éléments (le nom des constantes qui sert à numéroter les gadgets)

[jbernard13]

je viens de creer mon interface

Code : Tout sélectionner

Enumeration
If OpenWindow(0,0,0,400,250,#pb_window_systemmenu|#pb_window_minimizegadget|#pb_window_maximizegadget|#pb_window_screencentered,"Fenetre zero")
If CreateMenu(0,WindowID())
MenuTitle("Fichier")
 MenuItem(1,"Open" + Chr(9)+"ctrl+o")
 MenuItem(2,"Save" + Chr(9)+"ctrl+s")
 MenuItem(3,"Close"+ Chr(9)+"ctrl+c")
 EndIf

 Repeat 
    EventID.l = WaitWindowEvent()  
    Select EventID 
      Case #PB_EventMenu 
        Select EventMenuID() 
         Case 3 
                 Quit=1  
    EndSelect    
      Case #WM_CLOSE 
        Quit=1  
    EndSelect  
  Until Quit =1

EndIf 

maintenant comment rendre le menu fonctionel ?
coment savegarder un fichier et le charger dans mon interface
et aussi une boite de saisie

merci de m'aider

Jbernard

[Le Soldat Inconnu]

donne des noms à tes gadget à l'aide de constantes, ce sera plus claire.

Code : Tout sélectionner

Enumeration
  #Menu
  #Menu_Ouvrir
  #Menu_Sauvegarder
  #menu_Quitter
EndEnumeration

If OpenWindow(0, 0, 0, 400, 250, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_ScreenCentered, "Fenetre zero")
  
  If CreateMenu(#Menu, WindowID())
    MenuTitle("Fichier")
    MenuItem(#Menu_Ouvrir, "Ouvrir" + Chr(9) + "Ctrl+O")
    MenuItem(#Menu_Sauvegarder, "Sauvegarder" + Chr(9) + "Ctrl+S")
    MenuBar()
    MenuItem(#menu_Quitter, "Quitter" + Chr(9) + "Alt+F4")
  EndIf
  
  Repeat
  
    EventID.l = WaitWindowEvent()
    Select EventID
    
      Case #PB_EventMenu
        Select EventMenuID()
          Case #menu_Quitter
            Quit = 1
        EndSelect
        
      Case #WM_CLOSE
        Quit = 1
        
    EndSelect
    
  Until Quit = 1
  
EndIf

[Le Soldat Inconnu]

Code : Tout sélectionner

Enumeration
  #Menu
  #Menu_Ouvrir
  #Menu_Sauvegarder
  #Menu_Quitter
  
  #Liste
EndEnumeration

If OpenWindow(0, 0, 0, 400, 250, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_ScreenCentered, "Fenetre zero")
  
  If CreateMenu(#Menu, WindowID())
    MenuTitle("Fichier")
    MenuItem(#Menu_Ouvrir, "Ouvrir" + Chr(9) + "Ctrl+O")
    MenuItem(#Menu_Sauvegarder, "Sauvegarder" + Chr(9) + "Ctrl+S")
    MenuBar()
    MenuItem(#Menu_Quitter, "Quitter" + Chr(9) + "Alt+F4")
  EndIf
  
  If CreateGadgetList(WindowID())
    ListIconGadget(#Liste, 0, 0, 400, 250, "Site", 120)
    AddGadgetColumn(#Liste, 1, "Identifiant", 120)
    AddGadgetColumn(#Liste, 2, "Mot de passe", 120)
  EndIf
  
  Repeat
  
    EventID.l = WaitWindowEvent()
    Select EventID
    
      Case #PB_EventMenu
        Select EventMenuID()
          Case #Menu_Quitter
            Quit = 1
        EndSelect
        
      Case #WM_CLOSE
        Quit = 1
        
    EndSelect
    
  Until Quit = 1
  
EndIf

[jbernard13]

merci
mais juste un brouillon que je suis entrain de creer

j'ai compris en dessinant l'interface dans visual designer
et je recupere le code pour le modifier .


mais comment faire marcher le menu de sauvegarde?

merci
je sais creer une interface mais pas encore l'interraction

Jbernard

[Le Soldat Inconnu]

sauvegarder quoi ?
on a pas encore de données à sauvegarder ... manque encore quelque chose à mon avis avant de passer à la sauvegarde