اكواد فيجوال بيسك دوت نت

[sasasasa]

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

طبعاً الكود سهل ومتقدم فهو يشرح اولاً انشاء الكائن وثانين يقوم بتشغيل البرنامج المحدد
طريقت كتابته فقط ضع زر وضع الكود به

  Dim OFD As New OpenFileDialog
        If OFD.ShowDialog() Then
            System.Diagnostics.Process.Start(OFD.FileName)
        End If

لا تفشلوني المره هذي يا جماعة ضعو اكواد

[sasasasa]

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

اظهار جميع الايبي ادرس الخاصة بالجهاز
ملاحظة لم استخدم الاستثناءات حتى اتجنب الاخطاء بالكود حتى لا يطول الكود
طبعاً كان يفترض جلب المكتبه system.net ولكن خوفاً من ان لا يعرفها احد الاخوان وهذا ما اطال الكود علينا
طريقته بسيطة يظهر رسالة وفيها الايبي ادرس فقط ضع زر امر واكتب فيه الكود

Dim xip As String
        Dim IP As System.Net.IPHostEntry
        Dim IP_Address As System.Net.IPAddress
        xip = System.Net.Dns.GetHostName
        ip = System.Net.Dns.GetHostByName(xip)
        For Each IP_Address In ip.AddressList
            MessageBox.Show(IP_Address.ToString, "رقم الايبي")
        Next

وتقبلو تحياتي

[sasasasa]

كود اليوم بسيط مع اني ما اشوف مشاركات بس يالله تستاهلون
شرح يقوم بتنزيل ملف من الانترنت ويحفظة على القرص الصلب بهيئة txt
طبعاً امكانيت مشاهدة النسبة والامور الاخرى غير موجوده بالكود السابق ولكن ان شاء الله بالايام القادمة ساقوم بتطويره لاصمم برنامج يقوم بتنزيل الملفات ويكون مجاني للبوابة الغاليه
معالج الاستثناءات غير موجود لتسهيل الكود

        Dim sa As New System.Net.WebClient()
        sa.DownloadFile("http://edu.arabsgate.com/attachment.php?attachmentid=3993", "c:\x.txt")

وتقبلو تحياتي

[sasasasa]

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

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

    Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef ld As Integer, ByVal dr As Integer) As Integer

ثم نضع هذا الكود داخل الاجراء او الزر الذي يبحث عن الحالة الحالية

    If InternetGetConnectedState(0, 0) Then
            MsgBox("جاري الاتصال")
        Else
            MsgBox("الاتصال مغلق")
        End If

وتقبلو تحياتي

[saeedabu]

الف شكر

بارك الله فيك

[PrinceOfPersia]

استمر على بركة الله أخي sasasasa

دروس مميزة من أخ مميز جداً

بارك الله فيك

[sasasasa]

شكراً لكم اخواني ويسعدني مروركم اساتذتي الكرام والكلام اللطيف

كودنا اليوم بسيط جداً
فهو يعطينا اسم الجهاز وكالعادة لم نضيف المراجع حتى لا يسبب اللتباس على الاخوان الجدد

MsgBox(System.Net.Dns.GetHostName)

وتقبلو تحياتي

[ابن مسعود7]

السلام عليكم

شاكر جهدك اخى ونرجوا الاستمرار وإن شاء الله تجد من يساهم

[sasasasa]

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

ولكني لم اترك البوبه بل ذهبت لقسم لا اتقنة واكتب به لماذا؟؟

اشكرك اخي الفاضل ولثقتكم بي

[mohabsaeed]

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

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

ولكني لم اترك البوبه بل ذهبت لقسم لا اتقنة واكتب به لماذا؟؟

اشكرك اخي الفاضل ولثقتكم بي

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

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