Điều khiển quay AutoShape? (1 người xem)

[anhtuan1066]

Tôi đang tập tành về VBA, nhờ các bạn hướng dẩn cho code đễ điểu khiển việc quay tự động AutoShape theo thời gian... Trong file này, muốn quay thì phải bấm vào Button... Các bạn giúp tôi 1 code sao cho khi tôi bấm vào nút QUAY thì AutoShape sẽ quay... đúng 1 vòng thì dừng hoặc sau khoảng thời gian định trước thì dừng..
ANH TUẤN

From Mr OKEBAB:
Quay vèo 1 cái hay quay từ từ như kim đồng hồ hả bác ???
Thân!

__________________

Ah... là quay từ từ như đồng hồ vậy! Tôi nhớ ko lầm thì lúc trước Bắp có làm món này rồi... thậm chí là dễ như ăn khoai.. hi.. hi.. Nhưng giờ ko nhớ nó nằm đâu mà tìm nữa...
Bắp giúp giùm với
ANH TUẤN

 

[anhtuan1066]

à, nhầm tí. Tính theo cách trên thì chạy lố 1 xíu và xe bị chạy âm dưới mặt đường. Khà khà

Sư phụ ơi... Có thương thì thương cho trót!
Chỉ giúp em với, không biết em đã nhầm chổ nào!

 

[ptm0412]

Không, cách của anh mới nhầm, Cách của Tuấn không nhầm. Nhưng có thể tính x theo sin góc giữa mặt đường dốc và phương ngang. Chờ xíu để vẽ lại.




1. Ở vị trí A: x = R * tg(α / 2)

2. Ở vị trí B: x = 0

3. Ở vị trí C: buộc x = 0 cũng không ảnh hưởng mấy, xe có thể tưng lên xíu, hoặc muốn chính xác thì cũng tương tự vị trí A.

 

[ptm0412]

Uhm!

Chuyển hướng chuyển động xong chắc phải điểu chỉnh vị trí xe và bánh xe 1 xíu cho bánh xe ăn với mặt đường:
Ở vị trí B hạ xuống 1 xíu, ở vị trí C dịch qua phải 1 xíu. Đó là mới nói cái bánh trước, còn bánh sau nữa!
Khó à nha. Còn không thì cho xe tưng 1 cái qua vị trí mới phứt đi ha!

 

[anhtuan1066]

1. Ở vị trí A: x = R * sin(α / 2)

2. Ở vị trí B: x = 0

3. Ở vị trí C: buộc x = 0 cũng không ảnh hưởng mấy, xe có thể tưng lên xíu, hoặc muốn chính xác thì cũng tương tự vị trí A.

Hình như là x = R * tg(α / 2) (tại vị trí A) mới đúng chứ sư phụ! (đường phân giác ấy "dài" hơn R)
Với tg(α / 2) = 2tg(α)/(1 - tg²(α))
Với tgα = hL2/wL2
(Tính ra cũng hơi mệt)
---------------------------------
Ở trên chúng ta chỉ xét có 1 bánh xe... Với 1 chiếc xe gồm 2 bánh và thân thì khi bánh trước chạm dốc, thân xe cũng phải quay tương ứng... Cái này mới thật đau đầu đây sư phụ à
---------------------------------
Bây giờ em sẽ giải quyết bài này theo điều kiện cho trước đơn giản nhất: Điều khiển 2 vòng tròn lăn ngang và lên dốc... Thành công rồi ta sẽ tính tiếp

 

[ptm0412]

x = R * tg(α / 2) đúng rồi
nhưng mình cho α là hằng số do đường dốc đã vẽ sẵn mà, thì dụ vẽ dốc α = 30 độ thì α / 2 = 15 độ, tính tang(15) thôi.

Khó à nha. Còn không thì cho xe tưng 1 cái qua vị trí mới phứt đi ha!

Coi như xe chạy bốc đầu, bốc đuôi, bay lên rớt xuống ầm ầm như phim hành động ấy!

 

[anhtuan1066]

x = R * tg(α / 2) đúng rồi
nhưng mình cho α là hằng số do đường dốc đã vẽ sẵn mà, thì dụ vẽ dốc α = 30 độ thì α / 2 = 15 độ, tính tang(15) thôi.

Em muốn làm theo hướng tổng quát hơn 1 chút, tức ta chưa biết trước góc lệch giữa 2 đường thằng, chỉ biết "tên" của nó. Từ đó nhờ Excel kiểm tra hộ Width, Height rồi ráp vào mà tính
Theo cách này, em muốn khi ta thay đổi góc lệch thì xe tự chỉnh hướng (chỉ cần viết code cho nó "cảm nhận" sự tiếp xúc)
Lên dốc đã khó mà xuống dốc còn khó hơn.. khi ấy bánh xe không quay mà phải làm sao cho "tâm" của nó di chuyển thì mới giống thật
RÁT HƠN ĂN ỚT
---------------------------------------

Coi như xe chạy bốc đầu, bốc đuôi, bay lên rớt xuống ầm ầm như phim hành động ấy!

Cái này thì đúng là phong cách của "Cheettit Old Man"... Hi... hi...

 

[ptm0412]

Góp 1 tí công cho có:

tgα = hL2/wL2

α = atan(hL2/wL2)

α/2 = atan(hL2/wL2) / 2

tg(α/2) = tan(atan(hL2/wL2) / 2)

khà khà!

 

[vhkhoi]

Mình muốn điều khiển hình mũi tên để khi ta nhập vào góc bao nhiêu độ thì ảnh mũi tên xoay ở đúng góc độ ấy.
Mong các bạn giúp đỡ.

 

[mstnnhan]

Các bạn xem xe chạy thế này được chưa?

He... he... Xe cũa thấy đẹp hơn xe của LearnExcel nhưng mà bánh xe vẫn có cãm giác chưa xiết ốc... Nó đung đưa thế nào ấy... Vẫn hơi.. hơi.. bị buồn cười... ha.. ha...
Phi qua.. rồi.. phi lại... Chắc đang tập lái nhỉ?.. ha.. ha...
-------------------------------------
Ah... còn nữa thầy ơi... Xe nó đang chạy, em dùng chuột tóm cổ nó 1 phát kéo ngược lại thì thấy.. xe đi đường xe.. bánh đi đường bánh... Thế mà nó vẫn cứ phi... Tài thật...
-------------------------------------
Chạy 1 hồi.. tự dưng thấy còn có.. 1 bánh... Ac... Ac....
ANH TUẤN


Giờ cũng còn... thích nữa thầy ơi... hi.. hi...
Em đang nghĩ nếu như thay chiếc xe bằng 1 hình người thì có thể làm cho nó bước đi như phim hoạt hình ko nhỉ? Vui thật...
ANH TUẤN

thanks bạn nha!!
http://www.centplay.com/affiliate/promotion_7079/