close
تبلیغات در اینترنت
a simple code that makes dots all over a form
loading...

آموزش برنامه نویسی

Private Sub Form_Load()     Const Black = &H0&     Form1.Caption = "Cool Color"     Timer1.Interval = 1     Form1.BackColor = Black     Form1.Tag = 0     Form1.WindowState = 2     Form1.Left = 0     Form1.Top = 0 End Sub Private Sub Timer1_Timer()     Dim Red As Integer     Dim Blue As Integer     Dim Green As Integer…

Admin بازدید : 607 سه شنبه 18 بهمن 1390 نظرات ()

Private Sub Form_Load()
    Const Black = &H0&
    Form1.Caption = "Cool Color"
    Timer1.Interval = 1
    Form1.BackColor = Black
    Form1.Tag = 0
    Form1.WindowState = 2
    Form1.Left = 0
    Form1.Top = 0
End Sub
Private Sub Timer1_Timer()
    Dim Red As Integer
    Dim Blue As Integer
    Dim Green As Integer
    Dim X As Integer
    Dim Y As Integer
        For I = 1 To 5000
            Red = Int(Rnd * 255)
            Blue = Int(Rnd * 255)
            Green = Int(Rnd * 255)
            Y = Int(Rnd * Form1.Height)
            X = Int(Rnd * Form1.Width)
            PSet (X, Y), RGB(Red, Green, Blue)
        Next I
    Form1.Tag = Form1.Tag + 1
        If Form1.Tag = 10 Then
            Form1.Cls
            Form1.Tag = 0
End Sub

 

Good luck :-)

مطالب مرتبط
ارسال نظر برای این مطلب

نام
ایمیل (منتشر نمی‌شود) (لازم)
وبسایت
:) :( ;) :D ;)) :X :? :P :* =(( :O @};- :B /:) :S
نظر خصوصی
مشخصات شما ذخیره شود ؟ [حذف مشخصات] [شکلک ها]
کد امنیتیرفرش کد امنیتی
تبلیغات
Rozblog.com رز بلاگ - متفاوت ترين سرويس سایت ساز
اطلاعات کاربری
نام کاربری :
رمز عبور :
  • فراموشی رمز عبور؟
  • نویسندگان
    نظرسنجی
    قالب سایت؟




    بیشتر چه نوع مطالبی رو میپسندید؟





    آمار سایت
  • کل مطالب : 588
  • کل نظرات : 391
  • افراد آنلاین : 2
  • تعداد اعضا : 3326
  • آی پی امروز : 50
  • آی پی دیروز : 50
  • بازدید امروز : 305
  • باردید دیروز : 223
  • گوگل امروز : 9
  • گوگل دیروز : 14
  • بازدید هفته : 1,834
  • بازدید ماه : 6,394
  • بازدید سال : 26,274
  • بازدید کلی : 2,026,520