Lap trinh VBnet

YÊU CẦU BÀI TẬP Màn hình thanh toán tiền điện. HƯỚNG DẪN GiẢI MINH HỌA[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 tốn tiền điện

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

(4)

PHÂN TÍCH YÊU CẦU

Thông tin nhập Tên chủ hộ, số cũ, số mới, đơn giá Xử ly Tính số tiền tốn theo cơng thức:

Số tiền toán = (chỉ số – số cũ)*

Đơn giá

(5)

YÊU CẦU BÀI TẬP Màn hình tốn tiền điện

(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 chỉnh sửa

(7)

Nút tính

Sự kiện click thực hiện: - Tính số tiền toán

-Xuất kết hình

Xử ly chức năng

Khai báo các biến có kiểu integer Csc, csm

Khai báo các biến có kiểu double Don_gia, so_tien

Gán giá trị cho tên biến csc, csm, don_gia <Tên biến> = val(<Tên textbox>.text)

Tính số tiền toán

So_tien = (csm – csc)*Don_gia

(8)

Nút tiếp tục

Sự kiện click thực hiện:

- Xố rỗng textbox

- Gán giá trị mặc định cho đơn

giá

- Đưa trỏ vào ô chủ hộ

Xử ly chức năng

Xoá rỗng ô textbox <Tên textbox>.text = “”

Gán giá trị mặc định cho đơn giá <Textbox đơn giá>.text = 2000 Đưa trỏ vào ô textbox

(9)

YÊU CẦU BÀI TẬP Màn hình toán tiền điện

(10)

Nút tính

Khai báo biến có kiểu integer

Dim csc, csm as integer

Khai báo biến có kiểu double

Dim don_gia, so_tien as double

Gán giá trị cho biến

Csc = val(txtcsc.text) Csm = val(txtcsm.text)

Don_gia = val(txtdon_gia.text)

Tính số tiền

So_tien = (csm – csc)*don_gia

Xuất số tiền hình

txtso_tien.text = so_tien

(11)

Nút tiếp tục

Xóa rỗng textbox

Txtten.text = “” Txtcsc.text = “” Txtcsm.text = “” Txtso_tien.text = “”

Đưa trỏ vào ô tên chủ hộ

Txtten.Focus()

Gán giá trị mặc định cho ô đơn giá

Txtdon_gia.text = 2000

(12)

YÊU CẦU BÀI TẬP Màn hình toán tiền điện

(13)

MINH HOẠ