1. المٌقدمة الأولي :دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    تٌعد ثغرات حقن قواعد البينات الثغرة رقم واحد فى العالم والمصنفة تحت بند الإخطر
    والفريق التابع له بإختراق أكبر المواقع الصهيونية قرائة الموضوع
  2. المٌقدمة الثانية : دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    في هذه المٌثقدمة الثانية والأخيرة سوف نتعرف على قواعد علم حقن قواعد البيانات
    حتى يتثنى لنا علم يٌساعدنا على القيام بعمليات الحقن بالطرق الصحيحه قرائة الموضوع
  3. دورة كشف دمج والتلغيم حصريا على أرض عراق تيم(2017)
    بعد ماقمت بعمل دورة الكشف دمج والتلغيم وستكملت الدوره وتحتوي على 12 درس
    كانت دروس حصريا على عراق تيم وشرح واضح جدا ومفهوم الى المبتدأ والى المبدع قرائة الموضوع

توليد ألوان عشوائية

الموضوع في 'قسم فيجول بيسك دوت نت VB.NET' بواسطة Mohmaed, بتاريخ ‏13 أغسطس 2016.

كاتب الموضوع : Mohmaed المشاهدات : 155 الردود : 5 ‏13 أغسطس 2016
  1. غير متصل

    Mohmaed .:: super ::.
    طاقم الإدارة

    عضو منذ:
    ‏12 ابريل 2015
    عدد المشاركات:
    الإعجابات المتلقاة:
    943
    نقاط الجائزة:
    الجنس:
    ذكر
    الإقامة:

    [​IMG]

    ». الصلاة و السلام على أشرف المرسليـن .«

    ». الحمد لله وحده نحمده و نشكره و نستعينه و نستغفره و نعود بالله من شرور أنفسنا و من سيئات أعمالنا.«

    ». من يهده الله فلا مظل له و من يظلل فلن تجد له ولياً مرشدا .«

    ». وأشهد ألا إله إلا الله وحده لا شريك له و أن محمداً عبده و رسوله صلى الله عليه و سلم .«

    ». وعلى آله و صحبه أجمعين و من تبعهم بإحسان إلى يوم الدين .«

    ». ربنا لا علم لنا إلا ما علمتنا إنك أنت العليم الخبير .«

    ». ربنا لا فهم لنا إلا ما فهمتنا إنك أنت الجواد الكريم .«

    ». ربي اشرح لي صدري و يسر لي أمري و احلل عقدة من لساني يفقهوا قولي .«

    ». أما بعد .«

    ». فإن أصدق الحديث كتاب الله تعالى و خير الهدي هديُ سيدنا محمد صلى الله عليه و سلم .«

    ». وشر الأمور محدثاتها و كل محدثة بدعة و كل بدعة ضلالة و كل ضلالة في النار .«

    ». فاللهم أجرنا و قنا عذابها برحمتك يا أرحم الراحمين .«

    * بـَعـد السـَلامُ يـّحلوُ الكـّلام ، تـطـيـب الأنـفـس وترجتلَ لتعآنقَ ربآبَ المّطر ، *
    * وفي قلوبكُم تسُكن ، لتنجبَ أفرآحاً مُتخمةُ بالآمآل والإنبسآطُ *
    * مساءَ لكمُ قـد أرخىَ سدولهُ لىَ موآطنَ الرقصاتَ الإبدآعيةَ ،*
    [​IMG]
    اهلا وسهلا في زوار واعضاء منتديات عراق تيم ....
    كيف الحال شباب انشاء الله تمام الصحه والعافيه يارب ....
    [​IMG]
    طبعا موضوع ماحاجه اطول في فشرح مبين من عنوان
    توليد ألوان عشوائية

    =====================


    افتح مشروع جديد و أضف اليه تايمر (Timer1)
    وجعل خاصية Interval الخاصة ب Timer1 تساوي 1000
    واجعل الخاصية Enabled الخاصة ب Timer1 تساوي True

    تحت Public Class Form1
    عرف هذه المتغيرات


    كود:
    Dim A, R, G, B As Integer 
        Dim gr As Graphics  
    ========================
    و الآن انتقل الى التايمر وضع في داخله الكود التالي
    كود:
    gr = gr.FromHwnd(Me.Handle) 
            gr.Clear(Me.BackColor) 
            Dim RndX As New Random 
            A = RndX.Next(0, 255) 
            R = RndX.Next(0, 255) 
            G = RndX.Next(0, 255) 
            B = RndX.Next(0, 255) 
            Dim Colorx As Color 
            Colorx = Color.FromArgb(A, R, G, B) 
            Dim sb As New SolidBrush(Colorx) 
            gr.FillRectangle(sb, 0, 0, Me.Width, Me.Height) 
            gr.Dispose()
    =======================================
    في السطر الأول حددنا سطح الرسم (طبعا هو الفورم )
    السطر الثاني لمسح اللون بخلفية الفورم الافتراصية لكي لا يقع تذبذب
    السطر الثالث عرفنا متغير لكي يقوم بتوليد أرقام عشوائية
    السطر 4 & 5 & 6 & 7 قمنا بتوليد أرقام عشوائية من المجال 0 الى غاية 255
    ملاحظة : لا يمكننا الخروج عن هذا المجال أقصد لا يمكننا ان نضع عدد أكبر من 255 و الا سيحدث استثناء
    السطر 8 قمنا بتعريف متغير لوني
    السطر 9 قمنا بانشاء لون جديد ابتداء من قيم A,R,G,B وذلك من خلال الدالة FromArgb
    السطر 10 => فرشاة التلوين و التي تحتوي على اللون الذي قمنا بانشائه
    السطر 11 لرسم مستطيل يملئ الفورم
    السطر 12 لتحرير gr

    ليصبح الكود كاملا هكذا


    كود:
    Public Class Form1 
        Dim A, R, G, B As Integer 
        Dim gr As Graphics 
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    
        End Sub 
    
        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
            gr = gr.FromHwnd(Me.Handle) 
            gr.Clear(Me.BackColor) 
            Dim RndX As New Random 
            A = RndX.Next(0, 255) 
            R = RndX.Next(0, 255) 
            G = RndX.Next(0, 255) 
            B = RndX.Next(0, 255) 
            Dim Colorx As Color 
            Colorx = Color.FromArgb(A, R, G, B) 
            Dim sb As New SolidBrush(Colorx) 
            gr.FillRectangle(sb, 0, 0, Me.Width, Me.Height) 
            gr.Dispose() 
        End Sub 
    End Class 
    [​IMG]
    الى هنااا شباب انتهى الموضوع

    [​IMG]
     


    كلآشنكوف و Dr.Attack معجبون بهذا.
    جاري تحميل الصفحة...
  2. غير متصل

    مسہہٰتہہٰر بٰٰرايہٰمر ᎿᎻᎬ ᏞᎥᏫᏁ
    موقوف لمخالفة الشروط

    عضو منذ:
    ‏1 فبراير 2016
    عدد المشاركات:
    الإعجابات المتلقاة:
    53
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:

    احسنت بارك الله فيك :kissing_heart:
     


  3. غير متصل

    jr3ah As6orh
    rankrank
    Developer

    عضو منذ:
    ‏22 مارس 2016
    عدد المشاركات:
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    طألب
    الإقامة:

    بأركك الله فيكك
    تسسلم ع الشرح اخوي $:
     


  4. غير متصل

    ƊЄƔƖԼ ƇƠƊЄƦ Developer Plus
    DeveloPer Plus

    عضو منذ:
    ‏18 ابريل 2017
    عدد المشاركات:
    الإعجابات المتلقاة:
    488
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    حرامي محترف
    الإقامة:
  5. غير متصل

    سكيورتي ارهابي
    ExpErt DeveloPer

    عضو منذ:
    ‏1 سبتمبر 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    53
    نقاط الجائزة:
    الوظيفة:
    ماكسي مول
    الإقامة:

    وّعّلّيّكّمّ اّلّسّلّاّمّ

    :mad:
    جّزّاّكّ اّلّلّهّ كّلّ خّيّرّ

    :heart:
    اّخّيّ اّلّحّبّيّبّ

    :blush:
    مّوّفّقّ
     


  6. غير متصل

    Dr.Attack
    rankrank
    Developer

    عضو منذ:
    ‏3 أغسطس 2012
    عدد المشاركات:
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    الإقامة:

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


مشاركة هذه الصفحة

جاري تحميل الصفحة...