• الإعلانات

    • فيصل الحربي

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

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

nasser50001

الخبراء المعتمدون
  • عدد المشاركات

    452
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل شيء نشر بواسطة nasser50001

  1. بسم الله الرحمن الرحيم  السلام عليكم احبابنا الكرام اعضاء منتيات الفريق العربي للبرمجة  انقطعت عنكم كثيرا ثم جاءت فكرة هذه الدورة لأعود اليكم بعد هذا الغياب الكبير واسأل الله تعالى ان تنال رضاكم وخطتي في هذه الدورة كالتالي سيتم عمل درس أو درسين في الأسبوع حسب المقدرة ومن ثم تكون المتابعة والأسئلة والإستفسارات هنا  واسأل الله تعالى أن نكون عند حسن الظن أو تنال هذه الدورة رضاكم كما نال كتاب " أنشأ مشروعك بالفيجوال بيسك 6 من الألف الى الياء " رضاكم قبلا وشاهدت التفاعل والتحميل وصل الى مئات الالاف  منتظر ردودكم وتعليقاتكم ونقدكم وملاحظاتكم على الدرس الأول وسانزل شرح كتابي ايضا للدر الأول ان امكن ذلك  لكم تحياتي جميعا    الدرس الأول : vb.net 2013   
  2. دورة visual Basic 2013 from A to Z

    جزاكم الله خيرا على مروركم وتشجيعكم  واعتذر معلش عن التأخير في الدروس  أخي ابو حازم .... اصبر معايا شوية لأني الهدف هو عمل كورس متكامل للدوت نت أي نعم هو هيطول شوية بس بإذن الله هيكون مفيد جدا جدا بإذن الله بحيث لما تصل لقواعد البيانات مش هتحتاج الا للمفهوم فقط وهيكون عندك امكانية للإبداع فيها بإذن الله 
  3. دورة visual Basic 2013 from A to Z

    الدرس الثامن : المصفوفات Arrays part 1  
  4. دورة visual Basic 2013 from A to Z

    الدرس السابع : جملة While Loops & with and Goto statments  
  5. دورة visual Basic 2013 from A to Z

    هههههههه ربنا يبارك فيك اخي ابو حازم  لا فرق يذكر بين 2012 و 2013 في أغلب اعمالنا الصغيرة والمتوسطة ولكن بيئات التطوير الكبرى فروقات الى حد ما جيدة ولكن هو في النهاية عامل زي موديلات السيارات كل سنة موديل علشان ابييع  ممكن الاطلاع على الرابط دا من باب العلم بالشيئ  http://msdn.microsoft.com/en-us/library/bb386063.aspx
  6. دورة visual Basic 2013 from A to Z

    لمن يحب القراءة  هذا الدؤس الأول من الدورة على هيئة ملف PDF  الحقوق محفزظة والنقل مسموح مع ذكر المصدر      تحياتي للجميع 
  7. دورة visual Basic 2013 from A to Z

    الدرس الثاني : شرح الأدوات النماذج ومربع النصوص والأزرار والقوائم في مثال عملي وهو عمل آلة حاسبة      أرحو أن يستفيد منه الجميع والى لقاء في درس آخر ان شاء الله 
  8. دورة visual Basic 2013 from A to Z

    الدرس الثالث : المتغيرات  والثوابت وجملة if....elseif  
  9. دورة visual Basic 2013 from A to Z

    الدرس الرابع : الدوال الرياضية - جملة select case وجملة for each   
  10. دورة visual Basic 2013 from A to Z

    الحلقة الخامسة : جملة التكرار for loops  
  11. دورة visual Basic 2013 from A to Z

    ربنا يكرمك أخي ابو حازم انت بتجبر بخاطري هههههههههههههههههه   الحلقة السادسة : Do Loops  
  12. دورة visual Basic 2013 from A to Z

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

    المعلومة الرابعة  أداة القص والتقاط الشاشة snipping tool   https://www.youtube.com/watch?v=Am2Lp8nh39s
  14. وهي على غرار سلسلة IT harakat    المعلومة الأولى : موقع تحميل كتب تقنية رااااائع    https://www.youtube.com/watch?v=XYDRxgfnv5s
  15. سلسلة معلومة تقنية على السريع

    قصد حضرتك عمل برنامج مثله بالفيجوال بيسك  فكرة رائعة .... وإن شاء الله ممكن نتناول عمل برنامج شبيه بيه في دورة الفيجوال بيسك 2013 التي تتم بالمنتدى 
  16. سلسلة معلومة تقنية على السريع

    هو البرنامج بسيط جدا ومش محتاج شرح انت نزله واستخدمة وهتلاقيه بسيط جدا 
  17. سلسلة معلومة تقنية على السريع

    المعلومة الثالثة : برنامج Info Box   https://www.youtube.com/watch?v=vayYrB5804c
  18. دورة visual Basic 2013 from A to Z

    عجيب مئات المشاهدات و29 تحميل ولا رد حتى الان 
  19. سلسلة معلومة تقنية على السريع

    المعلومة الثانية    معلومات عن الكائن Sender   https://www.youtube.com/watch?v=EOYhDIckPSQ
  20. دورة visual Basic 2013 from A to Z

    لمن يحب القراءة هذا هو الدرس الأول على هيئة ملف PDF  اسأل الله تعالى التوفيق للجميع  منتظر مشاركتكم وارائكم    الدرس الأول -visual basic .net 2013 from A to Z.pdf
  21. دورة visual Basic 2013 from A to Z

    ارجو اعتماد هذه المشاركة وحذف المكررة كان يعطي رسالة خطأ فاقوم بعمل Refresh فيحدث التكرار ( بطئ النت ) 
  22. السلام عليكم ورحة الله وبركاته غبت فترة طويلة جدا عن منتداي الحبيب منتدى الفريق العربي للبرمجة وهي غيبة خارجة عن ارادتي لأنشغالي ولكن كنت اتخطف الدخول في مرات كثيرة وكنت الاحظ واتابع التطور الكبير في المنتدى ايضا ولقد اشتقت كثيرا للمنتدى ولأفراد المنتدى القدامى منهم والجدد واسأل الله تعالى أن يجمعنا دائما على الخير الحقيقة كنت في احد المقابلات وهناك كان يوجد مجموعة من الخريجين وذكر أحدهم وهو يتحدث عن مشروع تخرجة وقال انه استفاد كثيرا من كتاب " انشأ مشروعك بالفيجوال بيسك 6 من الألف الى الياء " فلما قلت له أنا مؤلف الكتاب احتفى بي كثيرا وشكرني على الإستفادة الكبيرة التي حصلها من الكتاب وهو سيسافر الى بلد خليجي مدرب كمبيوتر فعلمت ان بذل العلم افضل القربات الى الله تعالى وافضل ما تنفع به الناس المهم لا اطيل عليكم جائتني فكرة شرح بعض البرامج العملية وتنفيذها سويا وشرح اكوادها وهي الطريقة التي اظن ان تكون فعاله في تعلم البرمجة وسابدا قريبا في وضع بعض البرامج الصغيرة في اجزاء محددة من اللغة ( الأدوات - الرسوم - الصور - قواعد البيانات ... الخ ) وستكون البرامج من برامجي أو برامج غيري أو من برامج على النت ولكن سيتم شرحها وتنفيذها عمليا معا خلال هذه الدروس وشرح اكوادها بشيئ من التفصيل وانتظرونا إن شاء الله وارجو ان تعطوني رايكم في هذه الفكرة لكلم تحياتي الخالصة
  23. أخواني الأعزاء أعضاء هذا المنتدى الرائع معكم أخوكم ناصر عضو جديد قديم جديد لأن هذه أول مشاركة فعليه لي بالمنتدى الرائع قديم لأني كنت مسجل باسم في هذا المنتدى من فترة طويلة ونسيته لقد قمت بشرح مجموعة من الدروس تحت عنوان " أنشأ مشروعك بالفيجوال بيسك 6 من الألف إلى الياء " في منتدى المبرمجين العرب وأنا أحب أن أضعه هنا بعد إذن السادة مشرفي الركن ليستفيد منه الجميع لإارجو من السادة المشرفين والأعضاء أن يعطوني OK على ذلك حتى أبدأ فيه وإن كان أحد تناوله من قبل فليضع الرابط هنا حتى أشير إليه في الشرح لأني أعتقد أن الشروحات تختلف حسب الخبرة وحسب كيفية تناول الموضوع وللجميع تحياتي
  24. شرح برامج عملية في vb.net

    كود عملية الطرح If ina = True And TextBox1.Text <> "" Then b = Val(TextBox1.Text) If c = 1 Then addition() ElseIf c = 2 Then subtraction() ElseIf c = 3 Then multi() ElseIf c = 4 Then divi() End If c = 2 ElseIf ina = False and c =0 And TextBox1.Text = "" Then c = 5 TextBox1.Text = "-" ElseIf ina = True And TextBox1.Text = "" Then ElseIf ina = False And TextBox1.Text <> "" And TextBox1.Text <> "-" Then ina = True a = Val(TextBox1.Text) TextBox1.Text = "" c = 2 ElseIf TextBox1.Text = "-" Then c = 0 ina = False TextBox1.Text = "" End If شرح الكود 1- يتم التأكد من أن مربع النص غير فارع وأن هناك قيمة اولى مخزنة بالمتغير inta وهذا يعني وجود قيميتن لإجراء عملية الطرح 2 - يتم تخزين القيمة الحالية بالمربع في المتغير b الذي يمثل الفيمة الثانية 3 - يتم التأكد من رقم العملية وتنفذ الإجراء الخاص بالعملية الذي تم شرحة في الدرس السابق 4 - هكذا يكون تم عملية الطرح 5 - بقية الكود يناقش حدوث خطأ معين مثل انه لا توجد قيمة أولى أو عدم وجود قيمة بمربع النص وهكذا فيتم انهاء العملية ووضع قيمة بالمتغير C كود الضرب If TextBox1.Text = "" Then a = 0 c = 3 ina = True Else If ina = True And TextBox1.Text <> "" Then b = Val(TextBox1.Text) If c = 1 Then addition() ElseIf c = 2 Then subtraction() ElseIf c = 3 Then multi() ElseIf c = 4 Then divi() End If c = 3 Else ina = True a = Val(TextBox1.Text) TextBox1.Text = "" c = 3 End If End If شرح الكود الكودواضح جدا كما تم شرحة في الأزرار السابقة كود القسمة If TextBox1.Text = "" Then a = 0 c = 4 ina = True Else If ina = True And TextBox1.Text <> "" Then b = Val(TextBox1.Text) If c = 1 Then addition() ElseIf c = 2 Then subtraction() ElseIf c = 3 Then multi() ElseIf c = 4 Then divi() End If c = 4 Else ina = True a = Val(TextBox1.Text) TextBox1.Text = "" c = 4 End If End If نفس الشرح السابق كود زر المساواه = b = Val(TextBox1.Text) If c = 1 Then addition() ElseIf c = 2 Then subtraction() ElseIf c = 3 Then multi() ElseIf c = 4 Then divi() End If الكود واضح جدا وهو استدعاء اجراء العملية المطلوبة كود زر المسح C TextBox1.Text = "" a = Nothing b = Nothing c = 0 flag = False ina = False inb = False الكود أيضا واضح جدا كود تخزين قيمة بذاكرة الحاسبة ms If TextBox1.Text = "" Then Else ms = TextBox1.Text End If حيث يتم تخزين قيمة مربع النص الى المتغير ms وإن كان مربع النص فارغ فلن يتم تخزين شيئ كود قراءة القيمة المخزنة بذاكرة الحاسبة MR If ms = "" Then Else TextBox1.Text = ms End If الكود واضح إن كان المتغير ms به قيمة يتم وضعها بمربع النص كود أزالة المخزن بذاكرة الحاسبة MC If ms = "" Then Else ms = "" End If الكود واضح جدا اكواد الأزرار الباقية واضحة جدا وهضغها في مرة واحدة كود زر 1/x Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click TextBox1.Text = 1 / Val(TextBox1.Text) End Sub كود زر الجزر التربيعي Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click TextBox1.Text = Val(System.Math.Sqrt(TextBox1.Text)) End Sub كود زر مسح مربع النص Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click TextBox1.Text = "" End Sub كود حذف ارقام للخلف z = TextBox1.Text.Length If TextBox1.Text = "" Then Else y = TextBox1.Text.Substring(0, z - 1) TextBox1.Text = y End If كود زر الفاصلة العشرية . Private Sub ButtonDot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDot.Click ' Just little change here, when empty put "0." If InStr(TextBox1.Text, ".") Then Else If c <> 0 Then If TextBox1.Text = "" Then TextBox1.Text = "0." ElseIf TextBox1.Text = "-" Then TextBox1.Text = TextBox1.Text + "0." Else TextBox1.Text = TextBox1.Text + "." End If Else If TextBox1.Text = "" Then TextBox1.Text = "0." Else TextBox1.Text = TextBox1.Text + "." End If End If End If End Sub كود زر الخروج Private Sub ButtonExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonExit.Click 'Exiting MsgBox("Thanks for Using Calc v1.4", MsgBoxStyle.OkOnly, "Good Bye...") Me.Close() End Sub مرفق المشروع كامل في المرفقات اراكم في برنامج آخر إن شاء الله Calc.rar
  25. شرح برامج عملية في vb.net

    اعتذر عن التأخير كثيرا وسوف اكمل قريبا إن شاء الله اراكم قريبا مع تكملة المثال ومثال جديد إنش اء الله