TIN QUẢN LÝ - VISUAL FOXPRO 2 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ƯƠ
Trang 1BÀI 5 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
Trang 2TIN QUẢN LÝ - VISUAL FOXPRO 2
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
Trang 3TIN QUẢN LÝ - VISUAL FOXPRO 3
GIỚI THIỆU CHƯƠNG TRÌNH
bản chứa các tập lệnh, được tạo lập nhằm
giải quyết một hay nhiều bài toán cùng một
lúc
VD: baitap.prg; giaiptb2.prg
Trang 4TIN QUẢN LÝ - VISUAL FOXPRO 4
GIỚI THIỆU CHƯƠNG TRÌNH(Cont)
Có thể thay đổi nội dung và thực hiện lại
Có thể thực hiện tại nhiều nơi (Menu, Form,
Toolbar, , chương trình khác)
Trang 5TIN QUẢN LÝ - VISUAL FOXPRO 5
GIỚI THIỆU CHƯƠNG TRÌNH (Cont)
Mở đầu (Thiết lập Môi trường làm việc):
Trang 6TIN QUẢN LÝ - VISUAL FOXPRO 6
CẤU TRÚC CHƯƠNG TRÌNH
Trang 7TIN QUẢN LÝ - VISUAL FOXPRO 7
MỘT SỐ CÂU LỆNH TẠO
MÔI TRƯỜNG
Bật/tắt chức năng hiện thị thông báo hay kết quả tính toán của một số câu lệnh (AVERAGE, SUM, CALCULATE,…)
SET DATE AMERICAN | FRENCH | MDY | DMY | YMD
Thiết lập ngày giờ hiện thị theo các định dạng khác nhau
(mm/dd/yy, dd/mm/yy và yy/mm/dd)
SET DELETED OFF | ON
Bật/tắt chế độ thao tác với những bản ghi đã được
đánh dấu xóa
Trang 8TIN QUẢN LÝ - VISUAL FOXPRO 8
MỘT SỐ CÂU LỆNH TẠO
MÔI TRƯỜNG
SET EXACT OFF | ON
Bật/tắt chế độ kiểm tra chính xác khi so sánh độ dài các xâu ký tự
SET DEFAULT TO < Path >
Đặt đường dẫn mặc định của hệ thống đến
đường dẫn <Path>
Trang 9TIN QUẢN LÝ - VISUAL FOXPRO 9
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
Trang 10TIN QUẢN LÝ - VISUAL FOXPRO 10
Trang 11TIN QUẢN LÝ - VISUAL FOXPRO 11
KHỞI TẠO CHƯƠNG TRÌNH
C1: MODIFY COMMAND <Tên chương trình>
VD: Modi comm MyFirstPro
Trang 12TIN QUẢN LÝ - VISUAL FOXPRO 12
SOẠN THẢO CHƯƠNG TRÌNH
&& : chú thích cuối dòng lệnh
* hoặc NOTE : lời chú thích đầu dòng lệnh
; : ngắt dòng lệnh
Trang 13TIN QUẢN LÝ - VISUAL FOXPRO 13
SOẠN THẢO CHƯƠNG TRÌNH
Trang 14TIN QUẢN LÝ - VISUAL FOXPRO 14
LƯU CHƯƠNG TRÌNH
C2: File – Save (Save As)
Trang 15TIN QUẢN LÝ - VISUAL FOXPRO 15
THỰC HIỆN & SỬA LỖI CHƯƠNG TRÌNH
Trang 16TIN QUẢN LÝ - VISUAL FOXPRO 16
THỰC HIỆN & SỬA LỖI CHƯƠNG TRÌNH
Trang 17TIN 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
Trang 18TIN QUẢN LÝ - VISUAL FOXPRO 18
MỘT SỐ CÂU LỆNH LÀM VIỆC VỚI BIẾN
Trang 19TIN QUẢN LÝ - VISUAL FOXPRO 19
CÁC LỆNH LÀM VIỆC VỚI BIẾN
Trang 20TIN QUẢN LÝ - VISUAL FOXPRO 20
CÁC LỆNH LÀM VIỆC VỚI BIẾN
Trang 21TIN QUẢN LÝ - VISUAL FOXPRO 21
CÁC CÂU LỆNH NHẬP THÔNG TIN
(GIÁ TRỊ) CHO BIẾN
LỆNH ACCEPT
Cú pháp:
ACCEPT “Thông báo chỉ dẫn” TO <Biến>
• Nhập các giá trị kiểu ký tự (Character) cho biến nhớ
• VD: Hiển thị Điểm TB của một SV bất kỳ
Accept “Nhập mã sinh viên cần xem điểm” To _Masv
Browse Fields Hoten, DiemTB for Masv = _Masv
Trang 22TIN QUẢN LÝ - VISUAL FOXPRO 22
CÁC CÂU LỆNH NHẬP THÔNG TIN
(GIÁ TRỊ) CHO BIẾN
LỆNH INPUT
Cú pháp
INPUT “Thông báo chỉ dẫn” TO <Biến>
• Nhập các giá trị kiểu C, N, D, L cho biến
Chú ý: Khi nhập giá trị cho kiểu
• Character: “Gia tri cua bien”
VD: “Xin chao cac ban”
• Date: {^YYYY-mm-dd}
VD: {^2010-08-23}
• Logical: T ; F
Trang 23TIN QUẢN LÝ - VISUAL FOXPRO 23
LỆNH @X,Y SAY …GET…
_HOTEN=SPACE(25) ‘ Khởi tạo biến _HOTEN
_NGAYSINH={//} ‘ Khởi tạo biến _NGAYSINH
_THUNHAP=0 ‘ Khởi tạo biến _THUNHAP
@4,3 SAY ’ Họ tên nhân viên: ’ GET _HOTEN @5,3 SAY ’ Ngày sinh: ’ GET _NGAYSINH @6,3 SAY ’ Thu nhập: ’ GET _THUNHAP READ
Trang 24TIN QUẢN LÝ - VISUAL FOXPRO 24
Lệnh @X,Y … SAY …
LỆNH XUẤT THÔNG TIN QUA BIẾN
Trang 25TIN QUẢN LÝ - VISUAL FOXPRO 25
? <Biến> hoặc ? <Biểu thức>
?? <Biến> hoặc ?? <Biểu thức>
Xuất thông tin (giá trị) của biến (biểu thức) ra màn hình
LỆNH ? và ??
Trang 26TIN QUẢN LÝ - VISUAL FOXPRO 26
??”Bạn ” + _Ten + “năm nay ” + Alltrim(Str(_Tuoi)) + “tuổi”
Bạn Nguyễn Văn An năm nay 20 tuổi_
Trang 27TIN QUẢN LÝ - VISUAL FOXPRO 27
LỆNH ? và ??
Ví dụ (Cont)
USE DSSV
GO 5
? HOTEN +’ là sinh viên ’+LOP
?? ’Mã ’+MASV+ ‘ là SV Thăng Long’
Trang 28TIN QUẢN LÝ - VISUAL FOXPRO 28
LỆNH @X,Y SAY …
• @X,Y SAY “Xâu ký tự hiển thị ra màn hình”
Trong đó: X,Y – Tọa độ dòng, cột hiển thị xâu ký tự (1<=X<24; 1<=Y<=80)
USE DSNV
GO 5 @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)
Trang 29TIN QUẢN LÝ - VISUAL FOXPRO 29
CÁC CẤU TRÚC ĐIỀU KHIỂN CHƯƠNG TRÌNH
Trang 30TIN QUẢN LÝ - VISUAL FOXPRO 30
CẤU TRÚC TUẦN TỰ
xuống dưới
Trang 31TIN QUẢN LÝ - VISUAL FOXPRO 31
Trang 32TIN QUẢN LÝ - VISUAL FOXPRO 32
<Các lệnh khi BTĐK đúng>
.T
.F
Trang 33TIN QUẢN LÝ - VISUAL FOXPRO 33
Trang 34TIN QUẢN LÝ - VISUAL FOXPRO 34
<Các lệnh khi BTĐK đúng> <Các lệnh khi BTĐK sai>
Trang 35TIN QUẢN LÝ - VISUAL FOXPRO 35
Trang 36TIN QUẢN LÝ - VISUAL FOXPRO 36
Trang 37TIN QUẢN LÝ - VISUAL FOXPRO 37
Ví dụ IF … ELSE … ENDIF
Nhập một số bất kỳ Cho biết số vừa nhập là số chẵn hay
số lẻ (ChanLe.prg)
* Thiet lap moi truong lam viec
SET TALK OFF SET SAFETY OFF
_so = 0 && Khoi tao gia tri bien _so
@10,10 SAY "Nhap mot so bat ky: " get _so READ
SET TALK ON && Tra lai moi truong ngam dinh ban dau
SET SAFETY ON && Tra lai moi truong ngam dinh ban dau
Trang 38TIN QUẢN LÝ - VISUAL FOXPRO 38
Ví dụ IF … ELSE … ENDIF
Nhập điểm TB của một SV Cho biết đánh giá về 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
Trang 39TIN QUẢN LÝ - VISUAL FOXPRO 39
Trang 40TIN QUẢN LÝ - VISUAL FOXPRO 40
Trang 41TIN QUẢN LÝ - VISUAL FOXPRO 41
Ví dụ DO CASE
* 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>= 8
@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 && Tra lai moi truong ngam dinh ban dau
Nhập điểm TB của một SV Cho biết đánh giá về SV đó
(Nhanxet.prg)
Trang 42TIN QUẢN LÝ - VISUAL FOXPRO 42
Trang 44TIN QUẢN LÝ - VISUAL FOXPRO 44
BÀI TẬP
Viết chương trình có tên là CT4.PRG thực hiện
yêu cầu sau: Nhập vào số tiền thu nhập hàng
tháng của một người bất kỳ Sau đó thông báo
ra màn hình số tiền thuế TN mà người đó phải nộp biết rằng nếu:
• Thu nhập < 4.000.000 VNĐ : không phải 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
Trang 45TIN QUẢN LÝ - VISUAL FOXPRO 45