النهر العطشان

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

هل هنالك موقع او طريقة استطيع من خلالها معرفة خطوات اي برنامج بلغة c++

بحيث عند كتابة اي برنامج بلغة c++ يقوم بشرحة خطوه بخطوه لفهم خطوات عمل البرنامج

جعلها الله في ميزان حسناتكم

السلام عليكم

هذا برنام يحول الارقام من النظام العشري الى الرقام في النظام الثنائي ثم الى النظام الثماني وم ثم الى النظام السادس عشر حيث تظهر خيارات التحويل على الشاشة باستخدام دالة ال switch

#include <iostream>
#include <string>

std::string decimalToBinary(int decimal) {
    std::string binary = "";
    while (decimal > 0) {
        binary = std::to_string(decimal % 2) + binary;
        decimal /= 2;
    }
    return binary;
}

std::string decimalToOctal(int decimal) {
    std::string octal = "";
    while (decimal > 0) {
        octal = std::to_string(decimal % 8) + octal;
        decimal /= 8;
    }
    return octal;
}

std::string decimalToHexadecimal(int decimal) {
    std::string hex = "";
    while (decimal > 0) {
        int remainder = decimal % 16;
        if (remainder < 10) {
            hex = char(remainder + 48) + hex;
        } else {
            hex = char(remainder + 55) + hex;
        }
        decimal /= 16;
    }
    return hex;
}

int main() {
    int decimal;
    std::cout << "Enter a decimal number: ";
    std::cin >> decimal;

    int choice;
    std::cout << "Choose conversion:\n";
    std::cout << "1. Decimal to Binary\n";
    std::cout << "2. Decimal to Octal\n";
    std::cout << "3. Decimal to Hexadecimal\n";
    std::cout << "Enter your choice: ";
    std::cin >> choice;

    std::string result;
    switch(choice) {
        case 1:
            result = decimalToBinary(decimal);
            std::cout << "Binary: " << result << std::endl;
            break;
        case 2:
            result = decimalToOctal(decimal);
            std::cout << "Octal: " << result << std::endl;
            break;
        case 3:
            result = decimalToHexadecimal(decimal);
            std::cout << "Hexadecimal: " << result << std::endl;
            break;
        default:
            std::cout << "Invalid choice." << std::endl;
    }

    return 0;
}

البرنامج يعمل بصورة صحيحة 

المطلوب هو شرح طريقة عمل الدالة

جزاكم الله كل خير

5 ساعات مضت, احمد الفلاحجي said:

اتفضل ان شاء الله يكون ما تريد

السلام عليكم  احمد الفلاحجي استاذنا الفاضل

وهو المطلوب جعلها الله في ميزان حسناتك

وشكرا 

3 ساعات مضت, احمد الفلاحجي said:

اتفضل التعديل على تعديلك لكود اخى واستاذى @kanory جزاه الله خيرا

السلام عليكم استاذي الفاضل احمد الفلاحجي المحترم

شكر وتقدير لحضرتك والى الاستاذ الفاضل kanory المحترمين

جعلها الله في ميزان حسناتكم .

وهو المطلوب .

ولكن هل يمكن :

1-هل يمكن ان تتوحد الرسائل التي تنبهني ان هنالك حقول فارغه برسالة واحده فقط بكل الحقول الفارغة للسجل الواحد ؟

2-وهل يمكنني ان احدد اي حقل يعني اريد ان اختار حقل معين مثلا اختار حقلين فقط (الاسم ورقم الهاتف) وتتغاضى عن بقية الحقول الفارغة من هذا الكود باسم السجلات التي اريدها ؟

    Set rst = CurrentDb.OpenRecordset("SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & _
                                        "FROM Students " & _
                                        "WHERE (((Students.ID)=" & [Forms]![Form]![Text0] & "));")
 

وشكرا

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

شكر وتقدير الى كل الاساتذه الكرام ممن اتحفونا بهندسة برمجية جميلة ورائعة جعلها الله في ميزان حسناتهم

شكر وتقدير الى الاستاذ kanory المحترم

شكر وتقدير الى الاستاذ احمد الفلاحجي المحترم

شكر وتقدير الى الاستاذ مبرمج سابق المحترم

شكر وتقدير الى الاستاذ AbuuAhmed المحترم

من لم يشكر المخلوق لم يشكر الخالق

بالنسبة لكود استاذنا الكبير kanory لدي سؤال ؟

قمت بتغيير قليلا من الكود الذي تفضلت به واخذت منه فقط الرساله التي تظهر اسم الحقل الفارغ لكل سجل بعد كتابة رقم السجل في المربع للفورم .

سؤالي عندما يكون هنالك اكثر من حقل فارغ في السجل فأن الرسالة تعلمني فقط بحقل واحد !

