منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - سورس كود لعمل تنبيه / ترحيب باعلى الساعة النظام

الصفحات : 1 2

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

اليوم احببت ان اقوم بعمل شى مختلف

من المؤكد انه سيفيد الجميع كا استخدام

وكا فكرة الاكواد التى تتواجد بالسورس ليبتكر منه استخدام مستقبلياً

السورس كود Class Library

لتكوين ملف Dll يمكنك الاستفادة من اضافته فى اى مشروع

السورس المرفق 2015

مرفق مع الصورس ملف الـ Dll المستخرج من السورس

طريقة استخدام ملف الـ Dll فقط قم باضافة الملف فى References

من ثم قم باستخدام السطر التالى

كود :

Imports msgWelcome

من ثم تعال فى اى حدث تريد ظهور شاشة التنبيه / الترحيب واستخدم الكود التالى

كود :

       Dim MsgOk As msgView = New msgView

        MsgOk.msgWelcome(420, 280, "مرحباً", True, True, 0.8)

شرح كل جزء فى الكود بالاعلى:
1- 420 : تعنى Width -> العرض يمكنك ان تكتب الرقم الذى يناسبك للعرض الرسالة
2- 280 : تعنى Height -> الارتفاع يمكنك ان تكتب الرقم الذى يناسبك للارتفاع الرسالة
3- مرحباً : تعنى msgShow -> والمقصود بها نص الرسالة فهنا يمكنك ان تكتب ما تريده من نص الرسالة كما تشاء
4- True : تعنى RightLeft -> وهو طريقة عرض الكتابة من اليمين الى اليسار والعكس كذلك ان يجعل الرسالة على انظباع عربى / اجنبي
5- True : تعنى BottomRight -> وهو لطريقة ظهور الرسالة المتحركة من الاسفال الى الاعلى / من اليمين الى اليسار
6- 0.8 : تعنى Transparent -> والمقصود بها شفافية خلفية الرسالة الحد الادنى 0.1 والحد الاقصي 1.0 [0.1 تعنى 90% شفاف و 1.0 تعنى 0% شفاف ]
7- AR أو ar :[

] تعنى ArEn -> والمقصود بها هنا لغة نظام الحاسب الالى اذا كان اللغة العربية او اللغة الاجنبية [ اتجاه قائمة Start يمين / يسار ]

صورة لمظهر الرسالة مع تنفيذ الكود بالمقاس التالى ( للنظام باللغة الانجليزية )

كود :

       Dim MsgOk As msgView = New msgView

        MsgOk.msgWelcome(210, 140, "مرحباً بكم فى موقع vb4arb", True, True, 0.8)

صورة لمظهر الرسالة مع تنفيذ الكود بالمقاس التالى ( للنظام باللغة العربية)

كود :

       Dim MsgOk As msgView = New msgView

        MsgOk.msgWelcome(460, 240, "elgokr", True, True, 1, "ar")

أو

كود :

       Dim MsgOk As msgView = New msgView

        MsgOk.msgWelcome(460, 240, "elgokr", True, True, 1, "AR")

صورة لمظهر الرسالة مع تنفيذ الكود بالمقاس التالى ( للنظام باللغة الانجليزية )

كود :

       Dim MsgOk As msgView = New msgView

        MsgOk.msgWelcome(460, 240, "elgokr", True, True, 1, "en")

أو

كود :

       Dim MsgOk As msgView = New msgView

        MsgOk.msgWelcome(460, 240, "elgokr", True, True, 1, "EN")

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

كود :

       Dim MsgOk As msgView = New msgView

        MsgOk.msgWelcome(420, 280, "اللَّهُ لَا إِلَٰهَ إِلَّا هُوَ الْحَيُّ الْقَيُّومُ ۚ لَا تَأْخُذُهُ سِنَةٌ وَلَا نَوْمٌ ۚ لَهُ مَا فِي السَّمَاوَاتِ وَمَا فِي الْأَرْضِ ۗ مَنْ ذَا الَّذِي يَشْفَعُ عِنْدَهُ إِلَّا بِإِذْنِهِ ۚ يَعْلَمُ مَا بَيْنَ أَيْدِيهِمْ وَمَا خَلْفَهُمْ ۖ وَلَا يُحِيطُونَ بِشَيْءٍ مِنْ عِلْمِهِ إِلَّا بِمَا شَاءَ ۚ وَسِعَ كُرْسِيُّهُ السَّمَاوَاتِ وَالْأَرْضَ ۖ وَلَا يَئُودُهُ حِفْظُهُمَا ۚ وَهُوَ الْعَلِيُّ الْعَظِيمُ [255]", True, True, 1)

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

كود :

       Dim MsgOk As msgView = New msgView

        MsgOk.msgWelcome(140, 80, "elgokr", False, True, 0.5)

الباقي من شرح والكود ستجده بداخل السورس

السورس تقريباً شاره وظيفية كل سطر من الاكواد

الى هنا انتى من الحديث عن الموضوع والمحتوى

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

المرفقات : صور الموضوع - السورس كود 2015 - ملف Dll المستخرج من السورس للاستخدام

