Bài giảng Tin quản lý Visual Foxpro - Bài 4: Lập trình trong Visual Foxpro

BÀI LẬP TRÌNH TRONG MƠI TRƯỜNG VISUAL FOXPRO NGUYỄN MẠNH HÙNG hung.nguyenmanh@thanglong.edu.vn hung2709@gmail.com 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)
Một số ý lập trình          Hiểu rõ vấn đề cần xây dựng chương trình Phân nhỏ vấn đề cần giải Xác định kiểu liệu cần dùng Chương trình hóa vấn đề Kiểm tra & chỉnh sửa Tiến hành chạy thử chương trình Kiểm tra & chỉnh sửa lỗi chạy thử Kết nối vấn đề nhỏ thành chương trình hồn chỉnh Kiểm tra tồn chương trình TIN QUẢN LÝ - VISUAL FOXPRO GIỚI THIỆU CHƯƠNG TRÌNH (Cont)
Cấu trúc chương trình  Tạo 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 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 CẤU TRÚC CHƯƠNG TRÌNH 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 10 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 11 KHỞI TẠO CHƯƠNG TRÌNH C1: MODIFY COMMAND VD: Modi comm MyFirstPro C2: FILE - NEW TIN QUẢN LÝ - VISUAL FOXPRO 12 SOẠN THẢO CHƯƠNG TRÌNH
Sử dụng kỹ thuật soạn thảo văn
Chú thích chương trình    && : thích cuối dịng lệnh * NOTE : lời thích đầu dịng lệnh ; : ngắt dịng lệnh TIN QUẢN LÝ - VISUAL FOXPRO 13 SOẠN THẢO CHƯƠNG TRÌNH TIN QUẢN LÝ - VISUAL FOXPRO 14 LƯU CHƯƠNG TRÌNH
C1: Bấm CTRL – W
C2: File – Save (Save As) TIN QUẢN LÝ - VISUAL FOXPRO 15 THỰC HIỆN & SỬA LỖI CHƯƠNG TRÌNH
Thực  chương trình Cú pháp: • DO
 VD: • DO TinhdiemTB
TIN QUẢN LÝ - VISUAL FOXPRO 16 THỰC HIỆN & SỬA LỖI CHƯƠNG TRÌNH
Sửa  lỗi chương trình Cú pháp • MODIFY COMMAND
 VD: • MODI COMM TinhdiemTB
TIN QUẢN LÝ - VISUAL FOXPRO 17 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 18 MỘT SỐ CÂU LỆNH LÀM VIỆC VỚI BIẾN
KHAI BÁO BIẾN
NHẬP THÔNG TIN CHO BIẾN
XUẤT THÔNG TIN QUA BIẾN TIN QUẢN LÝ - VISUAL FOXPRO 19 CÁC LỆNH LÀM VIỆC VỚI BIẾN
KHAI   BÁO GIÁ TRỊ BIẾN Gán = STORE
NHẬP    ACCEPT INPUT @X,Y … SAY … GET …
XUẤT   THÔNG TIN (GIÁ TRỊ) CHO BIẾN THÔNG TIN QUA BIẾN ?/?? @X,Y … SAY … TIN QUẢN LÝ - VISUAL FOXPRO 20 10 LỆNH @X,Y SAY …
Cú pháp • @X,Y SAY “Xâu ký tự hiển thị hình” Trong đó: X,Y – Tọa độ dịng, cột hiển thị xâu ký tự USE DSNV GO @4,3 SAY ’ Họ tên nhân viên: ’ + HOTEN @5,3 SAY ’ Ngày sinh: ’ + DTOC(NGAYSINH) @6,3 SAY ’ Thu nhập: ’ + STR(THUNHAP) TIN QUẢN LÝ - VISUAL FOXPRO 29 CÁC CẤU TRÚC ĐIỀU KHIỂN CHƯƠNG TRÌNH
CẤU TRÚC TUẦN TỰ
CẤU TRÚC RẼ NHÁNH
CẤU TRÚC LỰA CHỌN
CẤU TRÚC LẶP TIN QUẢN LÝ - VISUAL FOXPRO 30 15 CẤU TRÚC TUẦN TỰ
Chương trình thực từ xuống TIN QUẢN LÝ - VISUAL FOXPRO 31 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 32 16 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 33 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” 34 17 CÂU LỆNH IF DẠNG ĐẦY ĐỦ IF T .F Biểu thức điều kiện ELSE ENDIF TIN QUẢN LÝ - VISUAL FOXPRO 35 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” 36 18 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 37 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 38 19 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 && Tra lai moi truong ngam dinh ban dau TIN QUẢN LÝ - VISUAL FOXPRO 39 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 40 20 CÂU LỆNH DO CASE DO CASE CASE CASE ……… CASE OTHERWISE ENDCASE TIN QUẢN LÝ - VISUAL FOXPRO 41 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 CASE _diem>= @12,10 say(“Hoc gioi") CASE _diem>= 6.5 @12,10 say(“Hoc kha") OTHERWISE @12,10 say(“Hoc trung binh") ENDCASE SET SAFETY ON TIN QUẢN LÝ - VISUAL FOXPRO && Tra lai moi truong ngam dinh ban dau 42 21 CẤU TRÚC LẶP
Vòng lặp DO WHILE … ENDDO
Vòng lặp FOR … ENDFOR
Vòng lặp SCAN … ENDSCAN TIN QUẢN LÝ - VISUAL FOXPRO 43 CẤU TRÚC LẶP
Nhóm   lệnh thực LẶP ĐI LẶP LẠI: Theo điều kiện định Dừng điều kiện khơng cịn thỏa mãn TIN QUẢN LÝ - VISUAL FOXPRO 44 22 Cấu trúc lặp: Do While
Cú pháp: Do While [Loop] [Exit] Enddo  Trong • Loop: • Exit : Chương trình quay lại thực từ đầu vịng lặp Thốt khỏi vòng lặp, Thực lệnh tiếp sau Enddo TIN QUẢN LÝ - VISUAL FOXPRO 45 Cấu trúc lặp: Do While Điều kiện lặp Các câu lệnh điều kiện lặp TIN QUẢN LÝ - VISUAL FOXPRO 46 23 Cấu trúc lặp: Do While (cont.)
Ví dụ 1: Dùng vòng lặp Do While in ghi từ 1-10: CLEAR USE DSSV DO WHILE RECNO() 8.0: CLEAR USE DSSV dem=0 SCAN For DiemTB>8 While dem= 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 57 BÀI TẬP
Bài  Viết chương trình có tên CT5.PRG thực u cầu sau: Nhập vào số N nguyên dương In hình giá trị bình phương số từ đến N
Bài  tập tập Viết chương trình có tên CT6.PRG thực u cầu sau: Nhập vào N số nguyên Cho biết N số vừa nhập đó, có số số chẵn, số số lẻ TIN QUẢN LÝ - VISUAL FOXPRO 58 29