هل يمكن التعديل عليها بحيث تظهر لي رساله اسم كل الحقول الفارغة اذا كان هنالك اكثر من حقل فارغ ؟؟؟

وكما في الملف المرفق

exap 3.accdb

2 ساعات مضت, مبرمج سابق said:

على كل حال اعتبر هذا الرد رفع للموضوع لعلك تجد ما تريد

تحياتي

شكرا اخي على الاجابة جعلها الله في ميزان حسناتك

ننتظر من الاساتذة الخبراء في الموقع على اعطائنا حل آخر للموضع وان امكن بالكود المستخدم في عملية نسخ سجل من جدول الى اخر المرفق بالملف اعلاه

وشكرا

8 ساعات مضت, مبرمج سابق said:

عم اخي وان كنت افضل ان يكون الحل مقدم من احد اساتذة الموقع او الخبراء الافاضل

شكرا اخي على الاجابة والطريقة صحيحة ولو ان كود نقل السجل ليس هو في المثال المرفق من قبلي .

كنت اتمنى انا ايظا ان يشاركنا احد الاساتذة الكرام من الخبراء في هذا الموقع المحترم وبفكره اخرى وعلى مثالي المرفق .

باظهار رسالة للحقل الفارغ والتعديل علية .

مع جزيل الشكر والامتنان

Example.accdb

34 دقائق مضت, مبرمج سابق said:

عم ممكن عمل ذلك والفكرة تتلخص في عمل كود يبحث في البداية برقم الطالب الذي نرغب نقل بياناته هنا نستخدم مصدر السجلات Recordset

ثم نعمل حلقة باستخدام For Each تمر على كافة حقول السجل المطلوب نقله ⬇️

For Each fld In rst.Fields
If IsNull(fld.Value) Then

اي في حالة وجود اي حقل فارغ نفذ الشرط

وجواب الشرط يكون فتح نموذج الطالب وعلى نفس السجل الحالي لنقوم باستكمال الحقل او الحقول الفارغة

DoCmd.OpenForm "frm_Stud", , , "[id]=" & [Text0]

اي اننا نعمل نموذج يفتح عند تحقق وجود حقول فارغة واذا كان لديك مسبقا نموذج خاص بالطلاب فلادعي للنموذج الجديد

اما في حالة عدم وجود حقول فارغة فيتم نقل السجل للجدول الاخر سواء عن طريق استعلام او عن طريق مصدر السجلات

ونتوقف قليلا وندع الامر لاحد الاساتذة ربما لديه فكرة افضل

تحياتي

 السلام عليكم استاذ مبرمج سابق على المداخلة والاجابة

ممكن توضيح بمثال للملف المرفق

السلام عليكم

احتاج الى رسالة تنبيه ان هنالك حقل فارغ او اكثر عند نقل سجل من جدول الى جدول ثاني ضمن البرنامج وهل يمكن ملئ الحقل الفارغ بعد اعلامي

وكما في البرنامج المرفق .

علما ان البرنامج قد حصلت عليه من هذا الموقع ومن احد الاسائذة الكرام .

وشكرا

Example.accdb

4 ساعات مضت, احمد الفلاحجي said:

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

اطلع ع المثال ربما يفى بالغرض ان لم يكن كذلك

فاطلع عالموضوع الذى اشار اليك به اخى واستاذى العزيز @kanory

السلام عليكم احمد الفلاحجي شكرا على الاجابة 

نعم يفي بالغرض وشكرا على الاجابة

جعلها الله في ميزان حسناتك

12 ساعات مضت, عبد الله قدور said:

السلام عليكم

اخي الكريم

في المرفق تجد طريقة معتمدة في معظم برامج المحاسبة وهي الية اختيار العملة ، حيث تضع جدول للعملات فيه اسم العملة واجزاء العملة وسعر الصرف

وفي النموذج تضع مربع تحرير وسرد وتربطه في الجدول ومن خلالها تختار العملة

هذه الطريقة تتيح لك اضافة اكثر من عملة في اي وقت تريد

شكرا استاذ عبد الله قدور على الاجابة 

لكن ما احتاجه ليس كما تفضلت حضرتك مشكورا 

حيث احتاج في برنامجي الى اختيار اكثر من مادة بطريقة برنامجي

السلام عليكم

شكرا استاذ  kanory على الاجابة .

بحثت في المنتدى ولم اجد موضوع مشابه .

السلام عليكم

يرجى التعديل على الكود بالملف المرفق بحيث عند الضغط على زر نوع العملة يعطيني خيارين للعملة اما دينار او جنيه 

وشكرا

example.mdb

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

شكرا استاذنا الفاضل husamwahab جعلها الله في ميزان حسناتك

وهو المطلوب

شكرا استاذنا الفاضل husamwahab جعلها الله في ميزان حسناتك 