تنبيه : اخر تحديث للمشروع بتاريخ 24/04/2019

بخصوص التحديث عند اضافة

كود :

"AR" أو "ar"

تعنى ان النظام باللغة العربية فسيتم ظهور الرسالة على يسار الشاشة اعلى الساعة

واذا قمت باضافة

كود :

"EN" أو "en" 

أو بدون اضافتها تماماً

فهذا يعنى ان النظام باللغة الانجليزية / الاجنبية فسيتم ظهور الرسالة على يمين الشاشة اعلى الساعة

التحديث الاخير اضافة ArEn

شرح الاستخدام للكود كاملاً على اخر تحديث

http://vb4arb.com/vb/showthread.php?tid=...#pid140512

تحياتى لكم

وتمنياتى لكم التوفيق الدائم

[b]elgokr[/b]

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

واتمنى لك كل التوفيق في جميع مجالات الحياة

وشكرا على الدرس الاكثر من رائع وعلى اهتمامك بموضوعي

اسعدتني واتمنى لك السعادة

بأذن الله تعالى

مودتي

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

الله يكتب اجرك مضاعفا

ويكتب لك في كل حرف الف حسنة وفي كل ثانية الف حسنة

تقضيها في مساعدة اخونك

شكرا على كل ما تقدمه

ايها المبدع

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

تسلم أخي و أستاذي الغالي "ELGOKR " على مشاركتنا المشروع .. بارك الله فيك ليوم الدين إن شاء الله

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

تحياتي و تقييماتي من غير ما أشوف لأنّي متأكد من روعتك و روعة أعمالك و إبداعاتك

(03-04-19, 05:52 AM)اباذر كتب : [ -> ]

[b]elgokr[/b]

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

واتمنى لك كل التوفيق في جميع مجالات الحياة

وشكرا على الدرس الاكثر من رائع وعلى اهتمامك بموضوعي

اسعدتني واتمنى لك السعادة

بأذن الله تعالى

مودتي

اللهم امين لى ولك وللجميع

فالشكر لله والحمد لله

والحمد لله على كل حال

تحياتى لك

وتمنياتى لك التوفيق

(03-04-19, 01:55 PM)sendbad100 كتب : [ -> ]
وعليكم السلام ورحمة الله وبركاتة

الله يكتب اجرك مضاعفا

ويكتب لك في كل حرف الف حسنة وفي كل ثانية الف حسنة

تقضيها في مساعدة اخونك

+1

شكرا على كل ما تقدمه

ايها المبدع

اللهم امين لى ولك اخى الحبيب sendbad100

فالشكر لله والحمد لله

والحمد لله على كل حال

تحياتى لك

وتمنياتى لك التوفيق

(04-04-19, 02:49 AM)عبد العزيز البسكري كتب : [ -> ]
السّلام عليكم و رحمة الله و بركاته

تسلم أخي و أستاذي الغالي "ELGOKR " على مشاركتنا المشروع .. بارك الله فيك ليوم الدين إن شاء الله

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

تحياتي و تقييماتي من غير ما أشوف لأنّي متأكد من روعتك و روعة أعمالك و إبداعاتك

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

اخى الغالى عبد العزيز البسكري

تقبل الله منك الدعاء لى ولك وللجميع بامر الرحيم

بخصوص الصورة لو تلاحظ عدم وجود فى القائمة الجانبية [ References ]

ويبدو عدم ظهورها لان النسخة المستخدمة لديك لا تدعم Class Library

وقد يكون السبب بانك تستخدم نسخة Community

قد تحتاج الى اعادة تثبيت نسخة الفيجوال من جديد لحل مشكلة Class Library

ولتجنب الامر يمكنك استخدم كود المشروع كاملاً هنا

ويتم استخدام الكود فى ان تقوم بانشاء شاشة Class فى اى مشروع تستخدمه عامة

ومن ثم تتبع خطوات تنفيذ الكود كما فى الشرح بالاعلى ولكن بدون عمل Imports

الكود كاملاً

كود :

Imports System.Windows.Forms

Imports System.Drawing

Public Class msgView

    ' انشاء معرف لتكويس شاشة الفورم

    Public MyForm As New Form()

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

    Public Function msgWelcome(Width As Integer, Height As Integer, msgShow As String, RightLeft As Boolean, BottomRight As Boolean, Transparent As Double, Optional ArEn As String = "")

        ' انشاء معرف لاتمام تكويز زر

        Dim MyxButn As New Button

        ' انشاء معرف لاتمام تكون نص

        Dim msgText As New TextBox

        ' انشاء معرف الاحداثيات

        Dim x, y As Integer

        ' اعطاء قيم المقاس

        x = Width / 3.3 : y = 25

        ' تنفيذ مساحة الزر

        MyxButn.Size = New Size(x, y)

        ' اعطاء قيم الاحداثيات

        x = 10 : y = 28

        ' تحقق من لغظ نظام الجهاز عربي ام انه الانجليزية

        If ArEn = "AR" OrElse ArEn = "ar" Then

            ' تنفيذ احداثيات الزر

            MyxButn.Location = New Point(Width - (Width / 3.3) - x, Height - y)

        Else

            ' تنفيذ احداثيات الزر

            MyxButn.Location = New Point(x, Height - y)

        End If

        ' نص رسالة الزر

        MyxButn.Text = IIf(RightLeft, "&اغلاق", "&Close")

        MyxButn.BringToFront()

        ' اعطاء قيم الاحداثيات

        x = 10 : y = 10

        ' تنفيذ مساحة اطار نص الرسالة

        msgText.Size = New Size(Width - (x * 2), Height - (y * 2) - 20)

        ' تنفيذ احداثيات الزر

        msgText.Location = New Point(x, y)

        ' نص الرسالة

        msgText.Text = msgShow

        ' اطار نص للقراء فقط

        msgText.ReadOnly = True

        ' اطار النص متعدد الاسطر

        msgText.Multiline = True

        ' تحديد اتجاه النص / عربي - انجليزي

        msgText.RightToLeft = IIf(RightLeft, RightToLeft.Yes, RightToLeft.No)

        ' تعريف بتكوين شاشة فورم جديدة

        MyForm = New Form()

        ' تنفيذ مساحة شاشة الفورم

        MyForm.Size = New Size(Width, Height)

        ' جعل شاشة الفورم بدون اطار

        MyForm.FormBorderStyle = FormBorderStyle.None

        ' التحقق لتحديد الحد الاقصي للشفافية

        If Transparent >= 1 Then Transparent = 1

        ' التحقق لتحديد الحد الادنى للشفافية

        If Transparent <= 0.1 Then Transparent = 0.1

        ' قيمة الشفافية

        MyForm.Opacity = Transparent.ToString("0.0")

        MyForm.Visible = True

        ' اضافة كلاً من الادوات التى تم تكوينها بشاشة الفورم

        MyForm.Controls.Add(msgText)

        MyForm.Controls.Add(MyxButn)

        ' جعل شاشة الفورم بالاعلى

        MyForm.TopMost = True

        ' اظهار شاشة الفورم / الرسالة

        MyForm.Show()

        ' انشاء تعريفي لحدث الزر

        AddHandler MyxButn.Click, AddressOf MyxButnCloseForm

        ' تحقق من لغظ نظام الجهاز عربي ام انه الانجليزية

        If ArEn = "AR" OrElse ArEn = "ar" Then

            ' التحقق من طريقة ظهور شاشة الفورم / الرسالة

            If BottomRight Then

                ' ظهور الرسالة من الاسفل الى الاعلى

                x = 0

                y = Screen.PrimaryScreen.WorkingArea.Height

                Do Until y = Screen.PrimaryScreen.WorkingArea.Height - MyForm.Height

                    y = y - 1

                    MyForm.Location = New Point(x, y)

                Loop

            Else

                ' ظهور الرسالة من اليسار الى اليمين

                x = 0 - MyForm.Width

                y = Screen.PrimaryScreen.WorkingArea.Height - MyForm.Height

                Do Until x = 0

                    x = x + 1

                    MyForm.Location = New Point(x, y)

                Loop

            End If

        Else

            ' التحقق من طريقة ظهور شاشة الفورم / الرسالة

            If BottomRight Then

                ' ظهور الرسالة من الاسفل الى الاعلى

                x = Screen.PrimaryScreen.WorkingArea.Width - MyForm.Width

                y = Screen.PrimaryScreen.WorkingArea.Height

                Do Until y = Screen.PrimaryScreen.WorkingArea.Height - MyForm.Height

                    y = y - 1

                    MyForm.Location = New Point(x, y)

                Loop

            Else

                ' ظهور الرسالة من اليمين الى اليسار

                x = Screen.PrimaryScreen.WorkingArea.Width

                y = Screen.PrimaryScreen.WorkingArea.Height - MyForm.Height

                Do Until x = Screen.PrimaryScreen.WorkingArea.Width - MyForm.Width

                    x = x - 1

                    MyForm.Location = New Point(x, y)

                Loop

            End If

        End If

        Return True

    End Function

    Private Sub MyxButnCloseForm(sender As Object, e As EventArgs)

        ' كود حدث زر الاغلاق

        MyForm.Visible = False

        MyForm.Close()

    End Sub

End Class

فقط قم بوضع الكود داخل اطار الـ Class

تحياتى لك

وتمنياتى لك التوفيق

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

بارك الله فيك و لك و بصحتك و أوقاتك و بجميع أعمالك أخي و أستاذي " ELGOKR "

بكل صدق مثال رائع .. بكل إحترافية

تحياتي و احتراماتي

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

لى ولك وللجميع بامر الله

هذه شهادة اعتز بها اخي عبد العزيز البسكري

تحياتى لك

وتمنياتى لك التوفيق

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

عمل اكثر من رائع

الشكر لله والحمد لله

والحمد لله على كل حال

هذا من اصلك الطيب اخى الوايلي

تحياتى لك

وتمنياتى لك التوفيق

بارك الله فيك أخى الكريم...

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

الصفحات : 1 2