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

    عضو منذ:
    ‏27 يوليو 2014
    عدد المشاركات:
    125
    الإعجابات المتلقاة:
    25
    نقاط الجائزة:
    50
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق - النجف الأشرف
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Java
    Facebook:
    YouTube:
    بسم الله الرحمن الرحيم
    السلام عليكم ورحمة الله وبركانه
    طريقة جعل خلفية البرنامج يتساقط منها الثلج
    أولاً أضف تايمر وغير لون الخلفية الى اللون الأسود
    [​IMG]
    ثم أمسح الكود كله
    ثم ضع هذا الكود
    كود:
    [SIZE=4][COLOR=Orange]Public Class Form1[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange] 'iq-team.org/vb[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    Dim num, x(), y(), v(), s() As Integer[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    Dim random As Random = New Random[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    Dim graphics As System.Drawing.Graphics[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    Dim rectangle As Rectangle[/COLOR][/SIZE]
    
    [SIZE=4][COLOR=Orange]    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Me.UpdateStyles()[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        snow()[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Timer1.Start()[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    End Sub[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    Private Sub snow()[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        num = 2000[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        ReDim x(num - 1)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        ReDim y(num - 1)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        ReDim v(num - 1)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        ReDim s(num - 1)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Dim i As Integer[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        For i = 0 To num - 1[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]            Insnow(i)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Next[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    End Sub[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    Private Sub Insnow(ByVal i As Integer)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        x(i) = random.Next(0, Me.Width - 1)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        y(i) = random.Next(0, Me.Height * 5 / 7)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        v(i) = random.Next(5, 20)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        s(i) = (random.Next(1, 3) * 100 + random.Next(50, 200)) / 100[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    End Sub[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Static i As Integer[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        For i = 0 To num - 1[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]            y(i) = y(i) + v(i)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]            If y(i) >= Me.Height Then[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]                Insnow(i)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]            End If[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Next[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Invalidate()[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    End Sub[/COLOR][/SIZE]
    
    [SIZE=4][COLOR=Orange]    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        graphics = e.Graphics[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Dim i As Integer[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        For i = 0 To num - 1[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]            graphics.FillEllipse(Brushes.White, x(i), y(i), s(i), s(i))[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        Next[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    End Sub[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]        rectangle = New Rectangle(0, 0, Me.Width, Me.Height)[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]    End Sub[/COLOR][/SIZE]
    [SIZE=4][COLOR=Orange]End Class[/COLOR][/SIZE]
    
    
    وجرب النتيجة
    لاتنسا اللايك للتشجيع:{6!}:
    في أمان الله
     
    جاري تحميل الصفحة...
  2. باسم الموسوي
    Developer

    عضو منذ:
    ‏27 يوليو 2014
    عدد المشاركات:
    125
    الإعجابات المتلقاة:
    25
    نقاط الجائزة:
    50
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق - النجف الأشرف
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Java
    Facebook:
    YouTube:
    رد: جعل الخلفية يتساقط منها الثلج

    ملاحظة لتغيير لون الثلج من الأبيض الى اللون الذي تريده
    غير كلمة Brushes.White الى اللون الذي تريده مثل الى اللون الأحمر Brushes.Red
    في هذا السطر

    كود:
    graphics.FillEllipse(Brushes.White, x(i), y(i), s(i), s(i))

     
  3. Ameer Eagle V.I.P
    طاقم الإدارة

    عضو منذ:
    ‏7 يونيو 2014
    عدد المشاركات:
    2,922
    الإعجابات المتلقاة:
    2,777
    نقاط الجائزة:
    555
    الجنس:
    ذكر
    الوظيفة:
    Student
    الإقامة:
    IraQ
    نظام التشغيل:
    windows 7
    رد: جعل الخلفية يتساقط منها الثلج

    وعليكم السلام ورحمة الله
    بارك الله بيك فعلا مفيدة في جمالية البرنامج
    بؤؤركت
     
  4. باسم الموسوي
    Developer

    عضو منذ:
    ‏27 يوليو 2014
    عدد المشاركات:
    125
    الإعجابات المتلقاة:
    25
    نقاط الجائزة:
    50
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق - النجف الأشرف
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Java
    Facebook:
    YouTube:
    رد: جعل الخلفية يتساقط منها الثلج

    منور الموضوع Ameer Eagle
     
  5. Jeo Sawager
    Developer

    عضو منذ:
    ‏15 أكتوبر 2014
    عدد المشاركات:
    139
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    50
    رد: جعل الخلفية يتساقط منها الثلج

    مشكور ع آلطرح آلرآئع :{1!}:​
     
  6. باسم الموسوي
    Developer

    عضو منذ:
    ‏27 يوليو 2014
    عدد المشاركات:
    125
    الإعجابات المتلقاة:
    25
    نقاط الجائزة:
    50
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق - النجف الأشرف
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Java
    Facebook:
    YouTube:
    رد: جعل الخلفية يتساقط منها الثلج

    حياكم الله آخواني الآعزاء
    نورتو الموضوع مروركم شرف لي
     
  7. ahmad.h4x0r
    rank
    Developer

    عضو منذ:
    ‏24 يونيو 2012
    عدد المشاركات:
    21
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    5
    الإقامة:
    Algerie
    رد: جعل الخلفية يتساقط منها الثلج

    بارك الله فيك يا غالي


    الله لا يحرمنا من جديك
     
  8. باسم الموسوي
    Developer

    عضو منذ:
    ‏27 يوليو 2014
    عدد المشاركات:
    125
    الإعجابات المتلقاة:
    25
    نقاط الجائزة:
    50
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق - النجف الأشرف
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Java
    Facebook:
    YouTube:
    رد: جعل الخلفية يتساقط منها الثلج

    منور الموضوع ahmad.h4x0r
     
  9. NETJOURNAL
    مشرف

    عضو منذ:
    ‏18 مايو 2006
    عدد المشاركات:
    647
    الإعجابات المتلقاة:
    1,544
    نقاط الجائزة:
    215
    الجنس:
    ذكر
    الوظيفة:
    ExploitCoding - ShellCoding - Defacer
    الإقامة:
    etc/shadow/~root
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    PHP
    رد: جعل الخلفية يتساقط منها الثلج

    بطل ورده استمر ..[​IMG]
     
  10. MR.HACKER.DZ
    rank
    Developer

    عضو منذ:
    ‏23 سبتمبر 2014
    عدد المشاركات:
    36
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    20
    رد: جعل الخلفية يتساقط منها الثلج

    شكرا س
     
حالة الموضوع:
مغلق

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

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