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
» double guillemets "" dans un EDIT
par Marc 37 Hier à 23:43

» mise a jour calculatrice
par Jean Claude Hier à 22:48

» KGF_dll - nouvelles versions
par Klaus Hier à 20:32

» Compilateur FBPano
par jean_debord Hier à 11:07

» Documentation de KGF
par Klaus Lun 20 Nov 2017 - 22:52

» Zoom sur une portion d'écran
par JL35 Lun 20 Nov 2017 - 21:51

» Recherche d'une expression dans un source
par Marc 37 Lun 20 Nov 2017 - 13:08

» Tracer une grille n'importe où sur l'écran
par JL35 Dim 19 Nov 2017 - 22:14

» TourD Version 2
par Klaus Sam 18 Nov 2017 - 23:58

» La métamatière et le peuple
par JL35 Ven 17 Nov 2017 - 21:18

» Capture d'une zone de l'écran total
par JL35 Ven 17 Nov 2017 - 18:41

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 17 Nov 2017 - 11:49

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

» Panoramic et la reconnaissance vocale.
par papydall Jeu 16 Nov 2017 - 3:45

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
CalendrierCalendrier

Partagez | 
 

 Clé de contrôle du numéro SS

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



Nombre de messages : 5992
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Clé de contrôle du numéro SS   Dim 24 Nov 2013 - 16:36

Un petit (tout petit) programme sans grand intérêt, c'est pour ça que je le mets ici, pour calculer la clé de contrôle du numéro de sécurité sociale (les 2 chiffres qui suivent) ) à partir de ce numéro à 13 chiffres:
Code:
' clé de contrôle du numéro SS à partir des 13 chiffres
LABEL Exec
DIM v, q, r
WIDTH 0,210: HEIGHT 0,90: BORDER_SMALL 0: COLOR 0,180,255,255
CAPTION 0,"NB  DE  CONTRÔLE  DU   N°  SS"
ALPHA 1: CAPTION 1,"N° SS:"+CHR$(10)+"(13 ch.)"
EDIT 2: TOP 2,2: LEFT 2,50: WIDTH 2,100: COLOR 2,255,255,0
BUTTON 3: TOP 3,2: LEFT 3,LEFT(2)+WIDTH(2)+5: WIDTH 3,30: HEIGHT 3,20
CAPTION 3,"OK": ON_CLICK 3,Exec
ALPHA 4: TOP 4,32: CAPTION 4,"Nombre de contrôle:"
EDIT 5: TOP 5,30: LEFT 5,120: WIDTH 5,30: COLOR 5,255,255,0
END
Exec:
IF LEN(TEXT$(2))<>13 THEN MESSAGE "N° incorrect": RETURN
v = VAL(TEXT$(2)): q = INT(v/97): r = v-q*97
TEXT 5,STR$(97-r)
RETURN
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Clé de contrôle du numéro SS   Dim 24 Nov 2013 - 18:00

Salut JL35.

Les clés permettent d’ouvrir des serrures, n’est-ce-pas ?
Et si la clé est bonne mais la serrure ne l’est pas, comment faire ?
Bon, Ok, c’est une mauvaise plaisanterie.
Je m’explique :
Ton programme permet  de calculer la clé  du N° de Sécurité Sociale.
Cette clé est sensée détecter les éventuelles  erreurs dans la saisie du N°.
Or ton programme ne détecte pas ces erreurs, c’est qui fait que tel qu’il est, il n’a pas beaucoup d’intérêt.
Exemple : entrer comme N° 0000000000000 ou 1111111111111.
Le programme affiche bien une clé, mais il est évident que les N° saisis sont erronés.



« Le numéro de sécurité sociale de chacun est composé de quinze chiffres. Les deux derniers forment une clé de deux chiffres.
Le premier donne le sexe (1 pour masculin, 2 pour féminin), les deux suivants l'année de naissance (2 derniers chiffres du millésime), puis le mois (sur 2 chiffres : février donne 02), le numéro du département (99 pour l'étranger, 2A et 2B pour la Corse : des règles spécifiques sont utilisées pour calculer la clé en Corse), celui de la commune (3 chiffres) enfin le numéro d'ordre d'inscription sur le registre d'état civil (3 chiffres).
Les deux derniers constituent la clé de vérification. Celle-ci est calculée à partir du nombre formé par les treize premiers chiffres. Si celui-ci a pour reste n dans la division par 97 alors la clé sera 97 - n. »
Regardez ici : http://therese.eveilleau.pagesperso-orange.fr/pages/truc_mat/textes/cles.htm

