Đố vui mừng sinh nhật GPE lần 5 (2 người xem)

huuthang_bd · 10/6/11

Trong không khí rộn ràng mừng sinh nhật GPE lần 5 mình xin gửi một câu đố góp vui cho thêm phần sôi động.
Hãy tìm bí mật được giấu trong file đính kèm.

ndu96081631 · 10/6/11

huuthang_bd đã viết:
Trong không khí rộn ràng mừng sinh nhật GPE lần 5 mình xin gửi một câu đố góp vui cho thêm phần sôi động.
Hãy tìm bí mật được giấu trong file đính kèm.

Cũng phải có 1 gợi ý gì đó chứ (chẳng hạn yêu cầu TÌM CÁI GÌ)
Chứ nhìn 1 đống số thế kia ---> Chẳng biết phương hướng là nơi mô

huuthang_bd · 10/6/11

ndu96081631 đã viết:
Cũng phải có 1 gợi ý gì đó chứ (chẳng hạn yêu cầu TÌM CÁI GÌ)
Chứ nhìn 1 đống số thế kia ---> Chẳng biết phương hướng là nơi mô

Vậy yêu cầu cụ thể là: Trong file có một cái Logo của GPE, hãy làm cho nó hiện ra.

Gợi ý: Dùng Excel 2007 trở về sau mới tìm được.

TranThanhPhong · 10/6/11

huuthang_bd đã viết:
Vậy yêu cầu cụ thể là: Trong file có một cái Logo của GPE, hãy làm cho nó hiện ra.

Gợi ý: Dùng Excel 2007 trở về sau mới tìm được.

Thấy rồi, làm rất công phu!

TTP.

OverAC · 10/6/11

Có giải thưởng gì không thắngbd

huuthang_bd · 10/6/11

TranThanhPhong đã viết:
Thấy rồi, làm rất công phu!

TTP.

Nhanh vậy ta. Chắc tại gợi ý lộ quá -0-/.

Gợi ý: Dùng Excel 2007 trở về sau mới tìm được.

OverAC đã viết:
Có giải thưởng gì không thắngbd

Giải thưởng là 2 chai sữa bắp.
Lão chết tiệt còn nợ em hai chai sữa bắp giải khuyến khích cuộc thi vẽ biểu đồ. Lấy đắp qua đây --=0

TranThanhPhong · 10/6/11

huuthang_bd đã viết:
Nhanh vậy ta. Chắc tại gợi ý lộ quá

Anh thử trên Excel 2003 vẫn như vậy, nhưng mà không biết đúng cách của em không nữa!

TTP.

huuthang_bd · 10/6/11

TranThanhPhong đã viết:
Anh thử trên Excel 2003 vẫn như vậy, nhưng mà không biết đúng cách của em không nữa!

View attachment 64288
TTP.

Tưởng anh tìm ra được rồi chứ. Cái này chưa đúng lắm. Phải hiện ra cái Logo giống như cái logo của diễn đàn cơ :-=

TranThanhPhong · 10/6/11

huuthang_bd đã viết:
Tưởng anh tìm ra được rồi chứ. Cái này chưa đúng lắm. Phải hiện ra cái Logo giống như cái logo của diễn đàn cơ

Nếu thế thì cách khác, không biết có đúng không

huuthang_bd · 10/6/11

TranThanhPhong đã viết:
Nếu thế thì cách khác, không biết có đúng không

Logo giống như logo ở bài #3 đó anh.
Chú ý câu gợi ý của em.

TranThanhPhong · 10/6/11

huuthang_bd đã viết:
Logo giống như logo ở bài #3 đó anh.
Chú ý câu gợi ý của em.

Chỉnh màu lại là giống

Rinh 2 chai sửa bắp được chưa em

Em dùng PM nào mà ra được bộ số liệu đó vậy?

huuthang_bd · 10/6/11

TranThanhPhong đã viết:
Chỉnh màu lại là giống

View attachment 64291

Rinh 2 chai sửa bắp được chưa em

Em dùng PM nào mà ra được bộ số liệu đó vậy?

Chính xác. Anh qua gặp Lão Chết Tiệt lấy hai chai sữa bắp nha --=0

[video=youtube;RnM4HdOj0Yw]http://www.youtube.com/watch?v=RnM4HdOj0Yw[/video]

Em dùng PM nào mà ra được bộ số liệu đó vậy?

Em dùng Excel thôi.

PHP:

Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

PHP:

Sub Scan()
    Dim Area As POINTAPI
    Dim lColor As String
    Dim winHwnd As Long
    Dim HoanhDo As Long, TungDo As Long
    winHwnd = GetWindowDC(0)
    Call GetCursorPos(Area)
    HoanhDo = Area.x
    TungDo = Area.y
    For i = 95 To TungDo
        For j = 29 To HoanhDo
            lColor = GetPixel(winHwnd, j, i)
            Sheet2.Cells(i - 94, j - 28).Value = lColor
        Next
    Next
End Sub

Lấy một cái hình trắng đen bỏ vào Sheet1, kết quả sẽ có ở Sheet2
Chỉnh các thông số i, j lại cho trùng với điểm ảnh đầu tiên của cái hình của mình.
Code sẽ quét từ điểm ảnh đó đến vị trí con chuột. Vì vậy nên trước khi chạy code anh đặt con chuột tại điểm ảnh cuối cùng của cái hình.
Sau khi có được số liệu thì em cộng trừ nhân chia để che mắt thôi, để nguyên bộ số liệu đó vẫn được.
Thay dòng

PHP:

Sheet2.Cells(i - 94, j - 28).Value = lColor

Bằng dòng

PHP:

Sheet2.Cells(i - 94, j - 28).Interior.Color = lColor

Anh sẽ có một bức ảnh trên Excel với mỗi ô là một điểm ảnh (Làm cái này thì có thể làm ảnh màu được)

ndu96081631 · 10/6/11

Bài này vừa gữi lên thì mình đã mường tượng đến Conditional Formating
Cho điều kiện A1>300, đã thấy có kết quả gần chính xác
Định thí nghiệm, vậy mà chậm tay mất rồi
(Hình của Phong đẹp quá đâm ra hết muốn làm... vì làm chưa chắc đã đẹp bằng)

huuthang_bd · 10/6/11

ndu96081631 đã viết:
Bài này vừa gữi lên thì mình đã mường tượng đến Conditional Formating
Cho điều kiện A1>300, đã thấy có kết quả gần chính xác
Định thí nghiệm, vậy mà chậm tay mất rồi
(Hình của Phong đẹp quá đâm ra hết muốn làm... vì làm chưa chắc đã đẹp bằng)

Có lẽ do cái logo đơn giản quá nên Anh dùng CF là thấy. Nếu hình có nhiều tông màu khác nhau thì khó mà thí nghiệm bằng CF với điều kiện thông thường được.

ndu96081631 · 10/6/11

huuthang_bd đã viết:

Em dùng Excel thôi.

PHP:

Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

Mấy hàm API làm được rất nhiều trò đấy! Chẳng hạn là trò trong file dưới đây
- Mở file, bấm nút Show Form
- Ra chuột vào bất cứ cửa sổ nào, bất cứ vị trí nào (kể cả vị trí ngoài cửa sổ Excel) để lấy màu tại điểm ấy
- Bấm nút Enter trên bàn phím để ấn định

ThuNghi · 10/6/11

ndu96081631 đã viết:
Mấy hàm API làm được rất nhiều trò đấy! Chẳng hạn là trò trong file dưới đây
- Mở file, bấm nút Show Form
- Ra chuột vào bất cứ cửa sổ nào, bất cứ vị trí nào (kể cả vị trí ngoài cửa sổ Excel) để lấy màu tại điểm ấy
- Bấm nút Enter trên bàn phím để ấn định

Cái vụ scan hình này có nghe lâu rồi, giờ thấy HuuThang Và NDU làm mới thấy. Quá hay.
Nghe nói ngưới ta dùng hình thức này để viết mật mã. Không biết có đúng không. Còn phân tích màu từng điểm ảnh và chuyển thành mã thì nghe nói lâu rồi.
Cám ơn hai bạn nhiều.

huuthang_bd · 11/6/11

ndu96081631 đã viết:
Mấy hàm API làm được rất nhiều trò đấy! Chẳng hạn là trò trong file dưới đây
- Mở file, bấm nút Show Form
- Ra chuột vào bất cứ cửa sổ nào, bất cứ vị trí nào (kể cả vị trí ngoài cửa sổ Excel) để lấy màu tại điểm ấy
- Bấm nút Enter trên bàn phím để ấn định

Thì em cũng chế cái vụ scan này từ code lấy màu tại vị trí con trỏ chuột sưu tầm được mà --=0

huuthang_bd · 15/6/11

Xin gửi tiếp đến các bạn một câu đố vui nữa.
Làm thế nào để tô được màu như thế này:

Và như thế này:

ndu96081631 · 15/6/11

huuthang_bd đã viết:
Xin gửi tiếp đến các bạn một câu đố vui nữa.
Làm thế nào để tô được màu như thế này:
Và như thế này:

Tạm thời làm được cái dưới

Nhưng cũng không chắc đã đúng ý tác giả

huuthang_bd · 15/6/11

ndu96081631 đã viết:
Tạm thời làm được cái dưới

View attachment 64523

Nhưng cũng không chắc đã đúng ý tác giả

Làm sao làm tô cho giống là được rồi anh. Nhưng mà phải là tô màu không được dùng Object đâu đấy.

Đố vui mừng sinh nhật GPE lần 5 (2 người xem)

Người dùng đang xem chủ đề này

Chuyên gia GPE

File đính kèm

Huyền thoại GPE

Chuyên gia GPE

Ngày mai trời lại sáng!

Đỗ Nguyên Bình

Chuyên gia GPE

Ngày mai trời lại sáng!

Chuyên gia GPE

Ngày mai trời lại sáng!

Chuyên gia GPE

Ngày mai trời lại sáng!

File đính kèm

Chuyên gia GPE

File đính kèm

Huyền thoại GPE

Chuyên gia GPE

Huyền thoại GPE

File đính kèm

Hãy cho rồi sẽ nhận!

Chuyên gia GPE

Chuyên gia GPE

Huyền thoại GPE

Chuyên gia GPE

Đếm ngược thời gian