MÃ LỆNH TRONG POWERPOINT
BÀI GIẢNG TƯƠNG TÁC
BÀI 3

SỬ DỤNG CẤU TRÚC IF…THEN
LẬP TRÌNH GIẢI PHƯƠNG TRÌNH BẬC 2
(Xin hãy xem trước bài 1,2 nếu lần đầu bạn xem tài liệu này!)
1- Ý tưởng thiết kế:
Tạo một chương trình giải phương trình bậc hai sao cho khi HS nhập các hệ số a, b, c thì chương trình trả về kết luận của nghiệm và các nghiệm (nếu có).
2 - Quy trình thực hiện:
- Dùng công cụ Text Box trên Control Toolbox để tạo 3 ô text đặt tên (chuột phải vào đối tượng rồi chọn Properties, dòng trên cùng) là txt_a, txt_b, txt_c như hình bên. Bạn có thể đổi nền, font, cỡ chữ tùy ý
3 ô Text
- Tiếp tục tạo ra 4 Label dùng để chứa giá trị Delta, thông báo nghiệm, chứa giá trị 2 nghiệm như hình bên. Bạn có thể đổi nền , font, cỡ chữ tùy ý. Việc tìm được font có hỗ trợ tiếng Việt đầy đủ trong VBA là rất khó. Trong VD này tôi dùng font Arial viết tiếng Việt không dấu.
Các Label
Đặt tên các Label lần lượt là lblDelta, lblThongbao, lbl_x1, lbl_x2
Hãy nhập giá trị của a:
Hãy nhập giá trị của b:
Hãy nhập giá trị của c:
Giá trị của Delta là:
Nghiệm thứ nhất x1 =
Nghiệm thứ hai x2 =
Sau đó các bạn tạo các Text Box thông thường bằng công cụ Drawing để nhập các chữ giải thích như hình bên
Bạn cũng tạo thêm 2 Command Button để điều khiển
Đặt tên 2 nút này là btnBatdau và btnGiai
Viết mã cho nút btnBatdau (nhấp đúp vào nút này) để xóa trắng các Text Box và Label như sau:

Private Sub btnBatdau_Click()
txt_a.Text = ""
txt_b.Text = ""
txt_c.Text = ""
lblThongbao.Caption = ""
lblDelta.Caption = ""
lbl_x1.Caption = ""
lbl_x2.Caption = ""
End Sub
Viết mã cho nút btnGiai (nhấp đúp vào nút này) để lập trình giải phương trình bậc hai như sau:
Private Sub btnGiai_Click()

lblDelta.Caption = txt_b.Text * txt_b.Text - 4 * txt_a.Text * txt_c.Text

If lblDelta.Caption < 0 Then lblThongbao.Caption = " Phuong trinh vo nghiem "
lbl_x1.Caption = ""
lbl_x2.Caption = ""

If lblDelta.Caption = 0 Then lblThongbao.Caption = " Phuong trinh co nghiem kep"
If lblDelta.Caption = 0 Then lbl_x1.Caption = -txt_b.Text / 2 * txt_a.Text
lbl_x2.Caption = lbl_x1.Caption

If lblDelta.Caption > 0 Then lblThongbao.Caption = " Phuong trinh co hai nghiem phan biet "
If lblDelta.Caption > 0 Then lbl_x1.Caption = (-txt_b + Sqr(lblDelta)) / (2 * txt_a.Text)
If lblDelta.Caption > 0 Then lbl_x2.Caption = (-txt_b - Sqr(lblDelta)) / (2 * txt_a.Text)

End Sub
Sau khi hoàn thành tất cả thì giao diện của chương trình sẽ như sau (bạn có thể nhập hệ số để chạy thử luôn):
Hãy nhập giá trị của a:
Hãy nhập giá trị của b:
Hãy nhập giá trị của c:
Giá trị của Delta là:
Nghiệm thứ nhất x1 =
Nghiệm thứ hai x2 =
CHƯƠNG TRÌNH GIẢI PHƯƠNG TRÌNH BẬC HAI
Đôi điều bổ sung về thuộc tính và sự kiện
- Mỗi đối tượng đều có những thuộc tính và sự kiện cơ bản, khi nắm được các thuộc tính và sự kiện cơ bản của các đối tượng thì ta dễ dàng viết code để điều khiển các đối tượng đó. Trong câu lệnh, thuộc tính được viết ngay sau tên đối tượng, ngăn cách với tên đối tượng bởi một dấu chấm (.). Ví dụ: lblDelta.Caption; txt_a.Text;…
Hẹn gặp lại các bạn trong bài 4 !
Bạn hãy thử thiết kế một số chương trình nho nhỏ như sau:
1. Nhập vào 2 số, khi bấm nút kết quả thì hiện tổng, có nút làm lại để nhập 2 số khác.
2. Khi hỏi HS về các trường hợp bằng nhau của tam giác, HS có thể trả lời trường hợp nào trước cũng được, nhưng trong thiết kế PP của GV lại sắp xếp sẵn trường hợp nào hiện trước, hiện sau mất rồi khiến cho GV cứ phải “LÁI” việc trả lời của HS vào đúng thứ tự làm mất tự nhiên bài giảng. Bạn hãy thiết kế VBA tương tác để khắc phục vấn đề trên xem !