لمطلوب لو سمحتم : اذا ادخلت اسم الكتاب ابغا اختار رقم رف ثابت لا يتغير الا اذا طلبت ذلك بمعنى ادخل اسم الكتاب ويسجل رقم الرف اليا الى ان يكتمل 000000000000000000000 ثانيا ابغا اذا سجلت اسم كتاب يعطي رقم مسلسل اليا واذا غيرت رقم الملف بدا التسلسل من جديد اي من رقمواحد وهكذا وشكرا لكم
مرفق النموذج
أخي الكريم:
أنت تريد ترقيم الكتب في كل رف ترقيماً متسلسلاً.
فأرقام الرفوف أنت من يحددها أما ترقيم الكتب في كل رف فستتركه للبرنامج وتريد أن يبدأ الترقيم في كل رف بالرقم 1.
إن كان كلامي السابق صحيحاً فإليك الطريقة مضمنه في الملف المرفق وإن لم يكن صحيحاً فارجوا الإيضاح أكثر ليشارك الجميع في الوصول للحل.
الاخ المزيني
اولا اشكرك وما قصرت.
وبما انك ما قصرت ورديت علي فارجو وكلي ثقة بأن تكمل معي المشوار في بعض الاستفسارات
ما عملته انت هوالمطلوب وإن كان لي ملاحظة هل يمكن الاستغناء عن زر ( اضافة ) بحيث يتم ادخال اليانات لاسم الكتاب بمجرد انتقال المؤشر.
واذا امكن ان تشرح لي ما عملت بالضبط حتى تتضح الصورة كاملة .
ثانيا اثابك الله لو ابا اسوي بحث باسم الكتاب لاعرف رقم الرف ورقم التسلسل وايضا ابغا ابحث عن محتويات رف كامل بما يحتويه من كتب حسب تسلسلها وتكون متاحة للطباعة فهل ارشدتني اثابك الله .
وشكرا لجهودك الطيبة.
والتحية موصولة للجميع
الاخ المزيني ما زلت انتظرك اوانتظر احد الاخوة الخبراء
فالرجاء المساعدةجزاكم الله خير
أخي الكريم معذرةً على التأخر في الرد وما ذلك إلا لانشغالي بأمور أخرى.
بالنسبة لاستفساراتك:
1-يمكنك الاستغناء عن زر إضافة لكن لا يمكنك الاستغناء عن الكود الموجود خلف حدث النقر الخاص بهذا الزر فقط قص الكود وضعه خلف حدث "عند مفتاح للأسفل" والخاص بمربع النص المخصص لإدخال عنوان الكتاب وأيضاً لا تنس أن تضيف السطرين التاليين أحد هما في أول الكود والآخر في أسفل الكود.
السطر الأول: If KeyCode = 13 Then
السطر الآخر: End If
2-بخصوص شرح ما قمت به فالشرح يتناول جانبين:
-الفكرة و تتلخص في التالي:عندما يقوم المستخدم بإدخال رقم الرف يقوم الإجراء المكتوب بقراءة أخر رقم مسلسل تم تخزينه في هذا الرف ثم يقوم بإضافة واحد إليه ومن ثم يحفظ بيانات الكتاب (عنوان الكتاب_رقم الرف_الرقم(أخر رقم سابق+1))
لذلك تجد أن البرنامج يطلب منك رقم الرف في حال لم تدخله لاعتماده عليه في ما يلي من خطوات.
-المحتوى وهو عباراة عن: متغيرات وجمل وكائنات برمجية وعبارات تحكم في سير البرنامج وكل مفردة مما سبق تحتاج إلى إفرادها بموضوع مستقل وهذا ليس موضع مثل هذه الشروحات.فهناك" قسم الدروس العملية وتطبيقاته" في هذا المنتدى ستجد فيه الكثير من الشروحات ويمكنك أيضاً الرجوع إلى كتب البرمجة للتعرف على هذه الأمور بالتفصيل.
3- أيضاً فيما يتعلق بالبحث فيمكنك البحث في المنتدى وستجد الكثير من الأمثلة والتي بمجرد التعديل فيه ستتناسب مع ما تريد طبقها وفي حال أشكل عليك أمر ما عندها أطرح ما لديك و ستجد الجميع يرحبون بك.
تحياتي لك ولجميع الزملاء.
للرفع
فقد مضى يوم ولا زال الامل كبير فيكم ايها الاخوة
للرفع
بحثا عن اجابة
ولكي يستفيد الاخوة من المثال الغير طبيعي الذي وضعه المزيني بارك الله فيه
ولا زال الامل باقيا وباقي من المهلة المعطاه لي فقط 48 ساعة
فرجاء لكل من يعرف لا تبخلوا علينا والسلام
السلام ارجو قراء الموضوع هنا
http://www.arabteam2000.com/vb/showthread....&threadid=25941
واحب بالمناسبة اشكر الاخ = المزيني = الذي ساهم في حل المعضلة الاولى وبقيت الاخرى الخاصة بالبحث والاستعلانم والموضوع يمكن له خمس ايام فلا تبخلوا بالاجابة واذا ما حصل ففي المثال الذي وضعه المزيني فائدة رائعة لم ارا لها مثيلابالمنتدى
وسلامتكم
السلام عليكم
اخي شختك بختك
السالفة ليست كما قيل طقها ولحقها
انت وضعت مشاركة وتم الرد عليك في بعض ما سألت فلا يجب عليك أولا وضع اكثر من استفسار في مشاركة واحدة ( قوانين المنتدى )
وكان بامكانك كتابة (( للرفع )) في احد الردود على نفس المشاركة لتعود مشاركتك الى الصفحة الاولى من المنتدى بدلا من وضع مشاركة جديدة .
كلي امل بأن تتقبل صراحتي بصدر رحب
تحياتي
;)
الاخ فيصل
معك حق
لكن ما سمنعت اللي يقول راعي الحاجة ملحاح
وانا اسف اصلا ما دريت ان قوانين المنتدى بهالشدة مع العلم اني طرحت سؤال ثم سؤال وغيري يطرح برنامج كامل ويتم الاجابه عليه
على العموم اسف وتوبه إن سألت مرة ثانية ؟؟؟؟؟؟؟؟؟؟
السلام عليكم
اقتباسوتوبه إن سألت مرة ثانية ؟؟؟؟؟؟؟؟؟؟
هذي اللي تبي تزعلنا منك
يا اخي كلنا هنا نتعلم من فيض هذا المنتدى الحبيب
كن على يقين بأن هناك المئات من كوادر هذا المنتدى يريدون رؤية السعادة ترتسم على شفتي من وجه سؤالا عبر هذا المنتدى
و اقول بانه يجب عليك الالحاح في سؤالك مع الصبر على الاخوة ( تعرف مشاغل الدنيا ) ولا تيأس وتفتح مشاركة اخرى ;) .
تحياتي
(f)
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
