un petit prog a ameliorer

Programmation d'applications complexes
Répondre
gadjet35
Messages : 190
Inscription : ven. 21/oct./2005 7:49
Localisation : Quelque part en france !

un petit prog a ameliorer

Message par gadjet35 »

bonjour je viens de programmer un petit prog, il consiste a possedez sa page perso proteger par mot de passe vous me direz ce que vous en pensez:

Code : Tout sélectionner

; réalisez par : gadget35
; le : 06/11/05 
; à : 20 h  11 min

OpenWindow(0,0,0,500,500,#PB_Window_SystemMenu,"page perso")

 CreateGadgetList(WindowID(0))
  ComboBoxGadget(1,200,250,100,125)
   AddGadgetItem(1,0,"<aucun>")
  StringGadget(2,200,300,150,20,"",#PB_String_Password)
  ButtonGadget(3,325,250,50,25,"valider")
  ButtonGadget(4,200,100,100,50,"inscription")
  StringGadget(6,60,100,100,20,"")
  StringGadget(7,60,150,100,20,"",#PB_String_Password)
  ButtonGadget(8,80,200,50,25,"valider")
  Frame3DGadget(9,50,60,120,175,"inscription")
  TextGadget(10,70,80,50,20,"login:")
  TextGadget(11,70,130,50,20,"passe:")
  DisableGadget(6,1) 
  DisableGadget(7,1)   
  DisableGadget(8,1) 
  DisableGadget(9,1)
  DisableGadget(10,1)
  DisableGadget(11,1)  
  
  Global passe.s
  Global pointeur
  pointeur = 1
  Dim passe.s(9999)
  
 Procedure save()
 
 EndProcedure 
  
 Procedure log1()
 
 EndProcedure
 
 Procedure log2()
 
 EndProcedure
  
 Procedure inscription() 
   DisableGadget(6,0)
   DisableGadget(7,0) 
   DisableGadget(8,0) 
   DisableGadget(9,0) 
   DisableGadget(10,0) 
   DisableGadget(11,0) 
   
   Repeat
    If EventGadgetID()=8
     AddGadgetItem(1,pointeur,GetGadgetText(6))
     passe.s(pointeur) = GetGadgetText(7)
     pointeur = pointeur + 1
     SetGadgetState(1,pointeur)
     DisableGadget(6,1) 
     DisableGadget(7,1)   
     DisableGadget(8,1) 
     DisableGadget(9,1)
     DisableGadget(10,1)
     DisableGadget(11,1)
     SetGadgetText(6,"")
     SetGadgetText(7,"")  
     Break
    EndIf
   Until WaitWindowEvent()=#PB_Event_CloseWindow 
 EndProcedure
 
 Procedure identification()
    Select GetGadgetState(1)
     Case 0
      MessageRequester("login","veuiller selectioner un login (ou vous inscrire)")
     Case 1
      If GetGadgetText(2) = passe.s(1)
       log1()
      Else
       MessageRequester("code","faux code") 
      EndIf
      Case 2
      If GetGadgetText(2) = passe.s(2)
       Log2()
      Else
       MessageRequester("code","faux code") 
      EndIf
    EndSelect
 EndProcedure
 
  Repeat
   Select EventGadgetID()
    Case 3
     quit = 1
     identification()
    Case 4
     inscription()
   EndSelect
  Until WaitWindowEvent()=#PB_Event_CloseWindow Or quit = 1
  save()
  End
bonne journer à tous !!!
Haut
AWEAR
Messages : 264
Inscription : ven. 28/oct./2005 8:20
Localisation : Mayotte ( 976 ), Océan Indien, France

Message par AWEAR »

Quel est l'interêt de déclarer des fonctions où il n'y a rien dedans ?
Ca marche aussi bien comme ca :

Code : Tout sélectionner

; réalisez par : gadget35 
; le : 06/11/05 
; à : 20 h  11 min 

OpenWindow(0,0,0,500,500,#PB_Window_SystemMenu,"page perso") 

 CreateGadgetList(WindowID(0)) 
  ComboBoxGadget(1,200,250,100,125) 
   AddGadgetItem(1,0,"<aucun>") 
  StringGadget(2,200,300,150,20,"",#PB_String_Password) 
  ButtonGadget(3,325,250,50,25,"valider") 
  ButtonGadget(4,200,100,100,50,"inscription") 
  StringGadget(6,60,100,100,20,"") 
  StringGadget(7,60,150,100,20,"",#PB_String_Password) 
  ButtonGadget(8,80,200,50,25,"valider") 
  Frame3DGadget(9,50,60,120,175,"inscription") 
  TextGadget(10,70,80,50,20,"login:") 
  TextGadget(11,70,130,50,20,"passe:") 
  DisableGadget(6,1) 
  DisableGadget(7,1)    
  DisableGadget(8,1) 
  DisableGadget(9,1) 
  DisableGadget(10,1) 
  DisableGadget(11,1)  
  
  Global passe.s 
  Global pointeur 
  pointeur = 1 
  Dim passe.s(9999) 
  

  
 Procedure inscription() 
   DisableGadget(6,0) 
   DisableGadget(7,0) 
   DisableGadget(8,0) 
   DisableGadget(9,0) 
   DisableGadget(10,0) 
   DisableGadget(11,0) 
    
   Repeat 
    If EventGadgetID()=8 
     AddGadgetItem(1,pointeur,GetGadgetText(6)) 
     passe.s(pointeur) = GetGadgetText(7) 
     pointeur = pointeur + 1 
     SetGadgetState(1,pointeur) 
     DisableGadget(6,1) 
     DisableGadget(7,1)    
     DisableGadget(8,1) 
     DisableGadget(9,1) 
     DisableGadget(10,1) 
     DisableGadget(11,1) 
     SetGadgetText(6,"") 
     SetGadgetText(7,"")  
     Break 
    EndIf 
   Until WaitWindowEvent()=#PB_Event_CloseWindow 
 EndProcedure 
  
 Procedure identification() 
    Select GetGadgetState(1) 
     Case 0 
      MessageRequester("login","veuiller selectioner un login (ou vous inscrire)") 
     Case 1 
      If GetGadgetText(2) = passe.s(1) 
      Else 
       MessageRequester("code","faux code") 
      EndIf 
      Case 2 
      If GetGadgetText(2) = passe.s(2)  
      Else 
       MessageRequester("code","faux code") 
      EndIf 
    EndSelect 
 EndProcedure 
  
  Repeat 
   Select EventGadgetID() 
    Case 3 
     quit = 1 
     identification() 
    Case 4 
     inscription() 
   EndSelect 
  Until WaitWindowEvent()=#PB_Event_CloseWindow Or quit = 1 
  End
:D
La vie est une rose dont il faut accepter les épines, mais la mienne est fannée, arrosée par le goût de mes larmes. (Soprano)
Haut
AWEAR
Messages : 264
Inscription : ven. 28/oct./2005 8:20
Localisation : Mayotte ( 976 ), Océan Indien, France

Message par AWEAR »

2eme remarque :
il suffit que je m'enregistre et que je remette mon mot de passe et mon login pour que ca marche..
Donc où est l'interêt ??
La vie est une rose dont il faut accepter les épines, mais la mienne est fannée, arrosée par le goût de mes larmes. (Soprano)
Haut
maitre we
Messages : 42
Inscription : mer. 23/nov./2005 23:50

Message par maitre we »

ce programme est bien fait !

tout ce qu'il reste a amélioré c'est :
Dès que je ferme le programme , et que je le reouvre , le programme ne se souvient pas de mon inscription :?
Haut
gadjet35
Messages : 190
Inscription : ven. 21/oct./2005 7:49
Localisation : Quelque part en france !

Message par gadjet35 »

oui je travail la-dessus pour que le programme se souvienne de toute les inscriptions
bonne journer à tous !!!
Haut
LeCyb
Messages : 273
Inscription : dim. 26/déc./2004 20:49

Message par LeCyb »

J'ai l'impressions d'être dans la quatrième dimension...
Vive le thread-safe !
Haut
Dr. Dri
Messages : 2527
Inscription : ven. 23/janv./2004 18:10

Message par Dr. Dri »

LeCyb a écrit :J'ai l'impressions d'être dans la quatrième dimension...
moi aussi je trouve qu'il y a une déferlente depuis peu XD

Dri :lol:
Haut
Avatar de l’utilisateur
Chris
Messages : 3731
Inscription : sam. 24/janv./2004 14:54
Contact :
Contacter Chris

Message par Chris »

Ca prouve que PureBasic progresse et touche de nouveaux clients.
C'est une bonne chose, je trouve.
Haut
Dr. Dri
Messages : 2527
Inscription : ven. 23/janv./2004 18:10

Message par Dr. Dri »

Chris a écrit :Ca prouve que PureBasic progresse et touche de nouveaux clients.
C'est une bonne chose, je trouve.
bah y'a plus qu'à acheter des actions de fantasy software ^^
(sont côtés en bourse au moins ? =)

Dri
Haut
nico
Messages : 3702
Inscription : ven. 13/févr./2004 0:57

Message par nico »

Au début je regarde à quoi sert le prog et je me dis mais ça sert à rien; j'y repasse et je me demande toujours à quoi ça sert de protéger une page perso par du code extérieur; c'est la page elle même qui doit être protégé; ça ne va pas empêcher quelqu'un de taper l'adresse dans son explorateur!
Haut
maitre we
Messages : 42
Inscription : mer. 23/nov./2005 23:50

Message par maitre we »

Je trouve que c'est un bon début :

On aura les "bases" ; après , manque plus qu'a l'amélioré :idea:
Haut
nico
Messages : 3702
Inscription : ven. 13/févr./2004 0:57

Message par nico »

Je ne dis pas que le programme est mal fait , je dis seulement que je ne vois pas à quoi ça sert, c'est tout !
Haut
Répondre

Revenir à « Applications »