FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Mais qui a le focus ?
par Klaus Aujourd'hui à 11:48

» Mac OS X sierra
par Irikte Aujourd'hui à 11:38

» Concours de Morpions
par Froggy One Aujourd'hui à 10:29

» Synedit Parameters
par Jean Claude Aujourd'hui à 10:08

» Bienvenue à Irikte
par UltraVox Aujourd'hui à 10:04

» Recherche de traductions de mots (@Klaus).
par Klaus Aujourd'hui à 9:44

» Version instantanée V 0.9.28i10 du 24/06/2017
par Yannick Hier à 22:52

» Panoramic et ses curiosités
par Jack Hier à 8:15

» Utilitaire de suppression de fichiers
par Yannick Ven 23 Juin 2017 - 23:03

» Code à vérifier SVP (Oups ! résolu)
par Jean Claude Jeu 22 Juin 2017 - 21:16

» Compilateur FBPano
par jean_debord Jeu 22 Juin 2017 - 9:56

» Bienvenue à Virtualalan !
par UltraVox Jeu 22 Juin 2017 - 9:18

» ShortName$(F) [Cloturé]
par papydall Mer 21 Juin 2017 - 16:19

» Remplacer espace par tiret dans noms des dossiers / fichiers
par papydall Mer 21 Juin 2017 - 15:27

» Menu personalisé avec icones et menu contextuel
par Laurent (Minibug) Mer 21 Juin 2017 - 12:44

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
CalendrierCalendrier

Partagez | 
 

 Des EDIT filtrés paramétrables

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Klaus

avatar

Nombre de messages : 9977
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Des EDIT filtrés paramétrables   Mer 13 Nov 2013 - 2:56

Après avoir réussi ce que je croyais impossible en Panoramic: faire une SUB intégrable par #INCLUDE, sans avoir besoin de gérer quelque chose de particulier dans le programme application, mais surtout en filtrant la saisie selon un jeu de caractères choisi pour chaque EDIT, j'ai intégré tout ça dans le fichier KGF_OBJ.bas que j'ai mis à disposition sur mon WebDav, dossier DLLs, sous-dossier KGF_SUB.

En voici une petite démo pour en montrer la portée. Pour simplifier les choses pour ce poste, j'ai extrait les procédures correspondantes à cette démo du fichier KGF_OBJ.bas et je les ai intégrées dans le source directement. Les libellés des champs indiquent ce qui est possible de saisir. Essayez de le prendre en défaut...

Code:
dim no%              : ' pour pouvoir définir les objets automatiquement
dim no_container%    : ' numéro d'objet du container

dim chiffres$ : chiffres$ = "01234567890"
dim MF$      : MF$      = "MmFf"

xAlpha(10,10,0,10,"Chiffres uniquement:")
xEditFilter(10,150,80,0,0,chiffres$)

xContainer(40,10,400,200,"Un container") : no_container% = no%

xAlpha(20,20,no_container%,10,"M,F,m,f uniquement:")
xEditFilter(20,180,30,no_container%,0,MF$)

xAlpha(50,20,no_container%,10,"Affichage uniquement:")
xEdit(50,180,100,no_container%,1)
text no%,"Coucou !"

end





' *********************************************
' *    procédures extraites de KGF_OBJ.bas    *
' *********************************************
' paramètres: (top,left,width,height,caption)
sub xContainer(t%,l%,w%,h%,c$)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : container no%
    top no%,t% : left no%,l% : width no%,w% : height no%,h%
    caption no%,c$
end_sub

' paramètres: (top,left,parent,font_size,caption)
sub xAlpha(t%,l%,p%,s%,c$)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : alpha no% : font_size no%,s%
    if p%>0 then parent no%,p%
    top no%,t% : left no%,l% : caption no%,c$
end_sub

' paramètres: (top,left,width,parent,inactive)
sub xEdit(t%,l%,w%,p%,a%)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : edit no%
    top no%,t% : left no%,l% : width no%,w%
    if p%>0 then parent no%,p%
    if a%=1 then inactive no%
end_sub

' paramètres: (top,left,width,parent,inactive,filtre)
sub xEditFilter(t%,l%,w%,p%,a%,f$)
  if f$<>""  : ' au premier appel, création de tout ce qu'il faut
    if variable("filter_list%")=0
      dim filter_list%(3),  filter_temp$, filter_n%
      dim filter_i%, filter_f$, filter_s$
      no% = no% + 1 : dlist no% : filter_list%(1) = no%  : ' liste des numéros d'objet
      no% = no% + 1 : dlist no% : filter_list%(2) = no%  : ' liste des filtres
      no% = no% + 1 : dlist no% : filter_list%(3) = no%  : ' liste des valeurs anciennes
    end_if
    if label("filter_change")=0 then label filter_change
  end_if      : ' ici, on a fini de créer tout ce qu'il faut
  if variable("no%")=0 then dim no%
  no% = no% + 1 : edit no%
  top no%,t% : left no%,l% : width no%,w% : ' créer l'objet Panoramic
  if p%>0 then parent no%,p%              : ' autre parent que form 0 ?
  if a%=1 then inactive no%              : ' le EDIT doit être inactif au début ?
  if f$<>""                            : ' si un filtre est demandé, alors
    on_change no%,filter_change        : ' on utilise l'évènement On_CHANGE
    item_add filter_list%(1),str$(no%)  : ' on ajoute le numéro d'objet dans une 1ère liste
    item_add filter_list%(2),f$        : ' on ajoute le filtre dans une 2ème liste
    item_add filter_list%(3),""        : ' on crée une ligne vide dans une 3ème liste
  end_if                                : ' fin du traitement du filtre
end_sub
filter_change:                          : ' évènement ON_CHANGE sur EDITs filtrés
  filter_temp$ = str$(number_change)    : ' prendre le numéro de l'objet
  for filter_n%=1 to count(filter_list%(1))          : ' chercher cet objet dans la liste '
    filter_s$ = item_read$(filter_list%(1),filter_n%)
    if filter_temp$=filter_s$ then exit_for          : ' est-ce que l'objet est trouvé ?
  next filter_n%                                      : ' fin de recherche
  filter_temp$ = trim$(text$(number_change))          : ' prendre le texte du EDIT
  if filter_temp$=""                                  : ' si le EDIT est vide:
    item_delete filter_list%(3),filter_n%            : ' alors vider la ligne de la 3ème liste
    item_insert filter_list%(3),filter_n%,""
    return                                            : ' on a fini
  end_if
  filter_s$ = item_read$(filter_list%(2),filter_n%)  : ' prendre le filtre
  for filter_i%=1 to len(filter_temp$)                : ' pour tous les caractères du EDIT:
    if instr(filter_s$,mid$(filter_temp$,filter_i%,1))=0    : ' est-ce que le car n'est pas dans le filtre ?
      filter_s$ = item_read$(filter_list%(3),filter_n%)    : ' alors reprendre l'état précédent
      off_change number_change                              : ' désactiver ON_CHANGE
      text number_change,item_read$(filter_list%(3),filter_n%)  : ' remplacer le contenu de l'EDIT
      on_change number_change,filter_change                : ' réactiver le ON_CHANGE
      return                                                : ' et sortir
    end_if
  next filter_i%                                      : ' fin de la boucle sur le contenu de l'EDIT
  item_delete filter_list%(3),filter_n%              : ' ici, tous les caractères sont valides,
  item_insert filter_list%(3),filter_n%,filter_temp$  : ' donc on sauvegarde le contenu de l'EDIT
  return                                              : ' ouf !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Invité
Invité



MessageSujet: Re: Des EDIT filtrés paramétrables   Mer 13 Nov 2013 - 3:03

Bien! Mais lorsqu'on écrit un nombre, et qu'on tape une lettre, le caret_position n'est pas rétabli. On se retrouve devant. Je ne pense pas que ce soit voulu.
Maintenant Sleep 
Revenir en haut Aller en bas
Klaus

avatar

Nombre de messages : 9977
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Des EDIT filtrés paramétrables   Mer 13 Nov 2013 - 3:26

Tu as raison, Cosmos70. Je n'avais pas du tout saisi cette histoire de caret_position. Voilà qui est corrigé: quelque soit l'endroit auquel on saisit un caractère rejeté, le curseur reste exactement à cet endroit, que ce soit à la fin de la saisie ou en plein milieu du texte déjà présent. Vive les critiques constructives :

Code:
dim no%              : ' pour pouvoir définir les objets automatiquement
dim no_container%    : ' numéro d'objet du container

dim chiffres$ : chiffres$ = "01234567890"
dim MF$      : MF$      = "MmFf"

xAlpha(10,10,0,10,"Chiffres uniquement:")
xEditFilter(10,150,80,0,0,chiffres$)

xContainer(40,10,400,200,"Un container") : no_container% = no%

xAlpha(20,20,no_container%,10,"M,F,m,f uniquement:")
xEditFilter(20,180,30,no_container%,0,MF$)

xAlpha(50,20,no_container%,10,"Affichage uniquement:")
xEdit(50,180,100,no_container%,1)
text no%,"Coucou !"

end





' *********************************************
' *    procédures extraites de KGF_OBJ.bas    *
' *********************************************
' paramètres: (top,left,width,height,caption)
sub xContainer(t%,l%,w%,h%,c$)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : container no%
    top no%,t% : left no%,l% : width no%,w% : height no%,h%
    caption no%,c$