Donc, on peut (TU PEUX, si tu veux) inclure dans le programme les tests nécessaires pour que la saisie du N° respecte les règles.

Cela ne m’empêche pas de te remercier pour le partage.
Si je pinaille parfois (plutôt souvent) c’est pour interdire à celui qui, (comme moi) cherche à mettre en échec un programme en saisissant n’importe quoi !
Le concepteur du programme est à mon sens le responsable d’une saisie fantaisiste de l’utilisateur.

lol! lol! lol! 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

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

MessageSujet: Re: Clé de contrôle du numéro SS   Dim 24 Nov 2013 - 19:35

J’ai ajouté des tests pour le contrôle de la saisie.

Code:
' clé de contrôle du numéro SS à partir des 13 chiffres
LABEL Exec
DIM v, q, r
dim n$,sexe$,annee$,mois$,departement$,commune$,ordre$ : ' <--- Papydall
WIDTH 0,210: HEIGHT 0,90: BORDER_SMALL 0: COLOR 0,180,255,255
CAPTION 0,"NB  DE  CONTRÔLE  DU   N°  SS"
ALPHA 1: CAPTION 1,"N° SS:"+CHR$(10)+"(13 ch.)"
EDIT 2: TOP 2,2: LEFT 2,50: WIDTH 2,100: COLOR 2,255,255,0 : set_focus 2 : ' Papydall
BUTTON 3: TOP 3,2: LEFT 3,LEFT(2)+WIDTH(2)+5: WIDTH 3,30: HEIGHT 3,20
CAPTION 3,"OK": ON_CLICK 3,Exec
ALPHA 4: TOP 4,32: CAPTION 4,"Nombre de contrôle:"
EDIT 5: TOP 5,30: LEFT 5,120: WIDTH 5,30: COLOR 5,255,255,0
END
Exec:

IF LEN(TEXT$(2))<>13 THEN MESSAGE "N° incorrect": RETURN

' Modif de Papydall
n$ = text$(2)
sexe$ = mid$(n$,1,1): annee$ = mid$(n$,2,2) : mois$ = mid$(n$,4,2)
departement$ = mid$(n$,6,2) : commune$ = mid$(n$,8,3) : ordre$ = mid$(n$,11,3)

if sexe$ <> "1" and sexe$ <> "2"
   message "Erreur sur le sexe : 1er chiffre(1 : masculin; 2 : féminin) " : return
end_if

if numeric(annee$) = 0
   message "Erreur sur l'année de naissance : 2ème et 3_eme chiffres (numérique)" : return
end_if

if numeric(mois$) = 0
   message "Erreur sur le mois : 4ème et 5ème chiffres (entier > 0 et < 13)" : return
else
   if (val(mois$) < 1) or (val(mois$) > 12)
      message "Erreur sur le mois : 4ème et 5ème chiffres (entier > 0 et < 13)" : return
   end_if
end_if

if numeric(departement$) = 0
   message "Erreur sur le département : 6ème et 7ème chiffres (numérique)" : return
end_if

if numeric(commune$) = 0
   message "Erreur sur la commune : 8ème, 9ème et 10ème chiffres (numérique)" : return
end_if

if numeric(ordre$) = 0
   message "Erreur sur le N° d'ordre : 11ème, 12ème et 13ème chiffres (numérique)" : return
end_if
' Fin de la modif de Papydall

v = VAL(TEXT$(2)): q = INT(v/97): r = v-q*97
TEXT 5,STR$(97-r)
RETURN
PS : J’ai remarqué qu’une certaine erreur de saisie n’est pas prise en compte.
En effet, la fonction NUMERIC(V$) considère le caractère e ou E comme valeur numérique.
E ou e est pris pour la notation en puissance de 10
Si E ou e ne sont suivis d’aucun nombre, il s’agit comme si c’était 0
Code:
print val("1e")  : ' <--- donne 1
print val("2E")  : ' <--- donne 2
print val("1e5") : ' <--- donne 100000
EDIT : Que celui qui veuille corriger cette erreur se met à torturer son clavier !
Moi, je m'échappe!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
bignono

avatar

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

MessageSujet: Re: Clé de contrôle du numéro SS   Dim 24 Nov 2013 - 20:21

