الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة فى الورديات و التقويم

مغلق
بدأه kwitown في 24 ديسمبر 2002 · 14 رد · 1,577 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لقد عملت نموذج عبارة عن تقويم

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

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

علما بانني عملت هذا التقويم على فيجول بيسك بنظام المصفوفات

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

ارجو من الاخوة الكرام المساهمة

وشكرا

kwitown7.zip

#2

يمكن أن تستفيد من طريقة عمل المثال التالي:

http://www.pcpages.com/harith77/UmCalUse.zip

افتح الرابط ثم انقر على Click Here

والموجود في الإرشيف في الوصلة التالية :

http://www.arabteam2000.com/vb/showthread....&threadid=12761

عنوان الموضوع :

*فورم* تقويم أم القرى بما يشبه النتيجة

#3

:(لقدم قمت بعمل البرنامج بواسطة فيجول بيسك

وقد عملت الملف على شكل exe

واستعنت بالمصفوفات لتطبيق هذا العمل

سؤالي هل بالامكان تطبيق المصفوفات في برنامج اكسس

مع الشكر والتقدير

kwitown16.zip

#4

أخي الكريم

السلام عليكم

هل يمكن إرفاق السورس كود المكتوب الفيجوال

تحياتي

#5

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

استاذي الفاضل ابو هاجر

اولا اسف على تاخري لرد عليك وذلك لبحثي عن الكود

حيث انني قد اعلنت استسلامي عن امكانية عمل هذا البرنامج

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

ثانيا ارفق لجنابكم الكود وهو:

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

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

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

عموما انا في انتظار دعمكم كما عوتمونا

والسلام على الجميع

#6

أخي الكريم

السلام عليكم

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

وإذا كان للبرنامج خصوصية معينة فيمكنك إرساله على بريدي وسوف يكون خاصاً بي بإذن الله

تحياتي

أخوك / أبو هاجر

#7

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

اخي ابو هاجر

ارفق لك البرنامج في تصميمة الاول

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

kwitown36.zip

#8

أخي الكريم

السلام عليكم

المثال الذي وضعته في أكسس غير مرتب وليس هناك تسلسل في أسماء أزرار الأوامر

الأمر الآخر لا أدري لماذا استخدمت أزرار الأوامر مع أكسس بينما استخدمت مربعات التسمية Label في الفيجوال مع العلم بأن أزرار الأوامر في أكسس ليس فيها أمكانية لتغيير لون الخلفية

على كل أخي الحبيب أرفق لك المثال بعد التعديل عليه بما تريد علماً بأنه لن يعمل بشكل كامل بسبب " اللخبطة " في أسماء الكائنات

صحح أسماء الكائنات وسوف يعمل الكود بشكل جيد وإذا واجهتك أي مشاكل فأنا مستعد للمساعدة

تحياتي

أخوك / أبو هاجر

kwitown7.zip

#9

اخي العزيز

السلام عليكم

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

ثانيا: كان هذا البرنامج اثناء بدياتي مع الاكسس ومازلت في اول الطريق

ثالثا ارسل لكم البرنامج بنفس صيغتة التى عملتة بواسطة الفجول بيبسك

حيث عند الضغط على زر الامر (النوبةA) تظهر رسالة تفيد بان البرنامج لايدعم

هذة التقنية

وشكر لسرعة تجاوبكم

اخوك ابو حمد

kwitown37.zip

#10

أخي الكريم

السلام عليكم

مرفق المثال الجديد بعد التعديل عليه

تحياتي

أخوك / أبو هاجر

kwitown37.zip

#11

عن إذنكم شباب

بحسب ما أعلم فإن المصفوفات لا تعمل في أكسس كما في فيجول بيسك وأنا تجربتي مع الاصدار 97 أما الاصدارات بعد ذلك فلم اجربها

وشكرا

------------------وما توفيقي إلا بالله--------------------

إذا كنت بالله مستعصما---------فماذا يضيرك كيد العبيد

#12

اخي العزيز / ابو هاجر

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

تبارك الرحمن وحفضكم من كل شيطان

الحقيقة انك لمبدع

ثبتك الله وزادك علما ووفقك لمايحب ويرضى

البرنامج عمل بشكل ممتاز

ولي طلب اخير شرح ولو نبذة بسيطة عن كيفية عملة

والسلام عليكم

اخوك ابو حمد

#13

أخي الكريم

السلام عليكم

أفضل أن تحاول أن تفهم الكود بنفسك وإذا كان ثمة شيء غير واضح فأنا مستعد للشرح

مفتاح اللغز كما يقولون في معرفة كيفية تمرير مصفوفة من عناصر التحكم وقد تم ذلك كما رأيت في الكود عن طريق الصيفة التالية

me("controlname" & var).properties = something

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

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

تحياتي

أخوك / أبو هاجر

#14

اخي العزيز/ ابو هاجر

السلام عليكم

ارفق لكم البرنامج بصورتة المصغرة وتصميمة النهائي

حيث اقتصر دليل الورديات حتى شهر اغسطس لعام 2003

وسوف اكمالة حتى سنة 2010 ان شاء الله

وقد وضعت هذا البرنامج ليستفيد منه من اراد مع تغيير مايراه مناسبا

اكرر اسفي للجميع على بساطة التصميم

ويهمنى يااخ ابو هاجر رأيكم كثيرا وكذلك باقى الاخوة الاعظاء

تقبلوا خالص شكري وتقدير

kwitown41.zip

#15

أخي الكريم

السلام عليكم

بداية أشكرك على وضع البرنامج في المنتدى ليستفيد منه الجميع

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

وقد عدلت تعديلاً بسيطاً في الكود حيث إنني أفضل دائما ً استخدام الدوال من أجل تسهيل الكود بالنسبة للقراءة وتسهيل التعديل

مرفق المثال بعد استخدام الدوال

تحياتي

أخوك / أبو هاجر

kwitown41.zip

هذا الموضوع مغلق.

مواضيع مشابهة