end_sub

' paramètres: (top,left,parent,font_size,caption)
sub xAlpha(t%,l%,p%,s%,c$)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : alpha no% : font_size no%,s%
    if p%>0 then parent no%,p%
    top no%,t% : left no%,l% : caption no%,c$
end_sub

' paramètres: (top,left,width,parent,inactive)
sub xEdit(t%,l%,w%,p%,a%)
  if variable("no%")=0 then dim no%
  no% = no% + 1 : edit no%
    top no%,t% : left no%,l% : width no%,w%
    if p%>0 then parent no%,p%
    if a%=1 then inactive no%
end_sub

' paramètres: (top,left,width,parent,inactive,filtre)
sub xEditFilter(t%,l%,w%,p%,a%,f$)
  if f$<>""  : ' au premier appel, création de tout ce qu'il faut
    if variable("filter_list%")=0
      dim filter_list%(3),  filter_temp$, filter_n%
      dim filter_i%, filter_f$, filter_s$
      no% = no% + 1 : dlist no% : filter_list%(1) = no%  : ' liste des numéros d'objet
      no% = no% + 1 : dlist no% : filter_list%(2) = no%  : ' liste des filtres
      no% = no% + 1 : dlist no% : filter_list%(3) = no%  : ' liste des valeurs anciennes
    end_if
    if label("filter_change")=0 then label filter_change
  end_if      : ' ici, on a fini de créer tout ce qu'il faut
  if variable("no%")=0 then dim no%
  no% = no% + 1 : edit no%
  top no%,t% : left no%,l% : width no%,w% : ' créer l'objet Panoramic
  if p%>0 then parent no%,p%              : ' autre parent que form 0 ?
  if a%=1 then inactive no%              : ' le EDIT doit être inactif au début ?
  if f$<>""                            : ' si un filtre est demandé, alors
    on_change no%,filter_change        : ' on utilise l'évènement On_CHANGE
    item_add filter_list%(1),str$(no%)  : ' on ajoute le numéro d'objet dans une 1ère liste
    item_add filter_list%(2),f$        : ' on ajoute le filtre dans une 2ème liste
    item_add filter_list%(3),""        : ' on crée une ligne vide dans une 3ème liste
  end_if                                : ' fin du traitement du filtre
end_sub
filter_change:                          : ' évènement ON_CHANGE sur EDITs filtrés
  filter_temp$ = str$(number_change)    : ' prendre le numéro de l'objet
  for filter_n%=1 to count(filter_list%(1))          : ' chercher cet objet dans la liste '
    filter_s$ = item_read$(filter_list%(1),filter_n%)
    if filter_temp$=filter_s$ then exit_for          : ' est-ce que l'objet est trouvé ?
  next filter_n%                                      : ' fin de recherche
  filter_temp$ = trim$(text$(number_change))          : ' prendre le texte du EDIT
  if filter_temp$=""                                  : ' si le EDIT est vide:
    item_delete filter_list%(3),filter_n%            : ' alors vider la ligne de la 3ème liste
    item_insert filter_list%(3),filter_n%,""
    return                                            : ' on a fini
  end_if
  filter_s$ = item_read$(filter_list%(2),filter_n%)  : ' prendre le filtre
  for filter_i%=1 to len(filter_temp$)                : ' pour tous les caractères du EDIT:
    if instr(filter_s$,mid$(filter_temp$,filter_i%,1))=0    : ' est-ce que le car n'est pas dans le filtre ?
      filter_s$ = item_read$(filter_list%(3),filter_n%)    : ' alors reprendre l'état précédent
      off_change number_change                              : ' désactiver ON_CHANGE
      text number_change,item_read$(filter_list%(3),filter_n%)  : ' remplacer le contenu de l'EDIT
      caret_position number_change,filter_i%-1             : ' restaurer la position du curseur
      on_change number_change,filter_change              : ' réactiver le ON_CHANGE
      return                                                : ' et sortir
    end_if
  next filter_i%                                            : ' fin de la boucle sur le contenu de l'EDIT
  item_delete filter_list%(3),filter_n%              : ' ici, tous les caractères sont valides,
  item_insert filter_list%(3),filter_n%,filter_temp$  : ' donc on sauvegarde le contenu de l'EDIT
  return                                              : ' ouf !
EDIT

Correction faite selon la remarque de Papydall !


Dernière édition par Klaus le Mer 13 Nov 2013 - 11:00, édité 2 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
papydall

avatar

Nombre de messages : 5385
Age : 66
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Des EDIT filtrés paramétrables   Mer 13 Nov 2013 - 4:32

