دروس شبه يومية لل Visual Basic .Net

فعلا لاأجد كلمات تعبر عما أرغب في القول

فعلا غايه في الروعه

ولكن عدد الصفحات كبير فلما لاتضغطهم وتضعهم بالمنتدي حتي يسهل تصفحهم

أرجو أن أحظي بإرسالهم لي

REMONO84_20@HOTMAIL.COM(f)

(clock):D;):P:cool:

اولا : اشكر الجميع على هذا التفاعل , وبصراحة اتاسف عن المدة التي انقطعت فيها عن المنتدى . ولكن باذن الله سوف نحاول تعويض المدة السابقة و نستانف دروسنا الخفيفة في لغتنا الحبيبة .

اسال الله ان يعيننا و يقوينا جميعا .

و ارجو من الجميع المشاركة .

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

اشكر القائمين على هذا المنتدى و اسال الله ان يعينهم على كل خير .

و باذن الله سوف نبدا دروسنا من اليوم .

اداة الشجرة Tree View

سوف نتعلم اليوم كيفية التعامل مع الاداة المسماة ب Tree View .

اولا : اضف الاداة Tree View الى الفورم .

ثانيا : اضف الاداة ImageList .

ثالثا : اضف صورتين الى الاداة ImageList1 .

رابعا : اضاف الكود التالي في حدث تحميل الفورم :

        Dim i As Integer
        Dim J As Integer

        With TreeView1
            ' اضافة الخطوط التي توصل جميع عناصر الشجرة
            .ShowRootLines = True
            ' اضافة علامات الموجب و السالب و التي توضح بان ثمة عناصر موجودة او لا 
            .ShowPlusMinus = True
            'اضافة الصور الى عناصر الاداة و التي قد اضفناها من قبل للاداة المسماة لستة الصور
            .ImageList = ImageList1
        End With

        i = 1

        For i = 1 To 40
            'اضافة عناصر رئيسية للاداة و من ثم تسميتها
            Dim nodp As New Windows.Forms.TreeNode("Node" & i.ToString)
            TreeView1.Nodes.Add(nodp)

            For J = 1 To 4
                'اضافة عناصر فرعية للاداة و من ثم تسميتها
                Dim nodc As New Windows.Forms.TreeNode("SubNode" & i.ToString, 1, 1)
                nodp.Nodes.Add(nodc)
            Next
        Next

تحياتـــــــــــــــــــــــــــــــــــــــي

قراءة ملف نصي

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

Imports System.IO

ثم تقوم باضافة الكود التالي تحت اي حدث تريد :-

        'الكلاس الذي سيتكفل بقراءة الملف
        Dim objReader As New StreamReader("c:\file.txt")
        Dim strBuffer As String
        'قراءة الملف باستخدام الدالة readtoend
        strBuffer = objReader.ReadToEnd
        'انهاء القراءة
        objReader.Close()
        'عرض الملف في صندوق رسالة
        MsgBox(strBuffer)

و السلام

تعدد المهام MultiThreaded

البرامج المتعددة المهام لها القدرة على اداء عدة عمليات في نفس الوقت . فمثلا اذا اراد المستخدم من البرنامج فتح ملف كبير الحجم و عملية الفتح هذه تستغرق وقتا طويلا فان البرنامج يتيح للمستخدم ان يؤدي عملية اخرى خلال عملية الفتح , فمثلا يتيح له الكتابة او تطبيق جرافيكس معين على صورة .

و لحسن الحظ فان فجوال بيسك.نت هذه المرة يتيح لنا التعامل مع مثل هذه العمليات بخلاف جميع اصدارات فجوال بيسك السابقة .

سوف نقوم اليوم بعمل بريمج صغير يوضح لنا كيفية تطبيق هذه العمليات في برامجنا .

في البداية يجب عليك استدعاء المكتبة

Imports System.Threading.Thread

ثم اضف هذا الاجراء

    Sub BeBusy()
        Dim i As Integer
        For i = 1 To 20000
            Me.Text = i.ToString
        Next
        Beep()
    End Sub

ثم اضف الكود الالي تحت زر الامر 1

        'انشاء مهمة مستقلة للاجراء bebusy
        Dim x As New System.Threading.Thread(AddressOf BeBusy)
        'تشغيل المهمة
        x.Start()

