Thi vẽ biểu đồ có thưởng: chào mừng Sinh nhật GPE lần 3 (1 người xem)

[ptm0412]

Ban tổ chức Sinh nhật GPE lần 3 tổ chức cuộc thi vẽ biểu đồ nhằm chào mừng ngày Sinh nhật trọng đại của GPe lần 3, nội dung như sau:
I. Nội dung:

1. Ứng dụng vẽ biểu đồ Speedometer để vẽ đồng hồ chạy theo giờ hệ thống, (8 điểm).
Yêu cầu:
- Đồng hồ có 3 kim: giờ, phút, giây. Chú ý độ dài và độ mập ốm của 3 kim là khác nhau và kim giây có cái đuôi như hình kèm theo.
- Các vạch số từ 1 đến 12, và các vạch con, phải là 2 series của biểu đồ, độ dài khác nhau, không được vẽ bằng tay (Autoshape hoặc công cụ khác ngoài biểu đồ)
- Nhãn hiệu đồng hồ là nick của thành viên tham gia
- Có ô ghi ngày tháng của hệ thống
- Có thể dùng code VBA để cho đồng hồ chạy như thật. Đoạn code điều khiển này không bắt buộc phải viết, nhưng mang ý nghĩa là "biểu đồ động".

2. Trang trí: (2 điểm)

- Trang trí đồng hồ cho đẹp, có thể dùng mọi công cụ để vẽ hình nền.
- Để thống nhất và công bằng, chỉ dùng Excel 2003, không dùng hiệu ứng 3D của Excel 2007.
- Chỉ tính cho hình nền, đây là tiêu chí phụ để phân loại khi có nhiều thành viên trả lời đúng.

II. Giải thưởng:

- Giải nhất: 1 phần thưởng bằng hiện vật trị giá 150.000 đ cho thành viên nào có đáp án đạt điểm cao nhất và sớm nhất.
- Giải nhì: 1 phần thưởng bằng hiện vật trị giá 100.000 đ cho thành viên nào có đáp án đạt điểm cao thứ nhì hoặc cùng điểm với đáp án đoạt giải nhất nhưng có thời gian nộp bài trễ hơn.
- Giải 3: 1 phần thưởng bằng hiện vật trị giá 80.000 đ cho thành viên nào có đáp án đạt điểm cao thứ 3 hoặc cùng điểm với đáp án đoạt giải nhì nhưng có thời gian nộp bài trễ hơn.

- Giải thưởng sẽ công bố và trao tại buổi sinh nhật. Trường hơp thí sinh không tham dự sinh nhật sẽ chuyển bằng đường bưu điện.

III. Nộp bài và đối tượng tham gia:

- Đối tượng tham gia là mọi thành viên GPE không phân biệt bất cứ tiêu chuẩn nào.
- Thời hạn nộp bài tính từ lúc ra thông báo này cho đến 17 giờ ngày 03/07/2009
- Bài dự thi gởi mail vào địa chỉ thanhmypham@gmail.com
- Ban tổ chức sẽ căn cứ vào giờ nhận mail để tính thời gian.
- Kết quả sẽ công bố trên topic này và trong lễ sinh nhật.

IV. Mẫu đồ thị:

- Thành viên tham gia có thể tham khảo phương pháp vẽ speedometer tại đây, có cả file mẫu kèm theo.
- Hình mẫu: biểu đồ theo mẫu, hình nền theo ý muốn.

2003 _________________________________________ 2007​

Thân mời mọi thành viên tham gia!

 

[ptm0412]

Chú ý:

Thành viên tham gia thi vẽ biểu đồ có quyền sử dụng file mẫu speedometer để thực hiện phần tiếp theo.

Rất mong mọi người tham gia cho sôi nổi! Xin cám ơn.

 

[ptm0412]

Ghi nhận!

Đã có 1 thành viên đang ráo riết chuẩn bị cho bài dự thi, và đang hỏi ptm0412 thêm về phương pháp vẽ đồ thị speedometer, có lẽ sẽ xong và nộp bài trong ngày hôm nay!
Nếu vậy thành viên này là người đầu tiên nộp bài, nếu các bạn khác chậm trễ thì thành viên này đoạt giải luôn!


Ghi chú:

Các bạn có thể hỏi về bất cứ thứ gì liên quan đến đồ thị speedometer (đồng hồ đo 1 kim), tôi sẽ trả lời trong topic liên quan, hoặc nếu hỏi riêng, tôi cũng sẵn sàng.

Khi đã vẽ được 1 kim, thì 2 kim còn lại là chuyện nhỏ!

Các bạn nhanh chân nhanh tay nhé, sắp đến ngày rồi!

 

[ptm0412]

Thang điểm chấm cho cuộc thi vẽ biểu đồ:

STT​

​

|

Nội dung​

​

|

Yêu cầu​

​

|

Điểm​

​

|

1​

|Serie vạch nhỏ|Chia 60 vạch|

1​

|

2​

|Serie vạch lớn|Chia 12 vạch|

1​

|

3​

|Serie kim giờ|Chỉ giờ đúng|

2​

|

4​

|Serie kim phút|Chỉ phút đúng|

1​

|

5​

|Serie kim giây|Có đuôi và chỉ giây đúng|

1​

|

6​

|Tính chất động của biểu đồ|Thay giá trị giờ trên sheet có thể làm cho đồng hồ chỉ đúng giờ|

2​

|

7​

|Trang trí|Có trang trí|

1​

|

8​

|Trang trí|Trang trí đẹp|

1​

|
|Cộng| |

10​

|

Các bạn hãy tham gia, yên chí là có tham gia là có điểm, có điểm là có sắp hạng, có sắp hạng là có giải thưởng.

 

[ptm0412]

Đã có 1 bài dự thi, vẫn còn 2 giải nữa, mau lên các anh em ơi.


LearnExcel, Ticonuong84, hmt123, Mr OkeBab, những người đoạt giải năm ngoái đâu rồi?

Boyxin, Sealand, RollOver, ... những nhân tài xuất hiện trong vòng 1 năm nay?

 

[handung107]

Cập nhật giải thưởng cho cuộc thi này :

- Giải nhất : Bản quyền chính thức sản phẩm Add-in A-Tool do tác giả TuanVNUI tài trợ
- Giải nhì và giải ba : hấp dẫn không kém, nhưng vì mới co 1 bài dự thi...nên chưa công bố vội

 

[ptm0412]

Bài dự thi thứ nhất (xin chưa thông báo tên)

Điểm đã chấm, đạt yêu cầu về đồ thị.

Hãy thử sức đi, các bạn có thể làm đẹp hơn!

 

[ptm0412]

Hãy thử sức đi, các bạn có thể làm đẹp hơn!

Muốn đẹp thì có đẹp ngay!

Thành viên dự thi thứ nhất, đã không hài lòng với chính mình, nên đã làm cái này gởi thêm vào, quyết lấy 2 điểm trang trí!

Điểm tối đa!

 

[BNTT]

Đừng ngủ nghe lão Chettit ơi, em sắp xong rồi, sẽ gửi bài lên ngay nè...

 

[ptm0412]

Gởi vào mail mới hợp lệ nha tiểu đệ!

 

[BNTT]

Rồi, xong rồi. Bài thì gửi vào hộp mail. Nhưng còn cái đồng hồ, hic, đẹp quá, post lên đây khoe tí...

Hì, cái đồng hồ nì "ô tô ma lắc" nha.... Ngồi yên mà nhìn nó nó trợn mắt nhìn lại đó. Muốn nó nhúc nhích, thì phải lấy ngón chân út (nghĩa là gác cái chân lên bàn phím, à, chân trái nha) đè lên phím F9, không được buông ra... nó sẽ chạy cho coi.... Úi mà trời, nhấn vào mới thấy là hơn 12 giờ rưỡi rồi... hèn chi buồn ngủ... Chắc rinh giải nhất rồi quá.... (tí ngủ nằm mơ)

 

[ptm0412]

Ngộ ha, đồng hồ cổ thì chữ số Hy Lạp, đồng hồ hiện đại thì chữ số La Mã!
Mà mấy anh La Mã này hông giống mấy anh lính La Mã thời Caesar, hông có ngay ngắn gì hết, méo xẹo!

Muốn nó nhúc nhích, thì phải lấy ngón chân út (nghĩa là gác cái chân lên bàn phím, à, chân trái nha) đè lên phím F9, không được buông ra... nó sẽ chạy cho coi....

Hông biết viết code thì nói là hông biết đi.

À cái kim giây của BNTT có cái đuôi rồi, nhưng hông có cái trục kim, nó rớt hết kim làm sao? Hihi!

Còn nữa, cái vạch dài trong hình chụp coi bộ hình như xài Excel2007 mới ra 2 vạch như vậy chớ Save As 2003 1 cái thì cũng đen thùi đậm lè như vạch ngắn thôi.

 

[BNTT]

Hỏng biết code kiết gì hết, em chỉ theo nguyên xi cái nì:

Thang điểm chấm cho cuộc thi vẽ biểu đồ:

STT​

​

|

Nội dung​

​

|

Yêu cầu​

​

|

Điểm​

​

|

1​

|Serie vạch nhỏ|Chia 60 vạch|

1​

|

2​

|Serie vạch lớn|Chia 12 vạch|

1​

|

3​

|Serie kim giờ|Chỉ giờ đúng|

2​

|

4​

|Serie kim phút|Chỉ phút đúng|

1​

|

5​

|Serie kim giây|Có đuôi và chỉ giây đúng|

1​

|

6​

|Tính chất động của biểu đồ|Thay giá trị giờ trên sheet có thể làm cho đồng hồ chỉ đúng giờ|

2​

|

7​

|Trang trí|Có trang trí|

1​

|

8​

|Trang trí|Trang trí đẹp|

1​

|
|Cộng| |

10​

|

Chả thấy cái khoản nào nói là phải có trục kim, chả thấy chỗ mô nói là phải viết code... Hì hì. Thành thử mấy khoản "thiếu" mà sư phụ nói ở trên, hỏng có được trừ điểm nha!

 

[sealand]

Cám ơn các bạn mời tham gia, nhưng mảng đồ họa thì mình yếu quá không tham gia được đành xem các bạn thi vậy.

 

[ThuNghi]

Hỏng biết code kiết gì hết, em chỉ theo nguyên xi cái nì:
Chả thấy cái khoản nào nói là phải có trục kim, chả thấy chỗ mô nói là phải viết code... Hì hì. Thành thử mấy khoản "thiếu" mà sư phụ nói ở trên, hỏng có được trừ điểm nha!

Cơ bản vậy là quá đẹp rồi, còn muốn Now() change thì nên có 1 code cho chạy. Đơn giản mà.

 

[BNTT]

Muốn đẹp thì có đẹp ngay!

Thành viên dự thi thứ nhất, đã không hài lòng với chính mình, nên đã làm cái này gởi thêm vào, quyết lấy 2 điểm trang trí!

Điểm tối đa!

Nếu căn cứ theo cái "pa-rem" đã nêu ra ở trên, thì cái kim giây của cái đồng hồ này hỏng có "đuôi"...
Thế... làm sao mà điểm tối đa được ta? 9,5 điểm thôi!

Còn xin thưa với sư phụ, cái đồng hồ báo thức của em, số là... trước khi nộp bài, em lỡ làm nó rớt xuống đất, nên cái vỏ hơi móp méo một tí, và mấy con số La Mã chỉ giờ nó bị xộc xệch sang một bên. Nhưng tại vì quá gần giờ nộp bài, vả lại đêm khuya không thể chạy đi mua một cái vỏ mới, nên đành nộp luôn cái đó.... Còn nữa, cái hột kim cương 1,5 cara đính ở chỗ cái trục kim nó rơi mất, bò xuống gầm giường tìm cả đỗi cũng không ra, nhưng em xin bảo đảm là cái trục vẫn còn đó, chưa rơi mất, không tin, sư phụ cứ lấy ngón chân út nhấn vào phím F9 xem, nó chạy vèo vèo mà không văng kim ra ngoài...

 

[ThuNghi]

Nếu căn cứ theo cái "pa-rem" đã nêu ra ở trên, thì cái kim giây của cái đồng hồ này hỏng có "đuôi"...
Thế... làm sao mà điểm tối đa được ta? 9,5 điểm thôi!

Còn xin thưa với sư phụ, cái đồng hồ báo thức của em, số là... trước khi nộp bài, em lỡ làm nó rớt xuống đất, nên cái vỏ hơi móp méo một tí, và mấy con số La Mã chỉ giờ nó bị xộc xệch sang một bên. Nhưng tại vì quá gần giờ nộp bài, vả lại đêm khuya không thể chạy đi mua một cái vỏ mới, nên đành nộp luôn cái đó.... Còn nữa, cái hột kim cương 1,5 cara đính ở chỗ cái trục kim nó rơi mất, bò xuống gầm giường tìm cả đỗi cũng không ra, nhưng em xin bảo đảm là cái trục vẫn còn đó, chưa rơi mất, không tin, sư phụ cứ lấy ngón chân út nhấn vào phím F9 xem, nó chạy vèo vèo mà không văng kim ra ngoài...

Góp ý thêm về đồng hồ La Mã thời Xuân Thu.
Số la mã chỉ giờ trên nằm hơi lộn xộn. Không chuẩn với vạch chỉ giờ. Chắc là nhập vào. Xem số 10, 11, và khỏan cách đến các vạch không đều. Chắc hồi xưa chưa có thước đo.
Nếu theo parem thì OK, nhưng đồng hồ mà mỗi lần hỏi, mỗi lần vặn kim thì cũng hơi không hay. Và nếu thêm ngày thì hay hơn. Tóm lại 9,5 đ.

 

[BNTT]

Góp ý thêm về đồng hồ La Mã thời Xuân Thu.
Số la mã chỉ giờ trên nằm hơi lộn xộn. Không chuẩn với vạch chỉ giờ. Chắc là nhập vào. Xem số 10, 11, và khỏan cách đến các vạch không đều. Chắc hồi xưa chưa có thước đo.
Nếu theo parem thì OK, nhưng đồng hồ mà mỗi lần hỏi, mỗi lần vặn kim thì cũng hơi không hay. Và nếu thêm ngày thì hay hơn. Tóm lại 9,5 đ.

Em đã nói rồi, sở dĩ các con số La Mã nó nằm không đồng tâm, là do em sơ ý làm rơi nó xuống đất, nó bị lung lay, đồng thời cái cạnh đồng hồ hơi bị móp méo tí, em đã cố gắng hết sức để gò nó lại cho tương đối tròn, vì khuya hôm qua không còn ai bán hàng để mà chạy đi mua cái đồng hồ khác thay vào.

Tuy nhiên, em xin thề là mấy con số La Mã đó không hề được nhập tay vào, mà nó là Addin Chart Labeler. Nhưng bởi vì cái Labeler này không có chức năng sắp hình tròn đồng tâm, nên phải dùng kềm mà kéo bằng tay. Lúc đầu nó đẹp lắm, cân đối lắm, tự nó bị rớt nên mới hơi lệch tí. Lẽ ra em có thể kéo lại lần nữa, nhưng mấy thứ này dễ hư lắm, dùng kềm mà kẹp tới kẹp lui nhiều lần là nó tiêu luôn.

Hì, có cái này, khoe tí nè: Đố anh có mấy serie trong đó? Kim giờ, kim phút, kim giây... 3 serie chớ gì? Hông có đâu. 4 serie lận. Cái serie thứ tư là dành riêng cho cái đuôi của kim giây đó... Riêng chuyện sáng chế này đã đáng được cấp bằng rồi (tương đương 1 điểm)...

Còn chuyện ngày tháng hở... dễ ẹt. Nhưng tại vì không thấy trong parem iu cầu nên em không làm. Cũng như cái chuyện code kiết gì đó, nếu như trong parem nói là viết code thì được thêm 1 điểm chẳng hạn, em cũng ráng. Đằng này, cứ theo parem mà làm, dư làm chi?

Mà... sao hỏng khen em út tí nào, động viên tinh thần cho nó, thương nó vì đã thức khuya thức hôm để chế cái đồng hồ, mà lại toàn đi bưới mấy chuyện nó lỡ tay sơ ý không vậy ta? Hay... anh là tác giả của bài thi thứ nhất vậy? (Nghi quá)...

 

[ThuNghi]

Cái vụ 4 serie hay 5 gì đó, nhưng mà làm mặt số đồng hồ nên dùng 1 serie riêng doughnut để làm số thì sẽ chuẩn hơn. Nhất là trong vấn đề scale.
Không biết thế nào, chớ mà trang trí móp méo như vậy thì quá cổ. Lúc đó thợ hơi gia công.
Và quan trọng là tiêu chí Excel phải chính xác, lệch qua lệc lại như vậy không đảm bảo.
Không bíêt bài 1 của ai. Tội nghiệp làm sém đúng mà chưa được điểm tối đa.
Bà con cô bác xem xét giúp.

 

[BNTT]

5 giờ mới hết hạn nộp bài... còn sớm chán. Không ăn cơm luôn, làm xong cái này, để xem bác ThuNghi còn chê nữa không:

Dẹp số La Mã luôn. Cho cây kim giây màu đỏ luôn. Thêm ngày tháng năm luôn. Ghi luôn tên mình lên đó luôn.

Sư phụ ơi, tìm ra viên hồng ngọc của cái trục đồng hồ rồi.. Hú hồn, nó nằm tít trong góc kẹt, mà lại bé tí xíu... Trong cái xui (bị bà xã bắt quét nhà) có cái hên (tìm ra viên hồng ngọc)...

Giải nhất thôi....

Post hình lên mới thấy, giờ của máy mình hơn giờ của GPE đến hơn 15 phút. Giờ của ai đúng ta?

 

[BNTT]

Cái này thì không dự thi, mà làm để tặng GPE nhân dịp tròn 3 tuổi:

 

[TranThanhPhong]

Đồng hồ ai cũng đẹp vậy ai rinh giải đây !

 

[BNTT]

Đồng hồ ai cũng đẹp vậy ai rinh giải đây !

Phong ơi, hai giải thưởng xem như đã có chủ rồi đó. Còn thời gian mà, và còn một giải thưởng nữa, chưa có chủ, Phong rinh nốt đi...

 

[ptm0412]

Cần phải công bằng:

Nói cho công bằng thì cả 2 thí sinh đều rất cố gắng thực hiện và thực hiện thành công phần biểu đồ:

1. Về biểu đồ:

Cả hai đã làm được cơ bản 1 đồng hồ 3 kim chạy được theo giờ hệ thống, (không có chạy ngược là tốt rồi), các serie vạch lớn và nhỏ đều đạt yêu cầu.
Riêng về cây kim giây: "Kim giây có đuôi" là cây kim có thân kim dài qua khỏi cái trục quay của kim, nghĩa là điểm đầu không phải có toạ độ (0, 0) như 2 cây kim còn lại:

- Thí sinh thứ nhất, đúng như BNTT chọt, là kim giây chưa có đuôi, bị trừ 0.5 điểm.
- Thí sinh thứ hai (BNTT), có cái đuôi kim, nhưng như vậy không gọi là sáng tạo, mà gọi là chắp vá: có 1 cây kim mà phải xài 2 serie biểu đồ nối lại. Dù vậy cũng không bị trừ điểm.

2. Về trang trí:
- Thí sinh thứ nhất:

Thành viên dự thi thứ nhất, đã không hài lòng với chính mình, nên đã làm cái này gởi thêm vào, quyết lấy 2 điểm trang trí!
Điểm tối đa!

Nói lại cho rõ là điểm tối đa về trang trí, vì câu trên đang nói về quyết giành 2 điểm trang trí.

Thí sinh thứ 2 (BNTT): lại đúng như ThuNghi nhận xét, chữ số đồng hồ lệch lạc không ngay ngắn, không đúng vị trí của các vạch. Trong khi đó thí sinh thứ nhất dùng 1 serie doughnut để hiện số đồng hồ rất chính xác về vị trí. Cái XY Chart Labeler rất tiện dụng khi cần add labels không phải giá trị kể cả label là Text như số la mã, nhưng trong trường hợp này bó tay vì bị lệch lạc.
Vậy BNTT bị trừ 0.5 điểm trang trí.

Hai cái đồng hồ BNTT đưa lên sau thì không tính điểm vì sửa sau khi có góp ý.

 

[ptm0412]

Tổng kết:

Cuộc thi vẽ đồng hồ ứng dụng đồ thị speedometer đã kết thúc với kết quả:

1. Số thành viên tham dự : 2

2. Giải thưởng:

- Giải nhất thuộc về anh ThuNghi với số điểm 9.5, nộp bài 22h 44' ngày 02/07/2009

- Giải nhì thuộc về anh BNTT với số điểm 9.5, nộp bài 00h 47' ngày 03/07/2009.

- Không có giải 3

Xin chúc mừng cả 2 thí sinh!

 

[Tony Jaa]

Em không hiểu cái đồng hồ này các bác làm như thế nào mà đẹp đến thế! nhìn cứ như là cái đồng hồ thật mà chụp thành hình vậy! Thế cái này chạy trên file excel à các bác? các bác post file lên cho anh em xem và học hỏi với!

 

[ptm0412]

Đáp án và bài dự thi

Ghi chú: File của BNTT không có code VBA, tôi gắn nút vào cho mọi người test, khỏi cần gác chân trái lên bàn phím mà đè nút F9.

Công thức của ThuNghi hơi phức tạp, công thức của BNTT và lão chết tiệt là cùng sách Tuyệt chiêu.

BNTT với Thu Nghi coi cái serie kim giây nha, khỏi hàn 2 khúc thành 1 cây kim. Với lại xem cái serie doughnut của Thu Nghi.

 

[Tony Jaa]

Các bác giỏi quá, bái phục!
Chúc các bác luôn vui, khỏe và ngày càng trí tuệ, hữu ích!

 

[ThuNghi]

Xin cám ơn GPE, cám ơn Bác PTM, BNTT, may mà bác BNTT nhường chớ không thì không có giải. Công nhận BNTT có khiếu về mỹ thuật. Bữa sau nếu BNTT mà tham gia thì báo để mình rút nhé.
Thú thật, cái đồng hồ này là mình copy trên GPE và sự hướng dẫn tận tình của Bác PTM, qua đó mới thất chart trong Excel rất hay. Giờ mới thấy.
Cám ơn các bạn nhiều!

 

[ptm0412]

ThuNghi đoạt giải rồi, thử thêm quả lắc bằng chart xem nha. Cứ 1 giây, quả lắc chạy qua chạy lại 1 chu kỳ.

Gắn thêm zô cái đồng hồ cổ nào cũng được, nhưng phải chạy cả đồng hồ lẫn quả lắc, đồng bộ. Cái này phải có VBA rồi, chứ 1 giây uýnh màn hình cả trăm cái, gác bàn chân lên bàn phím nhấn F9 là thua.

Lần này không có giải, nếu làm được, mình sẽ gặp nhau trong bữa SN!

 

[ndu96081631]

ThuNghi đoạt giải rồi, thử thêm quả lắc bằng chart xem nha. Cứ 1 giây, quả lắc chạy qua chạy lại 1 chu kỳ.

Gắn thêm zô cái đồng hồ cổ nào cũng được, nhưng phải chạy cả đồng hồ lẫn quả lắc, đồng bộ. Cái này phải có VBA rồi, chứ 1 giây uýnh màn hình cả trăm cái, gác bàn chân lên bàn phím nhấn F9 là thua.

Lần này không có giải, nếu làm được, mình sẽ gặp nhau trong bữa SN!

Làm thêm vài hiệu ứng nữa:
- Đúng giờ nó "reng.. reng..." (âm thanh reng.. reng.. thiếu gì) ---> Và việc Play 1 file âm thanh là quá dể
- Nếu có khả năng thì cho nó "rung" luôn (như điện thoại rung ấy)
Thế mới hấp dẩn... Ẹc... Ẹc...

 

[Tony Jaa]

Làm thêm vài hiệu ứng nữa:
- Đúng giờ nó "reng.. reng..." (âm thanh reng.. reng.. thiếu gì) ---> Và việc Play 1 file âm thanh là quá dể
- Nếu có khả năng thì cho nó "rung" luôn (như điện thoại rung ấy)
Thế mới hấp dẩn... Ẹc... Ẹc...

Đúng là ý tưởng hay, từ những điều hiện hữu bình thường nhất!

 

[ThuNghi]

ThuNghi đoạt giải rồi, thử thêm quả lắc bằng chart xem nha. Cứ 1 giây, quả lắc chạy qua chạy lại 1 chu kỳ.

Gắn thêm zô cái đồng hồ cổ nào cũng được, nhưng phải chạy cả đồng hồ lẫn quả lắc, đồng bộ. Cái này phải có VBA rồi, chứ 1 giây uýnh màn hình cả trăm cái, gác bàn chân lên bàn phím nhấn F9 là thua.

Lần này không có giải, nếu làm được, mình sẽ gặp nhau trong bữa SN!

Em xin gởi thêm đồng hồ có quả lắc. Chưa chỉnh cho mỹ thuật, cho quả lắc chạy đã.
Bác xem liệu có đi SN. Có chuyển kim giây thành có đuôi (cùng serie, quy tắc tam suất).
Bác test thử giúp em. Tks!

 

[ndu96081631]

Em xin gởi thêm đồng hồ có quả lắc. Chưa chỉnh cho mỹ thuật, cho quả lắc chạy đã.
Bác xem liệu có đi SN. Có chuyển kim giây thành có đuôi (cùng serie, quy tắc tam suất).
Bác test thử giúp em. Tks!

Ôi... cái "quả lắc" của ThiNghi thật lạ đời
"Quả" của người ta thòng xuống, đàng này lại chỉa lên trời mới ghê chứ!
Để làm cái "quả lắc" chạy như thật, tức chạy liên tục không gián đoạn (hoặc ít nhất là mắt ta cảm giác nó không gián đoạn) thật sự đòi hỏi công phu khá nhiều đấy

 

[ThuNghi]

Ôi... cái "quả lắc" của ThiNghi thật lạ đời
"Quả" của người ta thòng xuống, đàng này lại chỉa lên trời mới ghê chứ!
Để làm cái "quả lắc" chạy như thật, tức chạy liên tục không gián đoạn (hoặc ít nhất là mắt ta cảm giác nó không gián đoạn) thật sự đòi hỏi công phu khá nhiều đấy

Muốn thòng xuống, không vấn đề. Đưa tâm về thôi.
Hiện tại 3s mới qua hết vòng, chắc phải tăng nhiểu điểm, chỉnh lại vòng lặp. Nếu 1s chạy hết môt vòng thì sửa code lại. Còn liên tục thì cũng từ nguyên lý ấy.

Sub QuaLac()
  Dim Clock As Chart
  Set Clock = ThisWorkbook.Sheets("Clock").ChartObjects("ClockChart").Chart
      Dim i, y
      Dim CurrentSeries As Series
      Dim xC
      Dim x(1 To 2) As Variant
      Dim v(1 To 2) As Variant
      'xC = Array(-0.4, -2.38903948707181E-16, 0.4)'
      xC = Array(-0.3, 0.3)
      Set CurrentSeries = Clock.SeriesCollection("QuaLac")
      i = Second(NextTick)
        y = i Mod 2
        If y = 0 Then y = 2
        x(1) = 0
        x(2) = xC(y)
        CurrentSeries.XValues = x
End Sub

Bác ndu triển khai thêm cái vòng lặp giúp. Cho một 1s chạy qua 10 vòng là chóng mặt.

 

[ptm0412]

Có chuyển kim giây thành có đuôi (cùng serie, quy tắc tam suất).

Cái quy tắc tam suất này hay nhỉ!
Nhưng quả lắc nhảy cà giựt quá, chia có 2 khoảng và chỉ có 3 điểm dừng. Với lại có chạy qua mà không có chạy lại.
Giả sử với 3 điểm như trên, thì phải dừng thế này: 1 - 2 - 3 - 2 - 1 - 2 - 3 - ...
Với 4 điểm dừng: 1 - 2 - 3 - 4 - 3 - 2 - 1 - 2 - 3 - 4 - ...

Dù vậy, cũng chưa đồng bộ với thời gian thực, nghĩa là khi kim giây dịch chuyển quãng đường 1 vạch nhỏ (1 giây thời gian), quả lắc phải đi hết 1 chu kỳ, hoặc tệ tệ là 1/2 chu kỳ. Và quan trọng là đều đặn không lệch pha hoặc thay đổi góc lệch pha.

Để làm cái "quả lắc" chạy như thật, tức chạy liên tục không gián đoạn (hoặc ít nhất là mắt ta cảm giác nó không gián đoạn) thật sự đòi hỏi công phu khá nhiều đấy

Thay vì đi theo hướng như trên, hãy đi theo hướng tính toán vị trí của con lắc theo thời gian từng khoảng 1/100 giây. (Cũng tương tự như tính vị trí kim giây, kim phút, kim giờ)

Như vậy không cần code phụ trợ riêng cho quả lắc, ai đi đâu, tui đi đó. Ai đi nhiu tui đi nhiu. Bảo đảm đồng bộ.

THuNghi xem công thức tính toán vị trí của kim giờ, phút, giây, của lão chết tiệt, thêm 1 tí tính ra vị trí quả lắc. Vị trí tương đối theo tỷ lệ 60/360 độ. 60 là 60 vạch chia sẵn đó.
Tốt nhất là vẽ 1 chart riêng.
FIle đáp án thì có rồi, chạy ngọt lắm, muốn khoảng cách lắc bao nhiêu độ chỉ cần gõ 1 con số vô.

 

[ptm0412]

Gởi file quả lắc cho mọi người tham khảo. ThuNghi nhất định đi đường vòng thì sẽ chậm và không đạt yêu cầu là vẽ bằng biểu đồ và biểu đồ động.
Biểu đồ và biểu đồ động là Excel chart, có Source Data nằm trên sheet, khi thay đổi số liệu trên Source Data thì biểu đồ cập nhật giá trị mới.

Dùng VBA trong trường hợp này là để thay đổi source data liên tục cho biểu đồ cập nhật liên tục, tạo hiệu ứng chuyển động thôi.
Còn ThuNghi dùng VBA điều chỉnh trực tiếp serie biểu đồ.

Gợi ý: Nếu ThuNghi thích tạo các điểm dừng, thì dùng 1 name động, dịch chuyển Datasource sang vùng dữ liệu mới (dùng Offset), mỗi vùng tương ứng 1 điểm dừng của quả lắc. Offset bao nhiêu cột/ dòng thì theo tính toán dựa trên % giây.


