Lap trinh VBnet

PHÂN TÍCH YÊU CẦU Thông tin nhập Chiều dài, chiều rộng hình chữ nhật. Xử ly Tính diện tích hình chữ nhật theo công thức:[r]

(1)

TRƯỜNG ĐẠI HỌC TÂY NGUYÊN

TRUNG TÂM TIN HỌC

(2)

(3)

YÊU CẦU BÀI TẬP

Màn hình tính diện tích hình chữ nhật

HƯỚNG DẪN GiẢI MINH HỌA

(4)

PHÂN TÍCH U CẦU Thơng tin nhập Chiều dài, chiều rợng hình chữ nhật

Xử ly Tính diện tích hình chữ nhật theo cơng thức:

Diện tích = chiều dài * chiều rộng

(5)

(6)

HƯỚNG DẪN GIẢI

Thiết kế hình

ĐIỀU KHIỂN TRÊN FORM Texbox không cho phép

Nhập liệu chỉnh sửa

(7)

Nút xác nhận

Sự kiện click thực hiện:

- Tính diện tích hình chữ nhật - Xuất kết quả hình

Xử ly chức năng

Khai báo các biến có kiểu single Dai, rong, dt

Gán giá trị cho các biến dai, rong <Tên biến> = Val( < Tên textbox >.Text)

Tính diện tích Dt = dai * rong

Xuất diện tích màn hình

<TextBox diện tích>.Text = dt

(8)

Nút tiếp tục

Sự kiện click thực hiện: - Xóa rỗng các ô textbox - Đưa trỏ về ô chiều dài

Xử ly chức năng

Xóa rỗng TextBox <Tên TextBox>.Text = “ “ Đưa trỏ vào ô textbox

(9)

(10)

Nút tính

Khai báo các biến

Dim dai, rong , dt as single Gán giá trị cho các biến Dai = val(txtdai.text) Rong = val(txtrong.text) Tính diện tích

Dt = dai * rong

Xuất kết quả hình Txtdien_tich.Text = dt

(11)

Nút tiếp tục

Xóa rỗng các ô textbox Txtdai.text = “”

Txtrong.text = “”

Txtdien_tich.text = “”

Đưa trỏ vào ô chiều dài Txtdai.Focus()

(12)

(13)

MINH HOẠ