وهو المطلوب

استاذي الفاضل هل يمكن معرفة عدد السجلات التي سيتم نقلها برساله كما في الصورة وشكرا

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

في المرفق قاعدة بيانات تعمل على استيراد بيانات من ملف اكسل خارجي 

طريقة عملها هو عند الضغط على زر (تحديد المسار) تقوم بفتح نافذه واستيراد البيانات فورا

احتاج التعديل عليها باضافة زر اخر كما بالصورة المرفقة فيكون عمل البرنامج هو .

1- زر (تحديد المسار)  يقوم بتحديد مسار الملف في الكمبيوتر فقط 

2- اضافة زر جديد (استيراد بيانات) يقوم بعملية نقل البيانات من ملف الاكسل الخارجي المحدد بالزر الاول .

يرجى استخدام نفس الكود في التعديل وشكرا

Access-Import.accdb

في ٥‏/٨‏/٢٠٢١ at 09:43, Hawiii said:

هذه الشفرة من أبي هادي مع تصرف:

يوجد في الشفرة رقم 4 ولم أفهمه ، تفسيري هو طول رقم الموظف 3 + حرف "-" أو "+" .. ربما.
في حالة تجاربكم إذا كان طول رقم الموظف 3 فاجعلوا الرقم 3 وإذا أخفق الحل اجعلوا الرقم طوله الحقيقي +1 ، (غير متأكد).

السلام عليكم 

استاذي الفاضل Hawiii تم تجربة الكود مشكورا 

تيقى المشكلة انه يمكن ادخال رقم مرتبة واحدة ثم بعد كتابة الرقم الثاني تظهر الرسالة انه لايمكن الادخال عن طريق الكيبورد وشكرا

8 ساعات مضت, ابوخليل said:

 

السلام عليكم .. استخدمت الكود التالي  ولم تعمل معي لوحة المفاتيح لكن ليس لدي جهاز باركود لاختبر قراءته

Private Sub Barcode_KeyDown(KeyCode As Integer, Shift As Integer)
KeyCode = 0
End Sub

السلام عليكم استاذنا ابو خليل المحترم

تم تجربة هذا الكود وقد تم ايقاق الادخال عن طريق الكيبورد وجهاز الباركود معا .

السلام عليكم

الشكر والتقدير لكل من ساهم بفكرة او موضوع وان لم تصيب 100%

استاذي الفاضل ابوخليل المحترم 

انا لدي اكثر من ادخال في الفورم فهنالك ادخال عن طريق الكيبورد وهنالك ادخال عن طريق جهاز الباركود .

فانا احتاج الكيبورد في جزء معين في الادخال وبذلك لايمكنني الغاء عمل الكيبورد من الوندوز ولكن في اماكن الادخال بجهاز الباركود احتاج ايقاف الادخال عن طريق الكيبورد .

وشكرا

السلام عليكم

شكرا استاذنا الفاضل ابوخليل على المداخلة 

يمكن تحويل اي رقم حتى لو بمرتبة واحدة الى باركود كان يكون ارقام (الترقيم التلقائي) لجدول معين والذي يبدأ من رقم (1) وتصاعديا.

الذي احتاجه هو ان امنع المدخل من ادخال اي رقم عن طريق الكيبورد ويكون الادخال عن طريق جهاز الباركود فقط .

شكرا استاذ kanory على سرعة الاجابة

بصورة اخرى اريد ان امنع الادخال عن طريق الكيبورد (لوحة المفاتيح) اطلاقا حتى لو كانت مرتبة واحده وشكرا

شكر استاذ kanory على الاجابة واسف على تاخري في التجربة بسبب عدم تأخر حصولي على جهاز الباركود .

لقد تم تجربة الكود وهو المطلوب لكن هنالك مشكلة واحدة وهي انه يمكن كتابة  مرتبة واحدة في مربع الادخال المطلوب كيف يمكن منع كتابة حتى لو كانت مرتبة واحدة .

وشكرا

السلام عليكم 

هل يمكن التحكم في تيكست عن طريق كود لادخال ارقام عن طريق جهاز قارئ الباركود فقط ولايمكن ادخال اي رقم عن طريق الكيبورد يدوي وشكرا.

شكرا الى الاساتذه الكرام 

الاستاذ محمد أبوعبدالله والاستاذ مسفر على الاجابة

وهو المطلوب

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

يرجى المساعدة بملئ حقل او عمود لجدول في قاعدة بيانات اكسس بكلمة مكررة كما في الصورة والملف المرفق 

بطريقتين

الاولى بكود معين يمكنني ملئ الحقل دفعه واحدة بكلمة مثلا (الاردن) 

وثانية بدون اكواد ان امكن مثل طريقة نسخ ولصق

وشكرا

examp.accdb