iemad

أخي ترجمة الكتاب يحتاج الى وقت كبير من كتابته الى اللغة العربية . يوجد مترجم الوافي تقدر ترجمة النصوص عليه .

بارك الله بك أخي ....

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

بارك الله بكم والى الامام .....

سلمت يداك اخ شامشوم فعلا برنامج رائع , لكن أردت أن أطرح عليك برنامج تطوير لهذا البرنامج ,أرجوا منك أن تنظر في الموضوع . وأنا بدوري سوف أعمل عليه على برنامج vb.net .

هذا الكود يعطيك المطلوب أن شاء الله . فقط خطأ واحد في الكود كانت كلمة now المفروض أن تضع كلمة date التاريخ لأن كلمة Now تعطيك التاريخ والوقت . Private Sub Command1_Click() MsgBox Age("27/09/1978") End Sub Public Function Age(DoB As Date) Age = Int((Date - DoB) / 365.25) End Function

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

سؤال سأله احدهم حول ( لم لا يطورون برنامج الفرونت بيج والذي أصبح من المنافسيين على الساحة ) . في أعتقادي أنها فلسفة البزنس , وأيضا كل Product يعمل عليها مجموعة من المبرمجين حيث أن برنامج الاوفيس يعملون عليه مجموعة كبيرة وهي المسؤولة عن هذا المنتج , وهذا المنتج الجديد (Expression Web) ايضا يعمل عليه مجموعة من المبرمجين .وهكذا دوالييييييييييييييييك ....

أسأل الله أن يرزقك العلم لانك من الذين لا يبخلون في نشره .....

أولا السلام عليكم لعمل وظيفة عمومية على كامل المشروع ما عليك ألا أن تكتب الكلمة public كما تفضلت مسبقا وتكتبها في موديول أيضا كما قلت ,وتستطيع ألغاء الكلمة Public لأن المحرر سوف يترجمها تلقائيا على أنها عمومية . من المفترض ان الوظيفة ترجع قيم , ويتم تصريح الدالة أو الوظيفة كما تفضلت كالتالي : Function AnyThing (Ddate as Date) .... .. . End Function لقد صرحت دالة على أنها وظيفة تقوم بعمل معين ,وعلى أنها عمومية أنظر أخي الكريم رغم أني لم أضع الكلمة المحجوزة public ولكن المحرر سوف يصرحها على أنها عمومية وتستطيع الوصول أليها من كامل المشروع . لكني لم أفهم بالزبط ما تقصده من أنك تريد تغيير الثوابت , على حسب معلوماتي أن الثوابت تأتي كالتالي مصرحة بأعلى المشروع أو الموديول Const MB_ICONQUESTION = &H20L Const MB_YESNO = &H4 Const IDYES = 6 Const IDNO = 7 تصريح الثابت يبدأ بالكلمة المحجوزة Const ثم المتغير الذي سيحمل القيمة سواء كانت رقما أو نصا . أما حول تغيير الثابت لا أظن أنه من الممكن تغيير قيمة الثابت وسوف يعطيك خطأ . سوف أعطيك مثال حول تصريح وظيفة وتقوم بأرجاع قيمة لي . Function Values(Nnumber As Integer) Nnumber = Nnumber * 2 Values = Nnumber End Function لقد صرحت الكلمة Values على أنها وظيفة , ثم وضعت لها بارامتر Nnumber وصرحته كرقم Integer. لأمرر للوظيفة Values من خلال البارامتر Nnumber ثم يضرب العدد ب أثنين , ثم أعيد القيمة النهائية الى الوظيفة . أستدعائها يتم كالتالي : Label1.Caption = Values(55)

السلام عليكم أهل المنتدى الكرام ما شاء الله الله يعطيكم ألف عافية . والله أنا لي مداخلة بسيطة وأرجوا أن تكون مفيدة , بالنسبة الى الفرز في قاعدة بيانات أكسل كانت أم أكسس أو أي برنامج آخر يتعامل مع قواعد البيانات . بالنسبة الى فرز البنات والاولاد , فمن الاسرع أن يكون الفرز بالأرقام وليس بالنص , فأن هذا يعطي سرعة أكثر بكثير من ما تتصوروا خاصة لو كانت لدينا ألوف الحقول أو الملايين . فأن البحث بين الحقول ومطابقة النصوص يعطي بطئ كبير وملحوظ , بينما البحث في حقل رقمي فهو أسرع بكثير. أنا عندي فكرة أرجوا أن تكون محط بحث بينكم . أن نضع شرط في الفرز أذا كان الحقل يحمل رقم صفر فأن هذا يعني أنه ولد وأذا كان يحمل رقم 1 هذا يعني أنها بنت . والكود التالي يوضح الامر : Sub test_2() cr = Application.WorksheetFunction.CountA(Range("c:c")) For i = 2 To cr If Worksheets("Main").Cells(i, 3) = "0" Then MsgBox "ولد" & (i) Else MsgBox "بنت" & (i) End If Next End Sub