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

    الأنتساب:
    ‏27 يوليو 2014
    المشاركات:
    126
    الإعجابات المتلقاة:
    24
    نقاط الجائزة:
    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
    المشاركات:
    126
    الإعجابات المتلقاة:
    24
    نقاط الجائزة:
    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
    المشاركات:
    3,233
    الإعجابات المتلقاة:
    2,783
    نقاط الجائزة:
    255
    الجنس:
    ذكر
    الوظيفة:
    Student
    الإقامة:
    IraQ
    نظام التشغيل:
    windows 7
    رد: جعل الخلفية يتساقط منها الثلج

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

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

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

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

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

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

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

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

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


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

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

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

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

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

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

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

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