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

أشكر الاخوة ABO ABDUUL , أحمد يوسف_fox , بشير المعصراني على التفاعل وعلى التشجيع .

وجزاكم الله خير:)

تحويل النص الى كلام (Text To Speach)

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

1- من القائمة Project اضغط على Add Reference .

2- من علامة التبويب COM اختر الاداة Microsoft Direct Text To Speach , ثم اضغط على Select , ثم اضغط OK .

3- اضف زر امر Button ومربع نص Text Box .

4- اكتب هذا الكود:

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

        Dim x As New ACTIVEVOICEPROJECTLib.DirectSS()

        x.Speak(TextBox1.Text)

    End Sub

احب ان اوضح اننا في البداية اضفنا مكتبة تحويل النص الى كلام . ولو راجعت ال Solution Explorer لوجدت في ال Reference العنصر ACTIVEVOICEPROJECTLib .

بكل بساطة نستخدم الدالة Speak والتي لها تابع واحد وهو النص التي تريده ان ينطق .

ويمكنك التحكم في سرعة النطق . وذلك باستخدام الخاصية Speed .

x.Speed = 100

فلو جعلت الرقم 200 فستلاحظ ان النطق ابطا مما هو عليه في 100 .

خصائص الملفات

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

        Dim x As IO.File

        x.SetAttributes("c:x.doc", IO.FileAttributes.Compressed)

في هذا الكود قمنا باستخدام الدالة SetAttributes الموجودة في الكلاس File والذي يوجد في IO NameSpace .

هذه الدالة لها تابعين:

1- مسار الملف الذي تريد التغييير في خصائصه.

2- الخاصية التي تريد اضافتها للملف . وسيعرضلك لسته فيها جميع الخصائص.

تهيئة الصور Image Format

اذا اردت تغيير هيئة صورة معينة فاكتب الكود التالي:

        Dim x As New Bitmap("c:pic06.jpg")

        x.Save("c:new.bmp", System.Drawing.Imaging.ImageFormat.Bmp)

في البداية قمنا بانشاء متغير x ووضعنا فيه صورة معينة وذلك باستخدام الكلاس Bitmap .

بعد ذلك استخدمنا الدالة Save ولها تابعين:

1- مسار الصورة الجديدة التي تريد حفظها (بالاضافة الى امتداد الصورة)ز

2- هيئة الصورة (bmp , gif , jpg ....etc).

وبذلك نكون قد انشانا نفس الصورة ولكن بهيئة اخرى(كود مفيد جدا)

اذكر كان في برنامج معمول بالفيجوال بيسك 6 يقوم فقط بتغيير هيئة الصور من bmp الى jpg , ولكني عندما اطلعت على الكود اصابتني صدمة . ما اقدر اوصفلكم كيف كان حجم الكود . ولكن الحمد لله على كل حال .

تصفح الانترنت

توجد اداة جاهزة في Visual Studio.Net لاستراض صفحات الانترنت, واذا اردت استخدام هذه الاداة فعليك باتباع الخطوات التالية:

1- من القائمة Tools , قم باختيار Customize ToolBox .

2- من علامة التبويب COM Components اختر الاداة Microsoft Web Browser , ثم اضغط OK .

3- من Windows Forms الموجودفي صندوق الادوات ToolBox ستجد الاداة Explorer , اضغط عليها مرتين لكي تضيفها الى الفورم.

4- اضف زر امر واكتب هذا الكود:

        AxWebBrowser1.Navigate("www.google.com")

الدالة Navigate تقوم بعرض صفحة معينة . ولها تابع واحد وهو الصفحة التي تريد عرضها في الاداة .

واليك اهم الاوامر المتعارف عليها:

        AxWebBrowser1.GoBack()

        AxWebBrowser1.GoForward()

        AxWebBrowser1.GoHome()

        AxWebBrowser1.Refresh()

        AxWebBrowser1.Stop()

ويمكنك تجربة الالخصائص والاوامر الاخرى التي تتيحها لك هذا الاداة الرائعة.

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

السلام عليكم

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

لا تيئس فاللغه ما زالت تعتبر جديده نسبيا

وخصوصا اننا كعرب نفضل ما نعرفه علي ما لا نعرفه

عموما لا تحزن :P

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

لاني انوي ان اتعلم تلك اللغه :D

مارايك ;)

