personne aura de l'aide svp ?

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Répondre
gadjet35
Messages : 190
Inscription : ven. 21/oct./2005 7:49
Localisation : Quelque part en france !

personne aura de l'aide svp ?

Message par gadjet35 »

euh alors là je ne pige plus rien une fois sur deux sa marche (mon prog pour coder des textes) puvez vous m'aidez ?

Code : Tout sélectionner

Enumeration
  #Window_0
EndEnumeration

Enumeration
  #Frame3D_0
  #Frame3D_1
  #String_0
  #String_1
  #Button_0
  #String_2
  #String_4
  #Button_2
  #Text_0
  #Text_1
EndEnumeration

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 262, 170, 448, 300,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Codeur CCS  ")
    If CreateGadgetList(WindowID())
      Frame3DGadget(#Frame3D_0, 21, 6, 185, 285, "Codage")
      Frame3DGadget(#Frame3D_1, 237, 5, 189, 159, "Decodage")
      StringGadget(#String_0, 83, 26, 99, 24, "")
      StringGadget(#String_1, 35, 72, 157, 160, "", #PB_String_MultiLine)
      ButtonGadget(#Button_0, 81, 240, 66, 36, "Coder")
      StringGadget(#String_2, 306, 28, 99, 20, "")
      StringGadget(#String_4, 253, 75, 157, 24, "")
      ButtonGadget(#Button_2, 304, 114, 68, 37, "Decoder")
      TextGadget(#Text_0, 249, 28, 48, 23, "MDP :")
      TextGadget(#Text_1, 32, 28, 38, 22, "MDP :")
      DisableGadget(#button_0,1)
      DisableGadget(#button_2,1)
    EndIf
  EndIf
EndProcedure

 code = 1
 cle = 1

open_window_0()

Repeat
 Select WaitWindowEvent()
  Case #PB_EventGadget
  Select EventGadgetID()
  ;codage
   Case #button_0 
     Repeat
      If Mid(GetGadgetText(#String_1),code,1) = ""
       Break
      EndIf
      If Mid(GetGadgetText(#String_0),cle,1) = ""
       cle = 1
      EndIf
      asciicle = Asc(Mid(GetGadgetText(#String_0),cle,1)) 
      asciicode = Asc(Mid(GetGadgetText(#String_1),code,1))
      result = asciicode-asciicle
      mot$ = mot$ + Chr(result)
      cle + 1
      code + 1
     ForEver
     SetGadgetText(#String_4,mot$)
  ;decodage
  Case #button_2
     Repeat
      If Mid(GetGadgetText(#String_4),code,1) = ""
       Break
      EndIf
      If Mid(GetGadgetText(#String_2),cle,1) = ""
       cle = 1
      EndIf
      asciicle = Asc(Mid(GetGadgetText(#String_2),cle,1)) 
      asciicode = Asc(Mid(GetGadgetText(#String_4),code,1))
      result = asciicode+asciicle
      mot$ = mot$ + Chr(result)
      cle + 1
      code + 1
     ForEver
     SetGadgetText(#String_1,mot$)
  EndSelect
  Case #PB_EventCloseWindow
   End
 EndSelect
  If Len(GetGadgetText(#String_0)) < 4
   DisableGadget(#button_0,1)
  EndIf
  If Len(GetGadgetText(#String_0)) > 3
   DisableGadget(#button_0,0)
  EndIf
  If Len(GetGadgetText(#String_2)) < 4
   DisableGadget(#button_2,1)
  EndIf
  If Len(GetGadgetText(#String_2)) > 3
   DisableGadget(#button_2,0)
  EndIf
ForEver
:D :D
bonne journer à tous !!!
Haut
gadjet35
Messages : 190
Inscription : ven. 21/oct./2005 7:49
Localisation : Quelque part en france !

Message par gadjet35 »

je vois que sa n'interesse pas grand monde !
bonne journer à tous !!!
Haut
Avatar de l’utilisateur
Chris
Messages : 3731
Inscription : sam. 24/janv./2004 14:54
Contact :
Contacter Chris

Message par Chris »

Tu permets qu'on dorme, quand même?

T'as posté hier soir à 10 h moins le quart, et tu veux une réponse à 8 h ce matin!

Tu nous payes combien pour bosser la nuit? :?
Haut
Dr. Dri
Messages : 2527
Inscription : ven. 23/janv./2004 18:10

Message par Dr. Dri »

Chris a écrit :Tu permets qu'on dorme, quand même?

T'as posté hier soir à 10 h moins le quart, et tu veux une réponse à 8 h ce matin!

Tu nous payes combien pour bosser la nuit? :?
bah pour un joli jpeg de billet de 10€ t'aurais au moins pu t'y mettre Chris, là tu me déçois

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

Message par Chris »

Dr. Dri a écrit :
Chris a écrit :Tu permets qu'on dorme, quand même?

T'as posté hier soir à 10 h moins le quart, et tu veux une réponse à 8 h ce matin!

Tu nous payes combien pour bosser la nuit? :?
bah pour un joli jpeg de billet de 10€ t'aurais au moins pu t'y mettre Chris, là tu me déçois

Dri :evil:
J'aime pas qu'on m'oblige.
J'suis pas au boulot, là

Puis tant qu'à faire, au lieu d'un jpeg, je préfère l'original. Celui qui est posé sur la vitre du scanner :lol:
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

Puis tant qu'à faire, au lieu d'un jpeg, je préfère l'original. Celui qui est posé sur la vitre du scanner
tant qu'a faire prends aussi le scanner , c'est toujours ça de pris ! :lol:
Haut
gansta93
Messages : 1448
Inscription : jeu. 26/févr./2004 11:17
Localisation : Le Village
Contact :
Contacter gansta93

Message par gansta93 »

Dobro a écrit :
Puis tant qu'à faire, au lieu d'un jpeg, je préfère l'original. Celui qui est posé sur la vitre du scanner
tant qu'a faire prends aussi le scanner , c'est toujours ça de pris ! :lol:
C'est aussi ça de prix. :jesors:
Haut
Avatar de l’utilisateur
Chris
Messages : 3731
Inscription : sam. 24/janv./2004 14:54
Contact :
Contacter Chris

Message par Chris »

En plus, ce matin, j'avais commencé à le regarder un peu son truc!

Puis j'ai eu la mauvaise idée de revenir faire un tour sur le forum, et là, j'ai trouvé son deuxième post...

Pas d'bol, hein !!! :lol:
Haut
brossden
Messages : 822
Inscription : lun. 26/janv./2004 14:37

Message par brossden »

Bonjour

Tu as oublié de réinitialiser tes pointeurs "cle" et "code" aussi que mot$ donc si tu veux que cela fonctionne rajoute :

Code : Tout sélectionner

          code=1
          cle=1
          mot$=""
Après les lignes :
Case #Button_0
et
Case #Button_2

Code : Tout sélectionner


Enumeration
  #Window_0
EndEnumeration

Enumeration
  #Frame3D_0
  #Frame3D_1
  #String_0
  #String_1
  #Button_0
  #String_2
  #String_4
  #Button_2
  #Text_0
  #Text_1
EndEnumeration

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 262, 170, 448, 300,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "Codeur CCS  ")
    If CreateGadgetList(WindowID())
      Frame3DGadget(#Frame3D_0, 21, 6, 185, 285, "Codage")
      Frame3DGadget(#Frame3D_1, 237, 5, 189, 159, "Decodage")
      StringGadget(#String_0, 83, 26, 99, 24, "0")
      StringGadget(#String_1, 35, 72, 157, 160, "1", #PB_String_MultiLine)
      ButtonGadget(#Button_0, 81, 240, 66, 36, "Coder")
      StringGadget(#String_2, 306, 28, 99, 20, "2")
      StringGadget(#String_4, 253, 75, 157, 24, "4")
      ButtonGadget(#Button_2, 304, 114, 68, 37, "Decoder")
      TextGadget(#Text_0, 249, 28, 48, 23, "MDP :")
      TextGadget(#Text_1, 32, 28, 38, 22, "MDP :")
      DisableGadget(#Button_0,1)
      DisableGadget(#Button_2,1)
    EndIf
  EndIf
EndProcedure

code = 1
cle = 1

Open_Window_0()

Repeat
  Select WaitWindowEvent()
    Case #PB_EventGadget
      Select EventGadgetID()
        ;codage
        Case #Button_0
          code=1
          cle=1
          mot$=""
          Repeat
            If Mid(GetGadgetText(#String_1),code,1) = ""
              Break

            EndIf
            If Mid(GetGadgetText(#String_0),cle,1) = ""
              cle = 1
            EndIf
            asciicle = Asc(Mid(GetGadgetText(#String_0),cle,1))
            asciicode = Asc(Mid(GetGadgetText(#String_1),code,1))

            result = asciicode-asciicle
             Debug asciicle
            Debug asciicode
            Debug result
            mot$ = mot$ + Chr(result)
            ;Debug mot$
            cle + 1
            code + 1
          ForEver
          SetGadgetText(#String_4,mot$)
          ;decodage
        Case #Button_2
          code=1
          cle=1
          mot$=""
          Repeat
            If Mid(GetGadgetText(#String_4),code,1) = ""
              Break
            EndIf
            If Mid(GetGadgetText(#String_2),cle,1) = ""
              cle = 1
            EndIf
            asciicle = Asc(Mid(GetGadgetText(#String_2),cle,1))
            asciicode = Asc(Mid(GetGadgetText(#String_4),code,1))
            Debug asciicle
            Debug asciicode
            Debug result
            result = asciicode+asciicle
            mot$ = mot$ + Chr(result)
            cle + 1
            code + 1
          ForEver
          SetGadgetText(#String_1,mot$)
      EndSelect
    Case #PB_EventCloseWindow
      End
  EndSelect
  If Len(GetGadgetText(#String_0)) < 4
    DisableGadget(#Button_0,1)
  EndIf
  If Len(GetGadgetText(#String_0)) > 3
    DisableGadget(#Button_0,0)
  EndIf
  If Len(GetGadgetText(#String_2)) < 4
    DisableGadget(#Button_2,1)
  EndIf
  If Len(GetGadgetText(#String_2)) > 3
    DisableGadget(#Button_2,0)
  EndIf
ForEver
Denis

Bonne Jounée à tous
Haut
Répondre

Revenir à « Débutants »