PureBasic

Forums PureBasic - Français
http://forums.purebasic.com/french/

un petit prog a ameliorer

http://forums.purebasic.com/french/viewtopic.php?t=3921

Page 1 sur 1

un petit prog a ameliorer

Publié : dim. 06/nov./2005 20:13
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

Publié : dim. 06/nov./2005 20:57
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

Publié : dim. 06/nov./2005 21:03
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 ??

Publié : jeu. 24/nov./2005 7:42
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 :?

Publié : jeu. 24/nov./2005 19:36
par gadjet35
oui je travail la-dessus pour que le programme se souvienne de toute les inscriptions

Publié : jeu. 24/nov./2005 23:19
par LeCyb
J'ai l'impressions d'être dans la quatrième dimension...

Publié : ven. 25/nov./2005 9:16
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:

Publié : ven. 25/nov./2005 9:32
par Chris
Ca prouve que PureBasic progresse et touche de nouveaux clients.
C'est une bonne chose, je trouve.

Publié : ven. 25/nov./2005 9:34
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

Publié : ven. 25/nov./2005 14:53
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!

Publié : ven. 25/nov./2005 15:02
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:

Publié : ven. 25/nov./2005 16:43
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 !
Fuseau horaire sur UTC+01:00
Page 1 sur 1

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru