• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

البحث في المنتدى

Showing results for tags 'بناء دالة ال fx في الاكسل'.

  • البحث بالتاقات

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • البحث بكاتب الموضوع

تم إيجاد 35 نتيجة

  1. شرح طريفة تمكين او تفعيل حقل بناء على قيمة حقل اخر بدون اكواد شرح طريقة تفعيل حقل او تمكين حقل او السماء بالإدخال و التعديل علية او غلقة و تفريغ محتوياته  بناء على قيمة حقل اخر مثلا حقل نعم او لا او حقل صحيح و خطا بدون اكواد و ايضا تفريغ محتوى الحقل فى حالة اختيار عدم تفعيلة بشكل تلقائي https://youtu.be/Dd6IOytFlJ0 شاهد الشرح بفديو على اليوتيوب من هنا https://youtu.be/Dd6IOytFlJ0 https://youtu.be/Dd6IOytFlJ0 https://youtu.be/Dd6IOytFlJ0 <iframe width="560" height="315" src="https://youtu.be/Dd6IOytFlJ0" frameborder="0" allowfullscreen></iframe>
  2. ملف مرفق المجلد مضغوط مع البرنامج مفتوح المصدر وملف اكسل  السلام عليكم ورحمة الله وبركاته          دعوات من يستفيد منه برنامج بسيط لفتح ملف اكسل موجود ملف بالمجلد يفتح بصندوق حواري يمكن تصدير معادلات رياضية الى برنامج اكسل والكتابة به تصدير وتنفيذ صيغ بها جملة شرط وتطبيق الصيغ على اكبر عدد بدزون تعب المشكلة بالكود صيغة لا استطيع ارسالها من الفيجوال بيسك الى ملف اكسل ويعتبرها syntax error لان بها علامتي التنصيص "ok" وهذا الامر هو الصيغة الرياضية التي اريد ان ارسلها الى خليه في ملف اكسل  xlSheet2.Range("e2").Formula = "=ROUND(IF('sheet1'!c2="ok",IF(d2<=2969,d2,2969),IF(d2<=2500,d2,2500)),2)" واذا غيرناها الى 'ok' يرسلها البرنامج لكن اكسل لا يعتبرها صيغة ولا ينفذها   free_vb_excel1.rar
  3. السلام عليكم , اخواني اود الاستفسار عن سطر الكنكشن للاتصال بالاكسل استخدم حاليا    MyConnection = new System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source='bso.xls';Extended Properties=Excel 8.0;"); للاكسل 2007 وما تحت  واستخدم : MyConnection = new System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='h.xlsx';Extended Properties=\"Excel 12.0;IMEX=0\""); للاكسل 2010-2013  وشغال 100% سؤالي اريد سطر كنكشن استطيع من خلاله الاتصال بوجود كلمة سر للملف طبعا جربت هذا :   MyConnection = new System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='h.xlsx';Password=123;Extended Properties=\"Excel 12.0;IMEX=0\""); وجربت كثير غيرة ولم يفلح الامر .....   وهذا محتوى الرسالة  Cannot start your application. The workgroup information file is missing or opened exclusively by another user. هل يوجد نقص في سطر الكنكشن للصلاحيات او شيء اخر..... وشكرا
  4. السلام عليكم ورحمة الله وبركاته يوجد لدي جدولين الاول جدول باسم DATA وبه اسماء المعلمين والجدول الثاني باسم TE_DATA ويختص ببيانات الاستئذان التي يقوم بها المعلمين وتم ربط الجدولين بحقل رقم وهو ID_TE اريد لو تكرمتم ان يقوم المعلم بدراج رقمه ID_TE  ( الذي ساعطيه اياه ليستخدمه في البرنامج ) في الحقل ومن ثم يفتح النموذج الفرعي الذي سيسجل المعلم بيانات الاستئذان   ودمتم بود استئذان.rar استئذان.rar
  5. السلام عليكم اخواني وخواتي الاعزاء في هذا المنتدى الرائع الذي لطالما استفدنا منه كثير ارجو التفضل بالاجابة حول سؤالي وهو اريد عمل دالة تاريخ في استعلام في اكسيس 2003 وهي تعطيني تواريخ متسلسلة بين تاريخين انا احددها مثلا اريد من الدالة تعطيني تواريخ متسلسلة من تاريخ 1/1/2017 لغاية 13/11/2017 مع الشكر
  6. عندى تقرير معين ما اريده وبحثت عنه الكثير هى خاصيه تحريك المربع هذا يمينا اويسارا لهذا السجل عندما يحتوى على قيمة معينه وليكن صفر فهل يمكن هذا ام لا 
  7. بناء نظام لتسجيل و حساب اجازات الافرد وبناء العلاقات وفئات-عدد الايام و عدد المرات شرح تفصيلى لانشاء نظام حساب اجازات الافراد وبناء العلاقات و استخراج تقرير عدد ايام الاجازة و عدد الاجازت لكل موظف  و توضيح فكرة تقسيم الفئات للافراد  شاهد الشرح بفديو على اليوتيوب من هنا https://www.youtube.com/watch?v=4Qr5dcuMgMg https://www.youtube.com/watch?v=4Qr5dcuMgMg https://www.youtube.com/watch?v=4Qr5dcuMgMg <iframe width="560" height="315" src="https://www.youtube.com/watch?v=4Qr5dcuMgMg" frameborder="0" allowfullscreen></iframe>
  8. اريد عمل تصفية في احد الحقول بناء على قيمة مدخلة لدى جدول المحافظات وجدول اخر المدن مع ملاحظة كل محافظة لها مدن معينة وجدول الموظفين اريد مجرد اختيار المحافظة في نافذة الموظفين يقوم بعمل تصفية ويعرض المدن بالمحافظة المختارة فقط مرفق قاعدة البيانات    
  9. كتابة داله IF فى جدول باكثر من شرط واكثر من دالة فى حقل واحد شرح طريقة كتابة الدالة فى جدول  شرح كيفية كتابة اكثر من شرط فى الدالة شرح كيفية كتابة اكثر من دالة فى حقل واحد اخراج قيمة فى جدول بناء على اكثر من معيار اخراج قيمة باكثر من شرط فى جدول https://www.youtube.com/watch?v=obUs7GbAZec https://www.youtube.com/watch?v=obUs7GbAZec https://www.youtube.com/watch?v=obUs7GbAZec
  10.    يعلن مركز Q space training and development     عن دورة (مهارات بناء القدرات و تأهيل الصف الثاني من القيادات الادارية) يوم 28\8\2016 لمده 5 ايام في باريس   اهداف الدورة::   ➢ تنمية معارف ومهارات المشاركين بأساليب الإدارة في التفويض والتمكين وتخطيط وإعداد الصف التالي من القيادات الإدارية وتأهيلهم إداريًا ومهارياً. ➢ تعريف المتدرب على الدور المحوري للقيادات في تكوين الصف الثاني. ➢ تزويد المشاركين بالمعارف الأساسية المتعلقة بتخطيط القوى العاملة والتخطيط الاحلالي التعاقبي وتأهيل قيادات الصف الثاني. ➢ التدرب على تخطيط وتصميم وتنفيذ ومتابعة عناصر خطة الإحلال الوظيفي "برامج التعاقب القيادي." ➢ تعريف المشاركين بأهمية وأهداف الخلافة والدور المحوري للقيادة الإدارية في تكوين قيادات الجيل الثاني. ➢ إرساء قواعد راسخة لقيادات الصف الأول حول كيفية التطوير والترقي الوظيفي وتحفز موظفي الصف الثاني. ➢ تعريف المشاركين بماهية الجدارات، نماذجها. ➢ التعرف على طريقة نماذج الجدارات كجزء ضروري في عملية تعقب القيادات وأساسيات التدريب المبنى على الجدارات. ➢ فهم النفس البشرية والتعامل معها بشكل إيجابي لبناء الصف التالي. ➢ تزويد المشاركين بالمهارات اللازمة لربط المسار الوظيفي بالمسار التدريبي. ➢ تطبيق أساليب تأهيل الصف التالي والتغلب على معوقات التأهيل. ➢ تزويد المشاركين بأساسيات التدريب المبني على الكفاءات/القدرات.   لمزيد من المعلومات و الاستفسار و التسجيل يمكنكم التواصل معنا من خلال:: نرمين بديع Training coordinator :: Nermeen Badya E-mail::[email protected] WhatsApp :: 00201283255659     الشهادة معتمدة من مركز Q Space Training & Development   و يوجد ايضا دورات اخري في مجال الادارة و التطوير الذاتي :: 1- الابداع و التمييز في ادارة المؤسسات الخيرية 2-القيادة الاستراتيجية ووضع الرؤية المستقبلية و اعداد الخطط الادارية 3-مهارات بناء القدرات و تأهيل الصف الثاني من القيادات الادارية 4-نظم و معلومات الادارية: اسس و تطبيقاتها 5-المنهج الحديث لاعادة هندسة الحلول الادارية 6- القيادة الاشرافية المتقدمة و الرؤية الاستراتيجية الابداعية 7-القيادة الادارية في ظل التغيرات العالمية الحديثة 8-القيادة المتقدمة للغمل الجماعي و ادارة الابداع و الخطط الابتكارية 9- البرنامج المتقدم لتطوير العمل الاداري بالمؤسسات 10-الوظائف الادارية وفقا للنظريات الحديثة 11-صياغة الاستراتيجيات و وضع الاهداف و رسم السياسات 12-تنمية مهارات المديرين في مواجهة الازمات 13-ادارة التغيير و التطويرالتنظيمي و ادارة التفاوض 14-مهارات الاشراف الفعال 15-تنمية مهارات العاملين في الخدمات الادارية 16-القيادة التنفيذية و التخطيط الاستراتيجي الابتكاري و ادارة الاهداف   اماكن انعقاد هذة الدورات:: تركيا – فيينا – باريس – الدار البيضاء – الدمام – الرباط – الرياض – جدة – كوالالمبور – الدوحة – شرم الشيخ – تونس – اسطنبول – القاهرة – ايطاليا   و ايضا توجد دورات في هذه المجالات :  الادارة و التطوير الذاتي / الموارد البشرية / العلاقات العامة و الاعلام / التسويق و المبيعات / المشتريات و المخازن و اللوجستيات / دورات المالية و المحاسبية /الدورات القانونية / دورات الجودة و الانتاج / دورات السلامة و الصحة المهنية /دورات تكنولوجيا المعلومات/ السكرتارية للاستفسار عن المحتوى و التسجيل و السعر:: يمكنكم التواصل معنا من خلال:: نرمين بديع Training coordinator :: Nermeen Badya E-mail::[email protected] WhatsApp :: 00201283255659     
  11. السلام عليكم ورحمة الله وبركاته اخواني الأعزاء ارجو ان تفيدوني بطريقة استخدام sum داخل استعلام اكسيس بحيث انني استطيع جمع قيمة عمود ( مع العلم أن هذا العمود هو ناتج حاصل ضرب عمود في عمود اخر ) برجاء مساعدتي لاني محتاج هذه المعادلة في شغلي ضروري جدا وجزاكم الله خير  
  12. Private Sub BirthDate_LostFocus() EWorkDate = DateAdd("yyyy", 60, [BirthDate]) Dim DGP As Integer Dim MGP As Integer Dim YGP As Integer Call EndWork(Me.BWorkDate, Me.EWorkDate, DGP, MGP, YGP) Me.CWorkDate = YGP & " سنه " & " æ " & MGP & " يوم" & " æ " & DGP & " شهر " Me.ZXY = YGP Me.ZXM = MGP Me.ZXD = DGP If Me.EWorkDate > Date Then Me.Status = "لازال على راس العمل" Else Me.Status = "متقاعد" End If End Sub   ارجو التعديل على هذا الكود اخذته من احد الاخوان بموقعكم المصون في حال وصل سن التقاعد يضيف متقاعد الى حقل اخر حيث يوجد لدي مربع تحرير وسرد اسمه vizites في جدول visitوفيه قيمتين فقط زيارة داخلية وزيارة خارجية والمطلوب بعد اختيار قيمة زيارة خارجية يعدل قيمة حقل مربع تحرير وسرد اخراسمه  Caseالى زيارة خارجية في جدول اخر اسمهalnzeel والنموذج A مصدر بياناته جدول alnzeel ويحوي نموذج فرعي مصدر بياناته جدول visit  والجدولين مرتبطين علاقة راس باطراف
  13. السلام عليكم ورحمة الله وبركاته اخواني الكرام اعضاء المنتدى أريد جمع عمود به دالة IIf  في نموذج فرعي  بمعنى انني لدي حقل (الكمية) وحقل (السعر) وحقل (اجمالي السعر) مع العلم انه هناك حقل اختيار (check boox) وفي حالة اختيار مربع الاختيار يتم ضرب الكمية في 1.25 اي تصبح المعادلة بدلا من ( الكمية ) × ( السعر ) تصبح .... (الكمية) × ( السعر) × 1.25 وفي حالة عدم اختيار مربع الاختيار( check boox) تكون المعادلة كما يلي (الكمية)× ( السعر) السؤال هو : كيف اقوم بعمل معادلة جمع لهذا الحقل ( إجمالي السعر) ؟ مرفق الملف للتعديل عليه. مع الشكر والتقدير لكم جميعا الملف.mdb
  14. السلام عليكم ورحمة الله وبركاته _ وكل عام وانتم بخير برجاء مساعدتي في ايجاد اجمالي عمود في (نموذج فرعي) مع العلم أن هناك حقول بها معادلة IIf لذلك لم استطيع اتمام عملية الجمع لهذا العمود حاولت كتير لكني ما قدرت بصراحه اعتذر لإذعاجكم لكن انا محتاجله جدا في العمل  مرفق ملف للتعديل عليه مع الشكر والتقدير نسخة الملف.mdb
  15. الرجاء المساعدة في كتابة الكود . في تكرار السنوات بعدد معين لسنوات معينة . حيث أني أرغب في تصميم برنامج لحساب خدمة الموظف في الشركة أو الإدارة ومنها هذه العلاوات السنوية للراتب الموظف  وهذا يتطلب حساب السنوات التي قضاها من بداية خدمة حتى تاريخ نهاية خدمة في الشركة . ومنها حساب العلاوات السنوية من بداية عملة في الشركة حتى تاريخ اليوم الحالي فكتبت الدوك التالي : Private Sub تدقيق21_Click() Dim m m = 0 Do While m < DateDiff("yyyy", DMin("[المباشرة]", "البيانات الوظيفية"), Date) DoCmd.GoToRecord , , acNewRec [السبب].SetFocus [السبب] = "علاوة سنوية دورية" [المباشرة] = DateSerial(DatePart("yyyy", DMin("[المباشرة]", "البيانات الوظيفية")) + 1, 1, 1) m = m + 1 Loop End Sub تاريخ المباشرة وهو بداية الخدمة . ولكن العلاوات السنوية يقوم بزيادة سنة ويقوم بتكرار هذه السنة دون الزيادة للسنة الثالثة والربابعة وهكذا الشكل التالي الأستعلام   لاحظ العلاوات السنوية مكررة وهذه هي المشكلة المطلوب السنوات المتسلسلة المتتالية 1434 و من ثم 1435 و 1436 و 1437 وهكذا أرجوا المساعدة ولكم جزيل الشكر والتقدير    
  16. السلام عليكم ارجو وضع دالة او كود لحساب عدد الناجحين والراسبين في تقرير واحد برنامج لتقديم امتحان شهري مميز برقم الدورة وبجدول واحد هل يوجد طريقة لمنع التكرار في الدورة الواحدة لرقم التسجيل ولكم الشكر برنامج.rar
  17. الخبير المعتمد فى التطبيقات المحاسبيه بالاكسل زميلى.. المحاسب المالى ما هو الافضل من وجهه نظرك المحاسب الذى يمارس المحاسبه دفتريا ام المحاسب الذى يمارس المحاسبه عن طريق البرامج المحاسبيه؟ ما موقفك عزيزى المحاسب المالى اذا تقدمت لشركه وبعد قبولك من اداره الشركه رفضك رئيس الحسابات لعدم خبرتك باحد البرامج المحاسبيه؟   ارجو ان لا تفهم من الاسئله السابقه ... زميلى و عزيزى المحاسب المالى بان هناك ميزه للمحاسب الدفترى عن المحاسب الذى يجيد البرامج المحاسبيه. الفرق الذى نتحدث عنه هنا بين المحاسب الذى يجيد مهام عمله و المحاسب الذى يحتاج الى إستكمال مجموعه من المهارات المحاسبيه . فإجاده التوجيه المحاسبى السليم للحركه الماليه و الاقتصاديه للشركه وإعداد المجموعات المستنديه .. المعبره عن تلك الحركات الماليه فضلا على إنتظام المجموعات الدفتريه و التسجيل بها هو اساس إنجاح النظام المحاسبى للشركه. اما سهوله ودقه وسرعه إستخراج البيانات و المعلومات المحاسبيه.. هذا ما نعبر عنه و الغرض الاساسى من البرامج المحاسبيه وهو الاساس السليم لدقه مخرجات النظام المالى بالشركه فلمحاسب المتقن لمهام عمله و المدرك للفرق بين النظام المحاسبى و المالى يعلم جيداً بانه لاغنى عن إستخدام البرامج المحاسبيه الجاهزه, خاصه اذا كانت فكره البرامج المحاسبيه لابد ان تكون واحده و السبب ببساطه:- ان البرامج المحاسبيه ما هى الا تعبير عن واقع نظريه المحاسبه و الاسس و المبادئ و الاعراف المحاسبيه الثابته منذ نشأه علم المحاسبه و التى تتكون جميعها او تشترك جميعها فى العناصر التالى ذكرها:- المكونات الاساسيه للبرامج المحاسبيه :- إدخال كافه البيانات الاساسيه للشركه إدخال دليل الحسابات الماليه و مراكذ التكلفه إدخال دليل حسابات المخازن وفقاً لأصول التكويد المخزنى   لذلك تقدم اكاديميه ماسترز للنظم الاداريه و المحاسبيه حقيبه الخبير المعتمد فى التطبيقات المحاسبيه باستخدام الاكسل وهى بحق تعتبر من اهم الحقائب التدريبيه ولاغنى عنها فى مكتبه كل محاسب مالى يسعى الى تطوير مهارته المحاسبيه وكفائه اداء مهامه الوظيفيه تتكون الحقيبه التدريبيه للخبير المعتمد فى التطبيقات المحاسبيه باستخدام الاكسل من:- تصميم وبرمجه اليوميات المساعده ... اليوميه الامريكيه التحليلات الماليه للمصروفات العموميه التحليلات الماليه لحسابات العملاء التحليلات الماليه لحسابات الموردين طرق إعداد موازين المراجعه باستخدام المعادلات المحاسبيه كشوف تحليل وتسويه الاهلاك للاصول الثابته كشوف تحليل حسابات المرتبات القوائم الماليه من خلال ارصده موازين المراجعه النهائيه تستطيع الان بدايه اولى خطواتك المهنيه بإحتراف وثقه فى الله ثم فى حقيبه الخبير المعتمد فى التطبيقات المحاسبيه باستخدام الاكسل من اكاديميه ماسترز للنظم الاداريه و المحاسبيه لماذا حقائب ماسترز التدريبيه؟ 1-    متعه التعليم و انت بجانب من تحب ............ مستشارك المالى بين يديك 2-    سهوله الحصول على الخبره الناجزه..لدينا رصيد يذيد عن 1000 ساعه تدريب معتمده 3-    ضمان ثلاثه سنوات على المنتج التعليمى.............اشترى و انت مرتاح البال 4-    محتوى علمى متكامل......... ولما لا فلدينا اكثر من 25 منهج تعليمى منتشر فى كافه الدول العريبه 5-    نسخر كافه جهودنا لدعمك...... فشهادات الخبره و الكرنيهات مجاناً لدينا فقط انا خريج و ابحث عن فرصه عمل هل حقيبه المحاسبه الاليكترونيه تصنع الفارق؟ حصولك على موسوعه الخبير المعتمد فى التطبيقات المحاسبيه باستخدام الاكسل يفتح امامك كافه الافاق و فرص العمل ولما لا فانت اتقنت كافه المهام المحاسبيه و التى قد تكلف بجزء منها فقط فانت لست محاسب عادى بل خبير بمهام عملك ووظيفه المحاسب المالى بالكاد قد تقبل انت بها. كيف استطيع سداد استثمار مبلغ الحقيبه المجانى يعتبر؟ تقدم ماسترز خدمه الدفع عند الاستلام من شركه الشحن المكلفه لخدمه و شحن الموسوعه العلميه لحضريتك   ما هي قيمه الاستثمار فى موسوعه للخبير المعتمد فى التطبيقات المحاسبيه باستخدام الاكسل ؟ صدق او لا تصدق فقط وحصريا لدى ماسترز اكاديمى 150ج + مصاريف الشحن هل تقدم ماسترز اكاديمى خدمه Money Back؟ ايمانا من اداره الاكاديمه بضروره الدعم العلمى و الفنى نقدم خصم عينى قدره 60 % على ثمن الحقيبه التدريبيه ولذلك:- نقدم مجاناً نعم مجاناً الاسطوانه الحصريه من اكاديميه ماسترز (المشكلات المحاسبيه و طرق علاجها)........... بقيمه 100 ج مجاناً و التى تحتوى على:- 1-    مفهوم و فلسفه نظريه المحاسبه من البدايه الى النهايه 2-    من اين يبدأ النظام المالى و الى اين تنتهى مخرجات النظام المالى 3-    مجموعه من المعالجات المحاسبيه الخاصه (كالاحتياطيات.... المخصصات......) 4-    حلول محاسبيه شامله لعدم توازن ميزان المراجعه (الاسباب وطرق العلاج) 5-    طرق هيكله النظام المحاسبى و المستندى للمخازن 6-    قيود الاقفال و طرق إثباتها و اهميتها لإنجاح النظام المالى 7-    ...................... هذا الدليل الفريد و الحصري لدى ماسترز اكاديمى تأتيك مجاناً مع موسوعه المحاسبه الاليكترونيه إتصل الان و لا تتردد .... العرض سارى لفتره محدوده اوحتى نفاذ الكميه المخصصه للعرض د/عبد الغنى فؤاد حسين هاتف/00201118222389 00201206252777  الايميل/[email protected] اتصل الان وكن على بدايه صحيحه لحياتك المهنيه   وللمزيد من السمينارات التعريفية لدبلومة التطبيقات المحاسبية بالاكسل فضلا .....اضغط هنا    تابعونا على facebook تابعونا على +google تابعونا على قناتنا عبرyoutube    مركز التحميل المجانى المقدم من اكاديميه ماسترز للنظم الاداريه و المحاسبيه لرواد وزائرين منتدى (الفريق العربى للبرمجة ) الكرام لمشاهده وتحميل خمسين محاضره كامله فى شتى مجالات العلوم المحاسبيه تابعونا على اليوتيوب ........ فضلا اضغط هنا لمشاهده وتحميل دبلومه السكرتاريه التنفيذيه كامله  وتابعونا على اليوتيوب ........ فضلا اضغط هنا لمشاهده وتحميل دبلومه إعداد وتدريب المدربين كامله  وتابعونا على اليوتيوب ........ فضلا اضغط هنا لمشاهده وتحميل 100 سؤال مجانى و مجاب عنه من موسوعه الالف سؤال محاسبى  وتابعونا على اليوتيوب ........ فضلا اضغط هنا                    
  18.   تبرمج الالعاب اساسا بتقنية اسمها XNA دعمتها مايروسوفت لبرمجة الالعاب بلغة #C وبنفس طريقتنا بكتابة Code ولكي تعمل لدينا نقوم بتنزيلها وتنصيبها وستضاف تلقائيا الى البرنامج VS.NET .وهي موضوع طويل ساتطرق عليه بوقت لاحق ,وهنا ساشرح عن برمجة العاب لكن بلغة VB.NET وكيفية تصميم لعبة بسيطة وكيف نحرك الأدوات... تعتمد الألعاب بشكل كبير على خدع المستخدم  وتوهميه في الصورة مثلا لعبة سباق السيارات .السيارات لا تسير لان السباق طويل وطول النافذة محدودة بعرض شاشة الحاسوب  لذالك نوقف السيارة ونحرك الشارع فيعتقد المستخدم أن السيارة هي من يتحرك لكن في الحقيقة الأرضية هي من تتحرك وكذالك العاب القتال العدو هو من يأتيك لكن يحسسك انك أنت من يتحرك عليه. والألعاب الرسومية تعتمد على مصممين الكرفكس بشكل اكبر بكثير من اعتمادها على المبرمجين لأنها تحتاج إلى تصميم  أماكن وصور لمختلف الأماكن والحركات . وايظا تصميم البيئة التفاعلية وجعل المستخدم يتفاعل مع اللعبة من أهم أساسيات برمجة الألعاب؟ مواقع الأدوات في النافذة وطرق تحريكها (ركز جيدا وافهم كيفية تحديد المواقع)   * لو نلاحظ ان الجهة العليا اليسرى من النافذة تكون قيم x,y للنافذة هي صفر وكذالك قيم x,y لأي اداة على النافذة تكون الجهة العليا اليسرى لهذه الأداة قيم x,y الخاصة بها صفر . وقيم X,Y تمثل جميع  النقاط داخل كل اداة على المحورين ممتد بالطول والعرض * وكل اداة لها عرض Width يمثل اكبر قيمة X ولها ارتفاع Heightيمثل اكبر قيمة Y  * وكذالك كل اداة على النافذة لها موقع نحدده من left يمثل ابتعاد الاداة عن نهاية الجهة اليسرى من النافذة كلما زودنا قيمته اتجهت الاداة الى الجة اليمنى من النافذة واذا نقصناه تتحرك الى الجهة اليسرى من النافذة . و,Top  يمثل ابتعاد الاداة عن نهاية الجهة العليا من النافذة كلما زودنا تتجه الاداة الى الجهة السفلى من النافذة واذا نقصناه تتجه الى الجهة العليا لو أردنا تحريك حاضنة الصور إلى يمين النافذة باستمرار فقط  ندرج Timer ونكتب فيه الكود التالي ونشغله   VB.net CodePictureBox1.Left = PictureBox1.Left + 1  لو أردنا تحريك حاضنة الصور إلى الأعلى النافذة باستمرار فقط  ندرج Timer ونكتب فيه الكود التالي ونشغله   VB.net CodePictureBox1.Top = PictureBox1.Top - 1  تحريك الصورة المعروضة داخل حاضنة الصور   PictureBoxبشكل أفقي فقط  الى مكان وجود مؤشر Mouse على النافذة وكذالك عرض قيم موقع مؤشر Mouse وهي ( x , y) على كل كائن داخل النافذة     لتحريك  موقع أداة PictureBox1  الى اليمين اواليسار حسب مكان وجود مؤشر Mouse على النافذة نجعل  خاصية Left  الخاصة بأداة  PictureBox1 مساوية  لموقع Mouse على النافذة e.x . نكتب الكود التالي في حدث MouseMove  الخاص بالنافذة Form  حتى يتنفذ عند تحريك مؤشر Mouse       VB.net CodePrivate Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMoveMe.Text = "x=" & e.X & " y=" & e.YPictureBox1.Left = e.XEnd Sub  لعرض قيم  (x ,y ) الخاصة بأداة  PictureBox1 على اسم النافذة نكتب الكود التالي  في حدث MouseMove  الخاص بأداة PictureBox حتى عندما يتحرك Mouse عليها  تعرض قيمها   VB.net CodePrivate Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMoveMe.Text = "xp=" & e.X & " yp=" & e.YEnd Sub  كل أداة (كائن) داخل المشروع لها قيم    ( x , y) تبدأ  (0,0)  وتنتهي بطول وعرض الأداة نقل كائن إلى موقع تم تحديده: تفيد هذه الطريقة في العاب ترتيب القطع     •    لتحريك موقع الكائن PictureBox كله في المحورين  الى موقع ضغط  بالمؤشر  Mouse  على النافذة بالبداية نحفظ موقع الضغط  Mouse  على النافذة  في متغيرات عامة معرفة على كل المشروع   VB.net CodeDim pl As IntegerDim pT As IntegerPrivate Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClickpl = e.XpT = e.YEnd Sub  وثم عند الظغط على كل  PictureBox  في حدث MouseClick الخاص بها  نجعلها  تنتقل  الى الموقع المحفوظ ؟هنا نقلنا PictureBox1 الى موقع  الجديد. وكذالك البقية بنفس الطريقة.   VB.net CodePictureBox1.Left = plPictureBox1.Top = pT  شاشة تنفيذ بعد ترتيب الصور   لعبة  الحظ : هذه اللعبة نقلب أوراق (مربعات ) مكونة من تسعة  وتوجد تحت ثلاث أوراق صورة الابتسامة ان استطعنا إخراجها بالتتابع  دون ان تظهر لنا إحدى الصور الحمراء (مطبات)  نكون فائزين وإلا نخسر علما ان هذه الرسومات( الابتسامة)  في كل مرة ستختفي تحت مربع مختلف. نكون مشروع جديد كما في الشكل التالي   بالبداية نعرف المتغيرات التالية في منطقة التعريفات العامة حيث المصفوفة نخزن فيها مكان وجود المربعات التي ستظهر فيها الابتسامة   VB.net CodeDim selected(3) As IntegerDim NumberIsFound As Boolean = FalseDim winCount As Integer = 0    في زر (لعبة جديدة) نكتب الكود التالي الذي يقوم بعرض صورة موحدة في جميع الصناديق .وكذالك تحديد أي الصناديق ستكون فيها الخيارات الصحيحة   VB.net CodePrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickOn Error Resume NextLabel1.Text = "رجاء انتضر"' make spongimage to all for new gameFor Each btn As PictureBox In Me.Controlsbtn.BackgroundImage = My.Resources.spongNext'تصفير عداد الربحwinCount = 0'نكون عداد للمصفوفةDim countselected As Integer = 0' make count to number of chosseDim Numberseleted As Integer = 0While Numberseleted < 3Dim RandomClass As New Random()Dim RandomNumber As Integer = RandomClass.Next(0, 8)NumberIsFound = FalseFor j = 0 To 2If RandomNumber = selected(j) ThenNumberIsFound = TrueEnd IfNextIf NumberIsFound = False Thenselected(countselected) = RandomNumbercountselected = countselected + 1Numberseleted = Numberseleted + 1End IfEnd WhileLabel1.Text = " ابدء اللعب بالضغط على الصور وقلبها"End Sub  ونكون  الدالة التالية التي نستدعيها عند ضغط المستخدم  على كل صندوق ليبين له ما موجود تحت الصندوق   VB.net Code Sub picSelected(ByVal picseleced As Integer, ByRef picName As PictureBox)NumberIsFound = FalseFor j = 0 To 2If picseleced = selected(j) ThenNumberIsFound = TrueEnd IfNextIf NumberIsFound = True ThenpicName.BackgroundImage = My.Resources.Smile.ToBitmapwinCount = winCount + 1If winCount = 3 ThenMsgBox("مبروك لقد ربحت اللعبة")End IfElsepicName.BackgroundImage = My.Resources.Love.ToBitmapLabel1.Text = "لقد خسرت اللعبة"End IfEnd Sub    وتحت كل صورة نستدعي الدالة السابقة ونرسل لها رقم مخصص للصورة وأداة الصورة لتغير صورتها   VB.net CodePrivate Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.ClickpicSelected(0, PictureBox1)End SubPrivate Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.ClickpicSelected(1, PictureBox2)End SubPrivate Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.ClickpicSelected(2, PictureBox3)End SubPrivate Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.ClickpicSelected(3, PictureBox4)End SubPrivate Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.ClickpicSelected(4, PictureBox5)End SubPrivate Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.ClickpicSelected(5, PictureBox6)End SubPrivate Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.ClickpicSelected(6, PictureBox7)End SubPrivate Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.ClickpicSelected(7, PictureBox8)End SubPrivate Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.ClickpicSelected(8, PictureBox9)End Sub    صور من اللعبة إثناء وقت اللعب     مدونتي http://hussienahmmed.blogspot.com/
  19. السلام عليكم ...اعضاء المنتدى الكريم اضع بين ايديكم تساؤل واعلم اني سأجد جوابه باذن الله منكم في المرفق لدي نموذج اسمه "البيانات" وداخل النموذج زرين امر "مدين - دائن" وكذلك يوجد مربع نص اسمه "رقم الحساب" المطلوب : 1- اريد عندما يدخل المستخدم رقم الحساب ويقوم بالضغط على زر دائن او مدين يقوم البرنامج بالتاكد من تحقق شرط وهو اذا كان ثالث رقم من جهة اليمين في مربع النص رقم الحساب هو 3 يفتح التقرير الخاص بالتفقيط بالدولار ... وفي حال انتفى هذا الشرط يقوم بفتح التقرير الخاص بالتفقيط بالريال فقط هذا كل ما اريد علما اني جعلت تقرير اسمه "report" وهو يقوم بالفتح تلقائيا عند الضغط على زر دائن   وتقرير اسمه "report1" وهو يقوم بالفتح تلقائيا عند الضغط على زر مداين  اعلم ان هناك طريقة عملية افضل مما قمت به لذا ارجوا من الاساتذة الكرام الا يبخلوا بها علي وشكرا  last212.rar
  20. السلام عليكم ورحمة الله وبركاتة   في البداية انا جديد على لغة الـ C++ ..   عمل برنامج وضيفته انه إذا أتى الماوس(مؤشر الفأرة) على زر يقوم هذا الزر بالإنتقال(pos) إلى الأعلى قليلاً وإذا ابتعد الماوس عن الزر يرجع الزر إلى مكانه السابق وقمت بإنشاء الكود من خلال QT Creator .. قمت بالإستعانه بـ Thread ..   هذه ملفات المشروع :   هذه الأكود لكل ملف عدا ملف الـui :   widget.h #ifndef WIDGET_H#define WIDGET_H#include <QWidget>#include <mythread.h>namespace Ui {class Widget;}class Widget : public QWidget{ Q_OBJECTpublic: explicit Widget(QWidget *parent = 0); ~Widget(); bool buttonsUnderMuse(); void movebuttonToUp(); void movebuttonToDown();private: Ui::Widget *ui;};#endif // WIDGET_Hwidget.cpp #include "widget.h"#include "ui_widget.h"#include <QPropertyAnimation>Widget::Widget(QWidget *parent) : QWidget(parent), ui(new Ui::Widget){ ui->setupUi(this);}Widget::~Widget(){ delete ui;}bool Widget::buttonsUnderMuse(){ return ui->pushButton->underMouse();}void Widget::movebuttonToUp(){ QPropertyAnimation *B_one = new QPropertyAnimation(ui->pushButton, "pos"); B_one->setDuration(1200); B_one->setEasingCurve(QEasingCurve::InBack); B_one->setStartValue(QPoint(0,260)); B_one->setEndValue(QPoint(0,200)); B_one->start();}void Widget::movebuttonToDown(){ QPropertyAnimation *B_one = new QPropertyAnimation(ui->pushButton, "pos"); B_one->setDuration(1200); B_one->setEasingCurve(QEasingCurve::InBack); B_one->setStartValue(QPoint(0,200)); B_one->setEndValue(QPoint(0,260)); B_one->start();}وهذا الملفات الخاصة بالـ Thread : mythread.h #ifndef MYTHREAD_H#define MYTHREAD_H#include <QThread>#include <widget.h>class myThread : public QThread{ Q_OBJECTpublic: explicit myThread(QObject *parent = 0); void run(); bool getBottnUnderMuse();signals:public slots:};#endif // MYTHREAD_Hmythread.cpp #include "mythread.h"#include "widget.h"myThread::myThread(QObject *parent) : QThread(parent){}void myThread::run(){ while(true) { if(getBottnUnderMuse() == true) { MovebuttonToUp; // I get error here ... error: 'MovebuttonToUp' was not declared in this scope } else { movebuttonToDow;  // I get error here ... error: 'movebuttonToDow' was not declared in this scope  } msleep(200); }}bool myThread::getBottnUnderMuse(){ return buttonsUnderMuse; // I get error here ... error: 'buttonsUnderMuse' was not declared in this scope} -------------------------------   المشكلة التي واجهتني هي اني لا استطيع الوصول من خلال "mythread.cpp" إلى الدوال الموجودة في ملف الهيدرا "widget.h" رغم اني وضعت ملف الهيدرا "widget.h" ضمن الـ include .. اعتقد ان المشكلة واضحه   وكذلك نقطة آخرى .. ربما اكون قد عملت هذا البرنامج بطريقة معقدة او ما شابه مثلاً .. البرنامج لا يحتاج إلى Thread بينما قمت بإستعمال ثريد لعمل مثل هذه الوظيفة .. لذلك لا مانع من طريق اخرى   وشكراً لحسن القراءة
  21. أتمنى المساعدة تقرير

    السلام عليكم ..   بدأ في استخدام برنامج الكريستال ريبورت و استعملت دالة الجمع لكنها لم تعمل بشكل صحيح ..   المجموع الكلي يجب أن يكون 10923.773 و لكن عندما أقوم بعملية الجمع يظهر 10923.772   علما بان القيم داخل قاعدة البيانات تم تخزينها بشكل صحيح و الدليل هو المخرجات كما في الصورة   من المفترض يجمع بدون تقريب كما في الإكسل   و الموضوع ارهاقني بكل صراحة .. فارجوا المساعدة ..   لكم وافر التحيات   رامي الوفي
  22. هذا المثال أخي ..   لا أعرف لماذا تعمل الدالة بطريقة التقريب في الجمع ..         test.zip
  23. السلام عليكم.... لقد قمت باستخدام الدالة Environ("Username") في احد استعلامات برنامج اكسس 2003 وعندما قمت بتحويل البرنامج الى اكسس 2007 لم يعمل الاستعلام ويخبرني ان الدالة غير معرفة فما هو الحل وشكرا...
  24. السادة و السيدات الكرام   سلام الله عليكم ورحمة منه وبركات   اعلم ان هذا الموضوع قد تم تداوله و البحث فيه اكثر من مرة   وقد قمت بتجربة اكثر من مثال وهي تعمل لكن ينقصها انه عند تطبيق الكود يصبح النموذج بما حوى شفاف اي ان الخلفية والازرار والنصوص تصبح كذلك شفافة   وهذا ليس ما اريده اريد ان تكون الخلفية فقط شفافة بينما الازرار والنصوص واضحة دون ان تتأثر بالكود او الشفافية   في طور بحثي لهذا الموضوع وجدت هذه الدالة وحسب ما فهمت انها تعمل اي انها تجعل خلفية النموذج شفافة دون ان تأثر على غيرها   اخوكم الفقير الى ربه يفتقر لبعض الخبرات في تطبيق الاكواد واستدعائها فلجئنا الى الله ثم اليكم طلبا للعون و المساعدة ... لا اطيل اليكم الدالة والمثال في المرفقات Private Const GWL_EXSTYLE = (-20)Private Const LWA_COLORKEY = 1Private Const LWA_ALPHA = 2Private Const WS_EX_LAYERED = &H80000Private Declare Function apiGetWindowLong Lib "user32" Alias "GetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long) As LongPrivate Declare Function apiSetLayeredWindowAttributes Lib "user32" Alias "SetLayeredWindowAttributes" ( _ ByVal hwnd As Long, _ ByVal Color As Long, _ ByVal AlphaPercent As Byte, _ ByVal Alpha As Long) As BooleanPrivate Declare Function apiSetWindowLong Lib "user32" Alias "SetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long ' Setting OpacityPercent to zero makes the form fully transparent.' Setting OpacityPercent to 100 makes the form fully opaque.' This only has an affect on forms whose PopUp property is True. Public Sub SetOpacity(frm As Access.Form, OpacityPercent As Byte) ' Ensure frm is a PopUp form. Raise an error if it is not. If Not frm.Popup Then err.Raise 5, , "Invalid argument." & vbCrLf & Namespace$ & " cannot SetOpacity on form " & frm.Name & ". PopUp form required." Else ' Force OpacityPercent between 0 and 100. If OpacityPercent > 100 Then OpacityPercent = 100 If OpacityPercent < 0 Then OpacityPercent = 0 ' Convert supplied percentage value to one ranging between 0 and 255 for apiSetLayeredWindowAttributes Dim iAlpha As Integer iAlpha = (OpacityPercent / 100) * 255 ' Get forms current extended attributes Dim attrib As Long attrib = apiGetWindowLong(frm.hwnd, GWL_EXSTYLE) ' Set form to have extended layered attribute apiSetWindowLong frm.hwnd, GWL_EXSTYLE, attrib Or WS_EX_LAYERED ' Set opacity apiSetLayeredWindowAttributes frm.hwnd, RGB(0, 0, 0), iAlpha, LWA_ALPHA End IfEnd Subبارك الله فيكم  :blush:  
  25. السلام عليكم أرجو شرح استخدام دالة iif في نموذج أكسس 2010 32 بت لثلاث اختبارات على الآقل ويتم تحديث جميع الحقول عند فتح النموذج مع جزيل الشكر ملف مرفق مع شرح المطلوب في المثال ضمن النموذج مثال.rar