Pour éviter les caractères alphabétiques et n'avoir que des chiffres, je ferais plutôt comme ça:
Code:
' clé de contrôle du numéro SS à partir des 13 chiffres
LABEL Exec , Edite
DIM v, q, r , C$ , L$ , R$ , V$ , P , i
V$="0123456789":' liste des caractères autorisés dans l'edit
WIDTH 0,210: HEIGHT 0,90: BORDER_SMALL 0: COLOR 0,180,255,255
CAPTION 0,"NB  DE  CONTRÔLE  DU   N°  SS"
ALPHA 1: CAPTION 1,"N° SS:"+CHR$(10)+"(13 ch.)"
EDIT 2: TOP 2,2: LEFT 2,50: WIDTH 2,100: COLOR 2,255,255,0:ON_CHANGE 2,Edite
BUTTON 3: TOP 3,2: LEFT 3,LEFT(2)+WIDTH(2)+5: WIDTH 3,30: HEIGHT 3,20
CAPTION 3,"OK": ON_CLICK 3,Exec
ALPHA 4: TOP 4,32: CAPTION 4,"Nombre de contrôle:"
EDIT 5: TOP 5,30: LEFT 5,120: WIDTH 5,30: COLOR 5,255,255,0
END

Exec:
IF LEN(TEXT$(2))<>13 THEN MESSAGE "N° incorrect": RETURN
v = VAL(TEXT$(2)): q = INT(v/97): r = v-q*97
TEXT 5,STR$(97-r)
RETURN

Edite:
   L$="":R$=""
   FOR i=1 TO LEN(TEXT$(2))
      C$=MID$(TEXT$(2),i,1)
      P=INSTR(V$,C$)
      if P=0 THEN EXIT_FOR
   NEXT i
   L$=LEFT$(TEXT$(2),i-1)
   if LEN(TEXT$(2))>i THEN R$=RIGHT$(TEXT$(2),LEN(TEXT$(2))-i)
   TEXT 2,L$+R$:CARET_POSITION 2,LEN(TEXT$(2))
RETURN
A+ Wink Wink Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5992
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Clé de contrôle du numéro SS   Dim 24 Nov 2013 - 20:41

Certes, vous avez raison, mais le but était uniquement de montrer l'algorithme de calcul de la clé à partir du numéro, et non pas de valider ce numéro, il est bien évident que si on rentre un mauvais numéro on aura une mauvaise clé !
Et aucun contrôle ne m'empêchera de saisir un numéro erroné, sexe, département, commune, etc..., la clé correspondra au numéro saisi, c'était le seul but.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Clé de contrôle du numéro SS   Dim 24 Nov 2013 - 23:55

Réflexion faite, puisque la clé est égale à 97 – le reste de la division entière du numéro par 97, on peut la calculer simplement par :
Code:
 text 5, str$(97-mod(v,97))
sans passer par q et r.
Mais ce n’est qu’un détail ! Laughing 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 5992
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Clé de contrôle du numéro SS   Lun 25 Nov 2013 - 0:32

Bien joué papydall ! finalement mon programme se résume à une seule ligne !
C'est un détail, certes, mais le détail qui fait la différence entre le programmeur génial et le programmeur besogneux !
Je plaisante, mais imagine d'en faire un exécutable qui va peser 1,4 M pour deux ou trois lignes de code...
vivement le compilateur.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Clé de contrôle du numéro SS   Lun 25 Nov 2013 - 0:56

JL35 a écrit:
Bien joué papydall ! finalement mon programme se résume à une seule ligne !
Donc c’est un programme optimisé.Laughing 
Sans doute, il ne pèsera pas lourd dans le compilateur, mais attendons jusqu’à demain pour voir !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 5992
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Clé de contrôle du numéro SS   Lun 25 Nov 2013 - 1:04

J'ai hâte d'essayer ! surtout pour voir les volumes résultants. Et sans doute aussi la rapidité d'exécution.

J'espère que je ne vais pas en rêver cette nuit, en attendant... bonne nuit ! Sleep 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Clé de contrôle du numéro SS   

Revenir en haut Aller en bas
 
Clé de contrôle du numéro SS
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Affichier une infobulle au pointage d'un contrôle
» Démarrage rapide-Etape5:Contrôle automatique des trains
» Contrôler des objets par la pensée, c'est possible
» [LAG II ph 2 Estate] ESP à Contrôler
» voyant contrôle esp et antipollution

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Présentation et bavardage-
Sauter vers: