Translate

Thứ Tư, 18 tháng 6, 2014

Ảo thị Đen - Trắng. Chuyên đề lập trình VB6



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

Trực tuyến

Mục lục Toàn bộ (theo thứ tự thời gian)

Trực tuyến