تبلیغات
پاتوق بچه های سه ی یک - شطرنجی!!
پاتوق بچه های سه ی یک
همه برای یکی ، یکی برای همه
نوشته شده در تاریخ 15 اسفند 90 توسط فرزاد
Private Sub HScroll1_Change()
Dim a, i, j, r, g, b, x, y, s
a = HScroll1.Value
 For i = a To Picture1.Width Step a
  For j = a To Picture1.Height Step a
  For y = -a \ 2 To a \ 2
  For x = -a \ 2 To a \ 2
  s = Picture1.Point(i + x, j + y)
  r = (r + s Mod 256) \ 2: s = s \ 256
  g = (g + s Mod 256) \ 2: s = s \ 256
  b = (b + s Mod 256) \ 2: s = s \ 256
  Next
  Next
  For y = -a \ 2 To a \ 2
  For x = -a \ 2 To a \ 2
  Picture2.PSet (i + x, y + j), RGB(r, g, b)
  Next
  Next
  r = 0
  g = 0
  b = 0
    Next
  Next
End Sub


درباره وبلاگ
موضوعات
آخرین مطالب
آرشیو مطالب
نظر سنجی
به نظر شما پرسپولیس چگونه استقلال را شکست داد؟






نویسندگان
پیوند ها
آمار سایت
بازدیدهای امروز : نفر
بازدیدهای دیروز : نفر
كل بازدیدها : نفر
بازدید این ماه : نفر
بازدید ماه قبل : نفر
تعداد نویسندگان : عدد
كل مطالب : عدد
آخرین بازدید :
آخرین بروز رسانی :

موبایل

فال حافظ

دانلود

خرید اینترنتی