;)

السلام عليكم

هلا اخوي smsm .

انا بصراحة اناشد المشرفين بان يهتموا بمثل هذه المواضيع.

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

وانا انتظر من المشرفين الرد على هذا الطلب .

اهلاً بك اخي عبدالرحمن ، في الحقيقة اعجبني جداً نشاطك وحماسك ... استمر وساوصل رسالتك للإدارة :)

بالتوفيق (f)

و كمان أهلا و سهلا بك أخ عبد الرحمن .. و أنا تابعت جزئا من دروسك في منتدى ال vb4arab سابقا و أنا سعيد برؤيتك هنا و ان شاء الله نرى المزيد و المزيد من دروسك ..

أخ عبدالرحمن أهلا بك :) ...

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

السلام عليكم :

الأهم من كل ذلك يا أخي عبد الرحمن ، أنك تنطلق من أفكار متعددة ، أي

تضع المشاركات بشكل مجتزء ، أي تخدم تعليمات ، لا تخدم أفكار متكاملة .

وتأكد تماما عندما تجمع هذه الأجزاء لتبني عليها فكرة أساسية ، أو قل

مشروع صغير ، ستجد الجميع يتفاعل ، لإنني وجدت أنه في الغالب المشاريع

كبيرة أو صغيرة هي التي تعلم لغات البرمجة ، لا العكس ؟ (f)

اشكركم يا جماعة على هذا التفاعل .

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

وبالتالي تجدون الدروس منوعة و متفرقة ومستواها بسيط جدا .

وشكرا جزيلا لكم .

تحميل ملف من الانترنت

هذا الكود يقوم بتحميل ملف من النت:

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

Dim wc As New System.Net.WebClient()

wc.DownloadFile("http://www.microsoft.com/homepage/gif/artHome.gif", "c:x.gif")

End Sub

بطل الكود هو : الدالة DownloadFile والتي توجد في الكلاس WebClient والذي يوجد في Net Namespace .

الدالة DownloadFile لها تابعين:

1- الملف الذي تريد تحميله من الشبكة .

2- المسار الذي تريد فيه تحميل الملف .

وذا واجهتك مشكلة في الكود السابق فارجو ابلاغي بذلك .

تحميل ملف من الانترنت

هذا الكود يقوم بتحميل ملف من النت:

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

        Dim wc As New System.Net.WebClient()

        wc.DownloadFile("http://www.microsoft.com/homepage/gif/artHome.gif", "c:x.gif")

    End Sub

بطل الكود هو : الدالة DownloadFile والتي توجد في الكلاس WebClient والذي يوجد في Net Namespace .

الدالة DownloadFile لها تابعين:

1- الملف الذي تريد تحميله من الشبكة .

2- المسار الذي تريد فيه تحميل الملف .

وذا واجهتك مشكلة في الكود السابق فارجو ابلاغي بذلك .

دروسك مفيدة وجميلة جداً فياليت ان تضعها في ملف على صيغة HTML وترسلها للإدارة كما اسلف اخي هاني حتى يتم وضعها في قسم الدروس كي يستفيد منها الجميع ويكون العثور عليها سهلا :)

تقصد الدروس المكتوبة في هذا الموضوع ؟

لان الدروس لم تكتمل بعد .

وما اتوقع انها راح تكتمل;)

سناخذ منحنى جديد وهو كيفية انشاء تطبيقات ويب عن طريق ASP.NET بلغة VB .

ارجو ان يكون ذلك مفيدا.

جميل جداً وسأناقش الادارة لوضعها في مكتبة الاكواد :) بس همتك معانا

أن الأوان يا شباب للانتقال الى تكنولوجيا .NET

ما هذا لطالما دخلت هذا القسم ودائما لا توجد مناقشات جديدة

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

تطبيقات الويب Web Application

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

* في البداية يجب التاكد من ان IIS مثبت في الويندوز 2000 او XP .

1- شغل Visual Studio.NET و Internet Explorer , ثم تاكد في Internet Explorer من انه لا توجد علامة صح امام Work Offiline وذلك من قائمة File .

2- في Visual Studio.NET , من قائمة File اشر على New ومن ثم Project .

3- اختر ASP.NET Web Application .

4- من ToolBox ومن قائمة Web Forms اضف زر امر Button .

5- اكتب الكود التالي بعد ان تضغط على الزر مرتين:

