مشاهدة نتائج الإستطلاع: هل تري ان سلسلة دروس الفيجوال بيزك هذه مفيدة ؟

المصوتون
38. أنت لم تصوت في هذا الإستطلاع
  • نعم مفيدة واستفدت منها

    32 84.21%
  • مفيد ولكني لم استفيد منها

    4 10.53%
  • لا ليس مفيد

    1 2.63%
  • لا اعلم

    1 2.63%
صفحة 4 من 12 الأولىالأولى 123456789 ... الأخيرةالأخيرة
النتائج 46 إلى 60 من 178

الموضوع: سلسلة دروس في الفيجوال بيسك

  1. #46
    التسجيل
    27-03-2006
    الدولة
    موريتانيا
    المشاركات
    160

    مشاركة بسيطة

    فعلا درس ممتاز

    جعله الله في ميزان حسناتك

    وانا ايضا مع سر العرب في رايه

    اتمني ان يتم تثبيت الموضوع

    شكرا على الشرح المميز هذا

  2. #47
    التسجيل
    02-03-2006
    الدولة
    غــــــريب في بلاد الغربـــــة
    المشاركات
    940

    رد: مشاركة بسيطة

    اقتباس المشاركة الأصلية كتبت بواسطة حبيبة الشيخ
    فعلا درس ممتاز


    جعله الله في ميزان حسناتك

    وانا ايضا مع سر العرب في رايه

    اتمني ان يتم تثبيت الموضوع


    شكرا على الشرح المميز هذا



    بارك الله فيك على هذا الكلام

    اتمني ان تحافظي على نشاطك

    ونتتابعى بقية الدروس

    انشاء الله



  3. #48
    التسجيل
    02-03-2006
    الدولة
    غــــــريب في بلاد الغربـــــة
    المشاركات
    940

    الدرس التاسع ...............{9}







    في الدروس السابقة تعلمنا كيفية فتح قاعدة البيانات والتعامل معها ، العرض في الجدول MSFlexGrid ، والآن سوف نقوم بالبحث من خلال احدى جمل الاستعلام ،
    من المفضل مراجعة دروس TSQL في الموسوعة إذا لم تكن قد تعرفت على جملة Select
    من جمل الاستعلام قبل البدء بقراءة هذا الدرس .



    تذكير سريع بجملة Select .


    من أشهر جمل الاستعلامات هي الجملة التي تستخدم الكلمة المفتاحية Select . وصيغتها القياسية هي :



    كود:
    select field(s) form table(s) where conditon



    حيث أن Fields تعني الحقول التي تظهر نتيجتها في البحث ،
    وقد تكون اسماء حقول مثل name,tele أو قد تكون * لعرض الكل ،
    وقد تكون نواتج عملية حسابية مثل( Maxnumber) أو Count(*) .
    أما Tables فهي اسماء الجداول ، والشروط فهي مثل name='ahmed' و age>5 ، مع استخدام معاملات اخرى مثل between و Like ، وبارميترات Parmeters مختلفة مثل ? و - وغيرها .
    وأخيراً اذكرك بأنه عند التعامل مع النصوص فإنه لا بد من وضع ''
    حول الاسم ، ومع التواريخ يتم وضع ## حول التاريخ وهما النوعان
    الأكثر استخداماً ، أما الارقام فلا تحتاج إلى اي شيء .

    والآن إلى بداية الدرس .
    سوف نضيف أولاً الجزء الخاص بشاشة البحث ، سوف يكون بالشكل التالي :
    كود:
    البحث عن الأشخاص الذين لديهم ( ComboBox1 ) ( ComboBox2 ) ( searchText )
    إذا لم تظهر الجملة السابقة مرتبة فهذا راجع إلى اتجاه الكتابة .

    حيث سيحتوي ComboBox1 على ( الرقم - الاسم - الهاتف ) أما الثاني فيحتوي على ( = - > - < ) ، وتوضع كلمة البحث في ال searchText .
    ومن ثم يوضع زر أمر بعرض نتائج البحث في الجدول .
    في حدث Form_Load سوف نضيف العناصر المطلوبة للقائمتين :
    كود:
     
    Combo1.AddItem "الرقم"
    
     
    
    Combo1.AddItem "الاسم" Combo1.AddItem "الهاتف"
    Combo1.ListIndex = 0 Combo2.AddItem "=" Combo2.AddItem ">" Combo2.AddItem "<" Combo2.ListIndex = 0

    ولا بد من التحكم في القائمة الثانية ، حيث لا يمكن التحكم بها إلا عند اختيار الرقم ، أما الاسم والهاتف فلا يمكن البحث ب < أو > في مثالنا هذا - يمكن استخدامها ولكن ليس في مثل هذا المثال - . ويتم ذلك من خلال الحدث Click للاداة Combo1 :


    كود:
    Private Sub Combo1_Click() If Combo1.ListIndex <> 0 Then Combo2.Enabled = False Else Combo2.Enabled = True End If End Sub
    في بداية زر الامر سوف نتأكد من أنه ادخل كلمة للبحث عنها :

    كود:
    If searchText.Text = "" Then MsgBox "نص البحث فارغ" Exit Sub End If
    لاحقاً سوف نشكل جملة الاستعلام ، وذلك بالشكل التالي :

    كود:
    Dim fldname As String Dim op As String Dim lst As String If Combo1.ListIndex = 0 Then fldname = "nu" op = Combo2.Text lst = "" ElseIf Combo1.ListIndex = 1 Then fldname = "fn" op = "='" lst = "'" Else fldname = "te" op = "=" lst = "" End If Dim sql As String sql = "select * from tb where " & fldname & op & searchText.Text & lst
    حيث نخزن في fldname الحقل الذي نبحث عنه ، op معامل البحث ، واخيراً lst تحدد إذا ما كنا سوف نضيف ' من أجل النصوص .
    والآن جاء دور تنفيذ جملة الاستعلام على قاعدة البيانات D1 ومن خلال الجدول الاضافي T2 :

    كود:
    Set T2 = D1.OpenRecordset(sql, dbOpenDynaset) وأخيراً سوف نقوم بملء الجدول من خلال استدعاء Fill_Table . fill_Table

    خاتمة :


    بنهاية هذا الدرس نكون قد تعلمنا إحدى جمل الاستعلام وهي جملة Select ،
    لا زلت افضل ان تتم مراجعة دروس الاستعلام في الموسوعة .
    وبقي أن اذكرك بإن جمل الاستعلام لا تعمل جميعها على هذه الطريقة من الاتصال بقاعدة البيانات
    بنفس الطريقة ، جرب مثلاً استخدام جمل مثل جمل Delete وستظهر لك رسالة خطأ .
    Invalid Operation

    في هذا السلسلة البسيطة من الدروس تعرفنا على اساسيات التعامل مع Dao
    من خلال فيجوال بيسك Visual Basic مع قواعد بيانات Access .

    وهذا هو ملف العمل ، الحجم التقريبي = 7 kb على هذا الرابط
    أسأل الله أن أكون قد وفقت في هذا الشرح البسيط ، فما كان فيه من صواب فمن الله ،

    وما كان من خطأ فمن نفسي والشيطان ، والله الهادي إلى سواء السبيل .


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




  4. #49
    التسجيل
    24-04-2006
    الدولة
    ساكن فى قلب حبيبتي الغاليه عليا وعلى كل الناس (^_^)
    المشاركات
    61

    رد: سلسلة دروس في الفيجوال بيسك

    السلام عليكم

    بارك الله فيك اخوي الحبيب لمين

    على هذا الدرس

    وجاري تحميل الملفات

    شكرا جزيلا
    اخوكم في الله جمال محمد الامين الناصري


    لـقد سمعـت اذا نديـت حـيا .:. ولكن لا حيت لمن تنادى


    وإذ نـار نــفـخــت بـهــا اضــــأت .:. ولكن جل نفخك فى ارمادى


  5. #50
    التسجيل
    02-03-2006
    الدولة
    غــــــريب في بلاد الغربـــــة
    المشاركات
    940

    رد: سلسلة دروس في الفيجوال بيسك

    شكرا اخي سر العرب

    بس انا ابي اسئلة

    ليش ما تسالوني؟؟؟؟؟؟؟




  6. #51
    التسجيل
    27-03-2006
    الدولة
    موريتانيا
    المشاركات
    160

    رد: سلسلة دروس في الفيجوال بيسك

    السلام عليكم


    شكرا الحبيب لمين

    على هذا المجهودك الرائع

  7. #52
    التسجيل
    02-03-2006
    الدولة
    غــــــريب في بلاد الغربـــــة
    المشاركات
    940

    رد: سلسلة دروس في الفيجوال بيسك

    اقتباس المشاركة الأصلية كتبت بواسطة حبيبة الشيخ
    السلام عليكم



    شكرا الحبيب لمين

    على هذا المجهودك الرائع


    السلام عليكم

    شكرا على ردك الجميل والمشجع

  8. #53
    التسجيل
    24-04-2006
    الدولة
    ساكن فى قلب حبيبتي الغاليه عليا وعلى كل الناس (^_^)
    المشاركات
    61

    رد: سلسلة دروس في الفيجوال بيسك

    السلام عليكم

    اخي الحبيب لمين

    اين الدرس ؟؟؟؟؟؟؟؟

    اتمني ان السلسلة ما تكون انتهت

    اتمني ان تجيبني في اسرع وقت

    اخوك سر العرب
    اخوكم في الله جمال محمد الامين الناصري


    لـقد سمعـت اذا نديـت حـيا .:. ولكن لا حيت لمن تنادى


    وإذ نـار نــفـخــت بـهــا اضــــأت .:. ولكن جل نفخك فى ارمادى


  9. #54
    التسجيل
    14-01-2005
    الدولة
    الاردن - عمان
    المشاركات
    1,818

    رد: سلسلة دروس في الفيجوال بيسك

    السلام عليكم

    مرحبا اخي

    فعلا اسف لتأخري

    ولكن شغلت بعض الوقت وظروف الدنيا كما تعرف

    الآن اخي

    اود ان اعبر لك عن مدى امتناني الشديد لك

    فعلا دروس رائعة في قواعد البيانات لم اكن حتى احلم باني ساحصل عليها

    لكن اعذرني اود سؤالك بما هو خارج عن هذا

    انا الآن بدأت ببرنامج او فكرته على الأقل تعتمد على قواعد البيانات بشكل كبير

    لكن ما يهمني وما يعيقني هو انني اود ان احصل على جميع الملفات الموجودة في مسار معين

    ولنفرض ان هذا المسار هو

    C:\Program Files

    المهم انا اود معرفة الكود الذي يقوم باستخلاص الملفات الموجودة في هذا المسار ووضعها في جدول في قاعدة البيانات او وضعها في list

    2- اريد طريقة استخلاص ملفات الورد على فرض ان المسار هو نفسه وطرقة وضع اسماء هذه الملفات في قاعدة بيانات او list

    اعتذر جدا لانني خرجت عن الدرس

    لكن قلت أسألك يمكن تعرف

    ومستعد اكلم احد المراقبين يحذف الرد في حال شعرت انه خرب الموضوع


    بالتوفيق

    واسفين على الازعاج والتأخير
    شبكة قانوني الاردن
    نسعى معا للرقي بالمهنة القانونية في الاردن
    www.lawjo.net


    -----------------------------------------
    e_amawi (at) yahoo.com

  10. #55
    التسجيل
    02-03-2006
    الدولة
    غــــــريب في بلاد الغربـــــة
    المشاركات
    940

    رد: سلسلة دروس في الفيجوال بيسك

    اقتباس المشاركة الأصلية كتبت بواسطة سر العرب
    السلام عليكم


    اخي الحبيب لمين

    اين الدرس ؟؟؟؟؟؟؟؟

    اتمني ان السلسلة ما تكون انتهت

    اتمني ان تجيبني في اسرع وقت


    اخوك سر العرب


    السلام عليكم

    اخي العزيز سر العرب

    اشكرك على حرصك على الدروس

    وانا بجد اسف اسف اسف اسف على درس امس

    اقد اسفي لك والي كل الاعضاء المتابعين للدروس

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

    سوف اعوض الدرس اليوم انشاء الله

  11. #56
    التسجيل
    02-03-2006
    الدولة
    غــــــريب في بلاد الغربـــــة
    المشاركات
    940

    رد: الاخ amawi

    اقتباس المشاركة الأصلية كتبت بواسطة amawi
    السلام عليكم

    مرحبا اخي

    فعلا اسف لتأخري

    ولكن شغلت بعض الوقت وظروف الدنيا كما تعرف

    الآن اخي

    اود ان اعبر لك عن مدى امتناني الشديد لك

    فعلا دروس رائعة في قواعد البيانات لم اكن حتى احلم باني ساحصل عليها

    لكن اعذرني اود سؤالك بما هو خارج عن هذا

    انا الآن بدأت ببرنامج او فكرته على الأقل تعتمد على قواعد البيانات بشكل كبير

    لكن ما يهمني وما يعيقني هو انني اود ان احصل على جميع الملفات الموجودة في مسار معين

    ولنفرض ان هذا المسار هو

    C:\Program Files

    المهم انا اود معرفة الكود الذي يقوم باستخلاص الملفات الموجودة في هذا المسار ووضعها في جدول في قاعدة البيانات او وضعها في list

    2- اريد طريقة استخلاص ملفات الورد على فرض ان المسار هو نفسه وطرقة وضع اسماء هذه الملفات في قاعدة بيانات او list

    اعتذر جدا لانني خرجت عن الدرس

    لكن قلت أسألك يمكن تعرف

    ومستعد اكلم احد المراقبين يحذف الرد في حال شعرت انه خرب الموضوع


    بالتوفيق

    واسفين على الازعاج والتأخير
    السلام عليكم

    اخي الكريم amawi

    انا اشكرك على سوالك

    لا اتمني ان ردك ما ينحذف من الوضوع

    مادام في الفيجوال بيزك لا مشكلة

    لكن سوالك يحتاج لشرح طويل

    يوف احاول ان اختصره في اقل ما يمكن

    وارد عليك انشاء الله اليوم

    وانا بجد احب اني اقول لك ان كل حرف تكتبهلى يكون

    وسام شرف لى

    انتضر الرد اليوم انشاء الله بعد الدرس

    شكرا على هذا السؤال الي عن جد فرحني

    انا كنت منتظره

  12. #57
    التسجيل
    02-03-2006
    الدولة
    غــــــريب في بلاد الغربـــــة
    المشاركات
    940

    الدرس العاشر .................<10>

    السلام عليكم

    انا اسف على التاخر

    لكن انا مشغول هذه الايام بسبب عملي

    واليكم درس اليوم


    كيفية إدراج نص في Microsoft Word عن طريق الفيجوال بيسك
    سنقوم في هذا الدرس شرح بإدراج نص في الورد واحداث بعض التعديلات عليه من خلال برنامج فيجوال بيسك , الطريقة سهلة للغاية ما عليك سوى اتباع الخطوات التالية :
    1- فتح برنامج فيجوال بيسك واختيار Standard Exe .
    2- احضار المكتبة الخاصة بتطبيق مايكروسوفت ورد : من قائمة project&szlig; نختار reference&szlig; ونبحث عن Microsoft word 10.0 object library&szlig; ثم نضغط OK.
    3- سنضيف Command لشاشة البرنامج وقمت بتسميته Cmdok ستتم هنا عمليات البرمجة الرئيسية وبداية لا تحتاج الى أكثر من ذلك اذا كان برنامجك بسيط ويعمل على عملية ادراج النصوص فقط.
    4- في القسم العام للبرنامج سنعرف المتغير wrdapp من نوع Word.Application عن طريق الأمر التالي :
    Dim wrdapp As Word.Application

    وذلك للاعلان عن استخدام تطبيق مايكروسوفت ورد.
    5- سنقوم بإضافة الكود التالي عن الحدث Clikc للزر الذي قمنا بإنشائه سابقا ً :
    Private Sub Cmdok_Click()
    كود:
    1- Set wrdapp = New Word.Application 2- With wrdapp 3- Documents.Add 4.ActiveDocument.Content.Font.Bold = True 5. ActiveDocument.Paragraphs.Alignment = wdAlignParagraphLeft 6. ActiveDocument.Content.Font.Color = wdColorRose 7. ActiveDocument.Content.Font.Italic = True 8. ActiveDocument.Content.Font.Name = "Monotype Corsiva" 9. ActiveDocument.Content.Font.Size = 22 10. ActiveDocument.Content.Text = "Hi This How Insert Text In Microsoft Word" & Chr(13) 11. ActiveDocument.Content.InsertAfter Text:="GOOD BYE" 12 .Visible = True End With End Sub
    شرح الكود


    ·الجملة رقم (1) وهي مهمة في عملية اسناد مرجع مايكروسوفت ورد للمتغير wrdapp وتم استخدام new ليقوم بفتح برنامج مايكروسوفت ورد.


    ·الجملة رقم (2) وهي جملة With الشائعة الإستخدام لتسهيل عمليات البرمجة وعدم تكرار كتابة wrdapp.


    ·الجملة رقم (3) لإضافة مستند جديد لبرنامج مايكروسوفت ورد .


    ·الجمل من (4) وحتى (5) وهي خصائص النص المراد ادراجة, وتستخدم ActiveDocument لاحداث التغيرات المطلوبة على المستند الفعال حالياً.


    ·جملة (4) لإعطاء النمط العريض للنص المدرج .


    ·جملة (5) لجعل محاذاة النص جهة اليسار.


    ·جملة (6) تغير لون الخط للون الوردي.


    ·جملة (7) النمط المائل.


    ·جملة (8) اسناد نوع الخط .


    ·جملة (9) حجم الخط . م


    ·ملاحظة : للإحتفاظ بنفس الاعدادت (نوع الخط , حجمه , لونه , نمطه ) الأصلية للنص يتم الإستغناء عن واحد او كل الخصائص السابقة .



    ·الجملة رقم (10) وهي الجملة التي يتم من خلالها إدراج النص المطلوب عن طريق الخاصية text التابعة لمحتوى المستند. وتسند للخاصية text متغير أو قيمة من نوع string.


    ·الجملة رقم (11) ادراج نص جديد ويلاحظ هنا استخدام الخاصية InsertAfter عوضا عن text وتم ذلك لإعلام البرنامج بالإحتفاظ بالجملة السابقة وادراج الجملة الجديدة بعدها .


    ·الجملة (12) لاظهار مايكروسوفت ورد ولن تتم رؤية عملية الادراج من غير هذة الجملة .


    · الجملة (13) اغلاق الجملة with.



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









    التعديل الأخير تم بواسطة الحبيب لمين ; 12-08-2006 الساعة 11:28 AM

  13. #58
    التسجيل
    24-04-2006
    الدولة
    ساكن فى قلب حبيبتي الغاليه عليا وعلى كل الناس (^_^)
    المشاركات
    61

    شكر

    السلام عليكم

    شكرا الحبيب لمين

    على هذا الدرس

    اتمني ان تكمل السلسلة معانا

    ولا تقطع الدروس اذا كان فيه عندك وقت

    شكرا مرة اخري على هذا المجهوود
    اخوكم في الله جمال محمد الامين الناصري


    لـقد سمعـت اذا نديـت حـيا .:. ولكن لا حيت لمن تنادى


    وإذ نـار نــفـخــت بـهــا اضــــأت .:. ولكن جل نفخك فى ارمادى


  14. #59
    التسجيل
    14-01-2005
    الدولة
    الاردن - عمان
    المشاركات
    1,818

    رد: شكر

    مشكور اخوي درس جميل جدا

    الله يوفقك

    وننتظر المزيد من دروسك الرائعة حقا حين يتوفر لك بعض الوقت


    بالتوفيق
    شبكة قانوني الاردن
    نسعى معا للرقي بالمهنة القانونية في الاردن
    www.lawjo.net


    -----------------------------------------
    e_amawi (at) yahoo.com

  15. #60
    التسجيل
    02-03-2006
    الدولة
    غــــــريب في بلاد الغربـــــة
    المشاركات
    940

    رد: شكر

    اقتباس المشاركة الأصلية كتبت بواسطة سر العرب
    السلام عليكم


    شكرا الحبيب لمين

    على هذا الدرس

    اتمني ان تكمل السلسلة معانا

    ولا تقطع الدروس اذا كان فيه عندك وقت


    شكرا مرة اخري على هذا المجهوود


    شكرا اخي سر العرب على هذا الرد الجميل

    انشاء الله راح استمر

    وما راح اوقف الدروس

    وانا اسف على تاخر الدروس

    وذلك لأسباب خارجة عن ارادتي

    جازاك الله الف خير


صفحة 4 من 12 الأولىالأولى 123456789 ... الأخيرةالأخيرة

ضوابط المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •