تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] سورس كود لعمل تنبيه / ترحيب باعلى الساعة النظام - ( تم تحديث المشروع )
#1
السلام عليكم ورحمة الله وبركاته

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

السورس كود 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 :[ [صورة مرفقة: gif-new-14.gif] ] تعنى 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

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

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


الملفات المرفقة
.zip   FileDLL [ اخر تحديث ].zip (الحجم : 5.07 ك ب / التحميلات : 92)
.zip   IMG.zip (الحجم : 11.58 ك ب / التحميلات : 106)
.zip   msgWelcome.zip (الحجم : 14.42 ك ب / التحميلات : 148)
.zip   msgWelcome[ تحديث 24-04-2019].zip (الحجم : 9.92 ك ب / التحميلات : 109)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
#2


جزاك الله الف خيراً
واتمنى لك كل التوفيق في جميع مجالات الحياة
وشكرا على الدرس الاكثر من رائع وعلى اهتمامك بموضوعي
اسعدتني واتمنى لك السعادة
بأذن الله تعالى
مودتي
Heart
[صورة مرفقة: 2016%2B-%2B1]
الرد
تم الشكر بواسطة: elgokr , elgokr
#3
وعليكم السلام ورحمة الله وبركاتة

الله يكتب اجرك مضاعفا 
ويكتب لك في كل حرف الف حسنة  وفي كل ثانية الف حسنة 

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

+1

شكرا على كل ما تقدمه 
ايها المبدع 
الرد
تم الشكر بواسطة: elgokr
#4
السّلام عليكم و رحمة الله و بركاته
تسلم أخي و أستاذي الغالي "ELGOKR " على مشاركتنا المشروع .. بارك الله فيك ليوم الدين إن شاء الله
فقط لو تكرمت تشوفلي حل لهذه المشكلة بالصورة أدناه .. لم أعرف ما معناها و لم أتمكن من مساعدة الملف
تحياتي و تقييماتي من غير ما أشوف لأنّي متأكد من روعتك و روعة أعمالك و إبداعاتك

الرد
تم الشكر بواسطة: elgokr
#5
(03-04-19, 05:52 AM)اباذر كتب :


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

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

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

(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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: sendbad100 , عبد العزيز البسكري
#6
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و بصحتك و أوقاتك و بجميع أعمالك أخي و أستاذي " ELGOKR "
بكل صدق مثال رائع .. بكل إحترافية
تحياتي و احتراماتي
الرد
تم الشكر بواسطة: elgokr , elgokr
#7
وعليكم السلام ورحمة الله وبركاته

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


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

عمل اكثر من رائع 
الرد
تم الشكر بواسطة: elgokr , elgokr
#9
الشكر لله والحمد لله
والحمد لله على كل حال

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#10
بارك الله فيك أخى الكريم...
حضرتك لما افتح مشروع جديد وادرج ملف الدل هذا كيف انادى عليه
الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Big Grin [مشروع] سورس كود مع الشرح بالفيديو لانشاء فورم تسجيل الدخول ahmadpal 2 1,611 17-10-20, 02:29 PM
آخر رد: البلبل2010
  سورس كود طباعة datagridview sofiane-phy 4 1,134 15-09-20, 03:02 AM
آخر رد: lira.dox
  [مشروع] تحميل وتنزيل سورس كود محاسبة سوبر ماركت باللغة فيجوال بيسك 2010 risboten 1 390 08-09-20, 05:26 PM
آخر رد: Hasaneen
  [مشروع] تحديث تلقائي لمشروعك Codack 1 615 06-09-20, 01:57 AM
آخر رد: IQ-TeaM
  تحديث أداة الويب براوزر WebBrowser خالد 10 2,800 29-08-20, 03:47 AM
آخر رد: Ali 2020
  [VB.NET] {تم تحديث الرابط} برنامج يقوم بجعل USB قابلا للاقلاع معاند الحظ 4 3,240 13-08-20, 12:35 PM
آخر رد: معاند الحظ
Bug سورس كود لعبة Basil Abdallah 1 1,468 03-08-20, 09:25 PM
آخر رد: عبد الهادي بهاب
Lightbulb سورس كود برنامج صانع الاكواد asemshahen5 53 20,678 02-08-20, 09:33 AM
آخر رد: manu
  [مشروع] سورس كود (برنامج تعليم الإنجليزية للأطفال) لسه مبتدئ 2 1,881 07-07-20, 03:33 AM
آخر رد: عبد العزيز البسكري
  [VB.NET] تم تحديث الرابط - مثال برنامج اقتطاع الفيديو معاند الحظ 6 903 07-07-20, 01:45 AM
آخر رد: معاند الحظ

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم