حالة الموضوع:
مغلق
  1. باسم الموسوي

    باسم الموسوي Developer

    الأنتساب:
    ‏27 يوليو 2014
    المشاركات:
    101
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    18
    الوظيفة:
    طالب - ولاعبانة روخي
    الإقامة:
    العراق - النجف ^_^
    بسم الله الرحمن الرحيم
    السلام عليكم ورحمة الله وبركانه
    طريقة جعل خلفية البرنامج يتساقط منها الثلج
    أولاً أضف تايمر وغير لون الخلفية الى اللون الأسود
    [​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
    المشاركات:
    101
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    18
    الوظيفة:
    طالب - ولاعبانة روخي
    الإقامة:
    العراق - النجف ^_^
    رد: جعل الخلفية يتساقط منها الثلج

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

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

     
  3. Ameer Eagle

    Ameer Eagle V • I • P

    الأنتساب:
    ‏7 يونيو 2014
    المشاركات:
    3,233
    الإعجابات المتلقاة:
    2,779
    نقاط الجائزة:
    113
    الجنس:
    ذكر
    الوظيفة:
    Student
    الإقامة:
    IraQ
    رد: جعل الخلفية يتساقط منها الثلج

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

    باسم الموسوي Developer

    الأنتساب:
    ‏27 يوليو 2014
    المشاركات:
    101
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    18
    الوظيفة:
    طالب - ولاعبانة روخي
    الإقامة:
    العراق - النجف ^_^
    رد: جعل الخلفية يتساقط منها الثلج

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

    Jeo Sawager Developer

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

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

    باسم الموسوي Developer

    الأنتساب:
    ‏27 يوليو 2014
    المشاركات:
    101
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    18
    الوظيفة:
    طالب - ولاعبانة روخي
    الإقامة:
    العراق - النجف ^_^
    رد: جعل الخلفية يتساقط منها الثلج

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

    ahmad.h4x0r Developer

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

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


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

    باسم الموسوي Developer

    الأنتساب:
    ‏27 يوليو 2014
    المشاركات:
    101
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    18
    الوظيفة:
    طالب - ولاعبانة روخي
    الإقامة:
    العراق - النجف ^_^
    رد: جعل الخلفية يتساقط منها الثلج

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

    NETJOURNAL مشرف

    الأنتساب:
    ‏18 مايو 2006
    المشاركات:
    676
    الإعجابات المتلقاة:
    1,543
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    ExploitCoding - ShellCoding - Defacer
    الإقامة:
    etc/shadow/~root
    رد: جعل الخلفية يتساقط منها الثلج

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

    MR.HACKER.DZ Developer

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

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

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