Response.Write("أهلا وسهلا")

الامر السابق يقوم بكتابة اهلا وسهلا في المتصفح .

6- اضغط على F5 لكي تقوم بعمل Debug و استعراض للصفحة .

وبالتالي نكون قد انشانا تطبيق ويب بلغة ASP.NET-VB . كما يمكنك انشاء التطبيقات بواسطة ASP.NET-CS (بلغة CSharp ) ولكن لان موضوعنا يهتم بال Visual Basic.NET فسوف نكتب تطبيقات الويب بلغة VB.NET .

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

يبقى الان قضية نشر الصفحة على الويب .

كما نعلم بان هذه التقنية جديدة وبالتالي فانك لن تجد مواقع كثيرة مجانية تستضيف وتدعم هذه الصيغة والتي هي aspx . ولكن بعد البحث وجدت هذا الموقع الجيد الى حد ما http://www.brinkster.com .

سجل في هذا الموقع لكي تستطيع تحميل UpLoad صفحاتك الى النت وتعمل لها Test .

ولكن هناك مشكلة ولها حل وهي: ان الموقع السابق لا يدعم الكود المفصول , بمعنى اخر انه لا يدعم بان يكون كود الفجوال بيسك مفصول عن كود ال HTML . والحل هو دمج الكودين في صفحة كود واحدة بامتداد aspx . واذا دمجنا الكود السابق مع كود ال HTM; فان الناتج هو الاتي:

<%@ Page Language="VB" %>

<script runat="server">

    

    Sub Button1_Click(sender As Object, e As EventArgs)

    response.write("اهلا وسهلا")

    End Sub



</script>

<html>

<head>

</head>

<body>

    <form runat="server">

        <asp:Button id="Button1" oncl   

    </form>

</body>

</html>

فكما تلاحظون فان الكود معقد نسبيا كما ترون (لمن لا يفهم في HTML ) .

ولذلك فان مايكروسوفت قدمت لنا محرر ASP.NET يدعى Web Matrix يقوم بدمج الكود بدون اي عناء , يمكنك تحميله من http://www.asp.net/Default.aspx?tabindex=4&tabid=46 .

حجمه ميغا وشوية . انصحكم بتحميله لانه مفيد جدا وبسيط ولا يحتاج الى شرح (والفضل لله ثم للاخ احمد الجفري والذي دلني عليه (gift) )

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

ارجو منكم الراي والمشاركة وان تشعروني باني لست وحيدا :'( .

والسلااااااااااام

البريد الالكتروني E-Mail

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

ولكن قبل ان نقوم بكتابة الكود , هناك القليل من الخطوات والتي يجب ان تقوم بها:

1- افتح IIS , ومن خانة Default SMTP Virtual Server اضغط عليها باليمين واختر Properties .

2- من خانة التبويب Access اضغط على Relay .

3- اختر All exept the list below , ثم اضغط OK .

4- الان شغل تطبيق ويب(وتاكد من المتصفح شغال وانه لا توجد علامة على work offline ) واضف زر امر واكتب الكود الاتي:

        System.Web.Mail.SmtpMail.SmtpServer = "localhost"

        System.Web.Mail.SmtpMail.Send("x@x.com", "y@y.com", "the subject", "the body")

في الكود السابق استخدمنا خدمة ال SMTP والتي تاتي مع IIS , وتدعم ارسال رسائل البريد الالكتروني . اما LocalHost فيقوم مقام الملقم او السيرفر.

اما الدالة Send فتقوم بارسال الرسالة ولها 4 توابع:

1- المرسل : تخيل ان بمقدورك التلاعب باسم المرسل . يعني ترسل رسالة لشخص معين و يكون اسم المرسل شخص انت تحدده (فتنة;))

2- المرسل اليه .

3- عنوان الراسلة .

4- محتوى الرسالة .

و الكلاس SMTPMail يوجد في فضاء الاسماء Mail والذي يوجد في فضاء الاسماء Web .

5- اضغط على F5 , واضغط على الزر , لن ترى شيئا ولكن بمجرد ان تتصل بالانترنت فان ال IIS يقوم بارسال الرسالة اوتوماتيكيا . روعة:cool:

و أي سؤال انا حاضر .

ألف شكر

معلومات عن المتصفح

