اذهب الي المحتوي
أوفيسنا

المسلم العربي

02 الأعضاء
  • Posts

    90
  • تاريخ الانضمام

  • تاريخ اخر زياره

مشاركات المكتوبه بواسطه المسلم العربي

  1. السلام عليكم ورحمة االله تعالى وبركاته.

    هذا الكود هو  لحساب مفتاح رقم الضمان الاجتماعي (CLE )
    وذلك بلغة windev.

    و أريد تغيير هذه البرمجة إلى لغة VBA 

    ساعدوني أرجوك يا خبراء البرمجة




    ( Calculer la Clé de N° de sécurité Sociale (Algérie//
    Procédure Windev // 

    (PROCEDURE CleSS(nSS,nCle
    sNuméroSS est une chaîne = nSS
    nLongueur est un entier = 0
    nIndice est un entier = 0
    nCheck est un entier = 0
    nNum est un entier = 0

    bVerif 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éroSS
    Tester si chaque caractère est bien un chiffre// 
    POUR nIndice = 1 A nTaille
    Le 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 
    FIN


    Dé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 
    FIN

    xxxxx//
    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 
    FIN

    99 - la somme totale = la clé SS//
    SI bVerif = Faux OU nCheck > 99 ALORS
    "nCle = "ER 
    SINON
    nCle = 99 - nCheck 

    FIN

    و شكرا لمنتدانا الغالي تعلمنا منكم الكثير 

     

  2. السلام عليكم اخوتي سؤالي هو كيفية تحويل UserForm إلى برنامج تنفيذي EXE
    و لدي مثلا هذاالبرنامج جاهز و هو لا يحتاج أوراق المصنف للعمل يعني لا داعي لفتح برنامج الاكسل بتاتا فهو يعمل بالأكواد فقط لذلك تحويله إلى برنامج مباشر تنفيذي بصيغة exe يكون افضل أرجو المساعدة 
     

    Image1.png

    • Thanks 1
  3. أتمنى مساعدتي لدي برنامج لحساب مفتاح الحساب البريدي و البنكي 
    المهم المفاتيح دائماً أصغر من 100 يعني من 99 حتى 01
    و المشكل أنه من 1 إلى 9 يجب كتابتها على الشكل 
    01    02   03   04   05  06   07   08  09
    و لدي يوزرفورم لحساب ذلك لكن لا تظهر الأعداد كما أريد 
    و لذلك أريد كود لإظهار الصفر شمال العدد لما يكون المفتاح أصغر من 10 و شكرا

     

    أوفيسنا صفر شمال.png

  4. والله العظيم كيف أشكرك لا استطيع شكرك لكنني ليس بمعنى أريد برنامج تنفيذي و لكن أريد ظهور اليوزفورم مباشرة بعد اقلاع الاكسل 
    و أردت الأكواد كيف اصمم برنامجي و أتعلم في نفس الوقت و لذلك أشكرك و أتمنى أن تساعدني في تطويره لأنه الحساب البريدي الجزائري له مفتاح كما حسابناه في هذا البرنامج و له مفتاح أخر اسمه RIP  له طريقة حسابية أود تطويرها لبرنامج و شكرا أخي  ياسر العربي 

  5. الشكر لك سيدي و الاحترام و التقدير لكل أعضاء و فريق عمل موقع أوفيسنا من المواقع العربية المفيدة جدا 

    لكن سيدي التحذير يظهر لما تكون واقف على خلية القسم فقط و هذا صعب أنا ما طلبت هو ان يظهر الخطأ دوما ما عدا هناك قسم واحد على الأقل خاطىء و غير مكتوب بالشكل المطلوب مثل الاقسام المعنية أرجو إن أمكن النظر في ذلك و شكرا

  6. بعد إذنك واعرف أنني أكثرت عليك و شكرا جزيلا 
    الخلية   التي بها اللون الأحمر أريدها تصبح حمراء فقط عندك كتابة قسم خطأ كتنبيه يعني تنسيق شرطي مثلا
    و لما يكونو الاقسام صح او فارغة تكون بيضاء 

    Capture.PNG

×
×
  • اضف...

Important Information