Bài tập tạo đồng hồ chạy trong power point18470

BÀI T P T O NG H CH Y TRONG POWER POINT Ý t ng: i t ng Shape có thu c tính Rotation, thu c tính mang giá tr t (0360), cho phép Shape quay xung quanh m gi a c a Shape Nh đ c m ta dùng đ th c hi n t p H ng d n chi ti t: B c 1: V hình trịn làm khung đ ng h B c 2: T o kim đ ng h Vì Shape ch quay quanh tâm c a nh ng kim đ ng h l i khơng quay quanh tâm Chính v y ý t ng đ n gi n nh t group kim đ ng h v i m t hình trịn có kích th c b ng hình trịn b c C n ý b đ ng vi n cho hình trịn su t tr c group L n l t t o kim gi , kim phút kim giây (Chú ý nên làm kim đ ng th ng xem nh đ ) B c 3: L n l t đ t tên cho group KimGio, KimPhut, KimGiay Slide clock T o Button đ t tên btnStart đ b t/t t đ ng h t tên cho B c 4: C n l u ý phút t ng đ ng v i đ , giây t ng đ ng v i đ , gi t ng ng v i 30 đ (vì v y ph i s d ng hàm làm tròn) Chính v y n u có đ c giây hi n t i ta cho KimGiay quanh góc (SoGiay*6), t ng t cho kim phút, riêng kim gi ngồi vi c quay góc (gi *30) cịn ph i c ng thêm m t góc phút t o (SoPhut/2) (vì gi t ng đ ng 30 đ , c ng có ngh a 60 phút t ng đ ng 30 đ v y m i có k t qu SoPhut/2) ThuVienDeThi.com c 5: Khi ng i dùng b t đ ng h , c m i giây ta c p nh t l i góc quay c a kim có s d ng vòng l p d ng While {các l nh} Wend Có ngh a s th c hi n l nh B Vì vi c c p nh t gi bao g m nhi u l nh nên ta vi t riêng m t th t c CapNhatGio đ c p nh t l i góc c a kim đ ng h Sub CapNhatGio() Dim gio, phut, giay As Integer gio = Hour(Now) Mod 12 phut = Minute(Now) giay = Second(Now) '1 giay tuong duong voi ActivePresentation.Slides("user").Shapes("KimGiay").Rotation = giay * '1 phut tuong duong voi ActivePresentation.Slides("user").Shapes("KimPhut").Rotation= phut * '1h tuong duong voi 30 ActivePresentation.Slides("user").Shapes("KimGio").Rotation=gio*30+Round(phut/2) End Sub Private Sub btnStart_Click() If (btnStart.Caption = "Run Clock") Then btnStart.Caption = "Stop Clock" Else btnStart.Caption = "Run Clock" End If ThuVienDeThi.com While (btnStart.Caption = "Stop Clock") CapNhatGio Dim PauseTime, Start, Finish ' Gán thoi gian cho la giay PauseTime = 'Lay thoi diem hien tai Start = Timer 'Tao vong lap chua het thoi gian cho Do While Timer < Start + PauseTime ' Chuyen quyen quan ly cho he thong lap DoEvents Loop Wend End Sub ThuVienDeThi.com