يمكنك جلب معلومات عن متصفح الانترنت لديك , اضف زر امر واكتب الكود التالي:-

        Response.Write("Type = " & Request.Browser.Type & "
")

        Response.Write("Name = " & Request.Browser.Browser & "
")

        Response.Write("Version = " & Request.Browser.Version & "
")

        Response.Write("Platform = " & Request.Browser.Platform & "
")

        Response.Write("Is Beta = " & Request.Browser.Beta & "
")

        Response.Write("Is Crawler = " & Request.Browser.Crawler & "
")

        Response.Write("Is AOL = " & Request.Browser.AOL & "
")

        Response.Write("Is Win16 = " & Request.Browser.Win16 & "
")

        Response.Write("Is Win32 = " & Request.Browser.Win32 & "
")

        Response.Write("Supports Frames = " & Request.Browser.Frames & "
")

        Response.Write("Supports Tables = " & Request.Browser.Tables & "
")

        Response.Write("Supports Cookies = " & Request.Browser.Cookies & "
")

        Response.Write("Supports VB Script = " & Request.Browser.VBScript & "
")

        Response.Write("Supports JavaScript = " & Request.Browser.JavaScript & "
")

        Response.Write("Supports Java Applets = " & Request.Browser.JavaApplets & "
")

صورة عامة: استخدمنا في الكود السابق الكلاس Request والذي يمكنك من جلب معلومات هامة , كالمتصفح وامكانياته , والكوكي واللغة واسم السيرفر وغيرها , ولكننا اليوم استخدمنا الكلاس Browser لنتعرف على المتصفح الذي يستخدمه العميل Client . اما "

" فتعني سطر جديد في لغة HTML .

الخاصية Type : وتعطيك اسم المتصفح و ورقم الاصدار .

الخاصية Name : تعطيك اسم المتصفح .

الخاصية Version : تعطيك رقم الاصدار .

الخاصية Platform : وتعطيك اسم نظام التشغيل والذي يشتغل تحته المتصفح.

الخاصية Beta: تحدد اذا ما كان المتصفح Beta او لا .

الخاصية Crawler : متعلق بمحركات البحث.

الخاصية AOL : وتحدد ما اذا كان العميل من عملاء شركة AOL .

الخاصية Win16 : تحدد ما اذ كان نظام الكمبيوتر مبني على Win16 .

الخاصية Win32 : تحدد ما اذ كان نظام الكمبيوتر مبني على Win32 .

الخاصية Frames: تحدد ما اذا كان المتصفح يدعم الاطارات او الفريمات .

الخاصية Table : تحدد ما اذا كان المتصفح يدعم الجداول .

الخاصية Cookies: تحدد ما اذا كان المتصفح يدعم الكوكيز .

الخاصية VBScript :تحدد ما اذا كان المتصفح يدعم لغة VBScript .

الخاصية JavaScript :تحدد ما اذا كان المتصفح يدعم لغة جافا سكربت JScript .

الخاصية JavaApplet : تحدد ما اذا كان المتصفح يدعم تطبيقات الجافا .

الكوكيز هي ملفات صغيرة يخزن فيها معلومات عن المستخدم (كاسمه والكلمة السرية و مفضلاته وغيرها) .

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles Button1.Click

'نختبر ما اذا كان هناك كوكي باسم myname '

        If Request.Cookies("myname") Is Nothing Then

        Dim cookie As HttpCookie

'ننشيء اسم للكوكي'

            cookie = New HttpCookie("myname")

'نضع قيمة للكوكي'

            cookie.Value = "hola"

'نضيف الكوكي'

            Response.AppendCookie(cookie)

            Label1.Text = "Cookie Written"

'اما اذا كانت الكوكي موجودة'

        Else

            Label1.Text = "Cookie already exists : "

            Label1.Text = Label1.Text & Request.Cookies("myname").Value()

        End If

    End Sub

كود بسيط جدا يقوم باستخدام ميزة الكوكي يقوم باستخدام الكوكيز .

الان اذا دخلت الى الصفحة في المرة الاولى فستعرض لك هذه الرسالة

Cookie Written

واذا دخلتها مرة ثانية فستعرض لك هذه الرسالة

"Cookie already exists : hola"

واحب ان اوضح بان قيمة الكوكي Value ممكن تكون لون الخلفية او اسم الخط او لونه وغيرها .

في البداية