Salut Klaus
Très bonne idée !
Dans ton dernier code, lorsqu’on tape une lettre au lieu d’un chiffre (ou le contraire, un chiffre au lieu d’une lettre), on obtient un message d’erreur (29)Not correct arithmetic expression : line 94
En supprimant purement et simplement cette ligne, tout entre en ordre.

Et maintenant si on envisage la question dans l’autre sens : Afficher n’importe quel caractères sauf ceux du filtre ?
Par exemple accepter tout caractère qui N’EST PAS une voyelle accentuée (é,è).

PS :
CARET_POSITION N,P est une commande et non une fonction, de sorte que l’on ne peut pas faire : filter_i% = caret_position number_change lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/ En ligne
bignono

avatar

Nombre de messages : 1079
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Des EDIT filtrés paramétrables   Mer 13 Nov 2013 - 9:20

Bonjour à tous! Smile 
Pour filtrer des caractères dans un edit, moi je ferais comme ça. Après, je pense que c'est facilement adaptable avec une sub dans laquelle il suffit de passer le numéro d'edit et la liste des caractères à filtrer.
Code:
label edite
dim L$,R$,list$,curs
   list$="0123456789.+-*/=()":' liste des caractères autorisés dans l'edit
   edit 1:set_focus 1:on_change 1,edite
end

edite:
   L$=""
   if len(text$(1))>1 then L$=left$(text$(1),len(text$(1))-1)
   R$=right$(text$(1),1)
   curs=instr(list$,R$)
   if curs=0 then text 1,L$:caret_position 1,len(text$(1))
return
A+ Wink Wink Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 9977
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Des EDIT filtrés paramétrables   Mer 13 Nov 2013 - 11:04

Merci, Papydall, pour le test. J'ai fait la correction dans le source ci-dessus, et dans KGF_SUB sur mon WebDav.

Ceci dit, curieusement, je n'ai pas cette erreur dont tu parles, en utilisant la version V0.9.25i4 . La ligne semble tout simplement ignorée. Et en fait, elle est inutile puisque filter_i% contient déjà justement la position du caractère en erreur - quel étoutdi je suis !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
bignono

avatar

Nombre de messages : 1079
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Des EDIT filtrés paramétrables   Mer 13 Nov 2013 - 15:03

Bon, je me suis aperçu que l'on pouvait introduire un caractère interdit si on bougeait le curseur de place avec les flèches gauche ou droite ou en cliquant n'importe où dans l'édit. Du coup, j'ai revu ma copie!
Mais ça reste à perfectionner quand-même.
Code:
label edite
dim C$,L$,R$,V$,q,i,n%
   V$="0123456789.+-*/=()":' liste des caractères autorisés dans l'edit
   n%=1
   edit n%:set_focus n%:on_change n%,edite
end

edite:
   L$="":R$=""
   for i=1 to len(text$(n%))
      C$=mid$(text$(n%),i,1)
      q=instr(V$,C$)
      if q=0 then exit_for
   next i
   L$=left$(text$(n%),i-1)
   if len(text$(n%))>i then R$=right$(text$(n%),len(text$(n%))-i)
   text 1,L$+R$:caret_position 1,len(text$(n%))
return

A+ Wink Wink Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 9977
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Des EDIT filtrés paramétrables   Sam 16 Nov 2013 - 1:03

@Papydall (suite à ton post du 13/11/2013 à 2h32)

Les notes de Jack concernant la version 0.9.25i4 contiennent ceci:
Citation :
CARET_POSITION(N) : retourne la position du curseur (en caractères) de l'objet système numéro N
Attention, pour le moment, cette fonction n'est valable que pour un EDIT
Donc, contrairement à ce que tu dis:
Citation :
PS :
CARET_POSITION N,P est une commande et non une fonction, de sorte que l’on ne peut pas faire : filter_i% = caret_position number_change lol!
cette fonction existe bien et on peut l'utiliser !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
papydall

avatar

Nombre de messages : 5385
Age : 66
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Des EDIT filtrés paramétrables   Sam 16 Nov 2013 - 1:19

Salut Klaus

Ce que tu as écrit est juste.
Je m’étais induis en erreur parce que moi j’utilise encore la version 25i2 qui ne reconnait pas cette fonction.
Mes excuses !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/ En ligne
Contenu sponsorisé




MessageSujet: Re: Des EDIT filtrés paramétrables   

Revenir en haut Aller en bas
 
Des EDIT filtrés paramétrables
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Objet EDIT avec saisie filtrée
» Opération sur objet EDIT
» [Résolu] Paramétrer historique de navigation
» Paramétrage d'un Oregon en rando pédestre
» Eviter de voir Edit multiple ( edité par ....x )

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: