• أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
  • بادئ الموضوع Hack Team
  • تاريخ البدء
غير متصل

Hack Team

.:: super ::.

إدارة الموقع
إنضم
12 أبريل 2015
المشاركات
1,108
الإعجابات
977
النقاط
555
الإقامة
IRAQ
الإجابات المقدمة: 1
#1


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

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

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

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

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

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

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

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

». أما بعد .«

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

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

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

* بـَعـد السـَلامُ يـّحلوُ الكـّلام ، تـطـيـب الأنـفـس وترجتلَ لتعآنقَ ربآبَ المّطر ، *
* وفي قلوبكُم تسُكن ، لتنجبَ أفرآحاً مُتخمةُ بالآمآل والإنبسآطُ *
* مساءَ لكمُ قـد أرخىَ سدولهُ لىَ موآطنَ الرقصاتَ الإبدآعيةَ ،*

اهلا وسهلا في زوار واعضاء منتديات عراق تيم ....
كيف الحال شباب انشاء الله تمام الصحه والعافيه يارب ....

طبعا موضوع ماحاجه اطول في فشرح مبين من عنوان
توليد ألوان عشوائية

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


افتح مشروع جديد و أضف اليه تايمر (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

الى هنااا شباب انتهى الموضوع

 


غير متصل

موقوف لمخالفة الشروط
إنضم
1 فبراير 2016
المشاركات
246
الإعجابات
49
النقاط
75
الإقامة
العراق
الإجابات المقدمة: 0
#2
احسنت بارك الله فيك :kissing_heart:
 


غير متصل

jr3ah

As6orh

Developer
إنضم
22 مارس 2016
المشاركات
62
الإعجابات
4
النقاط
30
الإقامة
الامارات
الإجابات المقدمة: 0
#3
بأركك الله فيكك
تسسلم ع الشرح اخوي $:
 


غير متصل

ƊЄƔƖԼ ƇƠƊЄƦ

Developer Plus

DeveloPer Plus
إنضم
18 أبريل 2017
المشاركات
341
الإعجابات
521
النقاط
435
العمر
22
الإقامة
فلسطين
الإجابات المقدمة: 2
#4
مشكور حمود
 


غير متصل

ExpErt DeveloPer
إنضم
1 سبتمبر 2014
المشاركات
681
الإعجابات
52
النقاط
435
الإقامة
دوله العراق العظيم
الإجابات المقدمة: 0
#5
وّعّلّيّكّمّ اّلّسّلّاّمّ

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

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

:blush:
مّوّفّقّ
 


غير متصل

Developer
إنضم
3 أغسطس 2012
المشاركات
72
الإعجابات
4
النقاط
30
الإقامة
هنآآآآآ
الإجابات المقدمة: 0
#6
مشكور على المجهود الطيب
 


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