لقد عملت نموذج عبارة عن تقويم
واريد ان اضغط على رقم اليوم فيبين دوام النوبات (الوردية المناوبة)
وحيث ان الكود ممل وطويل فانني ارجو من اخواني الكرام عمل كود مختصر يسهل العمل على هذا التقويم
علما بانني عملت هذا التقويم على فيجول بيسك بنظام المصفوفات
ولقد حاولت ذلك في الاكسس ولكن يعطني رسالة بان المصفوفات لاتعمل في الاكسس
ارجو من الاخوة الكرام المساهمة
وشكرا
يمكن أن تستفيد من طريقة عمل المثال التالي:
http://www.pcpages.com/harith77/UmCalUse.zip
افتح الرابط ثم انقر على Click Here
والموجود في الإرشيف في الوصلة التالية :
http://www.arabteam2000.com/vb/showthread....&threadid=12761
عنوان الموضوع :
*فورم* تقويم أم القرى بما يشبه النتيجة
:(لقدم قمت بعمل البرنامج بواسطة فيجول بيسك
وقد عملت الملف على شكل exe
واستعنت بالمصفوفات لتطبيق هذا العمل
سؤالي هل بالامكان تطبيق المصفوفات في برنامج اكسس
مع الشكر والتقدير
أخي الكريم
السلام عليكم
هل يمكن إرفاق السورس كود المكتوب الفيجوال
تحياتي
السلام عليكم ورحمة الله وبركاتة
استاذي الفاضل ابو هاجر
اولا اسف على تاخري لرد عليك وذلك لبحثي عن الكود
حيث انني قد اعلنت استسلامي عن امكانية عمل هذا البرنامج
بواسطة الاكسس فقمت بحذف الكود لانني عملة على الفيجول بيسك
ثانيا ارفق لجنابكم الكود وهو:
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
Private Sub Command1_Click() 'النوبة A
X1 = 0
For I = 1 To 184 Step 2
X1 = X1 + 1
Select Case X1
Case 1
Label1(I).BackColor = QBColor(12)
Label1(I + 1).BackColor = QBColor(12)
Case 2
Label1(I).BackColor = QBColor(9)
Label1(I + 1).BackColor = QBColor(9)
Case 3
Label1(I).BackColor = QBColor(2)
Label1(I + 1).BackColor = QBColor(2)
Case 4
Label1(I).BackColor = QBColor(0)
Label1(I + 1).BackColor = QBColor(0)
X1 = 0
End Select
Next I
Label13.Caption = " A انت تشاهد الان النوبة"
End Sub
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
عموما انا في انتظار دعمكم كما عوتمونا
والسلام على الجميع
أخي الكريم
السلام عليكم
أشكرك على الكود لكن ما كنت أريده بالضبط هو وضع البرنامج أو جزء منه الذي كتبته في الفيجوال بيسك مفتوح المصدر لأنني في الحقيقة لم أستطع فهم ما تريد بالضبط فريما إذا عرفت الفكرة أستطيع الوصول إلى الحل
وإذا كان للبرنامج خصوصية معينة فيمكنك إرساله على بريدي وسوف يكون خاصاً بي بإذن الله
تحياتي
أخوك / أبو هاجر
السلام عليكم ورحمة الله وبركاتة
اخي ابو هاجر
ارفق لك البرنامج في تصميمة الاول
ولكم الشكر والتقدير على سرعة الاستجابة
أخي الكريم
السلام عليكم
المثال الذي وضعته في أكسس غير مرتب وليس هناك تسلسل في أسماء أزرار الأوامر
الأمر الآخر لا أدري لماذا استخدمت أزرار الأوامر مع أكسس بينما استخدمت مربعات التسمية Label في الفيجوال مع العلم بأن أزرار الأوامر في أكسس ليس فيها أمكانية لتغيير لون الخلفية
على كل أخي الحبيب أرفق لك المثال بعد التعديل عليه بما تريد علماً بأنه لن يعمل بشكل كامل بسبب " اللخبطة " في أسماء الكائنات
صحح أسماء الكائنات وسوف يعمل الكود بشكل جيد وإذا واجهتك أي مشاكل فأنا مستعد للمساعدة
تحياتي
أخوك / أبو هاجر
اخي العزيز
السلام عليكم
اولا لقد استخدمت الازرار وذلك لان البرنامج لم يستجيب بواسطة مربعات التسمية.
ثانيا: كان هذا البرنامج اثناء بدياتي مع الاكسس ومازلت في اول الطريق
ثالثا ارسل لكم البرنامج بنفس صيغتة التى عملتة بواسطة الفجول بيبسك
حيث عند الضغط على زر الامر (النوبةA) تظهر رسالة تفيد بان البرنامج لايدعم
هذة التقنية
وشكر لسرعة تجاوبكم
اخوك ابو حمد
عن إذنكم شباب
بحسب ما أعلم فإن المصفوفات لا تعمل في أكسس كما في فيجول بيسك وأنا تجربتي مع الاصدار 97 أما الاصدارات بعد ذلك فلم اجربها
وشكرا
------------------وما توفيقي إلا بالله--------------------
إذا كنت بالله مستعصما---------فماذا يضيرك كيد العبيد
اخي العزيز / ابو هاجر
السلام عليكم ورحمة الله وبركاتة
تبارك الرحمن وحفضكم من كل شيطان
الحقيقة انك لمبدع
ثبتك الله وزادك علما ووفقك لمايحب ويرضى
البرنامج عمل بشكل ممتاز
ولي طلب اخير شرح ولو نبذة بسيطة عن كيفية عملة
والسلام عليكم
اخوك ابو حمد
أخي الكريم
السلام عليكم
أفضل أن تحاول أن تفهم الكود بنفسك وإذا كان ثمة شيء غير واضح فأنا مستعد للشرح
مفتاح اللغز كما يقولون في معرفة كيفية تمرير مصفوفة من عناصر التحكم وقد تم ذلك كما رأيت في الكود عن طريق الصيفة التالية
me("controlname" & var).properties = somethingهذه هي الفكرة ببساطة والأكسس في هذا لا يختلف عن الفيجوال إلا من حيث الصيغة وإلا فالفكرة واحدة
وإذا كان بأمكاني الحصول على نسخة من البرنامج بعد انتهائه فسأكون سعيداً بذلك فقد راقتني الفكرة علماً بأن هدفي هو الاستفادة من الفكرة
تحياتي
أخوك / أبو هاجر
اخي العزيز/ ابو هاجر
السلام عليكم
ارفق لكم البرنامج بصورتة المصغرة وتصميمة النهائي
حيث اقتصر دليل الورديات حتى شهر اغسطس لعام 2003
وسوف اكمالة حتى سنة 2010 ان شاء الله
وقد وضعت هذا البرنامج ليستفيد منه من اراد مع تغيير مايراه مناسبا
اكرر اسفي للجميع على بساطة التصميم
ويهمنى يااخ ابو هاجر رأيكم كثيرا وكذلك باقى الاخوة الاعظاء
تقبلوا خالص شكري وتقدير
أخي الكريم
السلام عليكم
بداية أشكرك على وضع البرنامج في المنتدى ليستفيد منه الجميع
ثم إني معجب بما عملته فهو يدل على عقلية رياضية رائعة
وقد عدلت تعديلاً بسيطاً في الكود حيث إنني أفضل دائما ً استخدام الدوال من أجل تسهيل الكود بالنسبة للقراءة وتسهيل التعديل
مرفق المثال بعد استخدام الدوال
تحياتي
أخوك / أبو هاجر
هذا الموضوع مغلق.