BÀI LẬP TRÌNH TRONG MƠI TRƯỜNG VISUAL FOXPRO Nhóm TIN QUẢN LÝ - BM TIN - Khoa Toán Tin học Đại học Thăng Long http://bmtin.thanglong.edu.vn NỘI DUNG CHÍNH  GIỚI THIỆU TỔNG QUAN VỀ CHƯƠNG TRÌNH  CÁC BƯỚC XÂY DỰNG CHƯƠNG TRÌNH  MỘT SỐ CÂU LỆNH LÀM VIỆC VỚI BIẾN & CÁC CẤU TRÚC ĐIỀU KHIỂN CHƯƠNG TRÌNH TIN QUẢN LÝ - VISUAL FOXPRO GIỚI THIỆU CHƯƠNG TRÌNH  Khái niệm: Chương trình đoạn văn chứa tập lệnh, tạo lập nhằm giải hay nhiều toán lúc  Việc xây dựng chương trình giải cơng việc  lập trình  Tệp  chương trình: *.prg VD: baitap.prg; giaiptb2.prg TIN QUẢN LÝ - VISUAL FOXPRO GIỚI THIỆU CHƯƠNG TRÌNH(Cont)  Thuận   lợi Có thể thay đổi nội dung thực lại Có thể thực nhiều nơi (Menu, Form, Toolbar, , chương trình khác) TIN QUẢN LÝ - VISUAL FOXPRO GIỚI THIỆU CHƯƠNG TRÌNH (Cont)  Cấu trúc chương trình  Mở đầu (Thiết lập Mơi trường làm việc): • Chứa câu lệnh để chuẩn bị mơi trường làm việc cho tồn chương trình  Thân chương trình: • Cập nhật liệu • Xử lý, tính tốn liệu • Kết xuất thơng tin  Kết thúc chương trình • Đóng tệp tin (bảng liệu) • Giải phóng biến, trả lại chế độ mặc định hệ thống TIN QUẢN LÝ - VISUAL FOXPRO CẤU TRÚC CHƯƠNG TRÌNH TIN QUẢN LÝ - VISUAL FOXPRO MỘT SỐ CÂU LỆNH TẠO MÔI TRƯỜNG  SET TALK ON | OFF Bật/tắt chức thị thông báo hay kết tính tốn số câu lệnh (AVERAGE, SUM, CALCULATE,…)  SET DATE AMERICAN | FRENCH | MDY | DMY |YMD Thiết lập ngày thị theo định dạng khác (mm/dd/yy, dd/mm/yy yy/mm/dd)  SET DELETED OFF | ON Bật/tắt chế độ thao tác với ghi đánh dấu xóa TIN QUẢN LÝ - VISUAL FOXPRO MỘT SỐ CÂU LỆNH TẠO MÔI TRƯỜNG  SET  Bật/tắt chế độ kiểm tra xác so sánh độ dài xâu ký tự  SET  EXACT OFF | ON DEFAULT TO Đặt đường dẫn mặc định hệ thống đến đường dẫn TIN QUẢN LÝ - VISUAL FOXPRO NỘI DUNG CHÍNH  GIỚI THIỆU TỔNG QUAN VỀ CHƯƠNG TRÌNH  CÁC BƯỚC XÂY DỰNG CHƯƠNG TRÌNH  MỘT SỐ CÂU LỆNH LÀM VIỆC VỚI BIẾN & CÁC CẤU TRÚC ĐIỀU KHIỂN CHƯƠNG TRÌNH TIN QUẢN LÝ - VISUAL FOXPRO CÁC BƯỚC XÂY DỰNG CHƯƠNG TRÌNH  Khởi tạo chương trình  Soạn thảo chương trình  Lưu chương trình  Thực sửa lỗi chương trình  Chạy thử TIN QUẢN LÝ - VISUAL FOXPRO 10 CẤU TRÚC RẼ NHÁNH  CÂU LỆNH IF  Cú pháp  IF … [ELSE] … ENDIF  Câu   lệnh IF có dạng Dạng khuyết: Dạng đầy đủ: TIN QUẢN LÝ - VISUAL FOXPRO IF … ENDIF IF … ELSE … ENDIF 31 CÂU LỆNH IF DẠNG KHUYẾT IF ENDIF Biểu thức điều kiện F .T TIN QUẢN LÝ - VISUAL FOXPRO 32 CÂU LỆNH IF DẠNG KHUYẾT Input “Nhập số thứ nhất” To So1 So1>So2 ? F Input “Nhập số thứ hai” To So2 IF So1>So2 T ? “Số thứ lớn số thứ hai” ENDIF TIN QUẢN LÝ - VISUAL FOXPRO “Số thứ lớn số thứ 2” 33 CÂU LỆNH IF DẠNG ĐẦY ĐỦ IF ELSE T Biểu thức điều kiện F ENDIF TIN QUẢN LÝ - VISUAL FOXPRO 34 CÂU LỆNH IF DẠNG ĐẦY ĐỦ T .F So1>So2 ? “Số thứ lớn số thứ 2” TIN QUẢN LÝ - VISUAL FOXPRO “Số thứ lớn số thứ nhất” 35 CÂU LỆNH IF DẠNG ĐẦY ĐỦ Input “Nhập số thứ nhất” To So1 Input “Nhập số thứ hai” To So2 IF So1>So2 ? “Số thứ lớn số thứ hai” ELSE ? “Số thứ hai lớn số thứ nhất” ENDIF TIN QUẢN LÝ - VISUAL FOXPRO 36 Ví dụ IF … ELSE … ENDIF  Nhập số Cho biết số vừa nhập số chẵn hay số lẻ (ChanLe.prg) * Thiet lap moi truong lam viec SET TALK OFF SET SAFETY OFF _so = && Khoi tao gia tri bien _so @10,10 SAY "Nhap mot so bat ky: " get _so READ IF (_so % 2) = then @12,10 say("So chan") ELSE @12,10 say ("So le") ENDIF SET TALK ON && Tra lai moi truong ngam dinh ban dau SET SAFETY ON && Tra lai moi truong ngam dinh ban dau TIN QUẢN LÝ - VISUAL FOXPRO 37 Ví dụ IF … ELSE … ENDIF  Nhập điểm TB SV Cho biết đánh giá SV (Nhanxet.prg) * Thiet lap moi truong lam viec SET TALK OFF _diem = 0.0 && Khoi tao gia tri bien _diem @10,10 SAY "Nhap mot diem bat ky: " get _diem READ IF _diem>= then @12,10 say(“Hoc gioi") ELSE IF _diem>= 6.5 then @12,10 say(“Hoc kha") ELSE @12,10 say(“Hoc trung binh") ENDIF ENDIF SET SAFETY ON TIN QUẢN LÝ - VISUAL FOXPRO && Tra lai moi truong ngam dinh ban dau 38 CẤU TRÚC LỰA CHỌN  CÂU LỆNH DO CASE T BTĐK F .T BTĐK F …… BTĐK n …… T F OTHERWISE TIN QUẢN LÝ - VISUAL FOXPRO 39 CÂU LỆNH DO CASE DO CASE CASE CASE ……… CASE OTHERWISE ENDCASE TIN QUẢN LÝ - VISUAL FOXPRO 40 Ví dụ DO CASE  Nhập điểm TB SV Cho biết đánh giá SV (Nhanxet.prg) * Thiet lap moi truong lam viec SET TALK OFF _diem = 0.0 && Khoi tao gia tri bien _diem @10,10 SAY "Nhap mot diem bat ky: " get _diem READ DO CASE ENDCASE CASE _diem>= @12,10 say(“Hoc gioi") CASE _diem>= 6.5 @12,10 say(“Hoc kha") OTHERWISE @12,10 say(“Hoc trung binh") SET SAFETY ON TIN QUẢN LÝ - VISUAL FOXPRO && Tra lai moi truong ngam dinh ban dau 41 BÀI TẬP  Bài tập   Viết chương trình có tên CT1.PRG thực u cầu sau: Nhập vào số nguyên tương ứng với tháng, sau kiểm tra thơng báo hình xem tháng có hợp lệ khơng? (Biết tháng hợp lệ tháng từ - 12) Bài tập  Viết chương trình có tên CT2.PRG thực yêu cầu sau: Nhập tên năm sinh người bạn Sau thơng báo ngồi hình tên tuổi bạn TIN QUẢN LÝ - VISUAL FOXPRO 42  Bài tập  Viết chương trình có tên CT3.PRG thực yêu cầu sau: Nhập số nguyên Kiểm tra tính chia hết số với số số TIN QUẢN LÝ - VISUAL FOXPRO 43 BÀI TẬP  Bài  tập Viết chương trình có tên CT4.PRG thực u cầu sau: Nhập vào số tiền thu nhập hàng tháng người Sau thơng báo hình số tiền thuế TN mà người phải nộp biết nếu: • • • • Thu nhập < 4.000.000 VNĐ : nộp thuế TN Thu nhập >= 4.000.000: thuế TN = 3% thu nhập Thu nhập >= 7.000.000: thuế TN = 5% thu nhập Thu nhập >= 10.000.000: thuế TN = 7% thu nhập TIN QUẢN LÝ - VISUAL FOXPRO 44 TIN QUẢN LÝ - VISUAL FOXPRO 45