1. Ghost RAT

    Ghost RAT مراقب عآم

    الأنتساب:
    ‏12 ابريل 2015
    المشاركات:
    505
    الإعجابات المتلقاة:
    172
    نقاط الجائزة:
    43
    الجنس:
    ذكر
    الإقامة:
    IRAQ
    [​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]
     
  2. مسہہٰتہہٰر بٰٰرايہٰمر

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

    الأنتساب:
    ‏1 فبراير 2016
    المشاركات:
    288
    الإعجابات المتلقاة:
    67
    نقاط الجائزة:
    28
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق
  3. jr3ah

    jr3ah As6orh Developer

    الأنتساب:
    ‏22 مارس 2016
    المشاركات:
    59
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    الجنس:
    ذكر
    الوظيفة:
    طألب
    الإقامة:
    الامارات
    بأركك الله فيكك
    تسسلم ع الشرح اخوي $:
     

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