Xây dựng Slide thu thập ý kiến bằng Shape kết quả của slide này là cho phép người dùng nhập ý kiến vào TextBox, khi bấm nút Add sẽ thêm nội dung vào Shape ở trên. Bấm Reset sẽ thu thập ý kiến từ đầu.
* Hướng dẫn chi tiết
Bước 1: Chèn một Text Shape đặt tên là Ykien (nơi lưu ý kiến vừa nhập), Slide cĩ tên là ThuThapykien; 4 button, 2 textbox và 1able lần lượt cĩ tên là btnAdd,
btnReset, btnBatdau, btnKetthuc, txtAdd, txtsecond (dùng để hiện thị số giây khống chế thời gian làm bài) và lblclock (dùng để hiện thị đồng hồ hệ thống).
Bước 2: Khi người dùng bấm nút Add ta đưa nội dung từ txtAdd lên YKien bằng cách nối chuỗi (&) đồng thời làm rỗng txtAdd, khi người dùng bấm Reset ta làm rỗng cả txtAdd và YKien. Điểm lưu ý ở đây là ký tự xuống dịng chr$(13). Ở đây cĩ sử dụng cấu trúc With … End With , cấu trúc này cho phép phần code bên trong khơng cần viết lại đối tượng ở trên mà chỉ cần dùng dấu “.” để gọi thuộc tính của đối tượng đĩ.
PrivateSub btnAdd_Click()
WithActivePresentation.Slides("ThuThapykien").Shapes("YKien")
.TextFrame.TextRange.Text = .TextFrame.TextRange.Text & txtAdd.Text & Chr$(13)
EndWith EndSub PrivateSub btnReset_Click() ActivePresentation.Slides("thuthapykien").Shapes("ykien").TextFrame.Te xtRange.Text = "" txtAdd.Text = "" EndSub
Hình 2.17: Slide thu thập thơng tin
Bước 3: Mỗi khi txtsecond thay đổi ta chờ 1 giây, sau đĩ cập nhật lại đồng hồ và trừ bớt giá trị của textBox đi 1. Trong thời gian chờ nhớ trả quyền quản lý về cho hệ thống. Lưu ý để lấy thời gian hiện tại ta dùng hàm Now kết hợp với hàm Format với chuỗi định dạng tttt.
Private Sub txtsecond_Change()
If txtsecond > o Then Dim pausetime, start, finish 'gan thoi gian cho la 1 giay pausetime = 1
start = Timer
'tao vong lap khi chua het thoi gian cho Do While Timer < start + pausetime
'chuyen quyen quan ly cho he thong trong khi lap DoEvents Loop If txtsecond.Value > 0 Then lblclock.Caption = Format(Now, "ttttt") txtsecond.Value = txtsecond.Value - 1 End If End If End Sub
Như vậy mỗi khi TextBox thay đổi nĩ lại gọi sự kiện của chính nĩ cho đến khi giá trị về đến 0. Điểm dừng của ta ở đây là khi textbox về 0. Điểm bắt đầu là khi người dùng bấm vào “bắt đầu”.
Bước 4: Khi người dùng click vào btnbatdau, ta kích hoạt và gán khoảng thời gian là 120 giây.
Private Sub btnbatdau_Click()
txtsecond = 60 * 2
End Sub
Bước 5: Khi người dùng khơng muốn làm nữa, ta nhấn nút kết thúc.
Private Sub btnKetthuc_Click()
txtsecond.Value = 0
Chương 3: NGƠN NGỮ HTML VỚI VIỆC XÂY DỰNG TÀI LIỆU HỌC TẬP 3.1. HTML LÀ GÌ?
HTML – HyperText Markup Language (ngơn ngữ đánh dấu siêu văn bản) là hàng loạt các đoạn mã chuẩn với các quy ước được thiết kế để tạo các trang Web và được hiển thị bởi những trình duyệt Web. HTML là nền tảng của World Wide Web, một dịch vụ tồn cầu của Internet. Web là một dich vụ mang tính đồ họa cao trong các dịch vụ Internet.
Web browser là một phần mềm mà bản thân nĩ cĩ thể hiểu và thực thi được các yêu cầu (dịng lệnh) trong các tài liệu HTML.
Trong cửa sổ trình duyệt, nội dung chứa đựng chính là văn bản, hình ảnh, mơ hình động, ..., những yếu tố mà tài liệu HTML yêu cầu hiển thị bởi các đoạn mã chuẩn.
HTML cịn được thiết kế để tạo ra các ấn phẩm điện tử hấp dẫn với tính năng Multimedia dùng cho World Wide Web.
Tập hợp các tài liệu HTML được tổ chức, liên kết theo một cách nào đĩ được gọi là Website.