Remise en forme...

[Chris]

Il y a quasiment plus d'appels à l'API windows que de fonctions PureBasic dans ton truc.
Et tout ça pour faire quoi?

Pas grand-chose de plus que ce qu'il y avait avant.

[MLD]

Il y a quasiment plus d'appels à l'API windows que de fonctions PureBasic dans ton truc.
Et tout ça pour faire quoi?

Pas grand-chose de plus que ce qu'il y avait avant.

Salut Chris

Ou cela ? a part la gestion de la ListIcon et une limitation de caractère dans le String

Michel

[Chris]

Il y a quasiment plus d'appels à l'API windows que de fonctions PureBasic dans ton truc.
Et tout ça pour faire quoi?

Pas grand-chose de plus que ce qu'il y avait avant.

Salut Chris

Ou cela ? a part la gestion de la ListIcon et une limitation de caractère dans le String

Michel

"limitation de caractères dans le string"


Effectivement, c'est puissant comme limitation.

[...] la gestion de la ListIcon [...]
Mis à part le tri par code postal ou par commune qui était facile à ajouter avec un" SortStructuredList()", qu'est-ce qu'il y avait d'autre à gérer?

Au risque de passer pour un sale con, si on prend un de mes codes pour l'améliorer, je suis le premier à dire "Bravo".
C'est arrivé plusieurs fois sur ce forum depuis quelques années.

Ici, l'amélioration, je la cherche encore

[Chris]

Nouvelle version à télécharger ici de Code Postal.

Ajouté :
Tri par commune quand on cherche une commune et par code postal quand on cherche un code.
Vérification de la saisie. On ne peut plus saisir un chiffre au milieu d'un nom de commune.

et puis je sais plus quoi d'autre...

A venir
Recherche d'une commune commençant par "xxx" dans le département "yyy"

Puis plus tard
Impression d'enveloppes.

Et encore plus tard
Ca collera les timbres.

[MLD]

C'est vrai qu'il est un peu bougon le bougre
Avec le nouveau code j'ai réussi a faire une recherche de la ville "WZZMYT" Je ne comprend pas! Elle n'éxiste pas.
Ou ce sera super, cest quand aprés avoir collé les timbres, ce petit logiciel pourra aussi faire le café
Salut bonne journée Chris

Michel

[Chris]

C'est vrai qu'il est un peu bougon le bougre
Avec le nouveau code j'ai réussi a faire une recherche de la ville "WZZMYT" Je ne comprend pas! Elle n'éxiste pas.
Ou ce sera super, cest quand aprés avoir collé les timbres, ce petit logiciel pourra aussi faire le café
Salut bonne journée Chris

Michel

Bougon, c'est vrai.
Je suis né en râlant
Faut que je râle après tout et n'importe quoi, juste pour le plaisir.

Tu as réussi à faire une recherche avec "WZZMYT"!
Ne me dis pas que tu as trouvé quelque chose.
J'ai pourtant pas mis les codes postaux polonais

[Backup]

J'ai pourtant pas mis les codes postaux polonais

c'est surtout le Soldat inconnu que ça va gener

[Chris]

Allez hop!...

Voilà la version finale

J'ai corrigé quelques bugs ici et là et refait l'aide (toujours accessible par "F1", evidemment.
Si vous trouvez d'autres bugs, ... faudra faire avec.

Maintenant, je passe à autre chose, parce que là, les codes postaux, ça commence un tout petit peu à me sortir par les yeux.

[Backup]

Maintenant, je passe à autre chose, parce que là, les codes postaux, ça commence un tout petit peu à me sortir par les yeux.

oui ! d'autant qu'il y avait plus simple

Code : Tout sélectionner

; Code par Dobro
; purebasic 4.01

Declare Open_Window_0()
Declare.s code(sortie$, Password.s)

Enumeration
  #Window_0 : #Web_0
EndEnumeration

Open_Window_0()
Repeat
  Event = WaitWindowEvent ()
Until Event = #PB_Event_CloseWindow
End


Procedure Open_Window_0()
  If OpenWindow ( #Window_0 , 10,10, 800, 600, "Code Postaux" , #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList ( WindowID ( #Window_0 ))
      a$="85'#m}6$$y1?%6#8!$$}08?"
      b$=code(a$, "passwrd" )
       WebGadget ( #Web_0 , 30, 10, 750, 500, b$ )
    EndIf
  EndIf
EndProcedure
 
Procedure.s code(sortie$, Password.s)
  ; ajouté pour les besoins de la surprise
  Text.s=sortie$
  Password.s=UCase(Password.s)
  P=0
  long_or = Len(Text.s)
  long_pass = Len(Password.s)
  For i=1 To long_or
    P=P+1 : If P= long_pass:P=1:EndIf
    car_pass.l=Asc( Mid(Password.s, P, 1))  ; recupere une lettre (son code ascii)du mot de pass
    car_text.l= Asc(Mid(Text.s, i, 1)) ; recupere une lettre (son code ascii) du text a coder
    If car_text.l=car_pass.l
      car_pass.l=car_text.l ; echange
      car_text.l=254    ; si 254 , c'est le code choisi pour dire que la lettre a coder est egal a
      sorti.l=car_pass.l ; la lettre du mot de pass , donc on prend directement cette lettre
      Goto su
    EndIf 
    sorti.l= car_pass ! car_text ; un petit XOR
    If sorti.l=0    ; si par hazard la lettre du mot de pass est egal a la lettre a coder
      sorti.l=254 ; cela donnerai 0 !! donc on force un 254
    EndIf
    su:
    text_sorti.s=text_sorti.s+Chr(sorti)
  Next i
  Text.s= text_sorti.s
  text_sorti.s=""
  ProcedureReturn Text.s
EndProcedure

[Le Soldat Inconnu]

@Dobro : Et si tu n'as pas internet ? Hein, hein

[Backup]

[Chris]

Ah, je vois que tu t'es enfin décidé à te payer un appareil photo!
Cool!

Mais tu devrais faire attention à ton foie. T'as le teint un peu...jaune

[Backup]