المسلم العربي قام بنشر يوليو 23, 2017 قام بنشر يوليو 23, 2017 السلام عليكم ورحمة االله تعالى وبركاته. هذا الكود هو لحساب مفتاح رقم الضمان الاجتماعي (CLE ) وذلك بلغة windev. و أريد تغيير هذه البرمجة إلى لغة VBA ساعدوني أرجوك يا خبراء البرمجة ( Calculer la Clé de N° de sécurité Sociale (Algérie// Procédure Windev // (PROCEDURE CleSS(nSS,nClesNuméroSS est une chaîne = nSSnLongueur est un entier = 0nIndice est un entier = 0nCheck est un entier = 0nNum est un entier = 0bVerif est un booléen = Vrai Pour vérifier la taille du numéro SS// (nLongueur = Taille(sNuméroSS ? La taille est - elle correcte// SI nLongueur = 0 OU nLongueur <> 10 ALORS bVerif = Faux FIN " Le numéro ne contient que des "0// SI sNuméroSS = Répète("0",10) ALORS bVerif = Faux FIN (nTaille est un entier = Taille(sNuméroSSTester si chaque caractère est bien un chiffre// POUR nIndice = 1 A nTailleLe numéro contient un "0" ou un caractère// SI Val(sNuméroSS[[nIndice]]) = 0 ET sNuméroSS[[nIndice]] <> "0" ALORS ("Info("Veuillez saisir un numéro valide","Seulement les chiffres sont autorisés bVerif = Faux FIN FINDéterminer la validité du code selon l'algorithme de la clé de sécurité sociale// Comptage de la première série de nombres// XXXXXXXXXX//Somme de cette série pour obtenir eCheck// POUR nIndice = nLongueur-1 A 1 PAS -2 ([[nNum = Val(sNuméroSS[[nIndice A nIndice nCheck += nNum*2 FINxxxxx// Comptage de la seconde série de nombres// Somme de cette série pour obtenir eCheck// POUR nIndice = nLongueur A 2 PAS -2 ([[nNum = Val(sNuméroSS[[nIndice A nIndice nCheck += nNum FIN99 - la somme totale = la clé SS// SI bVerif = Faux OU nCheck > 99 ALORS"nCle = "ER SINONnCle = 99 - nCheck FINو شكرا لمنتدانا الغالي تعلمنا منكم الكثير
المسلم العربي قام بنشر يوليو 25, 2017 الكاتب قام بنشر يوليو 25, 2017 أتمنى مساعدتي لكل عباقرة البرمجة
ياسر خليل أبو البراء قام بنشر يوليو 25, 2017 قام بنشر يوليو 25, 2017 الأفضل أخي الكريم أن تقوم بشرح المعطيات لأن اللغة المكتوب بها الكود قد لا يعرفها الأعضاء .. لذا قمت بالتوضيح والتفصيل لكيفية حساب المفتاح مع وضع بعض الأمثلة لتتضح الصورة وإن شاء الله تجد استجابة من إخوانك بالمنتدى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.