Nhiều báo mạng đăng bài: Ảo thị xoay tít kỳ lạ, với nội dung khi nhìn bánh xe gồm 2 màu đen trắng xoay tít, nhìn đủ lâu, ta thấy có màu nào đó xuất hiện.
Link báo Khoa học:
http://www.khoahoc.com.vn/khampha/1001-bi-an/54326_ao-thi-xoay-tit-ky-la.aspx
Tôi muốn test thử, bèn viết phần mềm xem thử. Chả thấy gì cả. Riêng bạn? Thử một cú chăng?
Bạn có thể download phần mềm tôi viết:
http://www.mediafire.com/download/q3dc19hl8d633xw/Ao_thi_Ðen_Trang.exe
Với các bạn học VB6: code như sau:
Private Function Rads(ByVal Degree As Single) As Single
Degree = Degree Mod 360
Const PI = 22 / 7
Rads = Degree / 180 * PI
End Function
Private Sub Timer1_Timer()
Static Goc As Single
Goc = Goc + HScroll1.Value
If Goc > 10000 Then Goc = Goc - 10000
FillStyle = 0
FillColor = vbBlack
Circle (1700, 1500), 1300, , -Rads(0.1 + Goc), -Rads(180.1 + Goc)
FillColor = vbWhite
Circle (1700, 1500), 1300, , -Rads(180.1 + Goc), -Rads(0.1 + Goc)
End Sub
Project:
-------------
Xem trực tiếp toàn bộ blog Chuyện Linh Tinh
Không có nhận xét nào:
Đăng nhận xét