Slide 1 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 Biên soạn Nguyễn Tuấn Cường Trường THCS Thái Sơn – An Lão – Hải Phòng (Tham khảo t[.]
MÃ LỆNH TRONG POWERPOINT BÀI GIẢNG TƯƠNG TÁC BÀI (Xin xem trước 1,2 lần đầu bạn xem tài liệu này!) SỬ DỤNG CẤU TRÚC IF…THEN LẬP TRÌNH GIẢI PHƯƠNG TRÌNH BẬC Biên soạn: Nguyễn Tuấn Cường Trườ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 VBA – Võ Tấn Dũng) 1- Ý tưởng thiết kế: Tạo chương trình giải phương trình bậc hai cho HS nhập hệ số a, b, c chương trình trả kết luận nghiệm nghiệm (nếu có) - Quy trình thực hiện: ô Text - Dùng công cụ Text Box Control Toolbox để tạo ô text đặt tên (chuột phải vào đối tượng chọn Properties, dòng cùng) Các Label txt_a, txt_b, txt_c hình bên Bạn đổi nền, font, cỡ chữ tùy ý - Tiếp tục tạo Label dùng để chứa giá trị Delta, thông báo nghiệm, chứa giá trị nghiệm hình bên Bạn đổi , font, cỡ chữ tùy ý Việc tìm font có hỗ trợ tiếng Việt đầy đủ VBA khó Trong VD tơi dùng font Arial viết tiếng Việt không dấu Đặt tên Label lblDelta, lblThongbao, lbl_x1, lbl_x2 Sau bạn tạo Text Box thông thường công cụ Drawing để nhập chữ giải thích hình bên Hãy nhập giá trị a: Hãy nhập giá trị b: Hãy nhập giá trị c: Giá trị Delta là: Nghiệm thứ x1 = Bạn tạo thêm Command Button để điều khiển Nghiệm thứ hai x2 = Bắt đầu Giải t tờn nỳt ny l btnBatdau btnGiai -Viết mã cho nút btnBatdau (nhấp đúp vào nút này) để xóa trắng Text Box Label 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 sau: Private Sub btnGiai_Click() lblDelta.Caption = txt_b.Text * txt_b.Text - * txt_a.Text * txt_c.Text If lblDelta.Caption < Then lblThongbao.Caption = " Phuong trinh vo nghiem " lbl_x1.Caption = "" lbl_x2.Caption = "" If lblDelta.Caption = Then lblThongbao.Caption = " Phuong trinh co nghiem kep" If lblDelta.Caption = Then lbl_x1.Caption = -txt_b.Text / * txt_a.Text lbl_x2.Caption = lbl_x1.Caption If lblDelta.Caption > Then lblThongbao.Caption = " Phuong trinh co hai nghiem phan biet " If lblDelta.Caption > Then lbl_x1.Caption = (-txt_b + Sqr(lblDelta)) / (2 * txt_a.Text) If lblDelta.Caption > Then lbl_x2.Caption = (-txt_b - Sqr(lblDelta)) / (2 * txt_a.Text) End Sub -Sau hoàn thành tất giao diện chương trình sau (bạn nhập hệ số để chạy thử ln): CHƯƠNG TRÌNH GIẢI PHƯƠNG TRÌNH BẬC HAI Hãy nhập giá trị a: Hãy nhập giá trị b: Hãy nhập giá trị c: Giá trị Delta là: Nghiệm thứ x1 = Nghiệm thứ hai x2 = Bắt đầu Giải ụi iu b sung v thuc tính kiện - Mỗi đối tượng có thuộc tính kiện bản, nắm thuộc tính kiện đối tượng ta dễ dàng viết code để điều khiển đối tượng Trong câu lệnh, thuộc tính viết sau tên đối tượng, ngăn cách với tên đối tượng dấu chấm (.) Ví dụ: lblDelta.Caption; txt_a.Text;… Đối tượng Label Button Option Box Check Box Thuộc tính Ý nghĩa thuộc tính Sự kiện Caption Enable Visible Word Wrap Nội dung hiển thị Label/Button Kích hoạt (True) hay không (False) Ẩn mang giá trị False, hiện: True Đánh chữ xuống dịng: True Click (nhấp) Value Giá trị đối tượng True check, ngược lại False Phân nhóm Những đối tượng GoupName nhóm Click (nhấp) Group Name Text/ Value Text Box MultiLine ScollBars Text thuộc tính dùng làm việc trê chuỗi kí tự, Value làm việc số Nếu True cho xuống dòng (Shift+Enter) Hiển thị cuộn nội dung Text dài Change (thay đổi nội dung) -Bạn thử thiết kế số chương trình nho nhỏ sau: Nhập vào số, bấm nút kết tổng, có nút làm lại để nhập số khác Khi hỏi HS trường hợp tam giác, HS trả lời trường hợp trước được, thiết kế PP GV lại xếp sẵn trường hợp trước, sau khiến cho GV phải “LÁI” việc trả lời HS vào thứ tự làm tự nhiên giảng Bạn thiết kế VBA tương tác để khắc phục vấn đề xem ! Hẹn gặp lại bạn ! ... lbl_x1, lbl_x2 Sau bạn tạo Text Box thông thường công cụ Drawing để nhập chữ giải thích hình bên Hãy nhập giá trị a: Hãy nhập giá trị b: Hãy nhập giá trị c: Giá trị Delta là: Nghiệm thứ x1 = Bạn... trinh vo nghiem " lbl_x1.Caption = "" lbl_x2.Caption = "" If lblDelta.Caption = Then lblThongbao.Caption = " Phuong trinh co nghiem kep" If lblDelta.Caption = Then lbl_x1.Caption = -txt_b.Text... txt_a.Text lbl_x2.Caption = lbl_x1.Caption If lblDelta.Caption > Then lblThongbao.Caption = " Phuong trinh co hai nghiem phan biet " If lblDelta.Caption > Then lbl_x1.Caption = (-txt_b + Sqr(lblDelta))