عبد الله فتحي

thanx

هنـــــا تجدون دروساً متخصصة جداً وسهلة في هذا المجال .. للأستاذ هيثم القلاف مشرف منتدى الفيجول بيسيك بمنتدى الإبداع

أهلاً: طبعاً بإمكانك ذلك .. هل تريد عمل الزر في شريط الأدوات .. بإمكانك ذلك من خلال تخصيص في القائمة أدوات ..

آسف لتأخري أخي جمال .. مشغول كثير بالامتحانات .. بالنسبة لما ذكرته فنحن سنقوم بإنشاء مدخل قيمة نصي .. وذلك عن طريق الضغط على زر الماوس الأيمن في المسار المحدد .. ثم اختيار add ثم string value .. أو اختيار إضافة ثم قيمة سلسلة جديدة .. بعد ذلك نعطيها الاسم UserDriveLetterAssignment .. ونعطيها القيمة حرفين لمحرك الأقراص المضغوطة .. وأرجو تجنب الخطأ والتأكد من أن الأحرف كبيرة .. لا تنس إعادة تشغيل الويندوز لملاحظة النتيجة .. أتمنى أن تقوم بزيارة الرابط التالي: http://www.al-ebda3.info/ib/index.php?showtopic=3254 ربما تجد فيه ما يفيدك بهذا الخصوص .. وإليك تحياتي (f)

أخي tag4m تم تحميل البرنامج أكثر من 1400 مرة وأنت ثاني من يعاني من هذه المشكلة ,, وفي العاد ستكون المشكلة من عندك: بأي حال راجع الموضوع في الرابط التالي: http://www.al-ebda3.info/ib/index.php?showtopic=3644

بخصوص تغيير رمز محرك الأقراص المضغوطة من النظام نفسه، فهناك طريقتين: - إما بالطريقة التقليدية عن طريق الذهاب إلى إدارة الأجهزة في النظام وتغيير الرمز من خصائص الـ CD-Rom .. - أو أن نقوم بذلك من خلال الريجستري .. طبعاً في حالتنا هذه، وإذا كنا نريد تغيير الرمز من خلال البرنامج فسيتعين علينا اختيار الطريقة الثانية .. ولكن هناك عيوب لهذه الطريقة: 1- لا بد من معرفة (اسم) نوع الـ CD-Rom الذي نريد تغيير رمزه .. 2- سنحتاج إلى إعادة التشغيل لكي يتم تفعيل التغييرات .. وإليكم الطريقة مع الأخذ في الاعتبار أنني قمت بتجربتها على ويندوز ملينيوم فقط، وأن أي خطأ قد يؤدي إلى فشل تشغيل الويندوز نهائياً: سنقوم بفتح الريجستري من خلال إبدأ >> تشغيل >> RegEdit نقوم بالذهاب إلى المسار التالي: HKEY_LOCAL_MACHINE\Enum\SCSI تحت المفتاح (SCSI) سنجد مفاتيح فرعية تمثل أنواع محركات الأقراص الموجودة بالنظام .. نقوم باختيار نوع محرك الأقراص المضغوطة والذي نريد تغيير رمزه .. سنجد - على الأغلب - في داخله مفتاحاً فرعياً بالاسم: MF&CHILD0001&PCI&VEN_8086&DEV_244B&SUBSYS_24408086&REV_05&BUS_00&DEV_1F&FUNC_0100 نقوم بالدخول إلى هذا المفتاح .. سنجد قيماً كثيرة بداخله .. نبحث عن مدخل القيمة النصي UserDriveLetterAssignment وفي حال لم نجده نقوم بإنشائه .. بعد إنشائه نقوم بإعطائه قيمة نصية مكونة من الحرف الجديد الذي نريد أن نرمز به لهذا المحرك مكرراً مرتين .. على سبيل المثال لو كنا نريد تغيير رمز محرك الأقراص إلى X فيجب أن تكون القيمة XX .. ومن المهم جداً كتابة الحرفين في شكلهما الكتابي الكبير Capital .. بمعنى أنه لا يمكن كتابة qq والصحيح QQ .. اتمنى أن تكون الطريقة مفهومة .. يمكن تجربتها يدوياً وفي حال كونها الطريقة الملائمة فمن السهل ترجمتها إلى كود .. وللجميع خالص التحية ..

أخي هشام (y) (y) (y) أخي noursh .. سؤال في غاية الأهمية وهو أن الأكواد الذي نراها كثيرة .. ولكن في الحقيقة أخي هي ليست كذلك وإنما في البداية نحس بذلك لأننا ليس لدينا أي دراية بهذه الأكواد .. لكن بعد قليل من الدراسة ستجد أنك بدأت تلم بكل هذه الأكواد .. نعم هناك طريقة لمعرفة التعليمات المطلوبة .. ولنأخذ على سبيل المثال برنامج الفيجول بيسيك .. فإننا عند عمل أي مشروع فإنه يستخدم أربع مكتبات - قابلة للزيادة طبعاً - وإذا قمت بمعرفة جميع أوامر هذه المكتبة الأربعة فإنك ستكون قد وصلت إلى مرحلة ممتازة .. ولمعرفة هذه الأوامر كل ما عليك هو الضغط على F2 وستجد جميع أوامر هذه المكتبات .. وستجد شرحاً مبسطاً لها .. ولاحقاً سأقوم بوضع رابط لشرح لمعظم هذه الأوامر .. وإليكم تحياتي ..

جزاك الله خيراً .. عرفناك دائماً مبدعاً :fff: ..

حمل المثال السابق مرة أخرى .. ولاحظ التعديلات .. أعتذر عن عدم تواجدي في الفترة القادمة ... وللجميع تحياتي ..

أخي hghghg .. ما الذي تعنيه بتغيير رمز محرك الأقراص ؟؟ هذا متاح ولكنه غير مفيد إطلاقاً .. ستحتاج إلى كود طويل لا فائدة منه .. بعد هذا الكود ستحتاج إلى إعادة تشغيل الويندوز .. ما الذي تتوقعه من المستخدم عندما تقوم بتغيير رمز محرك الأقراص الخاص به .. في كل الأحوال تغيير رمز محرك الأقراص ليس الحل الصحيح أبداً .. أنت بالفعل سألت عن ذلك وأنا أجبت بالإجابة التي أعتقد أنها الأفضل .. وحتى لو كنت تريد تغيير رمز محرك الأقراص المضغوطة فمن المهم أن تقوم بمعرفته أولاً .. وفي هذه الحالة ستحتاج - قبل كل شيء - إلى كود معرفة رمز محرك الأقراص المضغوطة الموجود بالأعلى .. آسف إن كنت قد أزعجتك بأكوادي عديمة الفائدة .. وأشكرك بأي حال ..

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

شكراً لك أخي العزيز ولو إنو ما نفهم بالكيمياء :p :p بس ممكن يجي يوم وندرسها :d

جرب التعديل المرفق .. vacations.zip

بالفعل أخي hghg كلامك صحيح ولكن هذا لا يعني أنني لم أجرب ذلك .. والفكرة واحدة .. على أي حال مرفق مثال لتجربته قم بعمل سي دي عليه برنامج الآلة الحاسبة ال calc.exe على ال root للسي دي .. وسيقوم البرنامج بتشغيله .. كما أنه يتفادى مشكلة وجود أكثر من رمز لمحرك الأقراص .. ويوجد أكثر من طريقة أخرى لتفادي هذه المشكلة .. مرفق أيضاً مثال لملف autorun.inf قم بوضعه على ال root للسي دي مع ملف ال calc.exe وستجد أنه يقوم بتشغيل الآلة الحاسبة تلقائياً .. CD.zip

يعطيك العافية أخي ماجد .. بأي حال من الأحوال لقد عملت مثال لحفظ البيانات واسترجاعها من الريجستري .. ربما يكون مفيداً للبعض .. تحياتي Registry.zip

أخي الحبيب hghghg بالنسبة للكود السابق فأنا لم أكتبه لك إلا بعد أن جربته على الأكسس وهو شغال مائة المائة .. وبالنسبة للمثال ما عندي مانع .. رح أحاول أعملك مثال ... وإن كنت أفضل أن تقوم بذلك بنفسك .. وأنا متأكد من صحة الكود :) تحياتي

سأحاول عمل مثال ولكن لا أعد بشيء نظراً لضيق وقتي :) ..

ليس لدي مثال جاهز للأسف .. ولكن الفكرة واحدة .. ستقومين بطلب البيانات أول مرة وحفظها في الريجستري - مثلاً - وعند فتح البرنامج فإنه يقوم باختبار ما إذا كانت البيانات موجودة في الريجستري أو لا .. فإذا كانت غير موجودة يقوم بإظهار الأسئلة للمستخدم .. وإذا كانت موجودة لا .. أرجو أن تكون الفكرة قد وصلت .. أتمنى لك التوفيق :(

يعطيك ألف عافية وجزاك الله كل خير :(

أهلاً .. في حالة كوننا نريد نسخ مجلد بكامله فإما أن نقوم بنسخها ملف ملف وطبعاً هذه طريقة عقيمة ومعقدة .. بإمكاننا استخدام المكتبة Microsoft Scripting Runtime والذي تتيح لنا نسخ مجلد بأكمله، ويكون ذلك من خلال Tools >> Reference ثم اختيار المكتبة المذكورة أعلاه .. وبعدها قم بكتابة هذا الكود في قسم التصريحات العامة: Dim XCopy As New FileSystemObject ثم ضع الكود التالي لنسخ مجلد المفضلة: XCopy.CopyFolder "C:\Windows\Favorites", "D:\Sources\Favorites" تحياتي :(

باللنسبة للجزء الأول من سؤالك أختي وهو الخاص بطلب إدخال بيانات من المستخدم بإمكانك استخدام الأمر InputBox .. والذي يقوم بطلب بيانات من المستخدم ووضعها في متغير .. وبعد ذلك يمكنك استخدام المعلومات الموجودة في المتغير كيفما تشائين .. وهذا مثال للاستخدام الأمر: XX = InputBox("ماهي اسم شركتك", "طلب بيانات", "أكتب هنا اسم الشركة", 0, 0)

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

أخي الفاضل asaz .. آسف لتأخري لانشغالي بالامتحانات .. بالنسبة لنسخ الملفات بالكود فيإمكانك استخدام الوظيفة FileCopy .. وهي تقوم بطلب الملف المصدر الذي سننسخه، والمسار الذي سننسخ إليه الملف .. على سبيل المثال لنفترض أنك تريد نسخ ملف اسمه Test.txt وهو موجود على ال \:C وتريد نسخه إلى ال \:D عندهاى سيكون الكود كالتالي: FileCopy "c:\Test.txt", "D:\Test.txt" أعتقد أن الكود واضح جداً ولا يحتاج إلى كثير من الشرح ..

شكراً لكك أسامة :(

شكراً جزيلاً لك أخي العزيز ...