• الإعلانات

    • فيصل الحربي

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

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

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

Showing results for tags 'اريد عمل تصفية في احد الحقول بناء على قيمة مدخلة'.

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

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

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

  1. عندى تقرير معين ما اريده وبحثت عنه الكثير هى خاصيه تحريك المربع هذا يمينا اويسارا لهذا السجل عندما يحتوى على قيمة معينه وليكن صفر فهل يمكن هذا ام لا 
  2. نسخ قيمة حقل الى حقل فى نفس الجدول (تسجيل القراءة السابقة تلقائى) نسخ قيمة حقل قديم فى الجدول الى السجل الحالة بشكل تلقائى  فكرة نقل القراءة السابقة للعداد السيارة الى القرائة الحالية لحساب فرق الكيلو مترات بشكل تلقائى  شاهد الشرح بفديو على اليوتيوب من هنا https://www.youtube.com/watch?v=1j3pPnfY6tQ https://www.youtube.com/watch?v=1j3pPnfY6tQ https://www.youtube.com/watch?v=1j3pPnfY6tQ <iframe width="560" height="315" src="https://www.youtube.com/watch?v=1j3pPnfY6tQ" frameborder="0" allowfullscreen></iframe>
  3. شرح اظهار عدد مرات التكرار لكل قيمة فى الجدول بجانب الحقل  شرح تفصيلى لاظهار عدد مرارت تكرار القيمة فى الجدول بجانب الحقل فى نموذج او استعلام  مع امكانية التعديل او بدون  شاهد الشرح بفديو على اليوتيوب من هنا   https://www.youtube.com/watch?v=2KjtEnSQWKs https://www.youtube.com/watch?v=2KjtEnSQWKs <iframe width="560" height="315" src="https://www.youtube.com/watch?v=2KjtEnSQWKs" frameborder="0" allowfullscreen></iframe>
  4. بناء نظام لتسجيل و حساب اجازات الافرد وبناء العلاقات وفئات-عدد الايام و عدد المرات شرح تفصيلى لانشاء نظام حساب اجازات الافراد وبناء العلاقات و استخراج تقرير عدد ايام الاجازة و عدد الاجازت لكل موظف  و توضيح فكرة تقسيم الفئات للافراد  شاهد الشرح بفديو على اليوتيوب من هنا 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>
  5. لقد أنشات نموذج لي للعمل مبني علي تصفية السجلات بواسطة القوائم المنسدلة كرقم الماكينة ورقم العامل والوردية ولكن لم استطيع أن أنشأ بواسطة تاريخ يوم معين فأرجو مساعداتي في ذلك  وجزاكم الله خيراً والنموذج اسمه form2 وعند فتح ملف الاكسيس سيتم فتحه تلقائي m.zip
  6. اريد عمل تصفية في احد الحقول بناء على قيمة مدخلة لدى جدول المحافظات وجدول اخر المدن مع ملاحظة كل محافظة لها مدن معينة وجدول الموظفين اريد مجرد اختيار المحافظة في نافذة الموظفين يقوم بعمل تصفية ويعرض المدن بالمحافظة المختارة فقط مرفق قاعدة البيانات    
  7. يوجد لدي قاعدة بيانات ويوجد جدولين الاول به حقل حالة المريض ( عناية . طوارئ. خروج)  والجدول الثاني لزيارات ذلك المريض ومن ضمن حقوله حالة المريض ( عناية . طواري . خروج) عملت نموذج اساسي للجدول الاول وبه جدول فرعي للجدول الثاني وسجلاته مستمرة المطلوب عند تغيير حالة المريض في النموذج الفرعي ياخذ قيمة اخر حقل ( ممكن المريض طوارئ في السجل الاول والسجل الثاني طواري والثالث خروج فياخذ اخر قيمة وهي خروج ) ويحدث حالة المريض في الجدول الاساسي بناء على اخر قيمة في النموذج الفرعي  الجدولين مرتبطه 
  8. لدى  برنامج mde اريد معرفة محتوى Module021 Connection  هل يوجد أى برنامج decompiler لفك   Modules
  9. كيف يمكن جمع وقت مع رقم ثابت
  10. السلام عليكم ورحمه الله وبركاتة .. انا عندي جدول للفواتير وفية رقم الفاتورة ورقم الموظف والتاريخ ورقم العميل واسم العميل ..  واريد جملة استعلام تظــهر لي فيها .. جميع العملاء المسددين وغير المسددين .. ووكمان اللي هو مسـدد يظهر اخر تاريخ سدد ( دخل النظام ) واخر قراءة اخذت منة  . ممكن الافادة جزاكم الله خير..  ومشكورين سلفاً   
  11.    يعلن مركز 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     
  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. ( كيفية استدعاء قيمة في مربع نص ووضعها بمربع نص اخر بنموذج اخر ). السلام عليكم ورحمة الله وبركاته ،،، اخواني الكرام عندي نموذج لفاتورة مبيعات قمت بعمل نموذج منفصل عنها وظيفته (البحث عن اسم الصنف) - ويتم فتحه عن طريق الضغط على زر بنفس نموذج المبيعات المطلوب : بعد اتمام عملية البحث في (نموذج البحث) المستقل عن نموذج فاتورة المبيعات كيف استدعي اسم الصنف الذي قمت بالبحث عنه ووضعه في حقل (اسم الصنف) في نموذج فاتورة المبيعات ( بمجرد الضغط على زر انتر ). (برجاء التعديل على الملف وارساله مره اخرى بعد تعديله) مع خالص الشكر والتقدير للجميع الملف.mdb
  14. ( كيفية استدعاء قيمة في مربع نص ووضعها بمربع نص اخر بنموذج اخر ). السلام عليكم ورحمة الله وبركاته ،،، اخواني الكرام عندي نموذج لفاتورة مبيعات قمت بعمل نموذج منفصل عنها وظيفته (البحث عن اسم الصنف) - ويتم فتحه عن طريق الضغط على زر بنفس نموذج المبيعات المطلوب : بعد اتمام عملية البحث في (نموذج البحث) المستقل عن نموذج فاتورة المبيعات كيف استدعي اسم الصنف الذي قمت بالبحث عنه ووضعه في حقل (اسم الصنف) في نموذج فاتورة المبيعات ( بمجرد الضغط على زر انتر ). مع خالص الشكر والتقدير للجميع الملف.mdb
  15. ( كيفية استدعاء قيمة في مربع نص ووضعها بمربع نص اخر بنموذج اخر ). السلام عليكم ورحمة الله وبركاته ،،، اخواني الكرام عندي نموذج لفاتورة مبيعات قمت بعمل نموذج منفصل عنها وظيفته (البحث عن اسم الصنف) - ويتم فتحه عن طريق الضغط على زر بنفس نموذج المبيعات المطلوب : بعد اتمام عملية البحث في (نموذج البحث) المستقل عن نموذج فاتورة المبيعات كيف استدعي اسم الصنف الذي قمت بالبحث عنه ووضعه في حقل (اسم الصنف) في نموذج فاتورة المبيعات ( بمجرد الضغط على زر انتر ). مع خالص الشكر والتقدير للجميع
  16. السلام عليكم  اريد  ان يعطيني البرنامج رسالة تنبيه قبل انتهاء الصلاحية او في نفس اليوم المراد  الريد شرح مبسط عن طريق الاستعلامات اذا فيه  او التنسيق الشريطي  وشكرا   
  17. برنامجى لقيد اليومية اريد تحويلة من اكسل الى الاكسس بنفس الشكل هل من مساعد  ارفقت لكم صفحة من قيد اليومية وهى من 31 ملف بتاريخ الايام لكل الشهور مقسمة بداخل 12 فولدر حصيلة شهور السنة واحببت ان اصمم برنامج لى على الاكسس للقيد ولكنى فشلت فهل من مساعدة  Accounts.xls
  18. برنامجى لقيد اليومية اريد تحويلة من اكسل الى الاكسس بنفس الشكل هل من مساعد  ارفقت لكم صفحة من قيد اليومية وهو عباره عن ملف به 31 يوم بفولدر به 12 ملف حصيلة السنة واحببت ان اصمم برنامج لى على الاكسس للقيد ولكنى فشلت فهل من مساعدة  Accounts.xls
  19. السلام عليكم ورحمة الله وبركاته  كل عام وانتم بخير أخواني يوجد لدي فاتوره بها عدة اصناف اريد جمع قيمة كل صنف بالفاتوره ووضعه اسفل التقرير مثل الصوره المرفقه
  20. السلام عليكم اخوتي الأعزاء لدي استفسار حول الملف المرفق خاص بصيدلية وهو كيف عمل فورم يتم من خلاله ادخال سندات وارد بشرط اذا كان (رمز الدواء ورمزه الوطني واسمه ورقم الوجبة وتاريخ النفاذ مطابقا" يضيف الكمية الجديدة الى الكمية الحالية واذا اختلفت فقط رقم الوجبة او تاريخ النفاذ يعتبره سجل جديد وحين افتح واجهة الصرف فبمجرد ادخال الرمز يستعرض لي كافة السجلات التي تحمل هذا الرمز ومتشابهة بالحقول اعلاه عدى رقم الوجبة وتاريخ النفاذ ليتم الصرف من الكمية القريبة النفاذ. وحين استعرض ارصدة المواد في واجهة استعراض الارصدة فبمجرد ادخال رمز المادة يضهر الرصيد الكلي اعتمادا" على الرمز بغض النظر عن رقم الوجبة وتاريخ النفاذ. واكون لكم من الشاكرين   ddddd.rar
  21. شركة المجد لمعدات الاتصالات السلكية واللاسلكية مقرها في مدينة رام الله، واستأجرت الشركة مكتبين في بناية في مدينة طولكرم تتكون من طابق واحد، المكتب الأول للإدارة والآخر للمستودع، والمكتبين في موقعين منفصلين يبعدان عن بعضهما حوالي 1000 متر. ترغب شركة المجد بشراء وتركيب بعض معدات الشبكة في طولكرم لتوفير شبكة تصل محطات العمل ويندوز XP بثلاثة خوادم: اثنان يدعمان بيئة نوفل نيتوير (NET1, Net2)، وخادم 2003 واحد يدعم بيئة ويندوز (WINS). مواصفات الموقعين في مدينة طولكرم: جميع الأجهزة مزودة ببطاقات شبكة سلكية مثبتة. يجب أن تتوافق الشبكة مع المعايير التالية: مكتب الإدارة يشمل قسمين: قسم المعدات وقسم الخدمات، كل قسم لديه ستة مستخدمين وطابعة واحدة جميعها متصلة بالشبكة (عدد المستخدمين = 12 وعدد الطابعات = 2). المستودع يشمل قسمين أيضاً: قسم المبيعات وقسم التسويق. كل قسم لديه خمسة مستخدمين وطابعة واحدة متصلة بالشبكة (عدد المستخدمين = 10 وعدد الطابعات = 2).  يجب أن يكون الموقعان متصلين (الإدارة والمستودع) مع بعضهما البعض باستخدام مقسمات إيثرنت (Ethernet Switches). الخادم NET1  يجب أن يكون موجودا في المستودع. الخادمان NET2 و WINS يجب أن يكونا موجودين في الإدارة. السؤال: ارسم رسماً توضيحياً يبين كيف سيتم بناء الشبكة الجديدة في طولكرم. مبينا الاحتياجات والمعدات والأجهزة اللازمة (مثال: أنواع الكوابل، الموزعات، المقسمات، الموجهات، .... وغيرها) والعدد المطلوب، وعدد المنافذ المطلوبة في كل منها.  
  22. في قاعدة البيانات المرفقة 2015 يوجد جدول باسم main وهذا الجدول مؤلف من : ID ترقيم تلقائي Nostudent رقم Notes رقم NoDay رقم نلاحظ من خلال الصورة المرفقة أن القيمة الافتراضية للحقل هي (صفر) السؤال: كيف يمكن جعل القيمة الافتراضية للحقل هي قيمة السجل السابق من خلال نموذج أو من خلال الجدول نفسه وتتغير القيمة بتغيير السجل السابق ففي المثال يجب أن تكون... Nostudent 82 Notes 12 NoDay 25 2015.zip
  23.   تبرمج الالعاب اساسا بتقنية اسمها 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/
  24. ياجماعه انا كنت عاوز برنامج علي Access ويكون كامل وسهل او عندي برنامج كان موجود ع النتوده اللبنك بتاعه http://file.topmaxtech.net/do.php?id=5062 هو مشكله انه تجريبي هو كويس اوي لشغلي بس مشكله ان لما رصيد المنتجات تخلص مبيعرفنيش
  25. السلام عليكم ...اعضاء المنتدى الكريم اضع بين ايديكم تساؤل واعلم اني سأجد جوابه باذن الله منكم في المرفق لدي نموذج اسمه "البيانات" وداخل النموذج زرين امر "مدين - دائن" وكذلك يوجد مربع نص اسمه "رقم الحساب" المطلوب : 1- اريد عندما يدخل المستخدم رقم الحساب ويقوم بالضغط على زر دائن او مدين يقوم البرنامج بالتاكد من تحقق شرط وهو اذا كان ثالث رقم من جهة اليمين في مربع النص رقم الحساب هو 3 يفتح التقرير الخاص بالتفقيط بالدولار ... وفي حال انتفى هذا الشرط يقوم بفتح التقرير الخاص بالتفقيط بالريال فقط هذا كل ما اريد علما اني جعلت تقرير اسمه "report" وهو يقوم بالفتح تلقائيا عند الضغط على زر دائن   وتقرير اسمه "report1" وهو يقوم بالفتح تلقائيا عند الضغط على زر مداين  اعلم ان هناك طريقة عملية افضل مما قمت به لذا ارجوا من الاساتذة الكرام الا يبخلوا بها علي وشكرا  last212.rar