Bài giảng Mã lệnh trong powerpoint - 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

MÃ LỆNH TRONG POWERPOINT BÀI GIẢNG TƯƠNG TÁCBÀI 3SỬ DỤNG CẤU TRÚC IFTHENLẬP TRÌNH GIẢI PHƯƠNG TRÌNH BẬC 2Biên soạn: Nguyễn Tuấn CườngTrường THCS Thái Sơn – An Lão – Hải Phòng(Tham khảo từ tài liệu: Giáo trình PowerPoint tương tác bằng VBA – Võ Tấn Dũng)(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ênBạ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à btnGiaiViế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 SubViế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.TextIf 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 SubSau 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;Đối tượngThuộc tính cơ bảnÝ nghĩa của thuộc tínhSự kiện cơ bảnLabel vàButtonCaptionEnableVisibleWord WrapNội dung hiển thị trên Label/ButtonKích hoạt (True) hay không (False)Ẩn nếu mang giá trị False, hiện: TrueĐánh chữ có thể xuống dòng: TrueClick (nhấp)Option Box vàCheck BoxValueGroup NameGiá trị của đối tượng là True nếu được check, ngược lại là FalsePhân nhóm. Những đối tượng cùng GoupName sẽ cùng một nhóm.Click (nhấp)Text BoxText/ ValueMultiLineScollBarsText là thuộc tính dùng khi làm việc trê chuỗi kí tự, Value làm việc trên số.Nếu True sẽ cho xuống dòng (Shift+Enter)Hiển thị thanh cuộn nếu nội dung Text quá dàiChange (thay đổi nội dung)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 !