PureBasic

Forums PureBasic - Français
https://www.purebasic.fr/french/

personne aura de l'aide svp ?

https://www.purebasic.fr/french/viewtopic.php?t=4285

Page 1 sur 1

personne aura de l'aide svp ?

Publié : ven. 13/janv./2006 21:46
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

Publié : sam. 14/janv./2006 8:08
par gadjet35
je vois que sa n'interesse pas grand monde !

Publié : sam. 14/janv./2006 8:25
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? :?

Publié : sam. 14/janv./2006 16:06
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:

Publié : sam. 14/janv./2006 16:48
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:

Publié : sam. 14/janv./2006 18:11
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:

Publié : sam. 14/janv./2006 19:28
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:

Publié : sam. 14/janv./2006 19:36
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:

Publié : lun. 16/janv./2006 13:19
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
Fuseau horaire sur UTC+01:00
Page 1 sur 1

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

Traduction française officielle © Qiaeru