DạyhọcIntel.net  

Bộ Giáo dục
Đào tạo

Chương trình dạy học
của Intel tại Việt Nam

Tài liệu
Hướng dẫn Kỹ năng

Viện Nghiên cứu Giáo dục
ĐH Sư Phạm TP. HCM

Intel Teach Elements


Trở lại   DạyhọcIntel.net > Góc tin học - công nghệ > Phần mềm > Văn phòng > Microsoft PowerPoint

Reply
 
Công cụ chủ đề Kiểu hiển thị
Old 30-09-2007, 14:25   #1
Tự thiết kế đồng hồ đếm ngược trong PowerPoint
thaygiaolang thaygiaolang is offline 30-09-2007, 14:25

Dùng đồng hồ đếm ngược mà thầy Thiên Hoàng đã giới thiệu (http://www.dayhocintel.org/diendan/showthread.php?t=818) thì rất tiện lợi. Nhưng nếu ta tự thiết được một đồng hồ ngay trong PP theo đúng ý của mình thì lý thú biết bao. Tôi xin gợi ý cách thực hiện :
  • Đầu tiên ta tạo ra một Textbox (để làm đồng hồ) theo cách làm bình thường. Định dạng Textbox đó theo ý mình muốn (Font, cỡ chữ, màu sắc, ...)
  • Chọn Textbox, vào menu Draw -> Order -> Bring to Front để đảm bảo rằng Textbox này luôn nằm trên cùng.
  • Mở cửa sổ Visual Basic Editor (ALT+F11), chọn Insert -> Module rồi gõ vào (hoặc copy) các dòng sau đây :
Const Slide_Number = 1
Const Thoi_Gian = 10
Sub Dem_Nguoc()
Dim Ngung As Boolean, Dem As Integer, Gio_Cu As Single, Gio_Moi As Single, N As Integer
Ngung = False
Dem = Thoi_Gian
Gio_Cu = Int(Timer)
N = ActivePresentation.Slides(Slide_Number).Shapes.Cou nt
ActivePresentation.Slides(Slide_Number).Shapes(N). TextFrame.TextRange.Text = Format(Dem, "00")
Do While Not Ngung
DoEvents
Gio_Moi = Int(Timer)
If Gio_Moi > Gio_Cu Then
Dem = Dem - 1
Gio_Cu = Gio_Moi
ActivePresentation.Slides(Slide_Number).Shapes(N). TextFrame.TextRange.Text = Format(Dem, "00")
If Dem = 0 Then Ngung = True
End If
Loop
End Sub


Trong đó Slide_Number là thứ tự của Slide ta chứa đồng hồ, Thoi_Gian là thời gian đếm (có thể thay đổi 2 thông số này cho phù hợp)
  • Trở lại cửa sổ PP, nhấp chuột phải vào thanh công cụ rồi chọn Control Toolbox để hiện thanh công cụ này.
  • Chọn nút Command Button rồi vẽ nút lệnh vào vị trí tùy ý trên Slide
  • Nhấp chuột phải vào nút lệnh vừa tạo, chọn View Code
  • Trong cửa sổ hiện ra, gõ vào Dem_Nguoc (là tên của Macro trên)
Như vậy là xong. Bây giờ trở lại PP chạy trình chiếu, nhấp chuột vào nút lệnh sẽ thấy đồng hồ hoạt động.

Trên đây tôi chỉ trình bày những gợi ý cơ bản, các bạn có thể nghiên cứu, tìm tòi thêm để làm hoàn thiện chiếc đồng hồ của mình.

Các bạn có thể tham khảo vì dụ trên file đính kèm.

Các tập tin đính kèm
Kiểu tập tin: ppt Donghodemnguoc.ppt (38.0 KB, 850 lượt xem)

__________________
Xuân đi hoa vẫn nở
Xuân ở hoa vẫn rơi
Bận lòng chi rơi - nở
Tự tại thả thuyền chơi

 
thaygiaolang's Avatar
thaygiaolang
Tổng phụ trách
Points: 388,435, Level: 100 Points: 388,435, Level: 100 Points: 388,435, Level: 100
Activity: 4% Activity: 4% Activity: 4%
Gia nhập: 08-2007
Đơn vị: THCS Huỳnh Tấn Phát Quận 7 - TpHCM
Bài viết: 947
Cảm ơn: 934
Được cảm ơn 3,101 lần trong 761 bài
Bài viết blog: 6
Lượt xem: 76456
Trả lời kèm trích dẫn
Old 30-09-2007, 15:02   #2
THUYLIEN
Lớp 8
Points: 4,104, Level: 18 Points: 4,104, Level: 18 Points: 4,104, Level: 18
Activity: 0% Activity: 0% Activity: 0%
 
THUYLIEN's Avatar
 
Gia nhập: 09-2007
Đơn vị: THCS Nguyễn Văn Cừ, Đà Nẵng
Bài viết: 165
Cảm ơn: 1,120
Được cảm ơn 234 lần trong 106 bài
Thumbs up

Cám ơn thầy rất rất nhiều. Mình đang bắt chước "mò" làm đồng hồ như các thầy cô của lớp Intel Đà Nẵng để thứ năm tới làm MT cho GV trong Quận. Đúng là "Buồn ngủ gặp chiếu manh" đó thầy
THUYLIEN is offline   Trả lời kèm trích dẫn
Old 30-09-2007, 16:40   #3
TruongVu
Lớp 9
Points: 30,588, Level: 53 Points: 30,588, Level: 53 Points: 30,588, Level: 53
Activity: 0% Activity: 0% Activity: 0%
 
TruongVu's Avatar
 
Gia nhập: 07-2007
Đơn vị: Trường THPT TÂN PHONG
Bài viết: 181
Cảm ơn: 56
Được cảm ơn 282 lần trong 57 bài
Talking Số 0 reng thật lớn...

Không biết có ai giống em không : nhập vào số 1 , sau đó nhấp vào chữ DEM , đợi 10 phút cũng không thấy số 1 thay đổi gì hết...
Nếu mà đồng hồ đếm ngược có thêm hình chiếc đồng hồ reng thì hay quá, nếu hết thời gian thì đồng hồ reng lắc qua lắc lại phát ra âm thanh thật lớn thì hay quá ...
TruongVu is offline   Trả lời kèm trích dẫn
Old 30-09-2007, 20:21   #4
hatieucay
Lớp lá
Points: 2,448, Level: 13 Points: 2,448, Level: 13 Points: 2,448, Level: 13
Activity: 0% Activity: 0% Activity: 0%
 
Gia nhập: 09-2007
Đơn vị: Trường THCS Nguyễn Trãi - Quận Thanh Khê- TP Đà Nẵng
Bài viết: 23
Cảm ơn: 198
Được cảm ơn 62 lần trong 17 bài
Mặc định

cảm ơn thầy giáo làng. Hat tieu se làm thử.
hatieucay is offline   Trả lời kèm trích dẫn
Old 30-09-2007, 21:20   #5
thaygiaolang
Tổng phụ trách
Points: 388,435, Level: 100 Points: 388,435, Level: 100 Points: 388,435, Level: 100
Activity: 4% Activity: 4% Activity: 4%
 
thaygiaolang's Avatar
 
Gia nhập: 08-2007
Đơn vị: THCS Huỳnh Tấn Phát Quận 7 - TpHCM
Bài viết: 947
Cảm ơn: 934
Được cảm ơn 3,101 lần trong 761 bài
Bài viết blog: 6
Mặc định

Trích dẫn:
Nguyên bản bởi TruongVu Xem bài viết
Không biết có ai giống em không : nhập vào số 1 , sau đó nhấp vào chữ DEM , đợi 10 phút cũng không thấy số 1 thay đổi gì hết...
Vì file có chứa Macro nên muốn dùng được file này, cần điều chỉnh để PP cho phép chạy các Macro :
  • Vào menu Tools -> Options
  • Chọn thẻ Security
  • Chọn nút Macro Security
  • Đánh dấu chọn vào mục Medium rồi OK 2 lần
  • Khi mở file chọn Enable Macros
__________________
Xuân đi hoa vẫn nở
Xuân ở hoa vẫn rơi
Bận lòng chi rơi - nở
Tự tại thả thuyền chơi
thaygiaolang is offline   Trả lời kèm trích dẫn
Old 01-10-2007, 16:19   #6
tinhyeulathe
Lớp mầm
Points: 1,445, Level: 10 Points: 1,445, Level: 10 Points: 1,445, Level: 10
Activity: 0% Activity: 0% Activity: 0%
 
tinhyeulathe's Avatar
 
Gia nhập: 09-2007
Đơn vị: LĐLĐ tỉnh DakLak
Bài viết: 7
Cảm ơn: 1
Được cảm ơn 0 lần trong 0 bài
Mặc định

Bên em hay tổ chức hội thi nên cũng mày mò làm đồng hồ bằng powerpoint. Em cũng đã thiết kế được rồi nhưng chỉ dùng hiệu ứng trong powerpoint để thiết kế thôi không làm như cách của thầy giáo làng. Cách này hơi mất công nhưng đảm bảo đẹp...Nếu các thầy cần thì em sẽ gửi cho.

Nếu thầy nào rành về thiết kế ảnh động thì cũng có thể thiết kế được đồng hồ sau đó xuất ra định dạng ảnh gif rồi chèn vào powerpoint.

Chỉnh sửa lần cuối bởi Admin : 01-10-2007 lúc 16:51
tinhyeulathe is offline   Trả lời kèm trích dẫn
Old 26-10-2007, 13:11   #7
Phamxuanyen
Lớp 7
Points: 33,204, Level: 56 Points: 33,204, Level: 56 Points: 33,204, Level: 56
Activity: 0% Activity: 0% Activity: 0%
 
Phamxuanyen's Avatar
 
Gia nhập: 10-2007
Đơn vị: Trường THPT Thái Thanh Hòa
Bài viết: 131
Cảm ơn: 363
Được cảm ơn 135 lần trong 52 bài
Mặc định

Nếu mỗi slide đều cần có đồng hồ mà thầy viết thì phải làm sao? xin thầy hướng dẫn dùm em. em thấy cái này tốt lắm. cảm ơn thầy nhiều

Chỉnh sửa lần cuối bởi Admin : 26-10-2007 lúc 13:13 Lý do: Bỏ trích dẫn từ bài gốc
Phamxuanyen is offline   Trả lời kèm trích dẫn
Old 23-02-2008, 14:20   #8
hatragiang80
Lớp mầm
Points: 1,127, Level: 8 Points: 1,127, Level: 8 Points: 1,127, Level: 8
Activity: 0% Activity: 0% Activity: 0%
 
Gia nhập: 02-2008
Đơn vị: Trường THCS Trà Giang
Bài viết: 2
Cảm ơn: 0
Được cảm ơn 0 lần trong 0 bài
Mặc định

cảm ơn thầy giáo làng, tôi sẽ làm thử trên power point
hatragiang80 is offline   Trả lời kèm trích dẫn
Old 23-02-2008, 18:58   #9
mimosa
Lớp 2
Points: 4,412, Level: 19 Points: 4,412, Level: 19 Points: 4,412, Level: 19
Activity: 7% Activity: 7% Activity: 7%
 
Gia nhập: 11-2007
Đơn vị: Trường THPT Chuyên Thăng Long - Đà lạt
Bài viết: 58
Cảm ơn: 864
Được cảm ơn 184 lần trong 38 bài
Mặc định

Thầy giáo làng ơi, sao em làm đúng y chang như thầy hướng dẫn mà đồng hồ của em không chạy được ạ. Em thấy báo lỗi syntax error và hiện đỏ ở dòng chữ sau:
N = ActivePresentation.Slides(Slide_number).Shapes.Cou nt
vậy là do làm sao hả thầy? Xin thầy chỉ dẫn. Cám ơn thầy.
mimosa is offline   Trả lời kèm trích dẫn
Old 23-02-2008, 20:49   #10
binhcan
Lớp 5
Points: 10,104, Level: 30 Points: 10,104, Level: 30 Points: 10,104, Level: 30
Activity: 0% Activity: 0% Activity: 0%
 
binhcan's Avatar
 
Gia nhập: 11-2007
Đơn vị: THPT TND Yen Bai
Bài viết: 91
Cảm ơn: 147
Được cảm ơn 112 lần trong 47 bài
Mặc định

Cách làm đồng hồ của thaygiaolang rất hay. Tuy nhiên nó không được linh hoạt cho lắm. Chúng ta có thể tự thiết kế đồng hồ đếm ngược bằng flash được mà. Không cần nhiều lắm kiến thức về flash.
Đồng hồ này tôi làm thử nghiệm. Sử dụng trong PP rất linh hoạt. Các thầy cô dùng thử. Thân!!!
Các tập tin đính kèm
Kiểu tập tin: rar dong ho 10.rar (116.8 KB, 474 lượt xem)
__________________
Càng học nhiều càng thấy mình biết ít.
Kiến thức thì bao la mà sức người thì có hạn.
Ôi!Ôi!!! thực tế phũ phàng
binhcan is offline   Trả lời kèm trích dẫn
Đã cảm ơn binhcan:
Reply


Những người đang xem chủ đề này: 1 (0 thành viên và 1 khách)
 
Công cụ chủ đề
Kiểu hiển thị

Quyền đăng bài
Bạn không thể đăng chủ đề mới
Bạn không thể đăng bài trả lời
Bạn không thể đính kèm
Bạn không thể sửa bài viết của bạn

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Nhảy đến diễn đàn

Những chủ đề liên quan
Chủ đề Người khởi xướng Diễn đàn Trả lời Bài cuối
Đồng hồ đếm ngược có âm thanh Xuân Hùng Sản phẩm hỗ trợ 13 09-12-2011 08:20
Đồng hồ đếm ngược trong PP vanbac Microsoft PowerPoint 4 05-02-2008 21:21
Làm thế nào để vượt qua được sự buồn,chán trong học tập? CoSin Góc trò chuyện 0 22-12-2007 10:59
Đồng hồ đếm ngược. PhaThach Lớp 1A 3 11-12-2007 21:18
Sự sáng tạo đến từ tâm hồn Phạm Minh Thiện Mỗi ngày 1 chuyện 0 18-08-2007 22:02

Tất cả giờ đều quy về GMT +7. Bây giờ là 03:35.


Powered by vBulletin® Version 3.8.3
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Thuộc quyền sở hữu của DạyhọcIntel.net