3131 5.4 Ví dụ minh hoạ Written by: Dương Thành Phết Yêu cầu chức năng: Nút Tính: Tính tích ở ô số lượng và ñơn giá, gán kết quả vào ô thành tiền Nút Tiếp: Xoá dữ liệu có sẳn trong các ô TextBox. ðặt con trỏ ở ô số lượng Nút thoát: ðóng màn hình This is trial version www.adultpdf.com 3232 Written by: Dương Thành Phết Project Name: MayTinh Form Name: frmMayTinh Caption: May Tinh Tien Hang StartUpPosition : CenterScreen TextBox Name: txtSoLuong Tab Index: 1 Text: “” Name: txtDonGia Tab index: 2 Text: “” Name: txtThanhTien Text:”” Command Name : cmdTinh Tab Index: 3 Name : cmdTiep Tab Index:4 Name : cmdThoat Tab Index: 5 ðịnh dạng toàn bộ Form theo mẫu This is trial version www.adultpdf.com 3333 Written by: Dương Thành Phết Viết lệnh cho các nút lệnh: Private Sub cmdThoat_Click( . . . ) Handles cmdThoat.Click Me.Close() End Sub Private Sub cmdTiep_Click(. . . . ) Handles cmdTiep.Click TxtSoluong.Text = "" TxtDongia.Text = "" TxtThanhtien.Text = "" TxtSoluong.Focus() End Sub Private Sub cmdTinh_Click( . . . . ) Handles cmdTinh.Click TxtThanhtien.Text = Val(TxtSoluong.Text) * Val(TxtDongia.Text) End Sub This is trial version www.adultpdf.com . Phết Yêu cầu chức năng: Nút Tính: Tính tích ở ô số lượng và ñơn giá, gán kết quả vào ô thành tiền Nút Tiếp: Xoá dữ liệu có sẳn trong các ô TextBox. ðặt con trỏ ở ô số lượng Nút thoát: ðóng. mẫu This is trial version www.adultpdf.com 3333 Written by: Dương Thành Phết Viết lệnh cho các nút lệnh: Private Sub cmdThoat_Click( . . . ) Handles cmdThoat.Click Me.Close() End Sub Private