و اخير اضف الكود التالي تحت زر الامر 2

        MsgBox("hola")

ملاحظة : لو انك لم تقم بانشاء مهمة مستقلة للاجراء bebusy و ضغطت على الزر 1 ثم ضغطت على الزر 2 فان الرسالة لن تظهر الا بعد انتهاء الاجراء bebusy . و لانك انشات مهمة مستقلة للاجراء bebusy فان الرسالة ستظهر في اي وقت تريد .

موضوعنا موضوع طويل و متشعب . ولكننا الان فهمنا كيفية برمجة هذه العمليات المستقلة و اخذنا فكرة بسيطة عنها .

تحياتـــــــــــــــــــــــــــــــــي

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

تحيه لجميع الأعضاء وخصوصاً الأستاذ عبدالرحمن

عزيزي لا أعلم إن كان هذا مكان لطرح مشاركتي أم لا ؟ أرجو المعذرة أولاً .

تابعت بإهتمام دروسك والمعلومات القيمة التي طرحتها . ولكن لي تساؤل

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

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

اخ حاكم : اشكرك على التفاعل معنا .

و بالنسبة للبرنامج الخاص بارقام الهواتف فاعتقد ان هذا الامر متعلق بقواعد البيانات و التعامل معها , و لا اخفيك اخي اني مبتدى مثلك في الفجوال بيسك .نت و خصوصا قواعد البيانات . يعني الى الان لم اعمل مشروع واحد يتعامل مع قواعد البيانات . جرب ان تذخب الى موضوع الاخ بريفات كاسل و الذي به دروس لقواعد البيانات .

و لكننا سنخوض في المستقبل القريب ان شاء الله في ال ADO.NET .

و شكرا ..

الدرايفات Drives

اذا اردت ان تعرف اسماء الدرايفات الموجودة في جهازك عن طريق برنامج تعمله انت , فاتبع الخطوات :-

1- ابدأ مشروع Console Application

2- امسح صفحة الكود , و اكتب هذا الكود :-

Module Module1

    Sub Main()
        'استدعاء الاجراء
        ShowDrives()
    End Sub


    Private Sub ShowDrives()
        Dim d() As String

        'نخزن اسماء الدرايفات الموجودة في الجهاز في المتغير d 
        d = System.IO.Directory.GetLogicalDrives
        'تعريف عداد
        Dim en As System.Collections.IEnumerator
        'نعدد الدرايفات الموجودة في الجهاز
        en = d.GetEnumerator

        'حلقة تكرار تقوم بكتابة اسماء الدرايفات بالترتيب
        While en.MoveNext
            Console.WriteLine(CStr(en.Current))
        End While
        'ايقاف تنفيذ البرنامج لنقوم بالقراءة
        Console.ReadLine()
    End Sub

End Module

الى اللقاء

شكراً لك أخي عبدالرحمن على ردك

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

موضوع الاخ كاسل

http://www.arabteam2000.com/ib/index.php?s...showtopic=25102

موضوع الاخ عبدالعظيم

http://www.vb4arab.com/vb/showthread.php?t...?threadid=27775

ازرار الفارة

اذا اردت معرفة عدد ازرار ماوس المستخدم فاكتب الكود التالي:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    MB()
End Sub

Public Function MB() As System.Drawing.Size
    Dim x
    ' Get the number of buttons on the mouse
    x = System.Windows.Forms.SystemInformation.MouseButtons
    MsgBox(x.ToString)
End Function

دقة الشاشة

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GetScreenResolution()
    End Sub

    Public Function GetScreenResolution() As System.Drawing.Size
        Dim x
        'هذا الكلاس الذي يعطيك دقة وضوح الشاشة
        x = System.Windows.Forms.SystemInformation.PrimaryMonitorSize
        MsgBox(x.ToString)
    End Function

اللهم وفق من قام على هذا المنتدى ووفق اصحاب هذة المواضيع المفيدة

رائع جدا ايها العمالقه اشكر كل من قام بكتابه معلومه مفيده واخص بلشكر الاخ عبدالرحمن الذى مجهوده هذا اكثر بكثير من رائع وفقك الله

اتاسف عى التاخير و ذلك بسسب المشاغل و لكن سنستانف قريبا ان شاء الله .

تشغيل برنامجك عند بدء التشغيل