File kèm theo hoàn toàn dùng chart, tính toán vị trí quả lắc theo thang đo 60 (60 vạch). Muốn quả lắc lắc nhiều hay ít thì điểu chỉnh vị trí ban đầu trong ô màu vàng bằng scrollbar: vị trí này tương ứng với vạch chỉ phút, nghĩa là lắc từ vạch số đó qua bên đối diện. Thí dụ 20 nghĩa là lắc từ vị trí vạch 20 phút đến vạch 40 phút.

30 nghĩa là không lắc, 15 là lắc 90 x 2 = 180 độ, zero là lắc 180 độ x 2 = 360 độ

Sự đồng bộ thể hiện rất rõ: góc lắc lớn thì tốc độ di chuyển quả lắc cao, góc lắc nhỏ thì ngược lại sao cho cứ 1 giây chạy hết 1 chu kỳ.

 

[ptm0412]

Dùng một chart mới hoàn toàn thì không cần dùng chung dữ liệu nguồn với 3 series kim. Ta có thể tạo dữ liệu nguồn khác đơn giản hơn nhiều cho quả lắc.
Xin xem file kèm theo.

 

[AdamsTech]

Firstly I would like to say thank to "Diễn đàn Giải Pháp Excel", this is a useful forum.
Secondly, I would like to say thank to Mr. ptm0412, who help me a lot to know how to draw a clock by Excel chart. (what does Cheettit means?)

By the way, I have finished my own clocks, two, one is a doll and the other, a modern clock.

The eyes of the doll are Excel charts and he can glance!

My sense of aesthetic is not good, so they are no much beautiful. But they run well!

 

[ptm0412]

You are welcome, Adams!
You are so humble, they are not any the same as you think. The idea to make the doll to glance is very great!

 

[AdamsTech]

Dear Ptm0412,

I have seen that you have used this formula to change a 2D range into 1D Range:
Q2 = INDEX(X,INT((P2-0.01)/2+1),P2-INT((P2-0.01)/2+1)*2+2)
(in the clock chart).
It is a little difficult to me, but I could try to understand. The problem is that I want another formula to fill down, through all the gaps between the data's rows.

Within the clock chart in post # 39, I can do with the column P, the formula is:
P2 = 1
P3 = IF(AND(P2<>0,MOD(P2,2)=0),0,IF(P2=0,P1+1,P2+1))
then fill down.

It is OK. But when I try Q2:

Q2 = IF(P2>0,INDEX(X,INT((P2-0.01)/2+1),P2-INT((P2-0.01)/2+1)*2+2),0)
or:
Q2 = IF(P2>0,INDEX(X,INT((P2-0.01)/2+1),P2-INT((P2-0.01)/2+1)*2+2),"")
or
Q2 = IF(P2>0,INDEX(X,INT((P2-0.01)/2+1),P2-INT((P2-0.01)/2+1)*2+2),NA())

Then fill down, the chart came to the wrong way.
Now I want a formula so that I can fill down, and the chart remain its performance. Or at least, is there any way to do faster than copy and paste each time 4 cells up to over 240 cells?

 

[ptm0412]

Now I want a formula so that I can fill down, and the chart remains its performance.

As I know, all values such as zero length text, zero, #N/A, ... would make the chart types Line, XY Scatter perform by Excel's way: It would connect two point through the point with that kind of value.
#N/A would take effect only on Chart Type Column or Bar: No Column nor Bar appears at that point of serie.

So, my answer is noway to make any formula as you desired.

Or at least, is there any way to do faster

There are several way to do faster than copying and pasting:

1. First, use your formula with If conditon, which returns "", 0, or NA()

2. Use Autofilter within the Data area, filter zero, zero length text, or #N/A, then delete

3. For #N/A, use command Edit - Go To - Special or press Ctrl + G then press Special to select error cells only, then delete.
See this picture:

 

[BNTT]

Secondly, I would like to say thank to Mr. ptm0412, who help me a lot to know how to draw a clock by Excel chart. (what does Cheettit means?)

Dear AdamsTech,

"Cheettit" is the pronunciation of "chết tiệt" in Vietnamese. Just only Vietnamese person could understand exactly, so it can't be translated...

 

[AdamsTech]

Dear ptm0412,
Such a simple way!

Dear BNTT,
Thanks for your reply, I have try to translate "chết tiệt" by google tool, but I still can't understand it.

P/S

Your English is very well, I have seen your English -Vietnamese translation of Excel_Function_Formulas and Excel Hack

 

[ptm0412]

Bổ sung đồng hồ có quả lắc.