اذا اردت برنامجك يعمل عند بداية تشغيل الويندوز Start up فعليك كتابة الكود الاتي:

        Dim x As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Startup)
        Dim y As String = System.Environment.CurrentDirectory
        System.IO.File.Copy(y + "\" + "windowsapplication1.exe", x + "\" + "xx.exe")

السطر الاول يعطيك مسار مجلد بدء التشغيل .

السطر الثاني يعطيك مسار مجلد برنامجك .

السطر الثالث يقوم بنسخ برنامجك من مجلده الاصلي الى مجلد بدء التشغيل .

لاحظ ان يجب عليك استخدام "\" لكي تنسخ ملف معين موجود في مجلد .

اي سؤال انا حاضر

الحصول على امتداد ملف Extension

        Dim yy As String = System.IO.Path.GetExtension("c:\file.txt")
        MsgBox(yy)

الدالة GetExtension تعطيك امتداد اي ملف تمرره لها .

بارك الله فيك أخي عبدالرحمن وأكثر من أمثالك...

بسم الله الرحمن الرحيم

بصراحة تعجز الكلمات عن الوصف ولكن بوسعي أن أقول

رحم الله والديك ورحمك معهم ووسع عليك وكثر الله من أمثالك

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

أولا لقد تم توزيع كتاب من موقع www.c4arab.com عن الفجوال بيسك دوت نت وهو لا يتجاوز 42 صفحة فإقتراحي لك هو أن تقوم بعمل هذه الدروس كتاب يعني تجمعها في كتاب بشكل مرتب وتوزعه ( على راحتك بالمجان أو بمقابل - وإذا رغبت اترك لي هذه المهمة ) فأقوم بترتيبه وتوزيعه بالمجان في المنتدى والمنتديات الأخرى طبعا بإسمك وبعد أن تطلع عليه - وعليك طبعا المقدمة للكتاب - ما رأيك؟

أخوك

mohdsoft

اخ TaghCS : جزاك الله خير على التفاعل .

اخ mohdsoft : اشكرك على هذا الاطراء الذي لا استحقه . وبالنسبة للكتاب فاني سأنشره قريبا ان شاء الله .

الاخ عبد الرحمن

لا استطيع التعبير عن شكرى لك علي هذا المجهود فوق الرائع

سوي بالدعاء ان يوفقك الله في كل عمل تقوم به لخدمه الاسلام والمسلمين

انا منذ فترة انوي البدء في دراسة vb.net

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

لمعرفة المزيد و المزيد من امكانيات هذه اللغه

لكن اسمح لي بسؤالين

اولا عندما نفذت مشاركتك الخاصه بحفظ طول و عرض النموذج

في الريجستري ظهرت لي هذه الرساله

'RegistryKey' is not defined.

علما باني قمت بكتابه هذين السطرين في ال decleration

Imports Microsoft.Win32.Registry

Imports Microsoft.Win32.RegistryKey

بعدما نبهك اليهما الاخ سليم

و عندما كتبت

Imports Microsoft.Win32

ظهرت لي هذه الرساله

'LocalMachine' is not a member of 'registry'.

فماذا افعل؟

ثانيا:في مشاركتك تحويل النص الى كلام (Text To Speach)

في علامه التبويب com

لم اجد

Microsoft Direct Text To Speach

فمن اين استطيع اضافتها او تحميلها

اعتذر عن التطويل لكنني ابغي التفاعل مع مشاركاتك الرائعه

مرة اخري بارك الله فيك

أخ عبد الرحمن هل لك أن توضح طريقة إستخدام منفذ الإتصالات com1 إذا أمكن

بمناسبة دخولنا على شهر رمضان المبارك , اقدم لكم هديتي المتواضعة و هي عبارة عن تجميع و تصنيف الاكواد التي قد كتبتها هنا في منتديات الفريق العربي للبرمجة في ملف html

codes.htm

و ملف pdf

codes.pdf

فقط عليك ان تختار save target as .

انتظر منكم التعليقات و الملاحظات .

اخ ice : بالنسبة للريجستري فاعتقد ان الحل في الكتاب الذي وضعته حاليا .

اما text to speech فيجب عليك تحميل الملف من سي دي الويندوز .

اخ jarour : قريبا ان شاء الله .

عزيزي عبدالرحمن كتب الله اجرك

لكن الوصلات لا تشتغل